title image


Smiley Re: Mein Lieblingsthema: Während der Eingabe filtern
Erstell ein formular mit meheren TextfeldernIm Text0 machst du deine Eingabe (sollte daher leer sein).In den andern lässt Du die die anderen werte anzeigen.und volgenden Code ins nach Atualisierung Ereignis.Private Sub Text0_Change()Dim szsql As StringDim Temp As String Temp = Me.Text0.Text szsql = "SELECT Tabelle1.A, Tabelle1.B, Tabelle1.C " _ & "FROM Tabelle1 " _ & "WHERE (((Tabelle1.A) Like ('" & Me.Text0.Text & "')));" Me.RecordSource = szsql Me.Text0 = Temp Me.Repaint Me.Text0.SelStart = Len(Temp) Me.Text0.SelLength = 0 End Subzeus

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: