Buonasera a tutti e scusate il disturbo.
Vi chiedo un aiuto per un problema di sintassi di un codice vba.
Ho una maschera (Maschera_Quietanze_da_filtrare_csv) dove ho inserito tre box di ricerca nominati " InizioPeriodo " , " FinePeriodo " e " SceltaCollaboratore ".
La maschera ha origine dati da una query (QueryAvvisiScadenzeRCAnonIncassate) dove ho inserito sul campo " ScadenzaRataQuietanza " il criterio di filtro:
>=[Maschere]![MASCHERA_QUIETANZE_DA_FILTRARE_CSV]![InizioPeriodo] And <=[Maschere]![MASCHERA_QUIETANZE_DA_FILTRARE_CSV]![FinePeriodo]
e sul campo " NominativoCollaboratore "
il criterio di filtro:
[Forms]![MASCHERA_QUIETANZE_DA_FILTRARE_CSV]![SceltaCollaboratore]
Su un pulsante nella maschera (Maschera_Quietanze_da_filtrare_csv) ho inserito il codice:
Private Sub StampaDettagliata_Click()
If IsNull([InizioPeriodo]) Or IsNull([FinePeriodo]) Then
MsgBox "Data di Inizio Ricerca o Data di Fine Ricerca Mancanti."
DoCmd.GoToControl "InizioPeriodo"
Else
If ([InizioPeriodo]) > ([FinePeriodo]) Then
MsgBox "La Data di Fine Ricerca deve essere successiva alla Data di Inizio Ricerca."
DoCmd.GoToControl "InizioPeriodo"
End If
Dim dbs As DAO.Database
Dim rsQuery As DAO.Recordset
Dim Percorso, NomeFile, Sep As String
Dim strSql As String
Dim prova As String
Set dbs = CurrentDb
Percorso = "C:\Users\Saverio\Desktop\"
NomeFile = "Scadenze Quietanze.csv"
Sep = ";"
Set rsQuery = dbs.OpenRecordset("QueryAvvisiScadenzeRCAnonIncassate", dbOpenDynaset)
Open Percorso & NomeFile For Output As #1
rsQuery.MoveFirst
Do While Not rsQuery.EOF
riga = rsQuery.Fields("PrefissoCellulare") & Sep & rsQuery.Fields("CellulareCliente") & Sep & rsQuery.Fields("ScadenzaRataQuietanza") & Sep &
rsQuery.Fields("MarcaeTipoAutomezzoPolizza") & Sep & rsQuery.Fields("TargaAutomezzoPolizza")
Print #1, riga
rsQuery.MoveNext
Loop
rsQuery.Close
Set rs1 = Nothing
Close #1
MsgBox "Esportazione completata del File - Scadenze Quietanze.csv - in DeskTop"
End If
End Sub
Ora se esegno il codice mi dice: "Errore di Run-Time "3061". Parametri insufficienti. Previsto 3."
Praticamente non riesco a dichiarare i 3 campi di ricerca nel codice sopra.
Qualcuno potrebbe aiutarmi.
Grazie