Entradas con la etiqueta 'módulos'
Sábado, 02 de mayo 2009 |
A veces es necesario para prevenir una forma abierta, si hay registros para mostrar, por ejemplo cuando se hace una consulta y no de registro no es obligatorio, no tienen por qué ser de forma abierta ya que no tenemos los datos para mostrar. Entonces, ¿qué tenemos que comprobar es si hay registros para mostrar y si no hay mostrará un mensaje de e impiden la forma abierta. ¿Cómo?
Es fácil de poner simplemente el código de abajo en las propiedades de formulario en el caso de 'abrir':
= 0 Then Si Form.RecordsetClone.RecordCount
MsgBox "No se encontraron registros.", VbExclamation, "Error!"
DoCmd.Close acForm, "encontrar los datos"
Exit Sub
End If
Para ver un ejemplo descargar: Prevenir Abrir formulario
Publicado en Ejemplos , los formularios , los módulos | 2 Comentarios »
Jueves, 11 de diciembre 2008 |
1 - Crear un formulario de pedido en la estructura y el evento "Al hacer clic en" en las propiedades de la forma de escribir lo siguiente: me.keypreview = true
¿O es esto va a hacer que los eventos de teclado se reciben en la primera forma.
2 - En las propiedades del formulario, "botón de abajo para" el caso de poner el siguiente código:
Form_KeyDown Private Sub (KeyCode As Integer, Shift As Integer)
Seleccione KeyCode Case
Caso vbKeyF2
DoCmd.OpenForm "Form1"
Caso vbKeyF3
DoCmd.OpenForm "Form2"
Caso vbKeyF4
DoCmd.OpenForm "formulario3"
Caso vbKeyF5
Como Calculadora Dim doble
Calculadora = Shell ("calc.exe", vbNormalFocus)
Caso vbKeyF6
DoCmd.Close
Case Else
End Select
End Sub
Lo que esto hace es el siguiente:
- Pulsando la tecla F2 abre el form1
- Pulsando la tecla F3 abre Form2
- Pulsando la tecla F4 abre la formulário3
- Pulsando la tecla F5 se abre la calculadora de Windows
- Al presionar la tecla F6 cierra el formulario
Además de la tecla de función F1, F2, ... etc, también podemos utilizar cualquier otro botón para realizar las funciones, pero teniendo en cuenta que si vamos a introducir datos en una forma que no son aptos para usar las teclas que se utilizan para escribir los datos en los campos.
Otra cosa es que sólo funciona en la forma en la que poner los códigos anteriores.
Descargar: Claves
Publicado en Ejemplos , los formularios , los módulos | 1 comentario »
Sábado, 20 de septiembre 2008 |
Se trata de un tipo de menú que nos permite ahorrar tiempo, las líneas de código y un mejor acuerdo en cuanto a las formas abiertas, ya que con este menú sólo tiene una forma abierta. Además de reducir el número de formularios abiertos también disminuye el número de botones en un menú para abrir cada formulario.
Este tipo de menú, sin duda que ha existido por algún tiempo y ya es utilizada por muchos usuarios de acceso.
Entonces, ¿dónde está este menú?
Vamos a crear el menú con un cuadro combinado que contiene todas las formas que nos va a abrir a través de él. Cuando se selecciona una opción en el cuadro combinado del formulario de solicitud se visualiza en el subformulario. Entonces comenzamos a dar el paso a paso del menú.
1 - Vamos a crear una mesa donde vamos a guardar el nombre que desea dar a cada forma y el nombre del formulario que se abrirá. En el ejemplo que he creado 'tblmenu' de la tabla con los siguientes campos:
Tipo de campo
Texto Nomedomenu -> Nombre que se verá en el menú (cuadro combinado)
forman el texto -> Nombre del formulario que se abrirá
Después de que los datos introducidos en el ejemplo son los siguientes:
NomedoMenu Formulario
Cuentas de Form1
Depósitos Form2
Movimientos formulario3
Cuenta Caja formulario4
Cuenta-Cuenta formulario5
Extracto formulario6
2 - Luego creamos una consulta de la tabla anterior:
Tblmenu eligió la mesa y luego elegir los dos campos en los que hemos elegido para ascender nomedomenu tipo a ser más fácil encontrar el menú de unas cuantas veces cuando queremos abrir los formularios. Para esta consulta llamé 'CsMenu'.
3 - Vamos a crear 'Menú' la forma, es decir, elegir la forma nueva en la vista Diseño. Luego creamos un cuadro combinado y cambie las siguientes propiedades:
- Número de columnas: 2
- Ancho de columnas: 1 cm, 0cm;
- Origen de la línea: csmenu (que es el nombre de la consulta creada en el párrafo anterior)
4 - En la misma forma vamos a crear un formulario independiente subformulario principal (En el ejemplo que llama menuquadro). Esta es la forma que se abra cada una de las formas para elegir el menú (cuadro combinado).
5 - A continuación, cree un módulo que nos permitirá abrir el menú que está seleccionado en el cuadro combinado en el subformulario.
Hemos creado un módulo (que he llamado 'abrirmenu') y pegar el siguiente código:
AtivarMenu la Función Pública (Combmenu El ComboBox, subabrir El subformulario)
Abrirform As String Dim
= Abrirform Combmenu.Column (1)
subabrir.SourceObject = abrirform
subabrir.LinkChildFields = ""
subabrir.LinkMasterFields = ""
End Function
Después de ir a las propiedades del cuadro combinado en el menú de la forma y el evento de actualización Después de poner la función de creación: ativarmenu = ([Menú], [menuquadro]) que 'Menú' es el nombre del cuadro combinado y 'menuquadro "la nombre del subformulario.
Y, finalmente, el menú está listo para su uso. Simplemente tratar de usar. Espero que hayan disfrutado este consejo.
Descargar: Menú
A continuación una imagen del menú.
Menú personalizado
Publicado en Ejemplos , los formularios , los módulos | 12 Comentarios »
Martes, 06 de mayo 2008 |
Este ejemplo muestra cómo un sistema de gestión para la prestación de los pagos.
El ejemplo muestra que esto hace es crear y de forma automática con sólo un clic de un botón, los beneficios de un contrato de venta a través de los datos introducidos. Es decir, se introduce el nombre del cliente a la fecha de inicio del contrato y el importe total a pagar. A continuación, simplemente haga clic en "calcular los pagos" que se genera automáticamente el número de cuotas y divide el valor indicado por cada uno de ellos y calcula la fecha de cada entrega (uno por mes). Esto también es un ejemplo que muestra cómo agregar varios registros a la vez, porque al hacer clic en el botón que agrega un registro para cada beneficio.
Descargar: Insertar varios registros
Publicado en las fechas , las muestras , los formularios , los módulos , los Records | 17 Comentarios »
Sábado, 29 de marzo 2008 |
Este es un ejemplo de los campos de aplicación que Sonia lector destinados a un conjunto de datos de base de datos de registro de los animales. Se trata de una simple base de datos con sólo un formulario para la entrada de datos con una foto del animal.
Descargar: Refugio de Animales
Cualquier cambio solo comentario aquí.
Por escrito las formas , las fotos , los Módulos , los registros , las Tablas | 11 Comentarios »
Miércoles, 20 de febrero 2008 |
Hay varias maneras de introducir un registro, y la más común es conseguir a través de un formulario enlazado a una tabla. Otra forma de hacerlo es a través de campos no relacionados, es decir, utilizando un formulario con campos no relacionados independiente a la mesa. A
introducir los datos que utilizan el 'registros', es decir, por un código, que en el caso de este ejemplo es como sigue:
Db As Database
Dim rs As Recordset
If MsgBox ("¿Te gustaría escribir?" VbYesNoCancel, "Opciones") = vbYes Entonces
"Al pulsar se le preguntará si desea guardar el registro o no, si lo que el código continúa hasta el final
Set db = CurrentDb ()
Set rs = db.OpenRecordset ("Datos", dbOpenTable)
"Abra la tabla para insertar el registro de datos
rs.AddNew
rs ("nombre") = Me! INome
rs ("direccion") = Me! Imorada
rs ("edad") = Me! Iidade
rs.Update "envía los datos a la tabla
rs.Close 'Borrar los datos y se cierra el conjunto de registros
Set rs = Nothing
Set db = Nothing
Me.INome = null 'borra los campos en la forma
Me.Imorada = null
Me.Iidade = null
MsgBox "Registro guardado", vbInformation, "Hecho", "mensaje de confirmación de la pantalla
Me.INome.SetFocus 'Mover el cursor al primer campo
Else: Exit Sub
End If
Descargar: Lugar Independiente
Publicado en Ejemplos , los formularios , los módulos , los registros , las mesas | No Comments »
Martes, 19 de febrero 2008 |
Este ejemplo muestra cómo realizar los cálculos de las horas. Es útil para aquellos que necesitan saber la cantidad de tiempo transcurrido entre la hora de inicio y hora de finalización. No es suficiente para hacer la resta de la hora final de la hora de inicio, ya que si el tiempo del fin en movimiento de un día para las cuentas siguientes ya no correcto, por ejemplo:
Hora de inicio: 23:00:00
Hora de finalización: 02:00:00
Tiempo Final - Hora de inicio = 02:00:00-23:00:00 = -21:00:00
Obviamente, no es tan sencillo para trabajar con el tiempo, porque entonces en lugar de tener tres horas al resultado correcto sería erróneamente -21 horas.
Para solucionar este periodo que va de día a día tenemos que verificar primero si el tiempo del fin es superior a la hora de inicio, el que sea mayor que el cálculo es: End Time - Hora de inicio.
Si usted es menor, entonces tenemos que hacer el cálculo de otra manera, a saber:
Hora de inicio: 23:00:00
Hora de finalización: 02:00:00
Tiempo total: 23:59:59
Hit: 00:00:01
Básicamente lo que hacemos es añadir al valor de 24:00:00 resta para darnos las correctas tres horas. Esto es:
Tiempo Final - Hora de inicio + Total de Horas + Hit = 02:00:00-23:00:00 + + 23:59:59 00:00:01 = 24:00:00 = 03 + -21:00:00 : 00:00
Descargar: Cálculo con el tiempo
Publicado en los ejemplos , las formas , las horas , los módulos | 20 Comentarios »
Miércoles, 06 de febrero 2008 |
Este ejemplo muestra cómo elegir una fecha a través de un calendario emergente. Es decir, como un módulo y puede formar un selecto una fecha como éste es un calendario. En el ejemplo que puede elegir la fecha haciendo clic en el botón junto al campo de fecha o hacer clic en el botón derecho del ratón en el campo de fecha. Esta manera de entrar en las fechas es muy práctico ya que nos permite ver un calendario y elegir la mejor fecha que desee.
Descargar: PopUp Calendario
Publicado en las fechas , las muestras , los formularios , los módulos | 1 comentario »
Domingo, 27 de enero 2008 |
Por lo general, cuando nos encontramos en el botón central del ratón en un formulario, cambiar el registro de acceso. En algunas situaciones puede ser útil que no ocurra.
En este ejemplo se utiliza un módulo en el caso de que el formulario para cargar, para evitar que el usuario navega a través de los registros utilizando el ratón. Para probar que se puede utilizar la rueda del ratón (botón central) para ver que no cambia el registro.
Puede descargar desde aquí: la rueda del ratón
Publicado en Ejemplos , los formularios , los módulos , los ratones , los Records | No Comments »
Lunes, 21 de enero 2008 |
En este ejemplo se utiliza un módulo que se oculta la ventana principal de Microsoft Access, dejando sólo la ventana del formulario visible.
Para utilizar este módulo tenemos que usar el siguiente comando en el evento de apertura de la siguiente forma: fsetAccessWindow llame al (SW_HIDE).
Para comprobar a modo de ejemplo hacer el downloa: Manipular la ventana Acceso
Publicado en Ejemplos , los formularios , los módulos | 8 Comentarios »
