Newsgroup: it.comp.appl.access
Titolo: Pulsante con 2 funzioni

Vorrei inserire, nella maschera CARICA DOC ACQUISTO, un pulsante di comando 
che faccia la domanda: SUDDIVEDERE I COSTI PER AUTOMEZZO?
e a seconda della risposta:
se SI': aprire la maschera COSTI AUTOMEZZI
se NO: chiudere la maschera (in verità l'ideale sarebbe mi chiedesse, prima 
di chiudere, se voglio chiudere o caricare una nuova fattura.....)
Qualcuno ha già affrontato la questione? Con i criteri delle query, che un 
po' ti lanciano questo genere di messaggi, mi trovo bene e pensavo di far 
aprire dal pulsante una query ma non credo sia l'operazione corretta.
-- 
Giorgia 


dim domanda as variant
domanda = msgbox("La tua domanda", vbYesNo)
if vbYes then
  'cose da fare se risponde sì
else
  ' cose da fare se risponde no
end if
Io di solito faccio così, sull'evento "click" del pulsante


sbagliato..
if domanda = vbYes

Francesco ha scritto:

ed io invece faccio cosi'
domanda = msgbox("La tua domanda", vbYesNoCancel+vbdefaultbutton3)
if domanda=vbYes then
    'cose da fare se risponde sì
  elseif domanda=vbNo then
    ' cose da fare se risponde no
  else
     ' cose da fare per annulla
end if
--
ac

 ha scritto nel messaggio 
news:4bff3200-c87b-4723...@y9g2000yqg.googlegroups.com...

sbagliato..
if domanda = vbYes
Vabbe....se vogliamo io non utilizzo neanche la variabile "domanda".. e 
controllo
If MsgBox("Conferma?",vbYesNo)=vbYes Then
    ......
Else
   .....
End if
La risposta sta nel fatto che si puo' usare MsgBox sia come procedura che 
funzione,
poi il fatto che ci siano vari tipi di pulsanti e di finestre é un altro 
aspetto.

 ha scritto nel messaggio 
news:49d0a3ae$0$1105$4faf...@reader4.news.tin.it...

Credo ci sia un errore dopo Else.....ma dove?
Private Sub SUDDIVIDI_COSTO_Click()
If MsgBox("VUOI SUDDIVEDERE COSTO PER AUTOMEZZO?", vbYesNo) = vbYes Then
   On Error GoTo Err_SUDDIVIDI_COSTO_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "COSTI AUTOMEZZI"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_SUDDIVIDI_COSTO_Click:
    Exit Sub
Err_SUDDIVIDI_COSTO_Click:
    MsgBox Err.Description
    Resume Exit_SUDDIVIDI_COSTO_Click
Else
  On Error GoTo Err_SUDDIVIDI_COSTO_Click
    DoCmd.Close
Err_SUDDIVIDI_COSTO_Click:
    MsgBox Err.Description
    Resume Exit_SUDDIVIDI_COSTO_Click
End If
End Sub

 Credo ci sia un errore dopo Else.....ma dove?
Solo?
 Private Sub SUDDIVIDI_COSTO_Click()
On Error GoTo Err_SUDDIVIDI_COSTO_Click
 Dim stDocName As String
Dim stLinkCriteria As String
If MsgBox("VUOI SUDDIVEDERE COSTO PER AUTOMEZZO?", vbYesNo) = vbYes Then
   stDocName = "COSTI AUTOMEZZI"
   DoCmd.OpenForm stDocName, , , stLinkCriteria
else
   DoCmd.Close
End If
Exit_SUDDIVIDI_COSTO_Click:
               Exit Sub
Err_SUDDIVIDI_COSTO_Click:
      MsgBox Err.Description
      Resume Exit_SUDDIVIDI_COSTO_Click
 End Sub
-- 
Ciao
Geppo 

"geppo" <c...@tin.it.invalid> ha scritto nel messaggio 
news:vAbAl.203714$Ca.3...@twister2.libero.it...

Fantastico Geppo!
Mi sai solo suggerire se posso ancora concatenare alla risposta NO, la 
domanda "CARICARE NUOVA FATTURA?" e se SI? la maschera rimane aperta mentre 
se NO si chiuderà?
O forse mi conviene creare un pulsante affianco con la nuova domanda....
Grazie, Giorgia 

 Grazie, Giorgia
prego
-- 
Ciao
Geppo 

 ha scritto nel messaggio 
news:49d0de5e$0$844$4faf...@reader5.news.tin.it...

Ma quanti copia e incolla ... fritto misto.
Private Sub SUDDIVIDI_COSTO_Click()
On Error GoTo Err_SUDDIVIDI_COSTO_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    If MsgBox("VUOI SUDDIVEDERE COSTO PER AUTOMEZZO?", vbYesNo) = vbYes Then
        stDocName = "COSTI AUTOMEZZI"
        DoCmd.OpenForm stDocName, , , stLinkCriteria
    Else
        'DoCmd.Close     'E' necessario? Cosa vuoi chiudere?
    End if
Exit_SUDDIVIDI_COSTO_Click:
    Exit Sub
Err_SUDDIVIDI_COSTO_Click:
    MsgBox Err.Description
    Resume Exit_SUDDIVIDI_COSTO_Click
End Sub