Option Compare Database
Option Explicit

Private Sub Form_Activate()
    MsgBox Me.Name
End Sub

Private Sub Form_Activate()
    MsgBox Me.Name
End Sub

Private Sub Form_Open(Cancel As Integer)

   On Error GoTo Form_Open_Error

Cancel = MyWhere(0)

   On Error GoTo 0
   Exit Sub

Form_Open_Error:
  MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Form_Open of Form_Cases_All", , "Error!"
End Sub

Public Function MyWhere(TypeSearch As Long) As Boolean

   On Error GoTo MyWhere_Error

    Me.Form.RecordSource = "SELECT * FROM Таблица1"

   On Error GoTo 0
   Exit Function

MyWhere_Error:
MyWhere = True
  MsgBox Err.Number, Err.Description
End Function

Private MyRec As ADODB.Recordset
Private strMy As String

Private Sub Form_Activate()
    MsgBox Me.Name
End Sub

Private Sub Form_Open(Cancel As Integer)

10       On Error GoTo Form_Open_Error

90    Cancel = MyWhere(0)

100      On Error GoTo 0
110      Exit Sub

Form_Open_Error:
120     MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Form_Open of Form_Cases_All", , "Error!"


End Sub

Public Function MyWhere(TypeSearch As Long) As Boolean

10       On Error GoTo MyWhere_Error

strMy = "SELECT * FROM Таблица1"

180       Set MyRec = New ADODB.Recordset
190       With MyRec
200           .CursorLocation = adUseClient
210           .Open strMy, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
220       End With
230       Set Me.Recordset = MyRec
240       MyWhere = False

360   If Not MyRec Is Nothing Then Set MyRec = Nothing '

380      On Error GoTo 0
390      Exit Function

MyWhere_Error:
400   If Not MyRec Is Nothing Then Set MyRec = Nothing '
410   MyWhere = True
520     MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Form_Open of Form_Cases_All", , "Error!"

End Function

Private MyRec As DAO.Recordset
Private strMy As String

Private Sub Form_Activate()
    MsgBox Me.Name
End Sub

Private Sub Form_Open(Cancel As Integer)

10       On Error GoTo Form_Open_Error

90    Cancel = MyWhere(0)

100      On Error GoTo 0
110      Exit Sub

Form_Open_Error:
120     MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Form_Open of Form_Cases_All", , "Error!"


End Sub

Public Function MyWhere(TypeSearch As Long) As Boolean

10       On Error GoTo MyWhere_Error

strMy = "SELECT * FROM Таблица1"

180       Set MyRec = CurrentDb.OpenRecordset(strMy)
230       Set Me.Recordset = MyRec
240       MyWhere = False

360   If Not MyRec Is Nothing Then Set MyRec = Nothing '

380      On Error GoTo 0
390      Exit Function

MyWhere_Error:
400   If Not MyRec Is Nothing Then Set MyRec = Nothing '
410   MyWhere = True
520     MsgBox "Error number 0409(" & Erl & "). If this error persists, please write down the error number and contact technical support.", , "Error Encountered! System code: " & Err.Number

End Function