sbloccare una sottomaschera da un pulsante

Question

Ciao a tutti,

ho un'altro piccolo problema da porre. In una maschera ho impostato una sottomaschera che mi serve da riepilogo (le due maschere sono identiche). Ho bloccato la sottomaschera in modo da non poter far inserire dati. Se però tramite un pulsante apposito, inserito nella maschera principale, vorrei dare la possibilità di cambiare i dati inseriti, visibili sulla sottomaschera, come devo impostare il codice? Grazie a tutti

Answer 1

Ciao Luca,

dovresti dire anche come hai bloccato la sottomaschera, se l'hai bloccata impostando le proprietà "Consenti modifiche" e "Consenti aggiunte" a No, il codice da usare è

---

Me.NomeSottomaschera.Form.AllowEdits = True

Me.NomeSottomaschera.Form.AllowAdditions = True

---

dove NomeSottomaschera è l'oggetto Sottomaschera/Sottoreport che contiene la sottomaschera.

Se invece hai bloccato l'oggetto Sottomaschera/Sottoreport, il codice da usare è

---

Me.NomeSottomaschera.Locked = False

---

Ciao

Giorgio Rancati

Answer 2

Ciao Giorgio,

come da te previsto funziona tutto. Ora ho voluto portare alcune modifiche e aggiungere un pulsante per ribloccare la sottomaschera e fare un refresh. Ti posto il codice dei due pulsanti inquanto mi da errore quando chiede al comando24 di attivare il comando25, sicuramente c'é un errore ma ci ho passato mezza nottata senza cavarne nulla.

Ti rigrazio anticipatamente e ti auguro una buona giornata (spero di non doverti più disturbare, sto cercando dei manuali, ma ho poco tempo).

Private Sub Comando24_Click()

Me.Anomalia_autisti.Form.AllowEdits = True

Me.Anomalia_autisti.Form.AllowAdditions = True

Comando25.SetFocus

Comando25.Enabled = True

Comando24.Enabled = False

End Sub

Private Sub Comando25_Click()

Me.Anomalia_autisti.Form.AllowEdits = False

Me.Anomalia_autisti.Form.AllowAdditions = False

Me.Refresh

Comando24.SetFocus

Comando24.Enabled = True

Comando25.Enabled = False

End Sub

P.S. Una volta finita la maschera, se avessi bisogno di spoasttare tutti i pulsanti in un'altra maschera posso farlo, cambiando ovviamente i nomi degli oggetti?

Answer 3

Ciao Luca,

tu hai la maschera "AA" che già contiene la sottomaschera "SAA"  quindi non devi Aprire una nuova maschera SAA.

togli queste righe

---

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "SAA"

DoCmd.OpenForm stDocName, , , stLinkCriteria

---

per quanto riguarda l'errore, devi quardare come si chiama l'oggetto che contiene la sottomaschera SAA e modificare il codice sostituendo SAA con il suo nome.

L'oggetto Sottomaschera/Sottoreport può non avere lo stesso nome della maschera che ingloba, potrebbe chiamarsi Incorporato1 o Figlio1 o come vuoi tu.

Ciao

Giorgio Rancati

Answer 4

Ciao Giorgio,

mi spiace ma sbaglio qualcosa e non funziona.

Allora io ho la sottomaschera SAA che fa riferimento alla maschera AA e sulla maschera AA ho un pulsante che dovrebbe richiamare la sottomaschera SAA e sbloccarla per permettere i cambiamenti in caso di errore di inserimento. Posto il codice del pulsante che sicuramente ho sbagliato inquanto riporta l'errore Impossibile trovare il metodo o il membro dati.

Private Sub Comando24_Click()

On Error GoTo Err_Comando24_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "SAA"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Me.SAA.Form.AllowEdits = True

Me.SAA.Form.AllowAdditions = True

Exit_Comando24_Click:

Exit Sub

Err_Comando24_Click:

MsgBox Err.Description

Resume Exit_Comando24_Click

End Sub

Answer 5

Ciao Giorgio,

Buona domenica.

Si l'ho bloccata impostando le proprietà. Appena posso lo provo, ma sono sicuro che funzionerà. Grazie