beasissi ha scritto:
Ciao a Tutti e grazie Alex.
Ho provato la routine che mi hai segnalato .
Bellissima ma nel mio caso non utilizzabile perchè nella mia maschera ho inserito anche una casella combinata dalla quale scelgo il fornitore.
Utilizzando la funziona allowedits mi si blocca l'intera maschera e smette di funzionare anche la casella combinata.
A me serve proteggere da modifiche involontarie i campi contenenti i dati dei fornitori lasciando attiva la casella combinata cosnetindo i cosi la navigazione "protetta" tra i vari fornitori.
Che noioso che sono, eh?
Saluti
Ti chiesi:
@Alex ha scritto:
Questo si usa se nella maschera non ci sono controlli non associati da modificare...
Serve anche prestare attenzione... andiamo oltre.
Apri in modalità STRUTTURA la Maschera e seleziona TUTTI i controlli Associati da Bloccare e Sbloccare, quindi vai in proprietà alla TAB(ALTRO) trovi la proprietà TAG scrivi dentro ---> X
Ora scrivi 3 righette di codice così:
Sub SetStat(Value As Boolean)
On Error Resume Next
Dim ctl As Access.Control
Me.NomeControlloSempreAbilitato.SetFocus <------ Usa la Casella di Ricerca...!!!!!
For Each ctl In Me.Controls
If ctl.Tag = "X" Then
ctl.Enabled = Value
End If
Next
End Sub
Ora sui 2 Button scrivi:
Private Sub Button1_Click()
SetStat False
End Sub
Private Sub Button1_Click()
SetStat True
End Sub
[/code]
Chiaramente sempre per quello già detto prima anche su Current
Private Sub Form_Current()
SetStat False
End Sub