Programación General > Bases de Datos

 [Solucionado]Problema al cambiar combobox

(1/1)

korsakof:
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.


--- Código: Visual Basic ---    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 IfElse    x = MsgBox("No existe ningun registro", vbOKOnly, "Clinica")            tbarhispacientes.Buttons(1).Enabled = True            tbarhispacientes.Buttons(2).Enabled = False            tbarhispacientes.Buttons(3).Enabled = FalseEnd If 
Gracias

m0skit0:
Hola de nuevo, viejo.

Estaría bueno que nos explicases qué pretendes hacer con más detalle, porque yo no me entero.


--- Cita de: "korsakof" ---Tras cargalo en la propiedad click de cbbnumcorre
--- Fin de la cita ---
¿Propiedad click? ¿Qué es eso?

Navegación

[0] Índice de Mensajes