PDA

Visualizza versione completa : ACCESS 2000


BVHC
12-09-2002, 20.21.14
E' POSSIBILE DISATTIVARE LA ROTELLINA DEL MOUSE IN UN'APPLICAZIONE ACCESS 2000 !!
NON MI PIACE CHE SI POSSANO SCROLLARE I RECORD CON LA ROTELLA PERCHE' VORREI DECIDERE I QUANDO SCROLLA RE I RECORD

LeleB
20-09-2002, 15.59.19
Io ho usato un piccolo trucco, non troppo elegante ma efficace:

Ho definito una variabile a livello di modulo Usata per rilevare se il nuovo record viene creato dalla pressione del tasto oppure dalla rotella del mouse...

Dim NewRecFromBtn As Boolean

Nell'evento Su corrente del form ho messo...

Private Sub Form_Current()
'Se si passa al nuovo record tramite la rotella del mouse,
'non lo faccio andare al nuovo record
On Error Resume Next
If Me.NewRecord = -1 And NewRecFromBtn = False Then _
DoCmd.GoToRecord , , acPrevious
End Sub

Poi, sull'evento click del pulsante NUOVO RECORD....

Private Sub BtnNewRec_Click()
On Error GoTo Err_BtnNewRec_Click

NewRecFromBtn = True
DoCmd.GoToRecord , , acNewRec
NewRecFromBtn = False

Exit_BtnNewRec_Click:
Exit Sub

Err_BtnNewRec_Click:
MsgBox Err.Description
Resume Exit_BtnNewRec_Click

End Sub

;o)

LeleB.

LoryOne
20-09-2002, 17.53.51
L'importante arrangiarsi fino a quando non si trova una soluzione migliore !(Y) (Y) (Y)