Simple Search form

[Juliano]

Hi forum,



I need tips or file with examples about 'how to make a search form in access' where:

- When the user typing the code number in 'code' field (key field), show the others data in the fields. (Add:, Satate:, date:, ...)
- otherwise, if the register with the code number is 'not found' then keep the blank fields to add new register.

thanks a lot

[maximus]

This is what I have done:

I have a form with recordsource table tblEmp.
I have a text box where user can type EmpID and click on a search button will filter the record and display it. If now record is not found a msgbox is displayed and a new record opens for data entry. To remove filter click remove filter button. The code attached to the Filter button is as follows:

Private Sub Command10_Click()
On Error GoTo Err_Command10_Click
Dim intRecordCount As String
intRecordCount = IIf(IsNull(DCount("[EmpID]", "tblEmp", "[EmpID]=" & Me.Text8)), 0, DCount("[EmpID]", "tblEmp", "[EmpID]=" & Me.Text8))

If intRecordCount = 0 Then
MsgBox "No Record For this ID"
DoCmd.GoToRecord , , acNewRec
Me.Command16.Enabled = False
Else
Me.Filter = "EmpID=" & Me.Text8
Me.FilterOn = True
Me.Command16.Enabled = True
End If
Exit_Command10_Click:
Exit Sub

Err_Command10_Click:
MsgBox Err.Description
Resume Exit_Command10_Click

End Sub
employee ID is available from 1 to 3 type any other number (> 3) a new record opens after a msg prompt


Refer to attached mdb file.

[pkstormy]

Here's a couple of examples:
https://www.accessforums.net/code-re...form-7741.html
https://www.accessforums.net/code-re...hods-7689.html
https://www.accessforums.net/code-re...ally-7688.html
https://www.accessforums.net/code-re...ames-7680.html