Abrir formulario con registro buscado
Publicado por Spider (4 intervenciones) el 11/06/2014 13:22:40
Buenas:
He estado buscando como aplicar el docmd pero no corre.
Bueno tengo un formulario con un txt buscar (nombre), el cual busca en una tabla (main) el registro si lo encuentra abre otro formulario mostrando el registro. He conseguido abrir el formulario pero siempre aparece en el primer registro y codigo se queda en el docmd. openform
If DCount("Nombre", "Main", CriterioBusqueda) > 0 Then
MsgBox "Se encontro el programa" & vbCrLf & _
"Con el nombre:" & vbCrLf & _
TxtNombre, vbExclamation, "Programa encontrado"
DoCmd.OpenForm "Busca Programa", acNormal, "", "", acEdit, acNormal, "Nombre=" & TxtNombre.Value
DoCmd.GoToControl Me.TxtNombre
DoCmd.FindRecord Forms![busca programa]!TxtNombre, acEntire, False, acSearchAll, False, acCurrent, True
DoCmd.Close acForm, "buscar"
Else
MsgBox "El programa solicitado: " & TxtNombre & vbCrLf & _
"no existe, por favor refine la busqueda", vbCritical, "No Encontrado"
TxtNombre.SetFocus
End If
Gracias
He estado buscando como aplicar el docmd pero no corre.
Bueno tengo un formulario con un txt buscar (nombre), el cual busca en una tabla (main) el registro si lo encuentra abre otro formulario mostrando el registro. He conseguido abrir el formulario pero siempre aparece en el primer registro y codigo se queda en el docmd. openform
If DCount("Nombre", "Main", CriterioBusqueda) > 0 Then
MsgBox "Se encontro el programa" & vbCrLf & _
"Con el nombre:" & vbCrLf & _
TxtNombre, vbExclamation, "Programa encontrado"
DoCmd.OpenForm "Busca Programa", acNormal, "", "", acEdit, acNormal, "Nombre=" & TxtNombre.Value
DoCmd.GoToControl Me.TxtNombre
DoCmd.FindRecord Forms![busca programa]!TxtNombre, acEntire, False, acSearchAll, False, acCurrent, True
DoCmd.Close acForm, "buscar"
Else
MsgBox "El programa solicitado: " & TxtNombre & vbCrLf & _
"no existe, por favor refine la busqueda", vbCritical, "No Encontrado"
TxtNombre.SetFocus
End If
Gracias
Valora esta pregunta
0