title image


Smiley Typos
Aus dem Kopf ist das immer etwas heikel mit den Textverkettungen...



Dim xDatum As Double, id As Long

xDatum = CDbl(Forms!frm_login!txDatum)

id = Lookup("[UserID]", "tbl_protokoll", "IDatum >= " & xDatum-0.000011574 & " AND IDatum <= " & xDatum + 0.000011574)

End Function



oder



Dim xDatum As String, id As Long

xDatum = Format(Forms!frm_login!txDatum, "yyyy/mm/dd hh:nn:ss") 'Ergebnis: String

id = DLookup("[UserID]", "tbl_protokoll", "Format(IDatum,'yyyy/mm/dd hh:nn:ss') = '" & xDatum & "'")

End Function



HTH

Martin
Atrus2711 ät gmx punkt net
Meine Beiträge zu MS Office betreffen stets Version 2000,
wenn nicht anders angegeben.




geschrieben von


Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: