title image


Smiley Re: Filter auf Memo-Feldern
Hi Roy,

ich würds in etwa so machen:





Private Sub cmdFilterbutton_Click()

Dim Treffer As Integer, Filter1 As String



Treffer = DCount("Hinweis", "Tabelle", "[Tabelle.Hinweis) Is Not Null")



If Treffer > 0 Then

Filter1 = "(Tabelle.Hinweis) Is Not Null"

DoCmd.ApplyFilter , Filter1

Else

MsgBox "nix da"

End If



End Sub







Gruss Ernst
Gruss Ernst ---------------------------------------------------------------------------------- WIN XP prof, Office XP, Visual Studio (.net) 2002 + 2005

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: