Ciao Raffaele, il filtro *TUTTO non può essere applicato ad una query di selezione. Potresti invece inserie questa piccola stringa "Like "*" & [maschere]![Nome_della_Maschera]![Nome_della_Casella] & "*"" (es: Like "*" & [maschere]![frm_Cap![txt_Cerca] & "*") nei criteri della colonna della query di selezione. Questa stringa sarà trattata nel prossimo video che pubblicherò spero a breve. Ciao. Fammi sapere se riesci a risolvere. Se dovessi avere problemi, scrivimi pure nei commenti. Ciao
Buongiorno Anto, lo immaginavo. Ok grazie aspetterò il tuo prossimo video. Mi era sorto solo una domanda e cero se posso applicarlo ai miei database semplici. Buon lavoro.....
Video molto interessante. Le chiedo una cortesia se possibile. Potrebbe rivedere il codice del filtro prevedendo che non vada in errore se nel nome di una squadra ci sia anche un accento o un apostrofo? Per esempio se la ricerca va indirizzata a una squadra che si chiama CA' ROSSA il programma va in errore. Grazie
Ciao e grazie per il feedback. La tua richuiesta è interessante e corretta. Per poter fare una ricerca di parole con apostrofo è necessario inserire il seguente codice prima del ciclo IF: Dim filtro As String filtro = Replace(Me.cmbFiltro, "'", "''") Spiegazione: Dim filtro As String ---> Si crea una variabile "filtro" come Stringa filtro = Replace(Me.cmbFiltro, "'", "''")---> Utilizzo della funzione Replace per sostituire gli apostrofi singoli con due apostrofi singoli. Spero di aver rispoto correttamente alla tua richiesta. Fammi sapere se funziona tutto. Ciao.
@@AntoNardo79 Grazie mille per l'interessamento. Purtroppo non funziona va lo stesso in errore. ERRORE DI RUN-TIME '3075' Errore di sintassi(operatore mancante)nell'espressione della query 'squadra ='L'ORTO DI ENRICO". Il debug evidenzia l'errore su questa riga: Me.Filter = "squadra ='" & Me.cmbFiltro & "'"
Private Sub cmbFiltro_AfterUpdate() Dim filtro As String filtro = Replace(Me.cmbFiltro, "'", "''") If Me.cmbFiltro = "*TUTTE" Then Me.FilterOn = False Else Me.Filter = "squadra ='" & Me.cmbFiltro & "'" Me.FilterOn = True End If End Sub
Ecco il codice che devi utilizzare: Private Sub cmbFiltro_AfterUpdate() Dim filtro As String filtro = Replace(Me.cmbFiltro, "'", "''") If filtro = "*TUTTO" Then Me.FilterOn = False Else Me.Filter = "squadra='" & filtro & "'" Me.FilterOn = True End If End Sub ho provato il codice e funziona, almeno nel mio caso. Prova a sostituire tutto il codice con questo. Credo di aver capito il tuo errore. E' nella stringa sotto ELSE: "squadra ='" & Me.cmbFiltro & "'". ERRATA. devi sostituirla con: "squadra='" & filtro & "'" . Altrimenti sostituisci semplicemente tutto il codice. Fammi Sapere. Ciao
Bravo pari
Buonasera Anto, il seguente filtro (Casella Combinata *TUTTO) si può applicare a una normale maschera collegata a una query di selezione?
Ciao Raffaele, il filtro *TUTTO non può essere applicato ad una query di selezione. Potresti invece inserie questa piccola stringa "Like "*" & [maschere]![Nome_della_Maschera]![Nome_della_Casella] & "*"" (es: Like "*" & [maschere]![frm_Cap![txt_Cerca] & "*") nei criteri della colonna della query di selezione.
Questa stringa sarà trattata nel prossimo video che pubblicherò spero a breve.
Ciao. Fammi sapere se riesci a risolvere. Se dovessi avere problemi, scrivimi pure nei commenti. Ciao
Buongiorno Anto, lo immaginavo. Ok grazie aspetterò il tuo prossimo video. Mi era sorto solo una domanda e cero se posso applicarlo ai miei database semplici. Buon lavoro.....
Video molto interessante. Le chiedo una cortesia se possibile. Potrebbe rivedere il codice del filtro prevedendo che non vada in errore se nel nome di una squadra ci sia anche un accento o un apostrofo? Per esempio se la ricerca va indirizzata a una squadra che si chiama CA' ROSSA il programma va in errore. Grazie
Ciao e grazie per il feedback. La tua richuiesta è interessante e corretta. Per poter fare una ricerca di parole con apostrofo è necessario inserire il seguente codice prima del ciclo IF:
Dim filtro As String
filtro = Replace(Me.cmbFiltro, "'", "''")
Spiegazione:
Dim filtro As String ---> Si crea una variabile "filtro" come Stringa
filtro = Replace(Me.cmbFiltro, "'", "''")---> Utilizzo della funzione Replace per sostituire gli apostrofi singoli con due apostrofi singoli.
Spero di aver rispoto correttamente alla tua richiesta. Fammi sapere se funziona tutto. Ciao.
@@AntoNardo79 Grazie mille per l'interessamento. Purtroppo non funziona va lo stesso in errore.
ERRORE DI RUN-TIME '3075'
Errore di sintassi(operatore mancante)nell'espressione della query 'squadra ='L'ORTO DI ENRICO".
Il debug evidenzia l'errore su questa riga: Me.Filter = "squadra ='" & Me.cmbFiltro & "'"
Private Sub cmbFiltro_AfterUpdate()
Dim filtro As String
filtro = Replace(Me.cmbFiltro, "'", "''")
If Me.cmbFiltro = "*TUTTE" Then
Me.FilterOn = False
Else
Me.Filter = "squadra ='" & Me.cmbFiltro & "'"
Me.FilterOn = True
End If
End Sub
Ecco il codice che devi utilizzare:
Private Sub cmbFiltro_AfterUpdate()
Dim filtro As String
filtro = Replace(Me.cmbFiltro, "'", "''")
If filtro = "*TUTTO" Then
Me.FilterOn = False
Else
Me.Filter = "squadra='" & filtro & "'"
Me.FilterOn = True
End If
End Sub
ho provato il codice e funziona, almeno nel mio caso. Prova a sostituire tutto il codice con questo. Credo di aver capito il tuo errore. E' nella stringa sotto ELSE: "squadra ='" & Me.cmbFiltro & "'". ERRATA. devi sostituirla con: "squadra='" & filtro & "'" . Altrimenti sostituisci semplicemente tutto il codice. Fammi Sapere. Ciao