Newsgroup: it.comp.appl.access
Titolo: Apertura form in una funzione..

Salve a tutti..Ho un problema:
all'interno della funzione esporta(),nel mio database, ho bisogno ad un 
certo punto di aprire una maschera che mi faccia vedere il venduto che 
sto esportando,dopo di che l'utente,grazie al tasto continua o 
annulla,decide se corretto e decide:se CONTINUA la form deve chiudersi 
e continuare la funzione,se ANNULLA deve uscire dalla funzione..
PROBLEMA:ho creato tutto,ma quando all'interno della funzione apro la 
maschera,il codice continua all'interno della funzione,mentre avrei 
bisogno di interromperlo fisicamente per farmi dire dall'utente se 
continuare o no!
Come posso risolverlo?Come posso agire x avere questo risultato?
Grazie 1000!
Inviato da 
www.mynewsgate.net

 ha scritto
nel messaggio
news:200408270...@mynewsgate.net...

Spezza il codice e subordina il continuo alla
richiesta sì/no della maschera aperta.
Oppure apri la maschera in modalità acdialog
MAssimilaino

 Oppure apri la maschera in modalità acdialog
E qui purtroppo non si ferma comunque.
Ciao
MArco
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 E qui purtroppo non si ferma comunque.
Sì ma anche aprendo in modalità dialogo devi
subordinare al si/no
MAssimiliano

 ha scritto nel messaggio
news:200408270...@mynewsgate.net...

Con un While...Wend e due variabili booleane.
In un modulo pubblico
Global Continua as Boolean
Global ContinuaSi as Boolean
Un esempio:
Global Continua As Boolean
Global ContinuaSi As Boolean
Public Sub MiaFunzione()
Continua = False
ContinuaSi = False
DoCmd.OpenForm "TuaMaschera"
While Continua = False
DoEvents
Wend
If ContinuaSi = True Then
MsgBox "ora il codice continua"
Else
Exit Sub
End If
MsgBox "Se il codice non si arresta mostra questo messaggio"
End Sub
Nella maschera (qui ho usato un gruppo di opzioni ma è lo stesso):
Private Sub Cornice2_Click()
    If Me.Cornice2 = 1 Then
    Continua = True
    ContinuaSi = True
    '...altro codice
    Else
    Continua = True
    ContinuaSi = False
    '...altro codice per esempio per chiudere maschera1
    End If
End Sub
Ciao, Carlo

 ha scritto nel messaggio
news:200408270...@mynewsgate.net...

Ti indico come io gestisco queste cose:
Apro la Form in modalità acDialog, quando dovrei chiuderla
in realtà eseguo un Me.Visible=False
Questo riporta il controllo alla Funzione che precedentemente
ha chiamato l'apertura della Form in modalità acDialog.
Quì hai diverse possibilità, io nella Form creo una Proprietà
personalizzata con:
'--------------------------------------------------------------
'//    Nella Form di selezione VENDUTO
'//    A livello di Modulo nella Form
Dim m_ret as Long
Public Property Get retValue() as Long
    retValue=m_ret
End Property
Private Sub Domanda()
    dim strMsg as string
    strmsg=msgbox("Annulla o Continua"),vbyesNo,"Scegli"
    if strmsg=vbYes then m_ret="Annulla"
    if strmsg=vbNo then m_ret="Continua"
    me.Visible=False
End sub
'--------------------------------------------------------------
'//    Dalla Form originale ora che riprende il controllo leggi
'//    il valore della Proprietà:
If Forms!NomeForm.retValue="Annulla" then
    docmd.close acForm,"NomeForm"
    Exit Function
Elseif Forms!NomeForm.retValue="Continua"
    docmd.close acForm,"NomeForm"
    'quì fai quello che credi
End if
Questa soluzione è apparentemente più complessa, ma è
pulita e non ti impone di diffondere variabili Public in giro
per il progetto.
Ciao.
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------