hola, pz una simple preguntilla, que indica este codigo... ayuden xfas
If Not rsCliente.EOF Then
rsCliente.MoveFirst
Do Until rsCliente.EOF
Combo4.List(i) = rsCliente("razon")
i = i + 1
rsCliente.MoveNext
Loop
rsCliente.Close
Set rsCliente = Nothing
Else
MsgBox "No hay clientes para poder realizar la factura, ingresar al cliente!", , "TICOM SCRL"
Exit Sub
End If
Alli cargas en la propiedad List del combo, los registros encontrados en la Consulta Generada, cuyo campo es "razon".
Algo más? :silbar:
Sii.... Y cual es el codigo en caso un usuario realiza un nuevo registro y se olvida escoger el elemento del combo----entonces tendria que aparecerle un mensaje que diga "No se puede realizar el registro sin ese elemento del combo" :¬¬
Hola, facil, chequea que haya seleccionado algo en el combo, cuando no hay nada seleccionado el listindex es igual a -1...otra cosa..el contador ese esta demas...se puede hacer sin eso.
saludos.
Private Sub cmdGuardar_Click()
Dim rs As New ADODB.Recordset
If adoDatos.Recordset.RecordCount > 0 Then
adoDatos.Recordset.MoveFirst
rs.Open "LLAMADAS", cn, adOpenStatic, adLockOptimistic
For i = 1 To adoDatos.Recordset.RecordCount
rs.AddNew
rs("cod_cliente") = adoDatos.Recordset("cod_cliente")
rs("cod_tipo") = adoDatos.Recordset("cod_tipo")
rs("llamadatipo") = adoDatos.Recordset("llamadatipo")
rs("fecha") = Date
rs("descripcion") = adoDatos.Recordset("descripcion")
rs("cod_usuario") = adoDatos.Recordset("cod_usuario")
rs.Update
adoDatos.Recordset.MoveNext
Next
BorraRegistros "TEMPORAL_LLAMADAS", ""
adoDatos.Refresh
ModoEditar False
MsgBox "El registro se guardó con éxito", , "TICOM S.R.L."
End If
End Sub
no me sale