Ciao a tutti,
in riferimento al mio vecchio post, ho trovato il modo per "bypassare" il problema creando la stringa SQL direttamente all'interno del codice, mi si presenta però un nuovo problema e cioè che anche se i campi (GET_DataInizio, GET_DataFine, GET_TipCli) sono completi, nel momento in cui apro il Report mi viene visualizzato "#Nome?".
Di seguito il codice che ho creato (Le variabili GET_xxx sono definite come Public):
Private Sub AnteprimaEtichetteCL_Click()
On Error GoTo Err_AnteprimaEtichetteCL_Click
Dim stDocName As String
If Not IsNull([Forms]![Etichette Clienti]![DataInizioPER]) Then
GET_DataInizio = DataInizioPER
GET_DataFine = DataFinePER
GET_TiCli = TiCliPER
End If
If Not IsNull([Forms]![Etichette Clienti]![DataInizioMAT]) Then
GET_DataInizio = DataInizioMAT
GET_DataFine = DataFineMAT
GET_TiCli = TiCliMAT
End If
If Not IsNull([Forms]![Etichette Clienti]![DataInizioCOM]) Then
GET_DataInizio = DataInizioCOM
GET_DataFine = DataFineCOM
GET_TiCli = TiCliCOM
End If
TmpSQLString = ""
TmpSQLString = "SELECT Clienti.* FROM Clienti WHERE (((Clienti.Codice_TiCli) Is Not Null And (Clienti.Codice_TiCli)="
TmpSQLString = TmpSQLString & "GET_TiCli) And ((Clienti.Data_Matrimonio) Is Not Null) And ((Clienti.NO_Spedizione)<>-1)"
TmpSQLString = TmpSQLString & " And ((Month(Clienti.Data_Matrimonio)) Between Month(GET_DataInizio) And Month(GET_DataFine)));"
stDocName = "Etichette Clienti"
DoCmd.OpenReport stDocName, acPreview, , TmpSQLString
Exit_AnteprimaEtichetteCL_Click:
Exit Sub
Err_AnteprimaEtichetteCL_Click:
MsgBox Err.Description
Resume Exit_AnteprimaEtichetteCL_Click
End Sub
-----
Devo forse aggiungere PARAMETERS all'interno della query che creo?
Grazie 1000
Rispondi quotando
