Codigos de visual 6

[leliCabello]

hola, pz una simple preguntilla, que indica este codigo... ayuden  xfas

Código [Seleccionar] Expandir


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


[ssccaann43 ©]

Alli cargas en la propiedad List del combo, los registros encontrados en la Consulta Generada, cuyo campo es "razon".

Algo más? 

[leliCabello]

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" 

[seba123neo]

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.

[supervb]

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