Mensajes

qtal amigos, ayudenme en como podría crear un formulario donde un personal realiza una visita de negocios a un cliente, despues este personal pueda registrar su visita de dicho cliente ...... gracias de antemano

oigan y si el usuario deja en blanco los datos de un datagrid, en caso de q tendrian q llenar datos en un datagrid, como seria???? ...... asi????? bno esta mal creo

Código [Seleccionar] Expandir


If dgDatos.Columns(0).DataField = "" Then
MsgBox "Debe adicionar un servicio", vbExclamation, "Datos incompletos"
dgDatos.SetFocus
Exit Sub
End If


  --______ me bota error!, lo raro es q solo me bota este error: el valor de la propiedad no es valido; cuando le pongo true la propiedad mdchild, sino ps no me bota errores

qtal ps, al ponerle centrados a mis formularios, primero los puse como hijas con MDchild, luego al tratar de centrarlos con startposition, me bota un anuncio que dice: el valor de la propiedad no es valido, como puedo centrar mis formularios???

  .. Gracias

qtal amigos, como haria para q en un formulario de registro, al poner cancelar se pongan en blanco mis textbox, y  ya no mustre lo q estaba registrando anteriormente, ya q no uso datagrid, solo textbox

eso es cierto    ______ gRaCias por este debate tan entretenido, me ayudaron mucho 

bno para q me salga todo lo que tenia que hacer era omitir On Error GoTo ErrorSub

porfavor amigos ayudenme ..... mira adecuense a mi codigo, la verdad q lo q me falta es algo sencillo para ustedes ... tan solo me falta que el usuario quue hace un nuevo registro no deje campos en blanco ayudenmeeee plis 

Código [Seleccionar] Expandir


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


me bota un error: error de compilación; etiqueta no definida

Código [Seleccionar] Expandir


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."
           
           On Error GoTo ErrorSub
           If Trim(cboClientes.Text) = "" Then
        MsgBox "No se ha indicado el cliente", vbCritical, "Datos incompletos"
        cboClientes.SetFocus
        Exit Sub

    End If
       
    End If
End Sub