Hallo,
folgende Situation:
MSDE Server
ODBC Datenquelle--> System DNS auf MSDE
Access 2000 MDB
verknüpfte Tabellen zum ODBC Treiber
Bei der unten stehenden Routine wird das 1. Execute ausgeführt und bei der
2. kommt ein Fehler. "ODBC-Aufruf fehlgeschlagen"
Außerdem ist die gesamte Tabelle dbo_TblXXX gesperrt.(kein öffnen möglich)
Das Phänomen ist wenn ich das Formular mit dieser Routine
allein Aufrufe dann klappt es.
Wenn ich jedoch noch ein paar andere gebundene Formulare
offen habe dann klappt es nicht.
Ich bin total verzweifelt, habe alles ausprobiert.
An die maximalen Verbindungen kann es doch nicht liegen oder?
Public cnnAktuDB As New ADODB.Connection
Private SQL As String
If cnnAktuDB.State <> adStateOpen Then
Set cnnAktuDB = CurrentProject.Connection
End If
cnnAktuDB.BeginTrans
SQL = "UPDATE dbo_TblXXX " & _
"Set Kosten = '10',Kennzeichen = 0 " & _
"WHERE AusIDSKost <> 0 AND Kennzeichen = 999"
' SQL ausführen
cnnAktuDB.Execute SQL, , adExecuteNoRecords
SQL = "UPDATE dbo_TblXXX " & _
"Set Kosten = '-10',Kennzeichen = 0 " & _
"WHERE InIDSKost <> 0 AND Kennzeichen = 999"
' SQL ausführen
cnnAktuDB.Execute SQL, , adExecuteNoRecords
cnnAktuDB.CommitTrans
folgende Situation:
MSDE Server
ODBC Datenquelle--> System DNS auf MSDE
Access 2000 MDB
verknüpfte Tabellen zum ODBC Treiber
Bei der unten stehenden Routine wird das 1. Execute ausgeführt und bei der
2. kommt ein Fehler. "ODBC-Aufruf fehlgeschlagen"
Außerdem ist die gesamte Tabelle dbo_TblXXX gesperrt.(kein öffnen möglich)
Das Phänomen ist wenn ich das Formular mit dieser Routine
allein Aufrufe dann klappt es.
Wenn ich jedoch noch ein paar andere gebundene Formulare
offen habe dann klappt es nicht.
Ich bin total verzweifelt, habe alles ausprobiert.
An die maximalen Verbindungen kann es doch nicht liegen oder?
Public cnnAktuDB As New ADODB.Connection
Private SQL As String
If cnnAktuDB.State <> adStateOpen Then
Set cnnAktuDB = CurrentProject.Connection
End If
cnnAktuDB.BeginTrans
SQL = "UPDATE dbo_TblXXX " & _
"Set Kosten = '10',Kennzeichen = 0 " & _
"WHERE AusIDSKost <> 0 AND Kennzeichen = 999"
' SQL ausführen
cnnAktuDB.Execute SQL, , adExecuteNoRecords
SQL = "UPDATE dbo_TblXXX " & _
"Set Kosten = '-10',Kennzeichen = 0 " & _
"WHERE InIDSKost <> 0 AND Kennzeichen = 999"
' SQL ausführen
cnnAktuDB.Execute SQL, , adExecuteNoRecords
cnnAktuDB.CommitTrans
Comment