Julián González Cabarcos

Vamos a suponer que se llaman, Pais, Provincia y Ciudad y que dependen de la tabla Clientes. En vista diseño del formulario pondría como ocultos Provincia y Ciudad. En el evento Antes de actualizar del cuadro de texto Pais, crearía un procedimiento...

Si tienes una tabla Clientes y una tabla Creo una consulta El resultado Aunque si quieres hacerlo desde un formulario es mucho más sencillo usar Dlookup

Me vas a perdonar, pero creo que te estás complicando demasiado. Si tengo una tabla Donde tengo un campoA que va a "recoger" la unión. Si tengo un formulario y pulso el botón El código del botón es simplemente

Yo quitaría ese criterio del informe, ten en cuenta que en el botón puedes poner los criterios que quieras. Por ejemplo Docmd.openreport"clientes",acpreview,,"Pais=""Alemania"" or nombrecliente="" Juan"" and ciudad='" & me.ciudad & ""

En ambos casos ponlo en el evento Antes de actualizar. Me explico, supongamos que la tabla se llama Clientes. En el evento Antes de actualizar del cuadro de texto No_cedula pon If dcount("*","clientes","n0o_cedula=" & me.no_cedula & "")>=1 then...

Es fácil

Vamos a suponer que tienes una tabla Clientes con un campo Fecha. Si con ella has construido un formulario, y en el encabezado del formulario pones un combinado, al que he llamado Elegir. En sus propiedades-datos-origen de la fila le pongo Aunque...

Lo puedes poner en el evento al cerrar del formulario pero lo pongo en un botón para que se vea bien. Supongamos que tengo la tabla Y en el formulario sólo muestro Fármaco 1 y 2 Si pulso el botón Borrar ocultos El código del botón es For Each Control...

Lo de ocultar no tiene problema. Supongamos que en vista diseño del formulario le añades un cuadro de texto Contador, que estaría oculto, pero te lo dejo visible para que veas como trabaja. Como no sé como trabajas, en el evento Al abrir el...

No es en el evento al presionar, sino en el evento Al bajar una tecla Private Sub CargoContacto_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode <= 47 Or KeyCode >= 58 And KeyCode <> 67 Then KeyCode = 0 End If End Sub