Office: SQL INSERT INTO wenn nicht vorhanden

Hallo

Ich mal wieder *rolleyes.gif*

Code:

Das Update funktioniert einwandfrei


Code:

aber das Insert Into leider nicht
hierbei kommt eine Fehlermeldung in VBA, dass ein Semikolon fehlt
Wenn die AV-Nummer bereits existiert soll das Update starten (das funktioniert bereits)
wenn die AV-Nummer nicht existiert, dann soll ein neuer Datensatz angelegt werden

:)

 

bitte versuchen Sie so
DoCmd.RunSQL "INSERT INTO Tabelle (AV) VALUES ('" & AV & "') WHERE TABELLE.AV not In (select AV from TABELLE WHERE AV='" & AV & "')"

 

das geht leider auch nicht.. es kommt die selbe fehlermeldung

 

hast du mit dem Komprimieren und Reparieren von Datenbanken probiert
sonst kannst du der gesamt code einfügen

 

habe ich alles gemacht.. aber er vermisst trotzdem ein semikolon..
irgendwas wird wohl an der abfrage-struktur falsch sein.. nur was?

 

ich habe dein Wunsche so programmiert

Dim db As DAO.Database
Dim rs As DAO.Recordset


Set db = CurrentDb

strSQL = ""
strSQL = "select AV from TABELLE WHERE AV='" & AV & "'"
Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)


If rs.RecordCount = 0 Then

CurrentDb.Execute "insert into tabelle(AV) values (‘”& AV &”’)”

Else

CurrentDb.Execute "Update Tabelle SET Tabelle.KW1 = '3' WHERE (((TABELLE.AV) In (select AV from TABELLE WHERE AV='" & AV & " ')));"

End if

rs.Close
Set rs = Nothing 'Variablen freigeben nicht vergessen.
Set db = Nothing

 

ja so gehts.. dankeschön für die mühe