SoloCodigo

Hola a todos.

Necesito ayuda con un ComboBox.

Estoy trabajando en un Form que tiene un DataGrid enlazado a una tabla por Ado. Mi problema es cuando le agrego al Form un ComboBox, y mediante otro Ado lo enlazo a otra tabla, no me muestra ningún dato.....


Por favor alguien me puede ayudar con esto?

Gracias

gracias shiquilla  

hola a todos/as.

por favor, necesito ayuda con este código. si la consulta con encuentra registros, me aparece el error 94 en tiempo de ejecución. ya cambié el código varias veces, pero no puede solucionarlo...

gracias


datPrimaryRS.RecordSource = "Select Sum([Venta]) As Suma From MiTabla Where [Origen]='" & txtOrigen & "' AND [Destino]='" & txtDestino & "' AND [Venta]=" & txtVenta & " AND [Lugar]='" & txtLugar & "'"
datPrimaryRS.Refresh
If datPrimaryRS.Recordset.RecordCount > 0 Then
   txtTotalVenta = datPrimaryRS.Recordset.Fields(0)
   txtTotalVenta = Format(txtTotalVenta, "#,###,###,#0.00")
Else
    txtTotalVenta = 0
    txtTotalVenta = Format(txtTotalVenta, "#,###,###,#0.00")
End If

datPrimaryRS.RecordSource = "Select * From MiTabla Where [Origen]='" & txtOrigen & "' AND [Destino]='" & txtDestino & "' AND [Venta]=" & txtVenta & " AND [Lugar]='" & txtLugar & "'"
datPrimaryRS.Refresh
txtCantidadRegistros = datPrimaryRS.Recordset.RecordCount
grdDataGrid.Refresh
End Sub

Gracias Shiquilla!

By

hola.

alguilen podría decirme que está mal en este código??

gracias!


Private Sub cmdOK_Click()
    If Contador <= 1 Then
    If txtUserName = "Admin" Then
    If txtPassword = "Password" Then
       LoginSucceeded = True
       Timer1.Enabled = False
       frm2.Show
       Unload Me
    Else
        MsgBox "Clave de acceso o Usuario incorrecto", vbCritical, "Login"
        txtUserName.SetFocus
        SendKeys "{Home}+{End}"
        Contador = Contador + 1
    End If
    End If
    Else
    Mensaje = MsgBox("Acceso denegado", vbCritical, "Login")
    End
    End If
    End Sub