Newsgroup: it.comp.appl.access
Titolo: Re: unire piu' espressione


 
ho l'impressione che ne manchi uno
io farei cosi 
x=iif(nz(ncolli,0)=0,1,0)+iif(nz(prezzo,0)=0,2,0)+iif(nz(quantità,0)=0,4,0)
in x trovi valori che vanno da 0 a 7
quantita' e prezzo  a 0 fanno 6 (il valore che non testi)
 
-- 
ac (x=y-1)
Aborro il Killfile
(La violenza e' l'ultimo rifugio degli incapaci -Salvor Hardin-)
 
---
Questa e-mail è stata controllata per individuare virus con Avast antivirus.
https://www.avast.com/antivirus
 
 


grazie 1000


Ciao Alessandro
 
la tua espressione mi serve per questa funzione,
è possibile sintetizzarla evitando di lasciare
qualche pezzo?
grazie
 
 
Public Function Conf_Chiusura( _
  ByVal Data As Variant, _
  ByVal Targa As Variant, _
  ByVal ValCarichiChiusi As Variant, _
  TipoConfronto As Byte, _
  ByRef msg As String, _
  ByRef ban As String) As Boolean
 
 
    If IsNull(Data) And IsNull(Targa) And ValCarichiChiusi = 1 Then TipoConfronto = 1
    If IsNull(Data) And IsNull(Targa) And ValCarichiChiusi = 2 Then TipoConfronto = 2
    If IsNull(Data) And IsNull(Targa) And ValCarichiChiusi = 3 Then TipoConfronto = 3
    If IsNull(Data) And IsNull(Targa) And ValCarichiChiusi = 4 Then TipoConfronto = 4
ecc.ecc.
 
    If IsNull(Data) And Not IsNull(Targa) And ValCarichiChiusi = 1 Then TipoConfronto = 5
    If IsNull(Data) And Not IsNull(Targa) And ValCarichiChiusi = 2 Then TipoConfronto = 6
    If IsNull(Data) And Not IsNull(Targa) And ValCarichiChiusi = 3 Then TipoConfronto = 7
    If IsNull(Data) And Not IsNull(Targa) And ValCarichiChiusi = 4 Then TipoConfronto = 8
ecc. ecc.
 
    If Not IsNull(Data) And IsNull(Targa) And ValCarichiChiusi = 1 Then TipoConfronto = 9
    If Not IsNull(Data) And IsNull(Targa) And ValCarichiChiusi = 2 Then TipoConfronto = 10
    If Not IsNull(Data) And IsNull(Targa) And ValCarichiChiusi = 3 Then TipoConfronto = 11
    If Not IsNull(Data) And IsNull(Targa) And ValCarichiChiusi = 4 Then TipoConfronto = 12
ecc. ecc.
 
    If Not IsNull(Data) And Not IsNull(Targa) And ValCarichiChiusi = 1 Then TipoConfronto = 13
    If Not IsNull(Data) And Not IsNull(Targa) And ValCarichiChiusi = 2 Then TipoConfronto = 14
    If Not IsNull(Data) And Not IsNull(Targa) And ValCarichiChiusi = 3 Then TipoConfronto = 15
ecc. ecc.
 
 
    Select Case TipoConfronto
 
      Case Is = 1
        ' se la "Data" e "Targa" sono null e "ValCarichiChiusi" =1
        msg = "Manca la data Chiusura, Targa e numero Colli!!!"
        ban = "Chiusura Annullata!!!"
        Exit Function
 
      Case Is = 2
        ' se la "Data" e "Targa" sono null e "ValCarichiChiusi" =2
        msg = "Manca la data Chiusura, Targa, e Prezzo!!!"
        ban = "Chiusura Annullata!!!"
        Exit Function
 
      Case Is = 3
        ' se la "Data" e "Targa" sono null e "ValCarichiChiusi" =3
        msg = "Manca la data Chiusura, Targa, e numero Colli e Prezzo!!!"
        ban = "Chiusura Annullata!!!"
        Exit Function
 
ecc.
 


oooooohhhhh my!?
 
ma non fai prima a fare cosi':
 
x=iif(nz(campo1,0)=0,",descrizione1","") & ........ 
iif(nz(campoN,0)=0,",descrizioneN",""
 
if(x)<>"" then
     msgbox("Attenzione manca:" & mid(x,2) & vbcrlf & "Chiusura annullata"
   exit funtion
end if
 
 
sempre se ho capito la sostanza della cosa



ciao Alessandro
 
hai capito bene,
pero'ora mi devi aiutare a completare questa funzione e
dirmi come fare per richiamarla.
 


ciao Alessandro
 
è cosi' che si procede?
 
p.e.
Public Function Conf_Chiusura( _
  ByVal Campo1 As Variant, _
  ByVal descrizione1 As String, _
  ByVal CampoN As Variant, _
  ByVal descrizioneN As String, _
  ByVal x As Variant) As Boolean
 
  Campo1 = "Data"
  descrizione1 = "Manca la Data"
  CampoN = "Targa"
  descrizioneN = "Manca la Targa"
 
  x = IIf(Nz(Campo1, 0) = 0, ",descrizione1", "") & IIf(Nz(CampoN, 0) = 0, ",descrizioneN", "")
 
 
If (x) <> "" Then
     MsgBox ("Attenzione manca:" & Mid(x, 2) & vbCrLf & "Chiusura annullata")
   Exit Function
End If
 
 
Conf_Chiusura = True
End Function
 
ma poi non riesco a richiamarla...
 
grazie

 ma poi non riesco a richiamarla...
Una funzione come questa si chiama così:
 
Dim A As Boolean
A = Conf_Chiusura(Campo1, descrizione1, ...)
 
Bruno


grazie Bruno