Newsgroup: it.comp.appl.access
Titolo: vbExclamation nella Funzione

ciao a tutti
 
vorrei utilizzare vbExclamation, " ecc, ecc,!!" nella funzione
qual'è la sintassi?
Grazie.

 qual'è la sintassi?
 
+
 
-- 
Ciao
Karl
*********
Access FAQ:  
http://www.donkarl.com/it
 
Access Lobby: 
http://www.AccessDevelopers.org
 
 
 


a dir la verita' lo fai usare a noi vbExclamation!!!
troppo concisa!
 
msgbox "prova",vbok+vbexclamation
 
prova a vedere 
http://www.exceltrick.com/formulas_macros/vba-msgbox/
 


grazie per l'aiuto
pero' non ci sono riuscito
 
es:
If IsNull(CliConOrdini) Or _
    CliConOrdini = "" Then
    'Il campo non puo' essere vuoto
    msg = "Devi inserire un nuovo Ordine!!!", + vbExclamation = "Attenzione!!!"
    Exit Function
End If
 
ma non va bene
 
 
 

msgbox  "Devi inserire un nuovo Ordine!!!",  vbExclamation, "Attenzione!!!"


Ciao francodel...,
prova queste, poi scegline una, tanto l'effetto e' lo stesso:
 
MsgBox "Devi inserire un nuovo Ordine!", vbExclamation, "Attenzione!"
MsgBox "Devi inserire un nuovo Ordine!", vbOkOnly + vbExclamation, "Attenzione!"
MsgBox "Devi inserire un nuovo Ordine!", vbOkOnly Or vbExclamation, "Attenzione!"
 
-- 
Ciao! :)
Maurizio

 msgbox  "Devi inserire un nuovo Ordine!!!",  vbExclamation, "Attenzione!!!"
 
grazie


però se ho questo codice:
Public Function _
Intervallo_DataInizio(Data As Variant, _
           ByRef msg As String) As Boolean
 
If IsNull(Data) Then
    'Il campo non puo' essere vuoto
    msg = "Devi inserire la Data Inizio!!!"
    Exit Function
End If
 
cioè "msg = ecc. ecc. "
come devo fare?
grazie.


ciao
cerco di intuire: se vuoi visualizzare una messagebox 
 
     ....
     msg = "Devi inserire la Data Inizio!!!"
     msgbox  msg,  vbExclamation, "Attenzione!!!"
     ....
 
     vedo che la funzione restiuisce un booleano quindi 
prima di exit Function     
funzione_xxx=FALSE
 
 

 come devo fare?
 
Ciao francodel..., 
se hai questo codice: 
 
Public Function Intervallo_DataInizio(ByVal Data As Variant, _ 
                                      ByRef msg As String) As Boolean 
  If IsNull(Data) Then 
    'Il campo non puo' essere vuoto 
    msg = "Devi inserire la Data Inizio!!!" 
    Exit Function 
  End If 
 
  ' ... 
End Function 
 
da qualche parte avrai, o dovrai avere, qualcosa del genere: 
 
Dim vntUnaData As Variant 
Dim strMsg     As String 
' 
' ... 
' 
  If Intervallo_DataInizio(vntUnaData, strMsg) = False Then 
    MsgBox strMsg, vbExclamation 
  End If 
 
-- 
Ciao! :) 
Maurizio


;-)
grazie Maurizio


grazie

 grazie Maurizio
 
Ciao francodel...,
grazie a te del riscontro.
 
-- 
Ciao! :)
Maurizio


ciao Maurizio
ho fatto cosi', ma qualcosa mi sfugge
perche' ho l'errore: "tipo non corrispondente"
 
Public Function _
Intervallo_DataInizio(Data As Variant, _
           ByRef msg As String, vbe As String) As Boolean
 
If IsNull(Data) Then
    'Il campo non puo' essere vuoto
    msg = "Devi inserire la Data Inizio!!!"
    vbe = "Attenzione!!!!"
    Exit Function
End If
 
Intervallo_DataInizio = True
End Function  
 
________________________________________
 
Dim msg_DataInizio As String
Dim vbe_DataInizio As String
 
If Not Intervallo_DataInizio(Me!DataInizio.Value, _
msg_DataInizio, vbe_DataInizio) Then MsgBox (msg_DataInizio), vbExclamation + (vbe_DataInizio), Me!DataInizio.SetFocus: Exit Sub


Ciao francodel...,
prova cosi':
 
Public Function Intervallo_DataInizio( _
  ByVal Data As Variant, _
  ByRef msg As String, _
  ByRef vbe As String) As Boolean
    If IsNull(Data) Then
      ' Il campo non puo' essere Null
      msg = "Devi inserire la Data Inizio!!!"
      vbe = "Attenzione!!!!"
      Exit Function
    End If
    Intervallo_DataInizio = True
End Function  
________________________________________
Dim msg_DataInizio As String
Dim vbe_DataInizio As String
If Intervallo_DataInizio(Me!DataInizio.Value, _
                         msg_DataInizio, _
                         vbe_DataInizio) = False Then 
  MsgBox msg_DataInizio, vbExclamation, vbe_DataInizio
  Me!DataInizio.SetFocus
  Exit Sub
 
-- 
Ciao! :)
Maurizio

 Maurizio
 
mancava solo end if
Grazie Maurizio

 Grazie Maurizio
