Aggiungere ad intervallo date 3 caselle di ricerca

di
boris8
il
4 risposte
B
boris8
Pochi posts
Iscritto da
mag, 2019
Messaggi:
11

Aggiungere ad intervallo date 3 caselle di ricerca

E la prima volta che scrivo in questo forum, mi sono avvicinato ad access circa 8 mesi fa ,sto creando un piccolo gestionale
il mio problema adesso e sulla maschera di ricerca, ,mi spiego meglio. ho creato una maschera di ricerca con 2 caselle testo
con intervallo date dal al con un bottone cerca, con codice vba, e fin qui tutto ok adesso vorrei aggiungere 3 caselle combinate
di ricerca indipendenti tra loro , cioe posso cercare con la data e una casella di ricerca o con data e 2 caselle e data con tutte e 3 le caselle
con un unico bottone cerca . questo e il codice vba che ho immesso per far funzionare le caselle di testo dal al,se volete posso allegare il file
access


Private Sub BottonCerca_Click()
If Not IsNull(Me!cboDataDal) And Not IsNull(Me!cboDataAl) Then
Me.FilterOn = False
Me.Filter = "[Data Acquisto] between " & Chr$(35) & _
Format$(Me!cboDataDal, "mm/dd/yyyy") & Chr$(35) & _
" AND " & Chr$(35) & Format$(Me!cboDataAl, "mm/dd/yyyy") & Chr$(35)
Me.FilterOn = True
Else
MsgBox "campi non valorizzati"

End If
End Sub

4 Risposte

  • @Alex
    @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi:
    8752

    Re: Aggiungere ad intervallo date 3 caselle di ricerca

    Ho capito veramente poco... soprattutto le 3 Caselle di ricerca INDIPENDENTI... cosa significa su che campo...?

    In ogni caso io per quello che ho capito... :
    
Private Sub BottonCerca_Click()
    Dim strFilter As String
    If Len(Me!cboDataDal & vbNullstring)>0 And Len(Me!cboDataAl & vbNullstring)>0 Then strFilter  = "([Data Acquisto] between " & Clng(Me!cboDataDal) & " AND " & Clng(Me!cboDataAl) & ") AND "
    ' Quì se ti va bene la ListBox è molto più semplice...
    If Len(Me!Casella1 & vbNullstring)> Then strFilter  =strFilter  & "AltroCampo1=" & Me!Casella1 & " AND "
    If Len(Me!Casella2 & vbNullstring)> Then strFilter  =strFilter  & "AltroCampo2=" & Me!Casella2 & " AND "
    If Len(Me!Casella3 & vbNullstring)> Then strFilter  =strFilter  & "AltroCampo3=" & Me!Casella3 & " AND "
    If Len(strFilter)>0 Then 
        strFilter=Mid$(stRFilter,1,Len(strFilter)-5)
        Me.Filter=strFilter
    Else
        MsgBox "campi non valorizzati"
    End If
End Sub
  • B
    boris8
    Pochi posts
    Iscritto da
    mag, 2019
    Messaggi:
    11

    Re: Aggiungere ad intervallo date 3 caselle di ricerca

    Allora i nomi dei campi sono 1 Staff 2 Categoria 3 Trattamenti, indipendenti significa che non devono essere a cascata,
  • B
    boris8
    Pochi posts
    Iscritto da
    mag, 2019
    Messaggi:
    11

    Re: Aggiungere ad intervallo date 3 caselle di ricerca

    Cosa ci devo mettere altrocampo1 altrocampo2 altrocampo3?
  • @Alex
    @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi:
    8752

    Re: Aggiungere ad intervallo date 3 caselle di ricerca

    Il nome del campo oggetto di criterio.
Devi accedere o registrarti per scrivere nel forum
4 risposte