Private Sub cmd_preview_Click()
    
    Dim badge As String
    
    cmb_nbadge.SetFocus
    
    If cmb_nbadge.Text = "" Then
        
        badge = ""
        
    Else
     
        badge = "AND QAccessi.NBADGE= '" & cmb_nbadge & "'"
    
    End If
    
    
    Dim group As String
    
    cmb_gruppo.SetFocus
    
    If cmb_gruppo.Text = "" Then
        
        group = ""
        
     Else
     
        group = "AND QAccessi.GRUPPO= '" & cmb_gruppo & "'"
    
    End If
    
    
    If Me.cmb_ord.Value = "DATA" Then
    
    StrSQL = "SELECT * FROM QAccessi" & _
    " WHERE QAccessi.GIORNO >=#" & Format$(Me.txtdadata, "dd/mm/yyyy") & "# AND QAccessi.GIORNO <= #" & Format$(Me.txtadata, "dd/mm/yyyy") & "# " & badge & " " & group & " ORDER BY QAccessi.GIORNO"
            
    Dim queryTemp As QueryDef
    For Each queryTemp In CurrentDb.QueryDefs
        If queryTemp.Name = "Qtempdata" Then
            DoCmd.DeleteObject acQuery, "Qtempdata"
            Exit For
        End If
    Next
    Set queryTemp = CurrentDb.CreateQueryDef("Qtempdata", StrSQL)
    
    'DoCmd.OpenQuery ("Qtempdata")
    
    DoCmd.OpenReport "rptaccdata", acViewPreview
    
    Else    
    
    DoCmd.OpenReport "rptaccpersona", acViewPreview
    
    End If
    
End Sub