for Memberfrm:
Code:
Private Sub CboMemberSearch_AfterUpdate()
On Error GoTo Err_Handler
DoCmd.SearchForRecord , "", acFirst, "[MemberID] = " & Str(Nz(Screen.ActiveControl, 0))
CboMemberSearch = Null
Call Form_Current
Exit_Handler:
Exit Sub
Err_Handler:
Select Case Err
Case Else
MsgBox "Error " & Err & ": " & Error$, vbExclamation, "CboMemberSearch_AfterUpdate()"
Resume Exit_Handler
End Select
End Sub
for EventFrm
Code:
Private Sub CboEventSearch_AfterUpdate()
On Error GoTo Err_Handler
DoCmd.SearchForRecord , "", acFirst, "[EventID] = " & CboEventSearch
CboEventSearch = Null
Exit_Handler:
Exit Sub
Err_Handler:
Select Case Err
Case Else
MsgBox "Error " & Err & ": " & Error$, vbExclamation, "CboEventSearch_AfterUpdate()"
Resume Exit_Handler
End Select
End Sub
At end of Form_Current
Code:
If ctl.Tag = "Lock" Then
If RecordLock = True Then
ctl.Locked = True
Else
ctl.Locked = False
End If
End If
Next ctl
CboEventSearch.Requery
Exit_Handler:
If Me.Dirty Then Me.Dirty = False
Set rst = Nothing
Exit Sub
Err_Handler:
Select Case Err
Case Else
MsgBox "Error " & Err & ": " & Error$, vbExclamation, "Form_Current()"
Resume Exit_Handler
End Select
End Sub