title image


Smiley in etwa so
Private Sub Form_Current()

Dim s As String

If Not IsNull(Me!MeinName) Then

s = "SELECT Land FROM MeineTabelle WHERE Name = '" & Me.MeinName & "' ORDER BY Land"

Else

s = "SELECT Land FROM MeineTabelle ORDER BY Land"

End If

Me.MeineListe.RowSource = s

End Sub... Ansonsten:

Tabellen-, Feld- und Stuerelemente sollten nie nur 'Name' heißen, da dies ein geschützter Begriff in Access ist.





Gruß Carsten


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: