Results 1 to 2 of 2
2001-08-09, 22:47 #1
- Join Date
- May 2001
- Omaha, NE USA, Nebraska, USA
- Thanked 0 Times in 0 Posts
recordset syntax (Access 97/SR 1)
I have a database in A97/SR1 with a table named Employees and a form named frmEditEmployees. On the form are most of the fields of the table. I want to use the form to allow the user to edit the data held in the table. I would like to put a command button on the form to perform a "Find" function. I know how to put the button on the form, but am having trouble with part of the code.
I don't know how to reference a recordset in code. I would like the recordset to contain all the records in the Employees table but the find should only be looking in the LastName field.
Can someone provide some help in what the correct syntax is for referencing a recordset.
2001-08-09, 23:54 #2
- Join Date
- Dec 2000
- Sacramento, California, USA
- Thanked 1 Time in 1 Post
Re: recordset syntax (Access 97/SR 1)
Here's a link to a post that explains how to do a find in a DAO recordset based on the value in a combobox.
If you just want to use the built-in find function, which pops up the Find dialog, you don't need to refer to the recordset in code. Here's a piece of code I use behind a command button to launch the built-in find dialog.
<pre>Private Sub cmdFind_Click()
On Error Resume Next
Dim ctl As Control
Dim strPfx As String
<font color=448800>'set the focus to the last control before the
'button was clicked </font color=448800>
Set ctl = Screen.PreviousControl
<font color=448800>'make sure this isn't a label or a
'command button or something else you
'can't find on -- I use txt as the prefix for textbox controls</font color=448800>
strPfx = Left(ctl.Name, 3)
<font color=448800>'if it isn't a textbox set the focus
'to the first control that holds data.</font color=448800>
If strPfx <> "txt" Then
Set ctl = [txtUnit]
On Error GoTo Err_cmdFind_Click
<font color=448800>'launch the find dialog </font color=448800>
MsgBox Err.Number & "--" & Err.Description
End Sub <font color=448800>'cmdFind_Click() </font color=448800></pre>