# 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 If
else
rem botones. Dependera del proyecto
x=msgbox("No hay registros",vbokonly,"Clinica")
end if
# End Sub
#
#