Sveinbjorn El Rojo

Para detectar si se pulsa Cancelar en un inputbox, tienes la función StrPtr() Puedes ver aquí su explicación y uso: https://drive.google.com/file/d/0B91iZhlpwhqyWUctX2dabm5TcmM/view Para controlar otro posibles valores inválidos, usa las funciones...

Como me parece que la solución que te propone Icue es la misma que has probado y no te sirve, te propongo otra cosa: 1º/ Crea un módulo nuevo en tu BD y en él pega esta función: Public Function fncDisponible(elRut As Long, laFechaIni As Date,...

Usa Relace() para cambiar en el valor numérico la coma decimal por un punto (el separador decimal que entiende el lenguaje SQL) o la función CStr() para pasarle el valor como texto y que se encargue él de convertirlo a número. Es decir, en la linea...

En VBA con Access sería: If Me.Llevar=-1 Then Me.Direccion.Visible=True Else Me.Direccion.Visible=False End If El código lo pondrías tanto en el evento "después de actualizar" del campo Llevar como en el evento "al activar registro" del formulario....

El problema está en que no asignas un valor a la variable valorID que usas como filtro en la SQL de actualización en ese procedimiento de actualización. Sí se lo asignas en el evento Initialize del Formulario, pero como es una variable que no...

Supongo que lo habrás probado, pero...¿le pusiste la propiedad "centrado automático" (o algo parecido ) en Sí a esos formularios? Lo digo para que no andes probando distancias, que, por otro lado, si cambias de ordenador o de resolución, puede que no...

Lo primero que tienes que hacer es cambiar el ámbito de actuación del evento, de Private a Public, es decir, donde tienes Private Sub txtCampo_BeforeUpdate(Cancel As Integer) poner Public Sub txtCampo_BeforeUpdate(Cancel As Integer). Lo segundo, en...

Así lo resuelves (poniendo el nombre de tu control pestañas en vez de NombreControlPestañas): If UserLevel = 1 Then LogedUser = Me.txtUsuario.Value DoCmd.Close DoCmd.OpenForm "MENÚ_PRINCIPAL" Forms("MENÚ_PRINCIPAL").NombreControlPestañas=2 ElseIf...

Prueba algo más simple: Private Sub Comando38_Click() On Error Resume Next Dim laRuta As String laRuta=Buscar_Carpeta("Seleccione o cree una carpeta") laRuta=laRuta & "\" & Me.NumArticulo MkDir laRuta End Sub Si la carpeta existe, saltará un error...

Access incorpora funciones de fecha como Día, Mes, Año, NombreMes con las que puedes sacar esa información fácilmente. Otra forma sería usando la función Formato. Por ejemplo, si tu campo se llama Fecha, en el evento después de actualizar, podrías...