|
| Hallo Allerseits, hab das Problem das nach ausführen von folgendem Code sich das Access 2010 nicht mehr bedienen lässt.
Hab ich was übersehen?
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Sub KdNrAendern()
Dim db As DAO.Database
Dim rs1 As DAO.Recordset
Dim rs2 As DAO.Recordset
Dim SuchKriterium As String
Dim Zaehler1 As Integer
Dim alteKdNr As String
Dim neueKDnr As String
Set db = CurrentDb
'Tabelle öffnen die die zu erledigenden Aufgaben enthält
Set rs1 = db.OpenRecordset("SELECT kdnr_alt, kdnr_neu FROM T_KdNrChange WHERE do = -1 AND ready = 0")
If rs1.BOF And rs1.EOF Then 'Überprüfung ob Recordset überhaupt Werte enthält
MsgBox "Keine Kundennummern zu ändern!", vbInformation, "Keine Änderung"
Else 'OK Datensätze vorhanden. Weiter
'Tabelle "public_T_Kundenstammdaten" öffnen
Set rs2 = db.OpenRecordset("public_T_Kundenstammdaten", dbOpenDynaset, dbSeeChanges)
If rs2.BOF And rs2.EOF Then 'Überprüfung ob Recordset überhaupt Werte enthält
MsgBox "Keine Kunden vorhanden!", vbInformation, "Keine Kunden"
Else 'OK Datensätze vorhanden. Weiter
rs1.MoveFirst
Zaehler1 = 1
Do While Not rs1.EOF 'Solange noch zu erledigende Änderungen vorhanden
rs2.MoveFirst
'Anzeige welcher Datensatz behandelt wird
DoCmd.Echo False, "Datensatz: " & Zähler1
Zaehler1 = Zaehler1 + 1
'Alte und Neue Kundenummer in Variablen ablegen
alteKdNr = rs1!kdnr_alt
neueKDnr = rs1!kdnr_neu
SuchKriterium = "[Kundennummer]='" & alteKdNr & "'" 'Suchkriterium festlegen
rs2.FindFirst (SuchKriterium) 'Zu ändernder Datensatz in "public_T_Kundenstammdaten" suchen
If rs2.NoMatch Then 'Wenn Kundennumemr nicht vorhanden dann
MsgBox ("Folgende Kundennummer nicht vorhanden: " & alteKdNr)
Else 'Kundennummer vorhanden. Weiter
'Bereich um die Kundennummer zu ändern
MsgBox ("Kundennummer wird geändert")
End If
rs1.MoveNext
Loop
End If
End If
'Alle Objekte schließen
rs1.Close
rs2.Close
db.Close
End Sub
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Wäre super wenn mir hierbei jemand weiterhelfen könnte.
Grüße Markus | |
|
Access hängt nach VBA Code