| Pregunta: | 50591 - DESHABILITAR RUEDA DEL RATÓN EN FORMULARIO |
| Autor: | Roberto Gómez |
| Hola a todos.
Mi pregunta es; ¿Como puedo sesactivar la rueda del ratón, cuando estoy dentro de un formulario? La cuestión es que cuando estoy en un formulario, y usas la rueda del ratón, te desplazas entre los distintos registros ya almacenados. Y yo lo que quiero es que eso no suceda. Un saludo, y muchas gracias de antemano. | |
| Respuesta: | JOHN S CAMACHO |
| EL siguiente código evita agregar nuevos registros de manera accidental cuando se gira la rueda del ratón:
Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long) DoCmd.CancelEvent If Count > 0 Then Me.AllowAdditions = False Else Me.AllowAdditions = True End If End Sub Para evitar desplazarse entre los registros: Private Sub Form_AfterUpdate() Me.DataEntry = False Me.AllowAdditions = False DoCmd.CancelEvent End Sub | |
| Respuesta: | Mazinger Z |
| Esto me funciona bien. Para evitar que la rueda del mouse, abra un nuevo registro.
Propiedades del Formulario: Permitir filtros=SI, Permitir ediciones=SI, Permitir Agregar=SI, Entrada de datos=SI Evento afterupdate (después de actualizar) del formulario: Me.DataEntry = False Me.AllowAdditions = False DoCmd.ApplyFilter , "id=" & DLast("id", "clientes") Me.FilterOn = True Este código se utiliza en un formulario para agregar registros a la tabla clientes, la cual tiene un campo autonumérico "id". | |