Zugriff: Erstellen Sie n Datensätze mit Recordset

Question

Ich versuche etwas mit VBA in Access, aber ich kann nicht sehen, was ich falsch mache.

Ich habe in einem Formular eine Textkontrolle (numerisch), wo ich eine Nummer schreiben kann. Was ich will ist, wenn ich auf eine Schaltfläche im Formular klicke, so viele Datensätze in einer anderen Tabelle (nicht die Quelle des Formulars) als die Zahl in der Textsteuerung erstellen.

Ich versuche dies, aber es tut nichts:

Dim db As Database 
Dim rst As Recordset 

Set db = CurrentDb() 
Set rst = db.OpenRecordset("Table") 

If Not rst.EOF And rst.BOF Then 
    Do While rst.RecordCount < Me.Txt_Control 
     rst.Edit 
      rst.Fields("Field_01") = "Example 1" 
      rst.Fields("Field_02") = "Example 2" 
      rst.Fields("Field_03") = "Example 3" 
     rst.Update 
     rst.MoveNext 
    Loop 
    rst.Close 
End If 

Kann mir jemand eine Hand geben?

Grüße.

Answer 1

Sie bearbeiten einen vorhandenen Datensatz und fügen keine neuen hinzu. Außerdem kann Ihr Code in Schwierigkeiten geraten, da Sie ein Recordset mit möglichen vorhandenen Datensätzen öffnen.

können Sie verwenden, um die folgenden:

Dim db As DAO.Database 
Dim rst As DAO.Recordset 

Set db = CurrentDb() 
Set rst = db.OpenRecordset("SELECT * FROM Table WHERE 1=0") 'Open the table, but don't select anything 
Do While rst.RecordCount < Me.Txt_Control 
    rst.AddNew 'Add a new record 
    rst.Fields("Field_01") = "Example 1" 
    rst.Fields("Field_02") = "Example 2" 
    rst.Fields("Field_03") = "Example 3" 
    rst.Update 
Loop 
rst.Close