OsvaldoLaviosa ha scritto:
1. Ti serve sicuramente una query.
2. In essa includi tutti e 30 i campi Sì/No, sia i (diciamo) 4 campi testo.
3. Vai a Criterio del primo campo e lo imposti True.
4. Scendi nel rigo sottostante il primo Criterio e al 2° campo metti True.
5. Scendi nel rigo sottostante Criterio e al 3° campo metti True.
6. Così via...scendi sempre un rigo sottostante e passi al campo successivo per impostare il tuo Criterio. Per i campi tipo testo, scriverai Not IsNull.
7. Salva ed esegui la query che restituirà il risultato da te atteso.
Ciao ho ripreso il tuo consiglio e ho creato una query che funziona correttamente, ora dovrei sfruttarla in VBA per un semplice IF, girando in rete ho trovato che questo è fattibile creando una piccola funziona e richiamandola e così ho fatto ma senza il risultato sperato:
la funzione, che per correttezza riporto che è di @alex su un altro forum, è:
Function QueryExist(NomeQuery As String) As Boolean
On Error GoTo ERR_NOTEXIST
Dim strSQL As String
QueryExist = False
strSQL = CurrentDb.QueryDefs(NomeQuery).SQL
QueryExist = True
EXIT_HERE:
Exit Function
ERR_NOTEXIST:
Resume EXIT_HERE
End Function
ed io la richiamo con questo semplice IF su clic
if QueryExist ("anmnesipositiva")then
msgbox("positiva")
else
msgbox("negativa")
end if
Ottengo sempre il msgbox "positiva" anche quando provando la query ottengo zero righe, dove sto sbagliando? grazie dell'aiuto