title image


Smiley irgendwie so in der Richtung
'Aufruf:

myString = BrettVormKopf(Me!strOrt_von)





Public Function BrettVormKopf(Optional MyValue) As String

If IsMissing(MyValue) Then

BrettVormKopf = "SELECT OK.Ort, OK.PLZ FROM tblOrtsKoordinaten AS OK" _

& " WHERE OK.Ort Like '*'"

Else

BrettVormKopf = "SELECT OK.Ort, OK.PLZ FROM tblOrtsKoordinaten AS OK" _

& " WHERE OK.Ort Like '*" & MyValue & "*'"

End If

End FunctionGruß Carsten




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: