zelarra errona

Para abrir la imagen, utiliza este módulo: https://www.dropbox.com/s/s5iqiodwbxefre3/M%C3%B3dulo1.bas?dl=0 Y lo llama desde el formulario tal que así: Private Sub Comando4_Click() iUbicacion.SetFocus Dim s As String s = OpenCommDlg() If s <> "" Then...

Estoy haciendo comprobaciones, copiando en cada carpeta hasta llegar a la carpeta donde quiero copiarla. La puedo abrir en todas salvo en la última. Es más, si a esta última la renombro y le quito las dos últimas palabras, sí que me la abre. No sé el...

https://www.dropbox.com/s/i9usv5wgtq8y44q/Video.avi?dl=0 Ahí tienes el vídeo.

Solución: Private Sub Report_Open(Cancel As Integer) Me.RecordSource = "Select * from CLibroDeIVASubinforme where " & Me.Parent.Filter End Sub

Se me olvidaba. El campo CodigoCliente es tipo texto.

Por cierto, en la base de datos el formulario es uno llamado F2Estiramientos. Ahí hay un botón que lleva al informe, el único que hay en toda la base de datos.

Ahí os dejo las dos propiedades que no sé cómo traducir a VBA. El código sé que tiene que ser algo así: ctl.??????? = ctl.ForeColor ctl.??????? = ctl.ForeColor

Public Function MensajeDeCampoBloqueadoAlPresionarUnaTecla(FName As Form) Dim ctl As Control For Each ctl In FName.Controls Select Case ctl.ControlType Case "acCheckBox", "acComboBox", "acTextBox" If Screen.ActiveControl.Locked Then MsgBox " Este...

Lo que me gustaría conseguir sería que baje un poco. Sin embargo, si utilizo la función de VBA para mover, me pide que establezca un margen a la izquierda, y ahí es donde se fastidia todo.

Option Compare Database Public cmbCategoria As New FindAsYouTypeCombo Public cmbCliente As New FindAsYouTypeCombo Public cmbAno As New FindAsYouTypeCombo Public cmbTrimestre As New FindAsYouTypeCombo Private Sub Form_Load()...