액세스 : 레코드 집합을 사용하여 n 개의 레코드 만들기

Question

나는 Access에서 VBA로 뭔가를 시도하고 있는데, 내가 잘못하고있는 것을 볼 수 없습니다.

양식에 숫자를 쓸 수있는 텍스트 컨트롤 (숫자)이 있습니다. 내가 원하는 것은 폼의 버튼을 클릭하는 것입니다. 폼의 소스가 아닌 다른 테이블의 레코드를 텍스트 컨트롤의 숫자로 cretat하면됩니다.

나는이 노력하고있어,하지만 아무것도하지 않습니다

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 

누군가가 나에게 손을 줄 수 있습니까?

감사합니다.

Answer 1

기존 레코드를 하나만 편집하고 새로 추가하지는 않습니다. 또한 가능한 레코드가있는 레코드 세트를 여는 것이므로 코드가 문제가 될 수 있습니다.

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 

:

다음을 사용할 수 있습니다