Блог

У меня есть проект Access, в котором я хочу, чтобы метка отображалась при открытии формы, только если запрос возвращает результат.

У меня есть следующий код:

 Private Sub Form_Load()
Dim stSQL As String
Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = DBEngine.Workspaces(0).Databases(0)

Dim cn As DAO.Connection
Set cn = DAO.Connection


cn.Provider = "Microsoft.Jet.OLEDB.4.0"

cn.Open stdbName
stSQL1 = "SELECT * FROM tbl_lessons"
Set rs = db.OpenRecordset(stSQL1, dbOpenDynaset)

If (rs Is Not Nothing) Then
    If (rs.GetRows() > 0) Then
        lbl_alert.Visible = True
    Else
      lbl_alert.Visible = False
    End If

End If
 

Когда я пытаюсь открыть форму, я получаю следующую ошибку:
Ошибка компиляции:
Метод или элемент данных не найден

Я использую Access 2007 с VB7

Может кто-нибудь, пожалуйста, помогите?

Примечание — при возникновении ошибок компиляции в VBA строка кода всегда выделяется. Внимательно посмотрите на выделенную строку, это поможет вам понять, что вы сделали не так. Также обратите внимание, что вы всегда должны компилировать свой код перед попыткой запуска формы. (откройте меню «Отладка»> нажмите «Скомпилировать VBAProject» или тому подобное.)

Похоже, существует множество проблем, и вам, вероятно, придется решать их по одному. просто продолжайте исправлять проблемы и перекомпилировать свой код.

1. 1cn.Open stdbName1
   —> stdbname нигде не определено в коде, который вы нам показали.
2. Dim stSQL As String
   —> Вы определили свою строку подключения как stSQL , но в своем коде вы использовали: stSQL1 = "..." . Исправьте имя вашей переменной.