Supportnet / Forum / Datenbanken
Access - Dehler Datenbankzugriff
Frage
Hallo,
habe ein Problem mit folgendem Quelltext, programmiert in Access-VBA (nicht von mir):
Private Sub Befehl7_Click()
Dim db As Database
Dim satz As Recordset
Set db = CurrentDb
Set satz = db.OpenRecordset("QRYPersonen")
Dim Daten As String
Me![Personenliste].ColumnHeads = True
Me![Personenliste].ColumnCount = 3
Daten = "Nummer; Name; Vorname;"
satz.MoveFirst
Do Until satz.EOF = True
Daten = Daten & satz![Nummer] & ";" & satz![Name] & ";" & satz![Vorname] & ";"
satz.MoveNext
Loop
Me![Personenliste].RowSource = Daten
End Sub
Das ganze funktioniert unter Access 97 ohne Probleme, konvertiert auf Access 2000 bekomme ich aber folgende Fehlermeldung:
"Laufzeitfehler ´3061´: 4 Parameter wurden erwartet, aber es wurden zu wenige Parameter übergeben."
Nach betätigen des Buttons "debuggen" wird folgende Zeile markiert:
Set satz = db.OpenRecordset("QRYPersonen")
Jemand eine Idee woran das liegen kann? Ich stehe jedenfalls gerade auf dem Schlauch, trotz Google-Suche.
Antwort 1 von Teddy7
Versuch´s erst mal mit der einfachen Lösung:
Dim db As DAO.Database
Dim satz As DAO.Recordset
Gruß
Teddy
Dim db As DAO.Database
Dim satz As DAO.Recordset
Gruß
Teddy