Newsgroup: it.comp.appl.access
Titolo: AllowAdditions in sottomaschera

salve!
qual'č la sintassi corretta per abilitare le agguinte nalle sottomaschere?
per capirci:
Me.AllowAdditions = True
ho provato cosě:
forms!maschera1!smMaschera.AllowAdditions=true
non funziona!!!!!!
grazie
ciao 

come non detto!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
scusate
ciao 

 ciao
-----------------------------------------------------------------------------------
Non ho ben capito, ma se si tratta di una sottomaschera, io ho risolto così.
Creare un pulsante blocca scheda (Scheda principale) e inserire il codice
Private Sub BLOCCA_SCHEDA_Click()
    Me.AllowEdits = False
End Sub
--------------------------------
Creare un pulsante Sblocca scheda (Scheda principale) e inserire il codice
Private Sub MODIFICA_Click()
If Me.AllowEdits = False Then
    Me.AllowEdits = True
    ElseIf Me.AllowEdits = True Then
    MeAllowEdits = False
    Me.Refresh
End If
End Sub
-----------------
Private Sub Form_Current()
' Scheda principale
    If Me.NewRecord = False Then
    Me.AllowEdits = False
    Else: Me.AllowEdits = True
    Me.Refresh
    End If
End Sub
------------------------
Private Sub Form_Current()
'"Da inserire nellla sottomaschera. Me.AllowEdits" è riferito alla 
sottomaschera e "Forms![F_Ordini_lavoro].AllowEdits" è la maschera 
principale, funziona benissimo e con una semplice riga, facendo riferimento 
alla maschera principale, blocchi tutte le sottomaschere che vuoi
    Me.AllowEdits = Forms![F_Ordini_lavoro].AllowEdits
End Sub
------------------------
Proprietà maschera principale: consenti modifiche, eliminazioni,aggiunte 
impostate a SI.
-----------------------------
Ciao da Bruno 

Hai provato a semplificare tutto usando questa:
Me.AllowEdits = Not Me.AllowEdits
Oppure un controllo Interruttore
Me.AllowEdits = Me.NomeINterruttore
Ciao
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------

 ha scritto nel messaggio 
news:4205f49a$0$32352$5fc...@news.tiscali.it...

Altre volte ho detto che sei un grande, oggi lo confermo.
Bruno
P.S. Grazie 

 @Alex (Alessandro Baraldi)
-------------------------------
Alessandro! Aiuto! Aiuto!!
Ho provato a usare il controllo interruttore, ma quando la maschera si 
blocca non è utilizzabile neanche l'interrutore, quindi ho provato ad usare 
la proprietà enable per l'interrutore ma non funzia.
Forse ho saltato qualche passaggio ?
Grazie Bruno 

 Grazie Bruno
Al Lupo...all Lupo...!! ;-)
L'interruttore è un controllo UnBound..? (Non associato), che c'azzecca con
la
proprietà AllowEdits...??
Prova a postare il codice che hai usato....!!!


 ---------------------------------------------------------------------------
Alessandro, Scusa per il ritardo nel rispondere. Sono uscito a fare due 
cose.
Ecco il codice.
Inserito nella maschera principale.
Private Sub Form_Current()
    If Me.NewRecord = True Then
    Me.AllowEdits = True
    Else: Me.AllowEdits = False
    End If
End Sub
--------------------------------------
Inserito nell'interrutore. Funziona correttamente, ma quando la maschera 
viene impostata a modifica NO, allora non permette l'utilizzo 
dell'interrutore. Tieni presente che ho provato anche togliendo il codice su 
Form_Current(). Comunque sia la tua soluzione è veramente semplice e pulita. 
Nell'attesa della tua risposta faccio altre prove.
Private Sub MODIFICA_Click()
    Me.AllowEdits = Me.NomeINterruttore
End Sub
-------------------------------------------------
Ciao.. Bruno

 Ciao.. Bruno
Hai ragione l'Interruttore risente dello stato Bloccato di Form
Io farei così:
Chiamo un CommandButton [CmdEdita] sul quale
attivo l'evento Click.
Dim blED As Boolean
Private Sub CmdEdita_Click()
  blED = Not blED
  Me.AllowEdits = blED
  call ChangeCaption
End Sub
Private Sub Form_Current()
   Me.AllowEdits = Me.NewRecord
   blED = Me.NewRecord
   call ChangeCaption
End Sub
Private Sub ChangeCaption()
    If me.AllowEdits then
        me.cmdEdita.Caption="Blocca"
    Else
        me.cmdEdita.Caption="Sblocca"
    End if
End if
Fammi sapere se può andare....!
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
