Access 2000 form. When I clicked on the button, it gives me a run-time error 91
=================================
run-time error 91
Object variable or With block variable not set.
The statement below was highlighted
Set RecordSet_Customer = Dbs.OpenRecordset("Customer", dbOpenTable)
================================
Code:
Private Sub Command15_Click()
Dim Dbs As Database
Dim RecordSet_Customer As Recordset
Set RecordSet_Customer = Dbs.OpenRecordset("Customer", dbOpenTable)
Set Dbs = CurrentDb
Dim Tenant_Number_Temp As String
Dim Unit_Number_Temp As String
Dim Last_Name_Temp As String
Dim First_Name_Temp As String
Dim counter As Long
Tenant_Number_Temp = "T-100-11-2-1999"
Unit_Number_Temp = "1000"
Last_Name_Temp = "Sacramento"
First_Name_Temp = "Jayson and John"
counter = 0
Do While counter < 10
counter = counter + 1
Text_10.SetFocus
Text_10.Text = counter
With RecordSet_Customer
.AddNew
!Tenant_Number = "T-100-11-2-1999"
!Unit_Number = "10000"
!Last_Name = "Sacramento"
!First_Name = "Jayson and John"
RecordSet_Customer.Update
End With
Loop
MsgBox "The loop made " & counter & " repetitions."
End Sub