MS Access - VBA делать, пока TxtBox не пуст

Question

Public Sub Ohno()
Dim stsql As String, results As String
Dim rs As Object, Db As Object, con As Object
Dim num As Integer
Dim start As Object

Set Db = CurrentDb()
Set con = Application.CurrentProject.Connection
Set rs = CreateObject("ADODB.Recordset")

num = 1
For num = 1 To 2
  Do While IsEmpty(Forms("setup").Controls("TxtBoxEntry" & num)) = False
    Set start = Forms("setup").Controls("TxtBoxEntry" & num)
    stsql = "SELECT [Crosswalk].[Oracle GL Acct] FROM Crosswalk WHERE [Crosswalk].[Legacy GL Acct]= '" & start & "' "
    rs.Open stsql, con
    results = rs(0).Value
    Forms("setup").Controls("TxtBoxRslt" & num).Value = results
  Loop
Next

Set con = Nothing
Set rs = Nothing

Я продолжаю получать: операция не разрешена, пока объект открыт - нажмите меня, код работает для первого txtbox и перестает выдавать мне вышеуказанную ошибку. Я настраиваю себя на неудачу на этом?

Answer 1

Вам необходимо закрыть набор записей после его использования. Попробуйте добавить rs.Close:

Set start = Forms("setup").Controls("TxtBoxEntry" & num)
stsql = "SELECT [Crosswalk].[Oracle GL Acct] 
         FROM Crosswalk WHERE [Crosswalk].[Legacy GL Acct]= '" & start & "' "
rs.Open stsql, con
results = rs(0).Value
Forms("setup").Controls("TxtBoxRslt" & num).Value = results
rs.Close   -- Add this here