Actualizar un Combo

[spiderman78]

Que tal de nuevo aqui solicitando de su ayuda, miren lo q quiero hacer es q cuando elimino un registro se me actualice mo combo ya q ahi me sigue apareciendo hasta que no entro y salgo del formulario, este es mi codigo:

Código:

Private Sub Eliminar()
    Call VisualizarPacientes
    Dim s As Integer
           s = MsgBox("¿Esta Seguro que desea Eliminar el Paciente?", vbYesNo, "Control Pacientes  -  EDMAC")
        If s = vbYes Then
    Set RecBD = New ADODB.Recordset
    RecBD.Open "DELETE FROM pacientes WHERE id=" & Val(text1(0)), BD, adOpenStatic, adLockOptimistic
    Set RecBD = Nothing
    Call LimpiarPacientes
    Else
        Exit Sub
        End If
End Sub

Saludos y Gracias

[David]

Iniciado por spiderman78

Que tal de nuevo aqui solicitando de su ayuda, miren lo q quiero hacer es q cuando elimino un registro se me actualice mo combo ya q ahi me sigue apareciendo hasta que no entro y salgo del formulario, este es mi codigo:

Código:

Private Sub Eliminar()
    Call VisualizarPacientes
    Dim s As Integer
           s = MsgBox("¿Esta Seguro que desea Eliminar el Paciente?", vbYesNo, "Control Pacientes  -  EDMAC")
        If s = vbYes Then
    Set RecBD = New ADODB.Recordset
    RecBD.Open "DELETE FROM pacientes WHERE id=" & Val(text1(0)), BD, adOpenStatic, adLockOptimistic
    Set RecBD = Nothing
    Call LimpiarPacientes
    Else
        Exit Sub
        End If
End Sub

Saludos y Gracias

¿Cómo cargas los datos en el Combo?

[spiderman78]

Lo datos los cargo cuando entro al formulario y este es el codigo

Código:

Private Sub AgregarCombo()
Call VisualizarPacientes
        With RecBD
        .MoveFirst
        Do Until .EOF
            Combo1.AddItem .Fields(3)
            Combo1.ItemData(Combo1.NewIndex) = .AbsolutePosition
            .MoveNext
        Loop
    End With

End Sub

Saludos

[David]

¿Por qué no vuelves a llamar a la función para actualizar?

P.S.: Debes colocar Combo1.Clear
Otra opción es utilizar el DBCombo

[spiderman78]

Si ya habia intentado llamar de nuevo el proceso pero no me marca ni error ni nada simplemente hasta q no salgo y entro es cuando se actualiza......

sobre el Combo Clear.

esta instruccion como la podria ocupar

Saludos

[David]

Iniciado por spiderman78

Si ya habia intentado llamar de nuevo el proceso pero no me marca ni error ni nada simplemente hasta q no salgo y entro es cuando se actualiza......

sobre el Combo Clear.

esta instruccion como la podria ocupar

Saludos

¿Has agregado el Combo1.Clear?. Además, puedes colocar Combo1.Refresh al final a ver qué pasa. Si aún así no se soluciona intenta ejecutar paso a paso el procedimiento 'AgregarCombo' para ver qué es lo que anda mal...

[spiderman78]

que tal pues ya probe las dos opciones q me dijiste y no sigo en la mismas y no no he agregado el combo1.clear y para ser sincero no se a q te refieras con eso, gracias por la ayuda

Saludos

[David]

Iniciado por spiderman78

que tal pues ya probe las dos opciones q me dijiste y no sigo en la mismas y no no he agregado el combo1.clear y para ser sincero no se a q te refieras con eso, gracias por la ayuda

Saludos

Esa instrucción necesariamente debes ponerla, de lo contrario agregará dos veces los datos, debes ponerla al comienzo del procedimiento. Ejemplo:

Código:

 
Sub Proc()
Combo1.Clear
'Aquí el resto del código
End Sub

[spiderman78]

Ok muchas gracias David efectivamente solo le puse el Combo1.Clear en el proceso y se soluciono mi problema.

Saludos.