Liebe Community
beim Ausführen folgenden Codes habe ich das Problem, dass mir PG einen Fehler verursacht. Mit MySQL geht es problemlos.
Woran könnte es liegen?
On Error GoTo btnAvailability_Click_error
Dim s As String
Dim x As Long
If Me.Dirty Then DoCmd.RunCommand acCmdSaveRecord
If Nz(Me![AssetID], "") <> "" Then
s = "INSERT INTO tblDefaultAvailability ( DefAssetID, DefVBdayofweek, DefDayName, [DefIsAvailable?], DefDayStartTime, DefDayEndTime, DefLunchStartTime, DefLunchEndTime )"
s = s & " SELECT """ & Me![AssetID] & """, [DefVBdayofweek], [DefDayName], [DefIsAvailable?], [DefDayStartTime], [DefDayEndTime], [DefLunchStartTime], [DefLunchEndTime]"
s = s & " FROM tblDefaultAvailability"
s = s & " WHERE ((([DefAssetID])=""Global""))"
CurrentDb.Execute s
x = CurrentDb.RecordsAffected
DoCmd.OpenForm "frmAssetsAvailability", acNormal, , "[AssetID]=""" & Me![AssetID] & """", , acDialog
End If
btnAvailability_Click_Exit:
Exit Sub
btnAvailability_Click_error:
Select Case Err
Case 2501 'cancelled
Resume btnAvailability_Click_Exit
Case Else
MsgBox Err & "-" & Error$, vbCritical + vbOKOnly, "Error in module btnAvailability_Click"
Resume btnAvailability_Click_Exit
End Select
Bei der Zeile
CurrentDb.Execute s
springt mir die Datenbank gleich zum Errorhandler und gibt mir den Fehler
3155-ODBC: Einfügen in einer verknüpften Tabelle ‘tbldefaultavailability’ fehlgeschlagen.
.
Die Spalten DefAssetID, DefVBdayofweek sind beide Primary Key (das hat der vorhergehende DB-Entwickler so festgelegt), welche Auswirkungen ein Drop Constraint haben könnte weiss ich nicht. Zudem funktioniert die Syntax
ALTER TABLE public.tbldefaultavailability DROP CONSTRAINT DefVBdayofweek;
nicht.
Man kann doch SQL-Befehle im Frontend benutzen, wenn man PG verwendet, oder nicht?
Kann mir bitte jemand helfen?
Vielen Dank und Gruss
DrGonzo