VBA If else Abfrage
23.09.2005 12:45:06
Caspar
habe mal wieder nen Problem, was wahrscheinlich für euch PILLEPALLE ist, nur ich als VBA Neulig tue mich sehr schwer.
Irgenwie checkt der Code nicht dass ein Textfeld aktiv/nicht aktiv ist!
Der Code lautet bisher so...
********************************************
Private Sub SucheStarten_Click()
'In Textfeld volltext wurde ETWAS eingeben, dann führe die Abfrage aus
If volltext <> 0 Then
DoCmd.OpenQuery "A2_Volltext_Filter"
Else
'In Textfeld volltext wurde NICHTS eingeben, dann führe die Abfrage aus
DoCmd.OpenQuery "A_Filter"
End If
End Sub
********************************************
Beim IF soll geprüft werden ob in dem Textfeld (volltext) ein Zeichen eingegeben wurde, wenn ja, dann führe die Abfrage A2_Volltext-Suche" aus.
Wenn nichts eingegeben wurde führe die andere Abfrage (A-Filter) aus.
HAbt ihr ne Hilfe
Anzeige