Newsgroup: it.comp.appl.access
Titolo: Nuovi records in una form aggiornabile.

Salve!
Ho una forma con subform che apro in aggiornamento e, quindi, la proprietŕ
'Immissione' č impostata a 'NO'.
Vorrei, se fosse possibile, con un tasto comando poter trasformare quel NO
in Sě, cioč vorrei poter immettere nuovi records senza dover creare
un'ulteriore form per questo scopo.
Ho guardato un pň in giro, ma mi pare che non ci sia nulla a riguardo.
    Grazie mille
     Ciao Rita

     Ciao Rita
Ciao Rita
La proprietà immissione dati non determina la possibilità di aggiungere 
record, ma solo la visualizzazione dei record esistenti.
su clic del pulsante:
Me.AllowAdditions = True
---
Daniele 

 ha scritto nel messaggio
news:p8qke.1428813$35.53...@news4.tin.it...

Ciao Daniele,
ti ringrazio per la risposta, ma ho già provato il codice che mi suggerisci
ed in pratica tutto funziona solo che appena mi sposto sulla subform per
immettere le voci relative mi compaiono quelle già immesse precedentemente.
Questo succede probabilmente perchè anche la subform si apre con Immissione
a NO, ma non so come fare per agire sulla sottomaschera.
 Di nuovo grazie
   Ciao Rita

    Ciao Rita
Io ho trovato una soluzione migliore e cioè.
Ho creato una sottomaschera da inserire nel form.
Questa sottomaschera ha un codice su caricamento che agisce su
tutti i controlli associati (combo, text, subform ecc) e li
blocca con un sistema tipo :'for each control'.
Il codice è contestuale cioè è generalizzato e blocca
i controlli della maschera parent. Ovviamente ho lo sblocca
che imposta allowedits=true, locked=false, allowadditions=true.
Guarda un po:
Public Function LockControl(StrForm As String, intEvent As Long) As
Integer
'se la proprietà seleziona con tabulazione è no allora l'effetto di
sblocca è inattivo (TabStop)
Dim ctl As Control
    Forms(StrForm).Form.AllowEdits = True
    strCaption = Forms(StrForm).Form.Caption
    Select Case intEvent
    Case vbYes
        For Each ctl In Forms(StrForm).Form.Section(0).Controls
            ' Verifica se il controllo è una casella modificabile
            If ctl.ControlType = acTextBox Or ctl.ControlType =
acComboBox Or ctl.ControlType = acCheckBox Or ctl.ControlType =
acOptionGroup Or ctl.ControlType = acSubform Then
                ' Imposta proprietà del controllo.
                With ctl
                    If .TabStop Then
                        .Locked = .Enabled
                    End If
                End With
            End If
        Next ctl
        Blocca = intEvent - 7
        Forms(StrForm).Form.AllowAdditions = Not Blocca
        Forms(StrForm).Form.AllowDeletions = Not Blocca
    Case vbNo
        For Each ctl In Forms(StrForm).Form.Section(0).Controls
            ' Verifica se il controllo è una casella modificabile
            If ctl.ControlType = acTextBox Or ctl.ControlType =
acComboBox Or ctl.ControlType = acCheckBox Or ctl.ControlType =
acOptionGroup Or ctl.ControlType = acSubform Then
                ' Imposta proprietà del controllo.
                With ctl
                    If .TabStop Then
                        If .Enabled Then .Locked = intEvent - 7
                    End If
                End With
            End If
            If ctl.ControlType = acSubform Then
                ctl.Form.AllowDeletions = Not ctl.Locked
            End If
        Next ctl
        Blocca = intEvent - 7
        Forms(StrForm).Form.AllowAdditions = Not Blocca
        Forms(StrForm).Form.AllowDeletions = Not Blocca
    Case vbOK
        For Each ctl In Forms(StrForm).Form.Section(0).Controls
            ' Verifica se il controllo è una casella modificabile
            If ctl.ControlType = acTextBox Or ctl.ControlType =
acComboBox Or ctl.ControlType = acCheckBox Or ctl.ControlType =
acOptionGroup Or ctl.ControlType = acSubform Then
                ' Imposta proprietà del controllo.
                With ctl
                    If .TabStop Then
                        If .Enabled Then .Locked = Not .Locked
                    End If
                End With
                If ctl.ControlType = acSubform Then
                    ctl.Form.AllowDeletions = Not ctl.Locked
                End If
            End If
        Next ctl
        Forms(StrForm).Form.AllowAdditions = Not
Forms(StrForm).Form.AllowAdditions
        Forms(StrForm).Form.AllowDeletions = Not
Forms(StrForm).Form.AllowDeletions
    End Select
End Function

 ha scritto nel messaggio
news:1116916068.7...@g47g2000cwa.googlegroups.com...



Grazie mille Dario, lo provo subito.