andi_andi

Create una tabla con un sólo campo, la guardas y le llamas NomTbl El código que te envío abre la DB Externa, está de manera que capta el Path de la db según tu indiques. También has de poner un .rs para tu tabla, a medida que envuentre una tabla...

Si quieres permitir duplicar el Número de factura y con diferente proveedor, vete a la tabla en diseño selecciona los dos campos factura y proveedor y presiona la llave. Si deseas tener control por código también tienes la opción de buscar el dato...

Colunm cuenta las columnas Midato = MiCuadroA.ListCount Me.nelems.value =Midato

Esto seria para comprobar que costos variables existe en la tabla Dim Mivariable As Integer Mivariable = 0 & DLookup("Costo variable total", "Costos variables", "Codigo like '" & Forms![Costos variables].Codigo & "'") if MiVariable=0 then Msgbox "No...

Bueno pides dos cosas una de ellas se hace en un momento, la otra tendrás que hacer una pequeña curradita para hacerlo bastante aceptable. 1 hay muchas maneras de evitar que un número de factura o un registro determinado no se repita. Se puede hacer...

Aquí te envío un ejemplo que tenia para bajar información de los consumos. Nota: Este código debe estar en un botón, y en el formulario has de crear un combo que tiere de una tabla que contenga solo un campo. En este campo has de poner el nombre de...

Set db = CurrentDb Set rs = db.OpenRecordset("tutabla") rs.AddNew 'Añadimos un nuevo registro rs("Date") = Me.Fec 'Guardamos la fecha y la tarea en sus campos rs("Prove") = Forms!Agenda!Tareas!Proveedor rs("Material") = Forms!Agenda!Tareas!Material...

Define mejor lo que deseas hacer, no definas el funcionamiento del programa.

'-1 activado 0 Off If Externo.Value = -1 Then '(Externo= nombre de la Casilla de verificacion) HistoPaciente.Visible = True '(HistoPaciente= nombre del cuadro de texto) Etiqueta62.Visible = True '(Etiqueta62= etiqueta del cuadro de texto) Else...

Crea un modulo y pega esta API Option Compare Database Option Explicit Private Declare Function apiGetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long...