Solved VBA Clear all data (1 Viewer)

[Rania01]

Please help how to resolved this issue

I made Command button to clear the value on search by date and showing all data again
I get an error 2580

I use below VBA

Private Sub CDMClear_Click()
Dim task As String

Me.DateFrom = Null
Me.DateTo = ""

task = "select * from qrySearch order by [ProdDate]"
Me.RecordSource = task

End Sub

 

[Gasman]

And what is your issue?

 

[Rania01]

I get an error 2580

 

[Gasman]

I get an error 2580

And that is what exactly?

Please show the code for the Search as well.
Even the initial recordsource of the form.

 

[Rania01]

Private Sub cmdSearch_Click()
Call Search
End Sub



Private Sub Search()
Dim strCriteria, task As String

    Me.Refresh
    If IsNull(Me.DateFrom) Or IsNull(Me.DateTo) Then
        MsgBox "Please Enter Date Range", vbInformation, "Date Range Required"
        Me.DateFrom.SetFocus
    Else
        strCriteria = "[ProdDate] BETWEEN " & Format(Me.DateFrom, strcJetDate) & " AND " & Format(Me.DateTo, strcJetDate)
        Debug.Print strCriteria
        Me.Filter = strCriteria
        Me.FilterOn = True


End If
End Sub

 

[bastanu]

Because you have a spelling in the query name...you're missing the "y"

 

[Gasman]

So just set Filter to "" and FilterOn to False ?
You can still set the controls to "" or Null ? to remove the last entries

 

[Gasman]

Private Sub cmdSearch_Click()
Call Search
End Sub



Private Sub Search()
Dim strCriteria, task As String

    Me.Refresh
    If IsNull(Me.DateFrom) Or IsNull(Me.DateTo) Then
        MsgBox "Please Enter Date Range", vbInformation, "Date Range Required"
        Me.DateFrom.SetFocus
    Else
        strCriteria = "[ProdDate] BETWEEN " & Format(Me.DateFrom, strcJetDate) & " AND " & Format(Me.DateTo, strcJetDate)
        Debug.Print strCriteria
        Me.Filter = strCriteria
        Me.FilterOn = True


End If
End Sub

BTW, you have not Dimmed your variables correctly.

strCriteria will be a Variant and task the only string variable.
You MUST define each a type, else they become Variant.

 

[Rania01]

Because you have a spelling in the query name...you're missing the "y"

bastanu you're right

Thank you​

 

[bastanu]

 

[Rania01]

thank all of you for your help