Newsgroup: it.comp.appl.access
Titolo: Una Msg Box per molti criteri...

Ciao a tutti ho una maschera di ricerca e con un pulsante
Trova eseguo tutti i criteri di ricerca sottoriportati...
non tutti insieme... digito normalmente il Cognome e Nome
oppure il Codice regionale etc...
ma mi farebbe comodo avere una Msg Box che indica
se uno qualsiasi dei criteri di ricerca č nullo....
grazie per l'aiuto.....
-------------------------------------------------------------
Private Sub Comando63_Click()
Dim Criteria As String
Criteria = ""
If Not IsNull(Me!Pippo1) Then
    Criteria = "Cognome=" & Chr$(34) & _
    Me!Pippo1 & Chr$(34)
If Not IsNull(Me!Pippo2) Then
    If Criteria <> "" Then
        Criteria = Criteria & " AND "
    End If
    Criteria = Criteria & "Nome=" & Chr$(34) & _
    Me!Pippo2 & Chr$(34)
End If
If Not IsNull(Me!Pippo3) Then
    If Criteria <> "" Then
        Criteria = Criteria & " AND "
    End If
    Criteria = Criteria & "[Codice_Regionale]=" & _
    Chr$(34) & Me!Pippo3 & Chr$(34)
End If
If Not IsNull(Me!Pippo4) Then
    If Criteria <> "" Then
        Criteria = Criteria & " AND "
    End If
    Criteria = Criteria & "[N_Protocollo] Like" & _
        Chr$(34) & Me!Pippo4 & Chr$(34)
End If
If Not IsNull(Me!Pippo5) Then
    If Criteria <> "" Then
        Criteria = Criteria & " AND "
    End If
    Criteria = Criteria & "Nascita= #" & _
    Format(Me!Pippo5, "mm/dd/yyyy") & "#"
End If
Me.Filter = Criteria
Me.FilterOn = True
End Sub
-------------------------------------------------

"SuperPippoŽ" <ik0qd...@SPAMlibero.it> ha scritto nel messaggio
news:ju%ha.606$mg5....@twister2.libero.it...

A parte il fatto che mi sembra che nel codice che hai postato manca una End
If , prova cosě:
Private Sub Comando63_Click()
Dim Criteria As String
Criteria = ""
If Not IsNull(Me!Pippo1) Then
    Criteria = "Cognome=" & Chr$(34) & _
    Me!Pippo1 & Chr$(34)
Else
    MsgBox "Manca la ricerca sul cognome"
End If
If Not IsNull(Me!Pippo2) Then
    If Criteria <> "" Then
        Criteria = Criteria & " AND "
    End If
    Criteria = Criteria & "Nome=" & Chr$(34) & _
    Me!Pippo2 & Chr$(34)
Else
    MsgBox "Manca la ricerca sul nome"
End If
If Not IsNull(Me!Pippo3) Then
    If Criteria <> "" Then
        Criteria = Criteria & " AND "
    End If
    Criteria = Criteria & "[Codice_Regionale]=" & _
    Chr$(34) & Me!Pippo3 & Chr$(34)
Else
    MsgBox "Manca la ricerca sul codice regionale"
End If
If Not IsNull(Me!Pippo4) Then
    If Criteria <> "" Then
        Criteria = Criteria & " AND "
    End If
    Criteria = Criteria & "[N_Protocollo] Like" & _
        Chr$(34) & Me!Pippo4 & Chr$(34)
Else
    MsgBox "Manca la ricerca sul numero di protocollo"
End If
If Not IsNull(Me!Pippo5) Then
    If Criteria <> "" Then
        Criteria = Criteria & " AND "
    End If
    Criteria = Criteria & "Nascita= #" & _
    Format(Me!Pippo5, "mm/dd/yyyy") & "#"
Else
    MsgBox "Manca la ricerca sulla data di nascita"
End If
Me.Filter = Criteria
Me.FilterOn = True
End Sub
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 End If
[CUT]
---------
Ciao Roberto... non sò... forse la End If me la sono persa con
il taglia-Incolla...:(..ti ringrazio cmq sempre della tua disponibilità..
ma penso di essermi spiegato male... il tuo codice funziona..
solo che per effettuare le ricerche normalmente digito solo il Cognome
e Nome... e poi dal tuo codice escono i restanti avvisi che mancano..
nel caso di dubbio si digita solo il codice regionale .... etc. etc...
a me servirebbe un avviso unico... tipo " l'utente inserito non è nel
database"
indipendentemente da tipo di casella utillizzata...
spero di essere stato chiaro...
ciao...

"SuperPippo®" <ik0qd...@SPAMlibero.it> ha scritto nel messaggio
news:7Igia.2930$nD4....@twister1.libero.it...

Allora inserisci in testa al tuo codice, prima delle altre righe,
quest'altro codice VBA:
If IsNull(Me!Pippo1) Or IsNull(Me!Pippo2) _
Or IsNull(Me!Pippo3) Or IsNull(Me!Pippo4) _
Or IsNull(Me!Pippo5) Then
    MsgBox "Non sono stati digitati tutti i parametri"
End If


 End If
--------------------
ummh non va Roberto..nel senso che se digito solo il Cognome
e Nome mi dice sempre con un avviso che...
" manca la ricerca sui restanti campi.." fino al termine, e poi mi
esce il risultato...
forse non mi sono spiegato bene.. i campi di ricerca sono 5...
supponiamo che voglia trovare l'utente digitando solo il codice
regionale... se esiste nel DB lo deve tirare fuori senza altri avvisi
se non esiste nel db deve uscire la msg box di errore indipendentemente
dal campo usato... forse non è possibile fare questa routine ???
Ciao...

 Ciao...


 L'importante è sapere con esattezza cosa vuoi!!
scusami Roberto... hai ragione... (come sempre)...
il fatto è che ci ho pensato dopo che non potevano apparire
tutte quelle finestrelle ma bastava un avviso per tutte...
provato e funziona egregiamente....
ma ti chiedo se è possibile far comparire il simbolo di errore
tipo quello rosso col cerchio... oppure... e questo lo chiedo anche per
approfondire in Access... è per caso possibile cambiare il formato
della casella di errore e magari i caratteri + grandi ???
Ciao.!!

 Ciao.!!


 tue libidini grafiche.
----------
scusa se ti rompo ancora Roberto...ho provato a fare una maschera
a parte ove ho inserito una bella casella di testo ed ho dato sfogo
alle mie... ummhhh libidini .. grafiche...
ma per farla apparire cliccando sempre sul bottone Trova in caso di
mancata ricerca come faccio ??
arigrazieeee....
Ciao...

"SuperPippo®" <ik0qd...@SPAMlibero.it> ha scritto nel messaggio
news:8A_ia.3839$iy5.1...@twister2.libero.it...

Togli la riga di codice VBA:
MsgBox "Criteri di ricerca non verificati", vbCritical+vbOKOnly,
"Segnalazione sui parametri"
ed al suo posto scrivi:
DoCmd.OpenForm "NomeTuaMaschera", , , , , acDialog
Ricordati che la tua maschera  deve avere le proprietà Popup e A scelta
obbligatoria impostate a Si.


 scelta obbligatoria impostate a Si.
----------------
grazie Roberto..fatto tutto...!!!
funziona perfettamente...non ti rompo + per altre richieste..
che mi occorrerebbero per un report...
riposterò il messaggio successivamente in NG...
ti ringrazio e ti auguro un ottimo fine settimana...
di nuovo... Ciao....