?CurrentDB?

[Tatjana Wolf]

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

[Fritz Reimer]

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