mit der Zeile
CurrentDb.Execute "UPDATE StblKonfig SET KDatum = '" & Date & "' WHERE key = 6"
schreibe ich ein Datum in eine verknüpfte Tabelle.
Kann ich auch in eine externe, nicht verknüpfte Tabelle schreiben?
Wie würde das dann aussehen?
Grüße aus Berlin
Peter W
CurrentDb.Execute "UPDATE StblKonfig in 'DeinePfadAngabeZurDB' SET KDatum = '" & Date & "' WHERE key = 6", dbFailOnError
PS: warum speicherst Du ein Datum als Text? Bei einem Datumsfeld würde man
CurrentDb.Execute "UPDATE StblKonfig in 'DeinePfadAngabeZurDB' SET KDatum = Date() WHERE key = 6", dbFailOnErrorverwenden, was weniger Speicherplatz beansprucht und eine ordentliche Sortierung erlaubt.
Danke,
das funktioniert einwandfrei
Gruß
Peter
Nun versuche ich ein Feld aus einer externen Tabelle in eine Variable auzulesen.
Aber irgendwie klappt das nicht.
Wer kann mir helfen?
Hallo,
ZitatAber irgendwie klappt das nicht.
wenn man irgendwie sehen könnte was Du versucht hast könnte man ja irgendwie versuchen irgendeine Lösung zu finden.
Entschuldige meinen Sarkasmus, aber was erwartest Du mit einer solch lapidaren Aussage für eine Hilfe ?
ich habe nach einer Syntax ähnlich wie beim Schreiben (s.o.) gesucht, aber nicht gefunden.
Hallo,
ich kann immer noch nicht erkennen, was Du genau versucht hast und was Du genau machen willst.
das, was ich bei einer verknüpften Tabelle mit dieser Zeile mache:
Me!FeldBDatum = DLookup("[KDatum]", "StblKonfig", "key = 6") 'Backup Datum
möchte ich mit einer nichtverknüpften Tabelle machen
Du kannst einen Feldwert eines Recordsets nach diesem Schema ermitteln. Const QRY$ = "SELECT KDatum FROM StblKonfig WHERE key = [@key]"
Dim db As DAO.Database
Set db = DBEngine.OpenDatabase("PfadZurDb")
With db.CreateQueryDef(vbNullString, QRY)
.Parameters("@key") = 6 ' oder eine Variable
Me.FeldBDatum = .OpenRecordset()(0) 'Backup Datum
End With
db.Close
Hallo,
Und man beachte, dass in dieser Prozedur ein db.Close
Sinn macht, da hier wirklich eine zweite (neben CurrentDb)
geöffnet wird.
Anders eben als wenn man nur eine Referenz auf CurrentDb
verwendet.
Ein Set db = Nothing sollte aber auch hier nicht fehlen ;)
gruss ekkehard
Neue Probleme zum gleichen Thema:
mit diesen Zeilen
Set tmpDB = OpenDatabase("R:\Verz\Unterverz\Daten.mdb")
Set rs = tmpDB.OpenRecordset("tblMuster")
MsgBox rs!AktDatum
bekomme ich das entsprechende Datum angezeigt
nun möchte ich den höchsten Wert haben aber die Funktion Max oder DMax functionieren bei mir nicht. Wie kann ich dieses Problem lösen?
Hallo,
Set tmpDB = OpenDatabase("R:\Verz\Unterverz\Daten.mdb")
Set rs = tmpDB.OpenRecordset("Select Max(Aktdatum) from tblMuster")
MsgBox rs(0)
Das war es was ich gesucht habe, vielen Dank