Ciao a tutti,
ho un problema con l'esecuzione di una query di accodamento scritta in una routine di vba.
Comincio a spiegarmi:
Ho una maschera in cui sono presenti una casella di riepilogo (nella quale filtro tutte le aziende che non hanno mai fatto un certo tipo di pratica), un pulsante aggiorna (con il quale vorrei appunto attivare la query) ed un pulsante rimuovi selezione
Il codice che utilizzo (e che ovviamente non funziona per la query) è il seguente:
Private Sub AggSel_Click()
Dim strSQL As String
Dim strPRM As String
Dim varItm As Variant
If Me.E_INA.ItemsSelected.Count < 2 Then
MsgBox "Selezionare almeno due aziende da aggiornare", vbCritical
Exit Sub
End If
For Each varItm In E_INA.ItemsSelected
If E_INA.Selected(varItm) = True Then
strSQL = strSQL & E_INA.ItemData(varItm) & ","
End If
Next
Testo7.Value = strSQL
strSQL = Left(strSQL, Len(strSQL) - 2)
strPRM = "ID_FASCICOLO_AZIENDALE IN(" & strSQL & ")"
If MsgBox("Proseguendo inserirai nuove assegnazioni gasolio di tipo " & Me.tipo.Column(1) & " per le aziende selezionate!" & vbNewLine & "Sei Sicuro?", vbYesNo) = vbNo Then
Exit Sub
Else
DoCmd.RunSQL "INSERT INTO tblAssGasolio SELECT CUAA, CAMPAGNA, OPERATORE, ID_FASCICOLO_AZIENDALE, ID_DOMANDA WHERE ID_FASCICOLO_AZIENDALE =" & strPRM
Me.E_INA.Requery
MsgBox "Operazione avvenuta con successo! N. " & Me.E_INA.ItemsSelected.Count & " Aziende aggiornate!"
End If
If MsgBox("Vuoi aggiungere altre assegnazioni?", vbYesNo) = vbNo Then
DoCmd.Close acForm, "frmAGGuma"
Else
Exit Sub
End If
End Sub
Preciso che un codice simile lo uso già per fare una query di aggiornamento e in quel caso funziona.
Qualcuno mi può gentilmente indicare la strada giusta da percorrere?
Grazie in anticipo e buona giornata