Mensajes

mira, aqui lo agregue en mi codigo, porfavor ayudenmmeeee

qtal amigos, miren este es un boton guardar, que ya guarda al darle clik, pero me falta controlar que no guarden datos en blanco, como puedo hacer, ya q si no escojo al cliente se guarda asi .. ayudenme porfassssssS

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

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, 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


 

qtal amigos ps esta vez estoy haciendo un sistema de llamadas, y puse 2 opciones para que elijan al momento de ingresar una llamada, que son : si es un tipo de llamada pedido o reclamo, estan cada uno en un optionbuton, tambien al costado tiene una descripcion, q esta en un txtdescripcion.text . Lo que quiero es que al elegir un cliente del datagrid esten marcadas uno de los 2 y aparezca la el txtdescripcion.text con los comentarios que se pusieron al momento de registrar una llamada...... haber si me ayudan porfaas lo q estuve haciendo es esto: pero tieene fallas ---->

Código [Seleccionar] Expandir

If adoLlamadas.Recordset("llamadatipo") = adoLlamadas.Recordset("llamadatipo") Then
   optPedido.Value = True
   End If
   adoLlamadas.Recordset.MoveNext

si e500 tengo todo instalado lo q no entiendo es xq no se conecta <<-----------ayudamee----------------->>

qtal amigos, ps quiero que me ayuden en esto de conexion con base de datos sql2005, este es mi codigo, pero no logro conectar, ya que deberia boterme un mensaje si lo haria. Ayudenme pleaseeeeeee

Código [Seleccionar] Expandir


Public cn As ADODB.Connection
_____________________________________________________________

Public Sub Main()
Dim Y As String
Dim X As String
Dim n As String
Dim AdoErr As ADODB.Error
banderatipocambio = False
banderatipocambio2 = False
Set cn = New ADODB.Connection
On Error GoTo TrataError
Y = "servidorticom"
X = "ticom"
n = "sa"
With cn
   .Provider = "SQLOLEDB"
   Beep
   For Each AdoErr In cn.Errors
       MsgBox AdoErr.Description
   Next
   .ConnectionString = "Data Source=" & Y & ";" & _
                           "Initial Catalog=" & X & ";" & _
                           "User Id=" & n & ";" & _
                           "Password="
       .Open
End With
MsgBox "Conexión Conforme a " & Y
TrataError:
mdiPrincipal.Show
'frmNum2Let.Show
End Sub


ps este manual esta re bueno ya lo abri con clic derecho , pero cada vexz que abro  me bota un mensaje q dice adobe acrobat....... cannot be launched at this time................... before lauching acrobat 8.1.0 professional...... ayudenme porfavor

este enlace n0o abre