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.......
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
0