Antonio Pedro

Tengo una base de datos con 5 Formulario (F1, F2, F3, F4, F5) en cada formulario he insertado unas etiquetas para ir pasando de un formulario a otro: En cada etiqueta al hacer click tengo insertado lo siguiente: Me.Visible = False DoCmd.OpenForm "F2"...

Tengo un grupo de opciones ( Opción2, Opción3, Opción4) dentro de un marco (Marco0), lo que deseo es que si no selecciono ninguna opción me saltara un mensaje informándome que no se ha seleccionado nada, para lo cual tengo la siguiente instrucción en...

Tengo en un formulario 3 casillas de verificación, y lo que pretendo es que si me dejo sin marcar las 3 me salte un mensaje diciendo que no he marcado alguna. Para lo cual tengo esta instrucción, pero no me funciona, me abre directamente el...

No sé si resultara un poco lioso lo que voy a plantear, pero ahí va: Tengo un formulario (FConductor) en el cual tengo insertado un botón que al pulsar me abre otro formulario (FConsulta) en este formulario inserto un dni y me muestra filtrado los...

En un formulario, tengo insertada la siguiente instrucción en un botón: txtHombreA = DCount("SexoA", "TAltas", "Fecha Between Forms!FEstadistica1!txtfi.value and Forms!FEstadistica1!txtff.value and [SEXOA] = 'Hombre'") La cual me cuenta entre dos...

Y felices fiestas a todos los componente. Tengo un formulario y dentro tengo insertado un subformulario (oculto)que se hace visible cuando muestro el resultado de una consulta, todo me funciona bien, y ahora hago la pregunta: Quiero que el tamaño...

Tengo el formulario de la imagen. Con tres tipos de búsqueda, según seleccione una u otra me muestra el comando correspondiente (los comandos están ocultos) y me realiza una búsqueda de unos datos entre dos fecha, mostrándome los datos en el...

Tengo la siguiente instrucción para pasar datos de una tabla de Access a Excel: Dim strLibro As String Dim strSQL As String ' abro una instancia de Excel Set xls = CreateObject("Excel.Application") ' con ella abro el libro Exportar a Excel strLibro =...

Lo que intento es limpiar los datos de un formulario, para lo cual tengo la siguiente instrucción: Dim Ctl As Object For Each Ctl In Me.Controls If TypeOf Ctl Is CheckBox Then Ctl.Value = False ElseIf TypeOf Ctl Is TextBox Then Ctl.Text = "" End If...

Tengo la siguiente instrucción para insertar los datos de un campo memo (Observaciones1) en una tabla llama TOcurrencia: Dim rsDatosO As Recordset 'Forma ocurrencia, Tabla Ocurrencia Set db = CurrentDb Set rsDatosO = db.OpenRecordset("TOcurrencia")...