Sveinbjorn El Rojo

Crear macros en VBA en Access es similar a hacerlo en Excel. Échale un vistazo a esta web: http://siliconproject.com.ar/neckkito/ donde encontrarás un excelente manual, así como una gran variedad de ejemplos explicados. Access también ofrece la...

Un código que te puede servir sería este: Dim miCliente as String miCliente=Nz(Me.Cliente,"") 'Compuebas que haya cliente If miCliente<>"" Then Application.FollowHyperlink "C:\Clientes\" & Me.Cliente

Suponiendo que tienes un formulario con 3 cuadros de texto (txtNota1, txtNota2 y txtNota3) donde vas a introducir las tres notas, otro cuadro de texto donde tendrás la media (txtMedia) y un botón (cmdMedia) que calcule la media y la ponga en su...

Para ejecutar código al cerrar la BD, tendrías que tener un formulario que se abriera al iniciar la aplicación y se mantenga abierto todo el tiempo (aunque sea oculto). Luego, en el evento Al Cerrar, le programas el código que quieras ejecutar. De...

Te comento cómo lo haría yo, que no es ni la mejor ni la peor manera (todo según gustos). Yo optaría por la tercera opción que comentas, la de la consulta, así te evitas tener que guardar esa información variable en un campo de una tabla que...

Si tienes en tu formulario tres cuadros de texto que se llaman como indicas ("Fecha Vencimiento", "Fecha actual" y "Estado" -> Propiedades->Pestaña Otros->Nombre), el código sería así: If Me.Fecha_Vencimiento>Me.Fecha_Actual Then Me.Estado =...

Si la actualización del dato implica cálculos, como el caso de Total que planteas, yo usaría la primera opción que comentas, es decir, el evento "después de actualizar", pero siempre teniendo en cuenta los posibles valores nulos que pueda haber. Por...

Viendo el ejemplo que planteas y el código que usas, he montado un mini-ejemplo que creo te servirá, aunque en este ejemplo, la Diferencia 0 la da en la fecha más antigua y no la más reciente (que creo que tiene más sentido). Además, el problema de...

Sí, esa es la solución más adecuada y más sencilla. A eso se le llama borrado lógico.

Prueba con este código: Dim rst As DAO.Recordset Set rst=CurrentDb.OpenRecordset("NombreTabla/Consulta") If rst.EOF Then Exit Sub Do Until rst.EOF If rst("imprimir")=True Then 'Aquí el código que quieres ejecutar End If rst.MoveNext Loop rst.Close...