Access - ir a registro buscado

 
Vista:
Imágen de perfil de Spider

ir a registro buscado

Publicado por Spider (4 intervenciones) el 14/06/2014 17:34:18
Buenas;

El asunto es; tengo el codigo de una busqueda de registro en un texto que se activa al presionar enter, muestra un mensaje si lo ha encontrado, de ser cierto aceptas y te muestra en el mismo formulario el registro ubicado, el problema es que no muestra el registro ubicado.

El codigo es;

Private Sub Nombre_AfterUpdate()
Dim BUSCAR As String
Dim CriterioBusqueda As String
Dim rsc As DAO.Recordset

Set rsc = Me.RecordsetClone

BUSCAR = Me.Nombre.Value
CriterioBusqueda = "[Nombre]=" & "'" & BUSCAR & "'"

If DCount("Nombre", "Main", CriterioBusqueda) > 0 Then
Me.Undo
If MsgBox("Encontrado " _
& BUSCAR & vbCrLf & _
"desea modificarlo", vbYesNo + vbInformation, "Encontrado") = vbYes Then
rsc.FindFirst CriterioBusqueda
Me.Bookmark = rsc.Bookmark
For i = 1 To 9
Me.Controls("Text" & i).Enabled = True
Next i
Else
rsc.FindFirst CriterioBusqueda
Me.Bookmark = rsc.Bookmark
End If
Set rsc = Nothing
Else
If MsgBox("Programa no registrado" & vbCrLf & "Desea registrar el programa:" & BUSCAR, vbYesNo, "No Encontrado") = vbYes Then
Me.Undo
DoCmd.GoToRecord , , acNewRec
For i = 1 To 9
Me.Controls("Text" & i).Enabled = True
Next i
Nombre = BUSCAR
DoCmd.GoToControl "Nombre"
Else
Me.Undo
End If
End If


Gracias por su ayuda.......
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder