El problema que tengo es el siguiente:
Yo hago una consulata de access linkeada a vb 6 y cargo los numeros correlativos en el combo box num corre.
Tras cargalo en la propiedad click de cbbnumcorre(o numero de "visitas o enfermedades"), necesito poder cambiarlo. Para que muestre la informacion correcta.
Dim criterio As String
Dim v, x As Integer
If Not registrohispacientes.EOF Then
v = Val(txtcodpaciente.Text)
If txtcodpaciente.Text <> "" And v >= 1 And v <= 99999 Then
criterio = "codpHIS = " & Val(txtcodpaciente.Text) & "AND codhHIS = " & Val(cbbnumcorre.Text)
registrohispacientes.FindFirst criterio
If registrohispacientes.NoMatch Then
txtcodpaciente.Text = registrohispacientes.Fields("codpHIS")
'txtnumcorre.Text = registrohispacientes.Fields("cohHIS")
cbbenfermedades.Text = registrohispacientes.Fields("codeHIS")
cbbmedicos.Text = registrohispacientes.Fields("codmHIS")
cbbtratamientos.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
x = MsgBox("No existe ningun registro", vbOKOnly, "Clinica")
tbarhispacientes.Buttons(1).Enabled = True
tbarhispacientes.Buttons(2).Enabled = False
tbarhispacientes.Buttons(3).Enabled = False
End If
Gracias
