VBA-Code will nicht so wie ich will!

Computer: Software & Programmierung Microsoft Access
#1

Hallo,

einer Schaltfläche in einem Formular habe ich folgende Prozedur zugeordnet:

Private Sub sf_Click()
On Error Resume Next

Dim db As Database, rs As Recordset, a As String

Set db = CurrentDb
Set rs = db.OpenRecordset(„Abteilungen“)

a = InputBox(„Name der Abteilung:“, , [Abteilung])
rs.Edit
rs![Abteilung] = a
rs.Update
Me![Liste].Requery

End Sub

Ziel der Sache soll es sein, Einträge der Liste, die aus einer Tabelle geholt werden zu ändern.
Mit diesem Code passiert aber folgendes: Der Default-Wert in der InputBox wird richtig angezeigt, d.h. wenn in der Liste Eintrag4 markiert wurde, wird auch Eintrag4 vorgegeben. Geändert wird aber immer nur der erste Eintrag/Datensatz. Ist natürlich nicht Sinn der Sache.

Wie funktioniert’s richtig?

Danke
Jürgen

#2

Hi,
Du mußt erst zum gewünschten Record navigieren (siehe in der Hilfe danach).

Gruß

J.

#3

muttu nur eine Zeile ändern…

Private Sub sf_Click()
On Error Resume Next

Dim db As Database, rs As Recordset, a As String

Set db = CurrentDb

+++++++++++++++++++++++++++++++++++++++++++

Set rs = db.OpenRecordset(„SELECT * FROM Abteilungen WHERE INDEX = '“ & ‚passende Feld(er) im Formular‘ & „’“)

schon bist du beim passenden Datensatz…