Private Sub Form_Open(Cancel As Integer)
Dim strSQL As String
Dim temp As Integer
Dim inizio As Date
Dim fine As Date


'temp = 0
temp = 1
strSQL = "SELECT Scarti.Data, Scarti.Macchina, Scarti.Linea, Scarti.Dimensione, Scarti.Causale, Scarti.kg FROM Scarti "

inizio = DateValue(Form_Seleziona.DTPicker0.Value)

fine = DateValue(Form_Seleziona.ActiveXCtl1.Value)

strSQL = strSQL & " WHERE Scarti.Data>='" & inizio & "' AND Scarti.Data<='" & fine & "'"

If Len(Form_Seleziona.Macchina.Value) > 0 Then
'strSQL = strSQL & " WHERE Scarti.Macchina='" & Form_Seleziona.Macchina.Value & "'"
strSQL = strSQL & " AND Scarti.Macchina='" & Form_Seleziona.Macchina.Value & "'"
temp = 1
End If

If Len(Form_Seleziona.Linea.Value) > 0 Then

    If temp > 0 Then
        strSQL = strSQL & " AND Scarti.Linea='" & Form_Seleziona.Linea.Value & "'"
    Else
        strSQL = strSQL & " WHERE Scarti.Linea='" & Form_Seleziona.Linea.Value & "'"
        temp = 1
    End If
    
End If

If Len(Form_Seleziona.Causale.Value) > 0 Then

    If temp > 0 Then
        strSQL = strSQL & " AND Scarti.Causale='" & Form_Seleziona.Causale.Value & "'"
    Else
        strSQL = strSQL & " WHERE Scarti.Causale='" & Form_Seleziona.Causale.Value & "'"
        temp = 1
    End If
    
End If

MsgBox strSQL, 0

Me.RecordSource = strSQL


End Sub