title image


Smiley Re: Problem mit Daten selektion im UF
Etwa so:



Dim Krit As String, SQL As String



Krit = ""

If Not IsNull(Me!Auft_von) Then Krit = Krit & " AND Auftrag LIKE ' " & Me!Auft_von & "*'"

If Not IsNull(DeinFeld) Then Krit = Krit & " AND DeinFeld BETWEEN '" & DeinKriteriumVON & "' AND '" & Dein KriteriumBIS & "'"

SQL = "SELECT * FROM qry_Aufträge "

If Krit "" Then SQL = SQL & "WHERE " & Mid(Krit, 5)

Me!ufrm_Aufträge.Form.RecordSource = SQL

Me!Auft_von.SetFocus


Schönen Gruß Andrej ___________________________________________________________ Access2000 / 2003 Windows XP VB6

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: