Torna al Thread
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