abibiano

En el evento "Después de actualizar" del cuadro de texto puedes buscar el empleado en la tabla con la función dlookup y si lo encuentras, abrir el subformulario. Ejemplo: Dim varX As Variant varX = DLookup("[IdEmpleado]", "CTablaEmpleado",...

Lo primero de todo, decirte que igual deberías cambiar la estructura de tu base de datos, ya que sería más fácil de trabajar tus datos si divides la tabla en 2. O sea, si tienes una Tabla1 con los campos Codigo_Tabla, ..., 15 campos Si/No, yo crearía...

Usa esta función Private Declare Function apiGetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long Function fOSMachineName() As String 'Devuelve el nombre del equipo Dim lngLen As Long, lngX As Long...

Cambialo por esto: Private Sub Producto_NotInList(NewData As String, Response As Integer) MsgBox "El producto que se está vendiendo se encuentra agotado del Inventario", vbCritical, "AVISO DE INVENTARIO" Undo Response = acDataErrContinue...

¿La lista está basada en una tabla/consulta, o en una lista de valores? ¿Qué versión de Access usas?

Nunca he usado esta rutina, pero la vi en un grupo de Access para abrir cajones de cajas registradoras: Sub Abrir_Cajon() Dim Fichero as integer Fichero=FreeFile Open "LPT1" For Output as #Fichero Print...

Existe una versión Office Developer para cada versión de Access (97, 2000, XP). Esta versión la puedes encontrar en Microsoft. Por cierto está en inglés. A parte de incluir los programas habituales de Office incluye herramientas de programación,...

Deberías usar la función DLoockup. Aquí te pongo un ejemplo: Private Sub CP_AfterUpdate() Dim strBusqueda As String strBusqueda = "[CódigoProvincia] = """ & Me.CP & """" Me.Provincia = DLookup("[Provincia]", "Provincias", strBusqueda) End Sub Donde...

Podrías poner en el evento "Después de actualizar" del campo MesActual lo siguiente MesSiguiente = DateSerial(Year(MesActual), Month(MesActual) + 1, 0)

Necesitaría que me explicaras mejor tu problema. Con la información que me mandas no te puedo ayudar.