Attivazione pulsante di ricerca

di il
4 risposte

Attivazione pulsante di ricerca

In access ho una maschera cd con sottomaschera track

nell'intestazione search ho creato casella ti testo searchcmbox e due pulsanti search, clear

clear non mi dà nessun problema

per attivare search ho digitato il seguente codice:

Private Sub searchcmbox_Click()
Me.FilterOn = False

Form!cd!Form!track!Form! = "[artistk] like '*" & Me.searchcmbox & "*' OR [genrek] like '*" & Me.searchcmbox & "*' OR [style] like '*" & Me.searchcmbox & "*' OR [trackyear] like '*" & Me.searchcmbox & "*'"""
Me.FilterOn = True

End Sub

quando digito il testo nella searchcmbox e clicco search non succede niente. 

Mi scuso se non sono stato chiaro

4 Risposte

  • Re: Attivazione pulsante di ricerca

    Innanzitutto la costruzione del criterio di ricerca deve includere SOLO i campi valorizzati… quindi si scrive codice più completo che escluda quei campi il cui controllo è vuoto.

    Seconda cosa puoi spiegare cosa sarebbe questo:

    Form!cd!Form!track!Form! =

    Fai qualche ricerca sul forum argomento molto trattato.

  • Re: Attivazione pulsante di ricerca

    Avevo fatto un giro su YouTube trovando questo tutorial 

     form è usato per maschere e sotto maschere

    Mi son dimenticato prima di dire che i vari campi track genre style…sono caselle combinate.

    dubito che si possano usare per la mia ricerca 

  • Re: Attivazione pulsante di ricerca

    Per capirci meglio un modo intelligente per gestire criteri multipli è questo:

    Private Sub btnVisualizzaSel_Click()
        Dim strWH As String
    
        If Len(Me!txtNome.Value & vbNullString) > 0 Then strWH = strWH & "[Nome] Like '*" & txtNome.Value & "*'" & " And "
        If Len(Me!txtCAP.Value & vbNullString) > 0 Then strWH = strWH & "[CAP] Like '*" & txtCAP.Value & "*'" & " And "
        -'altri criteri se necessario...
        -
        If Len(strWH) > 0 Then strWH = Mid$(strWH, 1, Len(strWH) - 5)
            Me.Filter=strWH
            Me.FilterOn=True
        Else
            Me.FilterOn=False
        End If
    End Sub

    Ovviamente attenzione al FieldType dei campi, come dovresti sapere Testo/Date/NumeriInteri/NumeriDecimali hanno sintassi differenti.

  • Re: Attivazione pulsante di ricerca

    Grazie infinite Alex farò come mi hai suggerito

    ti terrò al corrente 

    buona serata 

Devi accedere o registrarti per scrivere nel forum
4 risposte