Newsgroup: it.comp.appl.access
Titolo: chiudere/aprire maschere a specifici record

Buongiorno,
avrei bisogno di un aiuto su un comando che non funziona come vorrei, ma
non riesco a capire in che modo risolvere il problema.
In una maschera chiamata "AssignPosto", clicco il pulsante "inserisci
nuovo posto" e la maschera AssignPosto si chiude e si apre un'altra
maschera chiamata "EditPostoNew" in formato immissione dati. Questo mi
serve per aggiungere un record (un'"posto" nel mio caso), qualora non sia
stato ancora inserito. Un volta compilati tutti i campi, vorrei chiudere
la maschera in cui ho inserito il nuovo record (EditPostoNew) e riaprire
la maschera "AssignPosto" al record che ho appena inserito, in modo che mi
venga visualizzato tale record.
Per far questo, nella maschera "EditPostoNew" ho aggiunto un pulsante
"Esci" con il seguente codice (il campo ID_Posto, comune a entrambe le
maschere è la chiave primaria):
Private Sub cmdExit_Click()
On Error GoTo Err_cmdExit_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "AssignPosto"
    stLinkCriteria = "[ID_Posto]=" & "'" & Form_EditPostoNew!ID_Posto & "'"
 
 Form_EditPostoNew.Refresh
    DoCmd.Close
 
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
Exit_cmdExit_Click:
    Exit Sub
Err_cmdExit_Click:
    MsgBox Err.Description
    Resume Exit_cmdExit_Click
 
End Sub
Cliccando però tale pulsante mi compare il seguente errore, che non so
risolvere:
"L'azione OpenForm è stata annullata.
E' stato utilizzato un metodo dell'oggetto DoCmd per eseguire un'azione in
Visual Basic ma poi è stato scelto Annulla in una finestra di dialogo.
E' stato utilizzato, ad esempio, il metodo Close per chiudere una maschera
modificata, quindi è stato scleto Annulla nella finestra di dialogo in cui
viene richeisto se si desidera salvare le modifiche apportate alla
maschera."
Sapreste indicarmi come muovermi per risolvere questo punto o se ci sono
degli errori nel codice scritto?
Grazie per l'attenzione,
Gloria
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 wrote in message
bhq7qc$6ni$1...@news.newsland.it...

Se il campo ID_Posto è di tipo numerico prova così:
Private Sub cmdExit_Click()
On Error GoTo Err_cmdExit_Click
    Dim stLinkCriteria As String
    stLinkCriteria = "[ID_Posto]=" & Me!ID_Posto
    DoCmd.OpenForm "AssignPosto", , , stLinkCriteria
    DoCmd.Close acForm, "EditPostoNew"
Exit_cmdExit_Click:
    Exit Sub
Err_cmdExit_Click:
    MsgBox Err.Description
    Resume Exit_cmdExit_Click
End Sub
Se è invece di tipo testo prova così:
Private Sub cmdExit_Click()
On Error GoTo Err_cmdExit_Click
    Dim stLinkCriteria As String
    stLinkCriteria = "[ID_Posto]='" & Me!ID_Posto & "'"
    DoCmd.OpenForm "AssignPosto", , , stLinkCriteria
    DoCmd.Close acForm, "EditPostoNew"
Exit_cmdExit_Click:
    Exit Sub
Err_cmdExit_Click:
    MsgBox Err.Description
    Resume Exit_cmdExit_Click
End Sub
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 Roberto
Grazie, proverň nel modo che mi ha indicato.
E' stato molto gentile a rispondere,



Ciao Gloria,
volevo solo ricordarti che nei NewsGroups ci si dà del tu e non del lei, e
questo anche se il frequentatore con cui si sta dialogando (io) ha ormai
molti capelli bianchi. :-)


 desio


 ha scritto nel messaggio
news:3f44a...@news.dada.it...

E che ojo !!!
Antonio

 wrote in message
K241b.255164$Ny5.7...@twister2.libero.it...

E che Vin Santo !!! :-)
Roberto


I biscotti di Prato (quelli veri di "mattonella")sono buoni inzuppati nel
vin santo
desio da Prato