VBA Access - возникают проблемы при вставке нескольких записей в таблицу

Question

Я новичок в VBA, поэтому мне сложно понять, что происходит. Я пытаюсь заполнить таблицу с 50 000 записей следующим кодом:

Sub arrayData()
Dim custnames() As Variant
Dim num As Long, dbs As Database, InsertRecord As String
Dim CusSalaryId As Long, num1 As Long, EmpId As Long
Dim EmpSalary As String
Set dbs = CurrentDb()
EmpId = 0
CustSalaryId = 0
For num1 = 0 To 50000
CustSalaryId = CustSalaryId + 1
EmpId = EmpId + 1
custnames = Array("$1000", "$500", "$300", "$600")



num = Int((UBound(custnames) - LBound(custnames) + 1) * Rnd + LBound(custnames))
EmpSalary= custnames(num)

InsertRecord = "insert into SALARY (SalaryID, NetSalary, EmployeeID) 
values (" & "'" & CustSalaryId & "'" & "," & "'" & EmpSalary & "'" & "," & "'" & EmpId & "'" & ")"

dbs.Execute InsertRecord
Debug.Print SalaryId; EmpSalary; EmpId;

Next

End Sub

Когда я запускаю его, я получаю только 2 записи: Таблица заработной платы

Answer 1

Я понял это, извините, что потратил ваше время! Это было из-за отношений, которые я создал, поскольку таблица зарплат была связана с таблицей сотрудников, в которой было только 2 записи, поэтому таблица зарплат могла создать максимум 2 записи. Я прошу прощения за то, что не проверил все дважды перед публикацией.