Этот код VBA иногда запускает нераспознанный формат базы данных в строке 5. Обычно он работает.
Путь к файлу в ошибке относится к текущей базе данных Access, в которой он выполняется. Dictionary.ID является целым числом значение.
Public Function checkData() As Boolean
On Error GoTo err_handler
Debug.Print "checking Data..."
Dim oContr As Control
Dim NewVal As Variant
Dim OldVal As Variant
Dim ChangesMade As Boolean: ChangesMade = False
Dim DictionaryRst As DAO.Recordset
Dim dctSQL As String
Dim CInfoRst As DAO.Recordset
Dim CinfoSQL As String
Dim db As DAO.Database
1 If IsNull([Forms]![OnboardingRoster].ID.Value) Then
2 ChangesMade = False
Else
3 dctSQL = "SELECT top 1 * FROM Dictionary WHERE Dictionary.ID = " &
Nz([Forms]![OnboardingRoster].ID.Value, 0)
4 Set db = CurrentDb
5 Set DictionaryRst = db.OpenRecordset(dctSQL)
6 If Not DictionaryRst.EOF Then
Вот ссылки, использованные в проекте.
