G
Guest
I am learning VBA, and I manage a small database that is used by managers
with "run-time"
We use a data entry form to search for records. I know a redesign would be
useful, but I am leaving that form later.
Currently when we use a control box labelled "find", the built-in access
find and replace function is used to locate records. The managers wish for
defaults in this find and replace to be adjusted.
In the "Look In" drop down we have two options, and they wish to default to
the second option
In the "Match" drop down the default is "Whole Field" and the managers wish
the default to be "Any Part of Field".
How can I satsify their requests?
The code associated with this function is as follows:
Private Sub Find_Record_Click()
On Error GoTo Err_Find_Record_Click
Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Exit_Find_Audit_Click:
Exit Sub
Err_Find_Audit_Click:
MsgBox Err.Description
Resume Exit_Find_Record_Click
End Sub
with "run-time"
We use a data entry form to search for records. I know a redesign would be
useful, but I am leaving that form later.
Currently when we use a control box labelled "find", the built-in access
find and replace function is used to locate records. The managers wish for
defaults in this find and replace to be adjusted.
In the "Look In" drop down we have two options, and they wish to default to
the second option
In the "Match" drop down the default is "Whole Field" and the managers wish
the default to be "Any Part of Field".
How can I satsify their requests?
The code associated with this function is as follows:
Private Sub Find_Record_Click()
On Error GoTo Err_Find_Record_Click
Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Exit_Find_Audit_Click:
Exit Sub
Err_Find_Audit_Click:
MsgBox Err.Description
Resume Exit_Find_Record_Click
End Sub