Problema con combos, ayuda porfa!
Publicado por Omar (56 intervenciones) el 07/11/2005 18:38:08
Que tal foro, pido de favor que me apoyen cn este asunto de los combos.
1.-Si el campo esta vacio me marca error (logico porque no encuentra datos), Como hago para evitar esto?
2.-Cuando tecleo no me detecta la primer pulsacion, sino hasta la segunda, es decir si la incidencia o dato que voy a ingresar es "Balastra" escribe solamente "alastra", tengo que teclear dos veces la primer letra.
Este es mi codigo:
Private Sub CBOTIPOREP_GotFocus()
Dim RsTipoRep As New ADODB.Recordset
Dim strTipoRep As String
strTipoRep = "SELECT Tipo_incidencia FROM Reportes"
Set RsTipoRep = Conn.Execute(strTipoRep)
With RsTipoRep
CBOTIPOREP.Clear
If RsTipoRep.RecordCount < 0 Then
RsTipoRep.MoveFirst
While Not RsTipoRep.EOF
CBOTIPOREP.AddItem RsTipoRep("Tipo_incidencia")
RsTipoRep.MoveNext
Wend
End If
End With
RsTipoRep.Close
Set RsTipoRep = Nothing
CBOTIPOREP.ListIndex = 0
SendKeys "%{DOWN}"
End Sub
De antemano les agradezco.
1.-Si el campo esta vacio me marca error (logico porque no encuentra datos), Como hago para evitar esto?
2.-Cuando tecleo no me detecta la primer pulsacion, sino hasta la segunda, es decir si la incidencia o dato que voy a ingresar es "Balastra" escribe solamente "alastra", tengo que teclear dos veces la primer letra.
Este es mi codigo:
Private Sub CBOTIPOREP_GotFocus()
Dim RsTipoRep As New ADODB.Recordset
Dim strTipoRep As String
strTipoRep = "SELECT Tipo_incidencia FROM Reportes"
Set RsTipoRep = Conn.Execute(strTipoRep)
With RsTipoRep
CBOTIPOREP.Clear
If RsTipoRep.RecordCount < 0 Then
RsTipoRep.MoveFirst
While Not RsTipoRep.EOF
CBOTIPOREP.AddItem RsTipoRep("Tipo_incidencia")
RsTipoRep.MoveNext
Wend
End If
End With
RsTipoRep.Close
Set RsTipoRep = Nothing
CBOTIPOREP.ListIndex = 0
SendKeys "%{DOWN}"
End Sub
De antemano les agradezco.
Valora esta pregunta


0