Newsgroup: it.comp.appl.access
Titolo: frm_lettura e/o modifica

ho la necessita di avere in un form alcuni controlli in sola lettura,
la maschera deve essere aperta con i controlli già in sola lettura,
poi attraverso un pulsante si possono renderli modificabili.
ho costruito queste due routine ma non
riesco ad ottenere il risultato voluto
Private Sub cmdLock_Click()
   If txtNumeroRilascio = True Then
   Me![txtNome].Locked = False
   Else
   Me![txtNome].Locked = True
   End If
   Me.cmdNotLock.Visible = True
   Me.cmdNotLock.SetFocus
   Me.cmdLock.Visible = False
End Sub
Private Sub cmdNotLock_Click()
   If txtNumeroRilascio = True Then
   Me![txtNome].Locked = True
   Else
   Me![txtNome].Locked = False
   End If
   Me.cmdLock.Visible = True
   Me.cmdLock.SetFocus
   Me.cmdNotLock.Visible = False
End Sub
avete qualche idea, dove sbaglio,
indicatemi qualche altra strada.
*se siete in vacanza buone ferie, se siete al lavoro buon lavoro,
se vi state divertendo buon divertimento ...*
ciao, pizz

 ha scritto nel messaggio
news:qA8b7.126070$Pb6.6...@news1.tin.it...

Ma txtNumeroRilascio cosa è?
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

ciao,il piz


Non hai spiegato cosa ti aspetti dall'esecuzione di queste due routine, ma
non č per caso che devi invertire Me![txtNome].Locked = False (sblocca il
controllo) con Me![txtNome].Locked = True (blocca il controllo)?
Poi se davanti a txtNumeroRilascio ci metti un Me! non č male.


le routine funzionano se faccio un cambio record

 ha scritto nel messaggio
news:bwUb7.146905$Pb6.8...@news1.tin.it...

Così come hai scritto le routine dei due pulsanti, l'effetto dei due
pulsanti si inverte se il controllo txtNumeroRilascio è False anziché True.
Quindi mi viene da ipotizzare che tutto ti funziona per i record per i quali
il campo associato al controllo txtNumeroRilascio è True, ma non ti funziona
quando correnti sono gli altri record.
Insomma ipotizzo che il primo record visualizzato nella maschera abbia il
valore di quel campo a False e quindi non ti funziona il giochino; poi passi
al record successivo, che ha il valore di tale campo a True e la cosa ti
funziona.
Le cose stanno per caso così?


con cmdNuovo tutti i controlli devono essere editabili.
grazie Roberto,
nel frattempo non dispero, riprovandoci ancora,
ciao,ilpizz

 ha scritto nel messaggio
news:Fvac7.148485$Pb6.8...@news1.tin.it...

Sempre che abbia capito il tuo problema io farei così.
A fronte dell'evento "Su corrente" della maschera genererei questo codice
VBA:
Private Sub Form_Current()
Me!txtNome.Locked = True
Me!txtSinonimo.Locked = True
Me!cmdLock.Visible = True
Me!cmdNotLock.Visible = False
End Sub
A fronte dell'evento "Su clic" del pulsante cmdLock genererei questo codice
VBA:
Private Sub cmdLock_Click()
Me!txtNome.Locked = False
Me!txtSinonimo.Locked = False
Me!cmdNotLock.Visible = True
Me!cmdNotLock.SetFocus
Me!cmdLock.Visible = False
End Sub
A fronte dell'evento "Su clic" del pulsante cmdNotLock genererei questo
codice VBA:
Private Sub cmdNotLock_Click()
Me!txtNome.Locked = True
Me!txtSinonimo.Locked = True
Me!cmdLock.Visible = True
Me!cmdLock.SetFocus
Me!cmdNotLock.Visible = False
End Sub
A fronte dell'evento "Su clic" del pulsante cmdNuovo genererei il seguente
codice VBA:
Private Sub cmdNuovo_Click()
DoCmd.GoToRecord , , acNewRec
Me!txtNome.Locked = False
Me!txtSinonimo.Locked = False
Me!cmdNotLock.Visible = True
Me!txtNome.SetFocus
Me!cmdLock.Visible = False
End Sub


---------------------------------------------------------------------------
---------<
-- 
Posted from [212.141.54.102] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

grazie č proprio cosě
e adesso... che ne pensi!
č sempre utile armarsi di pazienza e tuffarsi nelle innumerevoli
e piacevoli sorprese che puň offrire una vacanza?
direi proprio di si... come tu ben sai la vita č regolata dalle implacabili
leggi di Murphy.
brillante* Roberto dal portatile*,
se sei in vacanza buone ferie, se sei al lavoro buon lavoro,
se ti stai divertendo buon divertimento ecc...

 ciao, il pizz

 leggi di Murphy.
Anche, ma non solo: sarebbe limitativo per l'intelligenza di ognuno di noi.
Bisogna poi stare attenti: tra la legge di Murphy ed il fatalismo corre un
sottilo file rouge. ;-)
