Jacinto Trillo Jareño

Sasha: Básicamente lo tienes, aunque no veo ese #If Depuración'Basicamente es ésto #If VBA7 And Win64 Then Private Declare PtrSafe Function ........... #Else Private Declare Function ......... #End If No obstante , te adjunto un enlace que quizá...

Angel: En el Evento Form_Current (Al activar Registro) del Formulario le pones éstas líneas. Nota: Si tienes el Nombre del Check separado >> Exento Cuota >> Mejor juntalo If Me.[ExentoCuota] = -1 Then Me.[NombreDeTuSubFormulario].Visible = False Else...

Carmelo: Lo que a mi modo de ver es que trabajes con el Formulario y los controles sin Origen de datos directo, y en el Botón de Grabar, lo haces con un con INSERT o UPDATE según sea Nuevo Registro o Modificació. Dado que la explicación se haría muy...

Jon: Pon éste código en un Módulo Estándar Public Sub CopiaDeDirADir(DirOrigen As String, DirDestino As String) Dim FSO As Object Set FSO = CreateObject("Scripting.FileSystemObject") FSO.CopyFolder DirOrigen, DirDestino Set FSO = Nothing MsgBox...

Carlos: No acabo de entender tu pregunta, pero si se trata de un sondeo del estado de una casilla de verificación, puedes usar el If ... ElseIf... EndIf Ejemplo: If Me.Chk01.Value = -1 Then 'Una Acción ElseIf Me.Chk02.Value = -1 Then '----- Else...

Rolca: Una Opción es dejarlo como está entrando siempre una cantidad positiva, y en el Evento después de Actualizar de ese cuadro de Texto, pones. If Me.Tipo_Movimientos = "Entrada" Then Me.TextoElQueSea = Me.TextoElQueSea Else Me.extoElQueSea = -...

Juan: En el evento Form_Current (Al actualizar Registro) del Formulario le pones ésto. If IsNull(Me.Fecha_Enrega) Or Me.FechaEntrega = "" Then Me.Fecha_Entrega,Locked = False Else Me.Fecha:Entrega.Locked = True En If Un saludo >> Jacinto

Para poner un enlace aquí, lo has de hacer a través de OneDrive, Dropbox o Mediafire u otro similar Si quieres enviármela a [email protected] miro de ayudarte. Un saludo >> Jacinto

Javier: Yo quitaría la Fórmula de ese control, de modo que se vea "Independiente" Entonces programa el Evento Form_Current() Al actualizar registro así: Private Sub Form_Current() Me.TxtNumRegistros = Me.RecordsetClone.RecordCount End Sub Has de...

Alejandro: La operativa que buscas es la misma que usa la BD Neptuno de Micrisoft en Pedidos de Cliente. Si no la tienes localizada la tienes en la Cabecera de éste enlace: Un saludo >> jacint