title image


Smiley Re: Poste mal deinen derzeitigen Code im Zusammenhang...
Hallo Reinhard,



das ist jetzt die Prozedur bzw die Funktion in der der Fehler auftritt.



Public Sub TabellenUeberschreiben()





'0. Aufruf durch: cmdImport_Click() des frm_projektverwaltung

' Aktion: bisherige Tabellen werden geleert

' aus den Import-Tabellen werden die neuen Daten eingefügt

' diese beiden Aktionen sind mit einem connFront.BeginTrans und connFront.CommitTrans

' aneinader gekoppelt

' Rückgabe: keine



Dim connFront As Connection



On Error GoTo Err_TabellenUeberschreiben



'1. Setzen der connection

Set connFront = CurrentProject.Connection



'2. Id des aktuell geöffneten FB

midprojekt = Forms!frm_projektverwaltung.lstFB.Column(0)



'3. Alle Tabellen löschen: Per VBA Löschen nur tblAbt, alle weiteren Löschvorgänge übernimmt

' Access wegen referenzieller Integrität plus Aktualisierungs- und Löschweitergabe



'3.1 Transaktion beginnen -> leider klappt das nicht mit Transaktionen

connFront.BeginTrans



tmpsql = "DELETE tblAbt.lid_abt FROM tblAbt WHERE (([tblAbt]![flid_fb]='" & midprojekt & "'));"

connFront.Execute tmpsql, recaff

'MsgBox recaff



'4. Einfügen der Datensätze aus den Importtabellen, wenn erfolgreich dann

If insertTabellen = True Then

'5. Transaktion abschließen.

connFront.CommitTrans

Else

connFront.RollbackTrans

End If





connFront.Close



Exit_TabellenUeberschreiben:

Exit Sub



Err_TabellenUeberschreiben:

connFront.RollbackTrans

connFront.Close

MsgBox Err.Description

Resume Exit_TabellenUeberschreiben



'''''''''''''''''''''''''''''''''''''''



Private Function insertTabellen() As Boolean



'Dim connFront As Connection



On Error GoTo Err_insertTabellen



'1. Setzen der connection

'Set connFront = Nothing

'Set connFront = CurrentProject.Connection



tmpsql = "INSERT INTO tblAbt SELECT ItblAbt.* FROM ItblAbt;"

'****************hier kommt jetztdie Fehlermeldung

connFront.Execute tmpsql, recaff

'****************





tmpsql = "INSERT INTO tblUA SELECT ItblUA.* FROM ItblUA;"

connFront.Execute tmpsql, recaff





tmpsql = "INSERT INTO tblBE SELECT ItblBE.* FROM ItblBE;"

connFront.Execute tmpsql, recaff





tmpsql = "INSERT INTO tblBE8 SELECT ItblBE8.* FROM ItblBE8;"

connFront.Execute tmpsql, recaff





tmpsql = "INSERT INTO tblBV SELECT ItblBV.* FROM ItblBV;"

connFront.Execute tmpsql, recaff





tmpsql = "INSERT INTO tblBVB SELECT ItblBVB.* FROM ItblBVB;"

connFront.Execute tmpsql, recaff





tmpsql = "INSERT INTO tblBA SELECT ItblBA.* FROM ItblBA;"

connFront.Execute tmpsql, recaff







'connFront.Close

insertTabellen = True



Exit_insertTabellen:

Exit Function



Err_insertTabellen:

'connFront.Close

insertTabellen = False

MsgBox Err.Description

Resume Exit_insertTabellen



End Function





Ich hoffe, Du kannst etwas damit anfangen.



Bis bald, Gabriele

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: