[Access] maschera su proprietà modifiche "No" controlli restano liberi

Question

Ciao a tutti,

in una maschere ho 1 casalla combinatqa mittente assocciata ad un altra casella combinata codicemittente ed una casella destinatario assocciata ad una casella combinata CodiceDestinatario.

nelle caselle codice diguito un numero che mi inserisce in automatico un indirizzo che posso ache scegliere a tendina o scrivere liberamente.

Il mio problema è che questi controlli si trovano in una sottomaschera impostata con prioprietà modifiche "NO".

oggi mi sono accorto che se riapro la maschera in tempi successivi e conseguentemente dovrebbe essere immodificabile se clicco su una delle due caselle indirizzi la maschera si sblocca permettendo modifiche.

ho provato a procedere in questo modo ma con nessun risultato

Private Sub destinatario_AfterUpdate()

If Me.NewRecord = False Then Exit SubEnd Sub

end sub

Private Sub mittente_AfterUpdate()

If Me.NewRecord = False Then Exit SubEnd Sub

end sub

le suindicate routine le ho messe, debitamente corrette nel nome del controllo anche per i campi codice

poi ho provato anche nel modo seguente , ma sempre senza nessun risultato.

Private Sub Form_AfterUpdate()

Me.CombinataMittente.Locked = True

Me.CobinataSezione.Locked = True

Me.DataPartenza.Locked = True

Me.Destinatario.Locked = True

End Sub

qualcuno può aiutarmi a risolvere il mio ennesimo problema? Grazie

Answer 1

Ciao Cinzia no non ho nessun evento su click quel codice lo esegue quando digito in una casella di testo un numero e corrisponde a quello assegnato al mittente

ho momentaneamente risolto in questo creando un altra casella di testo non assocciata e li ho messo su attivato  Me.mittente = DLookup("ufficio", "Tbl_utenti", "Utente = """ & Me!utente & """")

ora la proprietà impostante consenti modifiche "no" vengono rispettate.

L'unica cosa è che vorrei nascondere la casella di testo che ho aggiunto ma se imposto su visibile "NO" non funziona.

per ora la ho messa visibile picolissima sotto la casella destinatario.

Answer 2

Ciao Luca,

hai qualche routine evento sul click del campo mittente o sul click del Form?

Questo codice : Me.mittente = DLookup("ufficio", "Tbl_utenti", "Utente = """ & Me!utente & """")   quando viene eseguito?

---

Cinzia

---

Sito RIO

Il mio Blog

Answer 3

Ciao Cinzia

si la situazione è quella che hai  descritto tu. ora ho provato a fare una variazione alla struttura un campo mittente viene assegnato in automatico prendendendo il dato dalla tbella utenti campo "Ufficio"

grazie a questo codice

Me.mittente = DLookup("ufficio", "Tbl_utenti", "Utente = """ & Me!utente & """")

Il campo destinatario viene assegnato digitanto un numero assocciato ad un indirizzo in un altra casella di testo utilizzando questo codice

Private Sub CombinataSezione_AfterUpdate() ' anche se è chiamata casella combinata è una casella di testo ho cambiato le proprietà con cambia in casella di testo 

Destinatario = DLookup("[destinatario]", "[indirizzidestinatario]", "[sezione]=Forms![MAschera1]![maschera2]!CobinataSezione")

End Sub

in linea di massima il tutto funziona e la maschera rimane bloccata il problema sorge se vado a cliccare il campo mittente, quest'ultimo rimane non modificabile anche perchè il controllo è impostato su bloccato, ma il solo fatto di cliccarci sopra sblocca nuovamente i restanti campi

Spero di essere stato più chiaro. Grazie

Answer 4

Ciao Luca,

non mi è molto chiaro lo scenario operativo:

queste 4 caselle combinate

casalla combinatqa mittente assocciata, casella combinata codicemittente, casella destinatario  e casella combinata CodiceDestinatario,

si trovano nella maschera principale o nella sottomaschera?

Se la sottomaschera ha l'impostazione Consenti Modifiche = NO allora nessun controllo della sottomaschera è modificabile dall'utente, ma può esseere modificato via codice, le istruzioni che hai messo non servono perchè le hai messe sull'evento AfterUpdate, per cui dopo che la modifica è già avvenuta e comunque intervengono solo su una modifica da parte dell'operatore e non da parte del codice.

Probabilmente hai da qualche parte nel codice una istruzione che imposta AllowEdit=true sulla sottomaschera, oppure da qualche parte vai ad assegnare un valore ad un campo contenuto nella sottomaschera che automaticamente resetta la proprietà AllowEdits.

---

Cinzia

---

Sito RIO

Il mio Blog