Office: (Office 2003) mit VBA Daten in einer Tabelle (Abfrage) ändern

CATIS · 13. Mai 2008

Guten Morgen!

Mein heutiges Problem. Ich möchte in einem bestimmten Fall im Hintergrund Daten per VBA in einer Tabelle ergänzen. Ich habe auch Beispiele gefunden, wie das prinzipiell funktioniert. Leider reichen meine Kenntnisse nicht aus, um den Fehler zu finden. Vielleicht könnt ihr helfen.

Der umgebaute Code lautet:

Code:

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String

Set db = CurrentDb
strSQL = "SELECT * FROM qryASPCATKundenundPartner"
Set rs = db.OpenRecordset(strSQL)

If Not rs.EOF Then rs.MoveFirst

Do While Not rs.EOF
rs.Edit
rs!Kundennummer = Me.Kundennummer
rs.Update
rs.MoveNext
Loop

rs.Close
Set rs = Nothing
Set db = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn ich den Code laufen lasse, bekomme ich die Fehlermeldung:

Laufzeitfehler 3061
1 Parameter wurde erwartet, aber es wurden zu wenig Parameter übergeben

Was bitte will ACCESS von mir?

:)

ebs17 · 14. Mai 2008

Sieh Dir mal die Abfrage qryASPCATKundenundPartner an. Verlangt diese einen Parameter? Vielleicht arbeitest Du besser direkt an der Tabelle.

Da alle betreffenden Datensätze den gleichen Wert (Me!Kundennummer) zugewiesen bekommen, könntest Du auch einfach eine Aktualisierungsabfrage verwenden:
Code:

CurrentDb.Execute "UPDATE ..."
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Lanz Rudolf · 14. Mai 2008

Hallo
Nur so hilft nich umbedingt für Dein problem:

Hier
Me.Kundennummer
sollte es ev.
Me!Kundennummer 'HEISEN

nach eine Frage
ist Kundennummer ein Key (Index) Feld ohne Dublikate und ist es als Zahl Definiert ?
ist es möglich das in Me.Kundennummer nichts ist (NULL) ?

CATIS · 14. Mai 2008

Hi Ruedi, hi Eberhard!

Danke für Eure Hinweise. In der Tat war es so, dass die Abfrage ein Kriterium enthielt. Ich habe den Code jetzt umgebaut, und beziehe mich direkt auf die Tabelle, mit den entsprechenden Abfragekriterien. Nun macht ACCESS wieder was ich will....

Hier nun der funktionierende Code:

Code:

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String

Set db = CurrentDb
strSQL = "SELECT * FROM tblASPCATKundenUndPartner " & _
"WHERE FirmenID = " & Me!FirmenID
Set rs = db.OpenRecordset(strSQL)

If Not rs.EOF Then rs.MoveFirst

Do While Not rs.EOF
rs.Edit
rs!Kundennummer = Me.Kundennummer
rs.Update
rs.MoveNext
Loop

rs.Close
Set rs = Nothing
Set db = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ebs17 · 14. Mai 2008

Und was hältst Du von ...
Code:

' Kundennummer = String?
CurrentDb.Execute "UPDATE tblASPCATKundenUndPartner " _
& "SET Kundennummer = '" & Me!Kundennummer & "' WHERE FirmenID = " & Me!FirmenID
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

CATIS · 15. Mai 2008

Hi Eberhard!

Wie heißt es doch so schön - viele Wege führen nach Rom. Dein Vorschlag ist auch schön, schön kurz, und - funktioniert genauso.

Danke Dir für Deine Mühe.

Office: (Office 2003) mit VBA Daten in einer Tabelle (Abfrage) ändern

mit VBA Daten in einer Tabelle (Abfrage) ändern

mit VBA Daten in einer Tabelle (Abfrage) ändern

mit VBA Daten in einer Tabelle (Abfrage) ändern

mit VBA Daten in einer Tabelle (Abfrage) ändern - Similar Threads - VBA Daten Tabelle

[Excel, VBA] Daten aus Excel-Bereich in Word Tabelle einfügen

VBA Code Daten aus anderer Tabelle holen klappt nicht

Excel VBA Userform Daten aus Tabelle Auslesen "sverweis"

VBA: Abfrage, ob Daten in Tabelle vorhanden. Alternative gesucht

Daten als Tabelle formatieren VBA

VBA Daten aus zwei Tabellen in eine dritte kopieren

Daten einer Tabelle per VBA aktualisieren