Newsgroup: it.comp.appl.access
Titolo: Proprietà AllowDeledions su SubForm...!

Pensavo di aver superato la fase REM4, ma devo rivedere le cose...
Problema: (A97)
FormPrinc con 2 Sub (Sub1 e Sub2)
Nella Sub2 ho un Pulsantino che dovrebbe settare a False la proprietà
AllowDeletions della Sub1....!
La Sub1(MaschereContinue).
Credevo fosse semplice, anche perchè un fac-simile mi funziona:
Forms(formPrinc.Name).Form(Sub1.Name).AllowDeletions=False  (NON VA)
Forms(formPrinc.Name).Form(Sub1.Name).Form.AllowDeletions=False  (NON VA)
HO poche idee ma ben confuse...!
PERCHE' NON VA...!!!
@Alex 
-- 
Posted from  [62.98.12.51] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:4f9a1591b2aa88ad96...@mygate.mailgate.org...

Prova così:
[NomeSubForm].Form.AllowDeletions = False
Io utilizzo comunque questa semplice funzione che permette di impostare lo
stato di modifica o di
sola visualizzazione delle maschere (anche con eventuali subform) di Access
La utilizzo per tutte le maschere dei miei db.
'---------------------------------------------------------------------------
-------
Public Function MODEDIT() As Boolean 'Funzione pubblica per variare
                                     'lo stato di View o Edit di un Form
Dim FRMM As Boolean
FRMM = Screen.ActiveForm.AllowEdits   'Stato di modifica del Form attivo
MODEDIT = IIf(FRMM = True, False, True) 'Se lo stato è True lo varia
                                        'in False e viceversa
End Function
'---------------------------------------------------------------------------
-------
Esempio di chiamata della funzione tramite un pulsante del Form
'---------------------------------------------------------------------------
-------
Private Sub ModeClick_Click()
Dim MODE As Boolean
Form.AllowEdits = MODEDIT() 'chiamata alla funzione MODEDIT()
MODE = Form.AllowEdits 'MODE restituisce lo stato di consenti modifiche del
form principale.
Form.AllowAdditions = MODE 'MODE imposta lo stato analogo per consenti
aggiunte
Form.AllowDeletions = MODE 'e consenti eliminazione del form principale
[SubForm eventuale].Form.AllowEdits = MODE     'MODE imposta lo stato
analogo per consenti
[SubForm eventuale].Form.AllowAdditions = MODE 'modifiche e aggiunte ed
eliminazioni
[SubForm eventuale].Form.AllowDeletions = MODE 'di un eventuale subform
Me![Tasto].Enabled = MODE   'Mode imposta lo stato analogo per
l'abilitazione del pulsante.
Refresh
End Sub
'---------------------------------------------------------------------------
-------
--
                     Angelo
------------------------------------------------------
Sito comune di it.comp.appl.access
http://www.sitocomune.com
------------------------------------------------------

 
Grazie per il tentativo, ovviamente la tua sintassi è corretta, ma rispecchia
i miei tentativi.
Mi sono accorto che ho qualche problema derivante dall'utilizzo di un ciclo
For each Control in FormMain.Controls 
  '''Disabilita i controlli compreso la Sub
Next
Ora: funziona solo quando disabilito, alla riabilitazione mi nega l'accessso
alla proprietà in Oggetto....???
@Alex
-- 
Posted from  [146.133.1.30] 


 ha scritto nel messaggio
news:824e1ffe6f6b9a8d51...@mygate.mailgate.org...


 ha scritto nel messaggio
news:824e1ffe6f6b9a8d51...@mygate.mailgate.org...

Quando c'è il CICLO è tutto più complicato.


 ha scritto nel messaggio
news:824e1ffe6f6b9a8d51...@mygate.mailgate.org...

Quando c'è il CICLO è tutto più complicato.
--


 
Come le Donne + o -..... ;-)  (Non si offendano, č solo una battuta).
Si, scherzi a parte ho risolto inserendo il codice esternamente
in un altro punto, e in effetti funzionava anche la mia Versione....
Mah...
Ciao
@Alex
-- 
Posted from  [62.98.31.167] 
