Programación General > Bases de Datos

 [SOLUCIONADO] Error 3021 No Hay Ningun Registro Activo

(1/1)

korsakof:
Ola buenas, perdonad.
Me aprece un mensaje que no entiendo porque cuando voy a realizar una busqueda de un registro en access.

Lo que aparece es eso: Error 3021 No Hay Ningun Registro Activo

No consigo entender el porque.

Muchas gracias de nuevo.

m0skit0:
¿Puedes poner una parte relevante del código que te genera este error?

Salud

korsakof:
Este es el codigo de la busqueda.


--- Código: Visual Basic --- Private Sub txtcodpaciente_LostFocus()    Dim criterio As String    Dim v As Integer        v = Val(txtcodpaciente.Text)     If txtcodpaciente.Text <> "" And v >= 1 And v <= 99999 Then        criterio = "codpHIS = " & Val(txtcodpaciente.Text)                registrohispacientes.FindFirst criterio                If registrohispacientes.NoMatch Then            txtcodpaciente.Text = registrohispacientes.Fields("codpHIS")            txtnumcorre.Text = registrohispacientes.Fields("cohHIS")            txtcodenfermedad.Text = registrohispacientes.Fields("codeHIS")            txtcodmedico.Text = registrohispacientes.Fields("codmHIS")            txtcodtratamiento.Text = registrohispacientes.Fields("codtHIS")            txtfechahistorial.Text = registrohispacientes.Fields("fechaHIS")            txtnotashistorial.Text = registrohispacientes.Fields("notaHIS")            tbarhispacientes.Buttons(1).Enabled = False            tbarhispacientes.Buttons(2).Enabled = True            tbarhispacientes.Buttons(3).Enabled = True        Else            tbarhispacientes.Buttons(1).Enabled = True            tbarhispacientes.Buttons(2).Enabled = False            tbarhispacientes.Buttons(3).Enabled = False        End IfEnd IfEnd Sub   
Gracias.

korsakof:
Solucionado



--- Código: Visual Basic ---# Private Sub txtcodpaciente_LostFocus()#     Dim criterio As String#     Dim v As Integer#    #     v = Val(txtcodpaciente.Text)#  if not registrohispacientes.eof then #     If txtcodpaciente.Text <> "" And v >= 1 And v <= 99999 Then#         criterio = "codpHIS = " & Val(txtcodpaciente.Text)#        #         registrohispacientes.FindFirst criterio#        #         If registrohispacientes.NoMatch Then#             txtcodpaciente.Text = registrohispacientes.Fields("codpHIS")#             txtnumcorre.Text = registrohispacientes.Fields("cohHIS")#             txtcodenfermedad.Text = registrohispacientes.Fields("codeHIS")#             txtcodmedico.Text = registrohispacientes.Fields("codmHIS")#             txtcodtratamiento.Text = registrohispacientes.Fields("codtHIS")#             txtfechahistorial.Text = registrohispacientes.Fields("fechaHIS")#             txtnotashistorial.Text = registrohispacientes.Fields("notaHIS")#             tbarhispacientes.Buttons(1).Enabled = False#             tbarhispacientes.Buttons(2).Enabled = True#             tbarhispacientes.Buttons(3).Enabled = True#         Else#             tbarhispacientes.Buttons(1).Enabled = True#             tbarhispacientes.Buttons(2).Enabled = False#             tbarhispacientes.Buttons(3).Enabled = False#    #     End If# End Ifelse    rem botones. Dependera del proyecto   x=msgbox("No hay registros",vbokonly,"Clinica")end if# End Sub#  #   

Navegación

[0] Índice de Mensajes