Problema con Combo
Publicado por Germany (2 intervenciones) el 03/11/2006 17:01:58
Saludos!
Tengo varios combos en donde se le ingresa diferentes codigos para que salgan reflejados los conceptos en varios text, el problema esta que yo al escribir una nota adicional o un complemento en algunos de estos text y le doy clic al combo siguiente se me borra lo antes escrito dejando solo la información de la base de datos! como puedo evitar esto de antemano muchas gracias y dejo mi código para que vean si algo esta mal o hace falta otra cosa par que no pase esto!
_____________________________________________________________
Private Sub Combo2_Click(Index As Integer)
Dim ccone As ADODB.Connection
Set ccone = New ADODB.Connection
With ccone
.Provider = "microsoft.jet.oledb.4.0"
.Open (App.Path & "\recibo_97.mdb")
End With
Dim buscar As ADODB.Recordset
Set buscar = New ADODB.Recordset
For i = 0 To 7
If Trim$(Combo2(i).Text) <> "" Then
buscar.Open "SELECT * FROM codigo WHERE codigo= '" & Combo2(i).Text & "'", ccone
Text3(i) = IIf(IsNull(buscar!descripcion), "", buscar!descripcion)
buscar.Close
End If
Next
End Sub
____________________________________________________________________
Tengo varios combos en donde se le ingresa diferentes codigos para que salgan reflejados los conceptos en varios text, el problema esta que yo al escribir una nota adicional o un complemento en algunos de estos text y le doy clic al combo siguiente se me borra lo antes escrito dejando solo la información de la base de datos! como puedo evitar esto de antemano muchas gracias y dejo mi código para que vean si algo esta mal o hace falta otra cosa par que no pase esto!
_____________________________________________________________
Private Sub Combo2_Click(Index As Integer)
Dim ccone As ADODB.Connection
Set ccone = New ADODB.Connection
With ccone
.Provider = "microsoft.jet.oledb.4.0"
.Open (App.Path & "\recibo_97.mdb")
End With
Dim buscar As ADODB.Recordset
Set buscar = New ADODB.Recordset
For i = 0 To 7
If Trim$(Combo2(i).Text) <> "" Then
buscar.Open "SELECT * FROM codigo WHERE codigo= '" & Combo2(i).Text & "'", ccone
Text3(i) = IIf(IsNull(buscar!descripcion), "", buscar!descripcion)
buscar.Close
End If
Next
End Sub
____________________________________________________________________
Valora esta pregunta


0