Problems to find the chosen last name in a form

[juanjose11]

Hi,

I have the next code to show me a form by apellidos (last name). I mean I write the last name and then I click the command button OK to show me a form with that last name.

Private Sub cboApellidos_AfterUpdate()
' Buscar el registro que coincida con el control.
Me.RecordsetClone.FindFirst "[Apellidos] = '" & Me![cboApellidos] & "'"
Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub

Private Sub cmdbusqapellidos_Click()


On Error GoTo Err_cmdbusqapellidos_Click
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frmUsuarios"
stLinkCriteria = "[Apellidos]='" & Me![Apellidos] & "'"

' DoCmd.Close

' DoCmd.OpenForm stDocName, , , stLinkCriteria

If IsNull([cboApellidos]) = True Then
MsgBox (" Debe introducir un apellido")
Else
'DoCmd.Close
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If


Exit_cmdbusqapellidos_Click:
Exit Sub
Err_cmdbusqapellidos_Click:
MsgBox Err.Description
Resume Exit_cmdbusqapellidos_Click
End Sub


The problema is that it works sometimes. Normally it shows the same last name. Someone can help me?

Thanks a lot.

[ranman256]

You dont need ANY code for this.

you have your search form say: frmMain
the box on the form: txtName
enter name in box
click button to open form say: frmClient

the form is connected to query : qsClientData

the query qsClientData looks at frmMain for the criteria under [name] field.
select * from Clients where [name] = '" forms!frmMain!txtName

Zero code.

[juanjose11]

Hi

I have tried it but I haven't got it. It shows up nothing when I write a name in txtname and then I click on the button to open the form. Any help?

Thanks a lot.

[juanjose11]

It already works. Cool!!

Thank you.