[VBA] OpenDatabase

[ottscho]

Hallo,

ich habe ein Problem mit OpenDatabase.
Mein Code sieht folgendermaßen aus:

Private Sub bttBerechnen_Click()
Dim Tab1Fld1 As String
Dim i As Integer
Dim Anzahl As Integer
Dim rs_AW As DAO.Recordset
Dim db As Database
Dim Wert As String
Set db = OpenDatabase("C:\ITC\ITCR42KDAT.MDB")
Set rs_AW = CurrentDb.OpenRecordset("UDFields", dbOpenDynaset)
Anzahl = DCount("IDnumber", "UDFields")
'rs_AW.MoveFirst
For i = 1 To Anzahl
'neuen Datensatz schreiben
rs_AW.FindFirst "IDnumber = " & i
If rs_AW![AusweisNr] <> "" Then
Wert = rs_AW![AusweisNr]
rs_AW.Edit
Wert = fncPZMod10(Wert)
rs_AW!Pruefziffer = Wert
rs_AW.Update
'rs_AW.MoveNext
Else
End If 
Next i
rs_AW.MoveNext
rs_AW.Close
Set rs_AW = Nothing
DoCmd.Close acForm, "ITCPruefziffer"
MsgBox ("Es wurden " & Anzahl & " Prüfziffern berechnet!")
End Sub

Die ganze Zeit hat alles funktioniert, und nun kommt beim OpenDatabase die Meldung:

Laufzeilenfehler 3033 oder Laufzeilenfehler 3734

Es kann also nicht drauf zugreifen. aber warum?

Danke für eure Tipps

 

[ottscho]

warum funktioniert den die CODE Formatierung nicht?

 

[ottscho]

erledigt!