Hi, hab wieder einmal ein Problem. Und zwar muss in Tabelle kontrollieren ob ein Datum(steht in einem Textfeld) schon vorhanden ist. Wie macht man das in VBA (VBA wegen weiteren Funktionen)???
mfg
Hi Seas,
hab wieder einmal ein Problem.
wie bereits geschrieben, wirst du diese Probleme so lange bekommen, wie du den Feldtyp von TEXT nicht in DATUM in deiner Tabelle änderst.
Und zwar muss in Tabelle kontrollieren ob ein Datum(steht in einem
Textfeld)
Ich gehe mal davon aus, dass das Tabellenfeld auch wirklich vom Typ Datum ist, dann kannst du folgende Möglichkeit nutzen:
Ereignis Vor Aktualisierung des Datum-Textfeldes:
Sub Datum_BeforUpdate()
Dim Anzahl as long
On error resume next
'Dieser Befehl ist für MDB
Anzahl=Dcount("*",„Tabellenname“,„Datum=#“ & format(me.datum,„mm/dd/yyyy“)
‚Diesen Befehl verwenden, wenn du eine ADP-Datei hast
‚Anzahl=Dcount("*",„Tabellenname“,"Datum=‘" & me.Datum &"‘"
if Anzahl > 0 then
MsgBox „Dieses Datum existiert bereits!“
me.datum.undo
end if
End Sub
Alternativ kann die Eindeutigkeit dieses Feldes auch über einen Ohne-Duplikate-Index eingestellt werden. Dann übernimmt Access die Prüfung beim Speichern des Datensatzes. Der Ohne-Duplikate-Index wird direkt in der Tabelle eingerichtet.
Hoffe es hilft.
Gruß
EPa
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hi Seas,
hab wieder einmal ein Problem.
wie bereits geschrieben, wirst du diese Probleme so lange
bekommen, wie du den Feldtyp von TEXT nicht in DATUM in deiner
Tabelle änderst.
Ich stimme Netwolf zu, du solltest es in ein Datumsfeld aendern. Nichtdeszutrotz sollte es (auch wenn es auch nicht die feine art ist) mit ein format function funktionieren…
select count(*) from table where Format([datumfeld],[ShortDate])=Format(‚07.09.2007‘,[ShortDate])