Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

AllowAdditions = False

61 views
Skip to first unread message

gabria...@gmail.com

unread,
Jun 1, 2019, 12:37:53 PM6/1/19
to
Salve
Vorrei che Access non presentasse il nuovo record in Maschera Continua,
mentre scrivo il record corrente.
La maschera ha di default il valore Me.AllowAdditions = False
Attraverso un pulsante "Aggiungi Record" cambio la proprietà e mi consente di aggiungere un record ma vorrei che non mi presentasse la riga del nuovo.

Dopo Aggiornamento di un campo ho aggiunto Me.AllowAdditions = False

e la riga sottostante sparisce. Ma come fare a non farla comparire durante la digitazione corrente?
.......
Grazie per la/le risposta/e ....

BFS

unread,
Jun 3, 2019, 5:26:53 AM6/3/19
to
non credo sia fattibile ma potresti simulare la cosa.

imposta allowadditions=false alla tua maschera continua
supponiamo che la prima textbox da compilare sia una textbox "pippo"

sul pulsante "aggiungi nuovo" scrivi

Me.AllowAdditions = True
DoCmd.GoToRecord acActiveDataObject, , acNewRec
Me.pippo= ""
Me.AllowAdditions = False
Me.pippo.SetFocus

in pratica consenti l'aggiunta
scrivi un carattere vuoto sul nuovo record
riblocchi le aggiunte
ti posizioni sul nuovo record appena creato

ciao
BFS

gabria...@gmail.com

unread,
Jun 3, 2019, 5:57:09 AM6/3/19
to
Ahahah... sono fuori casa e non l'ho provato...ma mi sa che l'hai fregato :-)
In queste ore avevo pensato qualcosa tipo inputbox o maschera di input per superare il problema.ma mi sa che questa soluzione è più ''indolore''
Grazie ciao. :-)

gabria...@gmail.com

unread,
Jun 3, 2019, 1:22:39 PM6/3/19
to
Ciao BF Qualcosa non va :-|
La form a maschere continue è una sottomaschera e il pulsante è nella Form Madre. La sottomaschera si chiama "Indicazioni"
Per cui:
Me.Indicazioni.Form.AllowAdditions = True
'Al momento di dare le istruzioni a GoToRecord credo abbia bisogno del
nome oggetto. Ho provato: diverse espressioni ma mi dà sempre oggetto non Aperto...
DoCmd.GoToRecord acActiveDataObject,"Indicazioni"
DoCmd.GoToRecord acActiveDataObject, "Forms!Indicazioni.form"
DoCmd.GoToRecord acActiveDataObject,"Indicazioni.Form."

Niente. Mi dice che che l'oggetto non è aperto.

BFS

unread,
Jun 4, 2019, 1:37:20 AM6/4/19
to
ok non avevi detto che era una sottomaschera
allora, se la sottomaschera si chiama "figlia"

nel pulsante aggiungi riga che hai sulla "madre"

Me.figlia.Form.AllowAdditions = True
Me.figlia.SetFocus
DoCmd.GoToRecord acActiveDataObject, , acNewRec
Me.figlia.Form.campotesto = ""
Me.figlia.Form.AllowAdditions = False
Me.figlia.Form.campotesto.SetFocus

ciao
BFS
0 new messages