Ошибка набора записей VBA Access 2007 - PullRequest
Новая
       1

Ошибка набора записей VBA Access 2007

0 голосов
/ 18 апреля 2011

У меня проблема с тем, чтобы мой набор записей работал должным образом в следующем коде, и я не уверен, является ли это личной ошибкой времени выполнения, присущей VBA. код выглядит следующим образом 

Option Compare Database

Option Explicit

Dim dbInquiry As New ADODB.Connection

Dim rstVendor As New ADODB.Recordset

Private Sub Form_Load()

    Set dbInquiry = CurrentProject.Connection
    rstVendor.Open "Select * from Vendors Order By VendorName", dbInquiry, adOpenKeyset, _
    adLockOptimistic, adCmdText

    Me.lstVendors = rstVendor!VendorNo
    Me.lstVendors.Requery
    Call readVendor

End Sub

Private Sub readVendor()

    Me.lblVendorNumber.Caption = rstVendor!VendorNo
    Me.lblVendorName.Caption = rstVendor!VendorName
    Me.lblVendorAddress.Caption = rstVendor!Address1
    Me.lblVendorCity.Caption = rstVendor!City & ", " & rstVendor!Prov
    Me.lblVendorPostal.Caption = rstVendor!PostCode

End Sub


Private Sub lstVendors_Click()

    rstVendor.MoveFirst
    rstVendor.Find "VendorNo = " & Me.lstVendors
    Call readVendor

End Sub

Теперь проблема в чтении базы данных. Когда метод readVendor вызывается при загрузке формы, он отлично работает. когда он вызывается при первом щелчке элемента, я получаю сообщение об ошибке 3021: либо BOF, EOF, либо запись удалена. Любое руководство очень ценится. Заранее спасибо

1 Ответ

0 голосов
/ 18 апреля 2011

rstVendor.Find "VendorNo =" & Me.lstVendors

что-то найдено?и / или rstVendor все еще открыт?

...