Hallo, kann mir vieleicht nochmal jemand helfen?<BR>Ich möchte mittels VBA in meiner Datenbaank auf eine Tabelle zugreifen und das aktuelle Datum in eine Spalte hinzufügen.<BR> Ich hab leider nur rausbekommen das ich das mit CurrentDB und Insert into realisieren kann, leider bekomme ich das nicht hin.<BR> Wäre echt toll wenn ich Hilfe bekäme!<Lieben dank schon mal im Vorraus!<BR>Tatjana
Announcement
Collapse
No announcement yet.
?CurrentDB?
Collapse
X
-
Hallo Tatjana,
nachfolgender Code fügt in eine Tabelle tab1 einen neuen Datensatz an und füllt die Spalte Datum1 (Datum/Uhrzeit) mit dem aktuellen Datum: <BR> <BR>
<PRE>
Sub test()
Dim db As DAO.Database
Dim dat1 As String
Dim strSQL As String
dat1 = "#" & Format(Month(Date), "00") & "/" & Format(Day(Date), "00") & "/" & Format(Year(Date), "0000") & "#"
strSQL = "INSERT INTO tab1 (Datum1) VALUES (" & dat1 & ")"
Set db = CurrentDb
db.Execute strSQL
End Sub
<PRE>
Du mußt im VBA-Editor einen Verweis auf Microsoft DAO 3.6 Libary setzen, wenn das Beispiel funktionieren soll.<BR> <BR>
Gruss<BR>
Frit
Comment