Newsgroup: it.comp.appl.access
Titolo: Re: vedere i record anche se il campo è null

 "AND " & strQry & ".ImportoLordo"
 
Si puo solo indovinare:
 
" AND (Format(MiaData,'m') Like IIf(FiltroxMese=13,'*',FiltroxMese)"
" OR MiaData Is Null)"
 
Per ImportoLordo sarebbe lo stesso principio, però manca quasi tutto il 
contesto, cosa sarebbe strQry, quale sarebbe il criterio per il campo, 
perché è una stringa senza spazi per separare nomi e operatori, senza 
segno per continuare la riga ecc.
 
-- 
Ciao
Karl
*********
http://www.AccessDevCon.com
 
Access FAQ: 
http://www.donkarl.com/it
 


ciao Karl e grazie
 
questa è la query completa
 
  Dim ctl As Control
  Dim strSQL As String
  Dim StrORD As String
  Dim strWHE As String
  Dim varItm As Variant
  Dim strItems As String
  Dim strQry As String, strCtrl As String
 
  Me!Interruttore1.Caption = IIf(Me!Interruttore1 = 0, "Tutti", "Fornitori")
  strQry = IIf(Me!Interruttore1 = 0, "Qry_Importi", "G_Fornitori")
  strCtrl = IIf(Me!Interruttore1 = 0, "Mio", "Tot") & "Sconto"
 
  strSQL = vbNullString
  strSQL = strSQL & "SELECT " & strQry & ".IdCaricoX, "
  strSQL = strSQL & "Qry_Carichi_CliFo.IdCarico AS ID, "
  strSQL = strSQL & "Qry_Carichi_CliFo.MioRif AS [Mio Rif], "
  strSQL = strSQL & "Qry_Carichi_CliFo.Cliente, "
  strSQL = strSQL & "Qry_Carichi_CliFo.Fornitore, "
  strSQL = strSQL & "Qry_Carichi_CliFo.MiaData AS Carico, "
  strSQL = strSQL & "Qry_Carichi_CliFo.DataChiusura AS Chiusura, "
  strSQL = strSQL & "DettaglioSconti.IdSconto AS [%S], "
  strSQL = strSQL & "DettaglioSconti.IdSconto1 AS [%S1], "
  strSQL = strSQL & "DettaglioSconti.IdSconto2 AS [%S2], "
  strSQL = strSQL & "DettaglioSconti.ScxnColli AS [Scxn°Colli], "
  strSQL = strSQL & "Space(18-Len(Format(ImportoLordo,'#,##0.00 €;-#,##0.00 €'))) & Format(ImportoLordo,'#,##0.00 €;-#,##0.00 €') AS [Imp Lordo], "
  strSQL = strSQL & "Space(13-Len(Format(" & strQry & "." & strCtrl & ",'#,##0.00 €;-#,##0.00 €'))) & Format(" & strQry & "." & strCtrl & ",'#,##0.00 €;-#,##0.00 €') AS Sconto, "
  strSQL = strSQL & "Space(13-Len(Format(" & strQry & ".ScontoAg,'#,##0.00 €;-#,##0.00 €'))) & Format(" & strQry & ".ScontoAg,'#,##0.00 €;-#,##0.00 €') AS [Sconto Ag], "
  strSQL = strSQL & "Space(18-Len(Format(" & strQry & ".Netto,'#,##0.00 €;-#,##0.00 €'))) & Format(" & strQry & ".Netto,'#,##0.00 €;-#,##0.00 €') AS Netto, "
  strSQL = strSQL & "Space(13-Len(Format(" & strQry & ".Spese,'#,##0.00 €;-#,##0.00 €'))) & Format(" & strQry & ".Spese,'#,##0.00 €;-#,##0.00 €') AS Spese, "
  strSQL = strSQL & "Qry_Carichi_CliFo.IdCliente, "
  strSQL = strSQL & "Qry_Carichi_CliFo.IdFornitore "
  strSQL = strSQL & "FROM (Qry_Carichi_CliFo INNER JOIN " & strQry & " ON Qry_Carichi_CliFo.IdCarico = " & strQry & ".IdCarico) "
  strSQL = strSQL & "INNER JOIN DettaglioSconti ON Qry_Carichi_CliFo.IdCarico = DettaglioSconti.IdCarico "
  strSQL = strSQL & "WHERE Qry_Carichi_CliFo.IdCliente Like CboCliente "
  strSQL = strSQL & "AND Qry_Carichi_CliFo.IdFornitore Like CboFornitore "
  strSQL = strSQL & "AND Format(Qry_Carichi_CliFo.MiaData,'m') Like IIf(FiltroxMese=13,'*',FiltroxMese) "
  strSQL = strSQL & "OR Qry_Carichi_CliFo.MiaData Is Null "
  strSQL = strSQL & "AND " & strQry & ".ImportoLordo "
 
  Select Case Me!Cornice2.Value
    Case Is = 1:  strWHE = " Like '*' "   ' '*'
    Case Is = 2:  strWHE = " <>0 "        ' <>0
    Case Is = 3:  strWHE = " =0 "         ' =0
 
  End Select
 
  strSQL = strSQL & strWHE
 
  Set ctl = Me!LstElencoCarichi
 
  If ctl.ItemsSelected.Count <> 0 Then
    For Each varItm In ctl.ItemsSelected
      strItems = strItems _
        & ctl.Column(0, varItm) & ","
    Next
 
    strItems = Left$(strItems, Len(strItems) - 1)
    strSQL = strSQL & "AND " & strQry & ".IdCaricoX IN (" & strItems & ")"
 
  End If
 
  strSQL = strSQL & "ORDER BY"
 
  Select Case Me!Cornice1.Value
    Case Is = 1:  StrORD = " 2 DESC;"   ' Id
    Case Is = 2:  StrORD = " 4, 6;"     ' Cliente
    Case Is = 3:  StrORD = " 5;"        ' Fornitore
    Case Is = 4:  StrORD = " 6 DESC;"   ' Data
    Case Is = 5:  StrORD = " 8;"        ' Sconto
    Case Is = 6:  StrORD = " 9;"        ' Sconto1
    Case Is = 7:  StrORD = " 10;"       ' Sconto2
    Case Is = 8:  StrORD = " 11;"       ' Importo lordo
 
  End Select
 
  strSQL = strSQL & StrORD
  ctl.RowSource = strSQL
 

 ...
 
Orribile da leggere e quasi impossibile da mantenere tutta questa roba, 
ma credo che qui potresti aggiungere:
 
strSQL = strSQL & " OR " & strQry & ".ImportoLordo Is Null)"



grazie