Some coding help!!!

[deepaksharma]

My greetings to all of you.



I have created two forms in the attached program, one form shows the data list and the other form works to show date wise records.
For some reason the date wise search form (SearchS) is not working properly. I tried a lot but I can't find the reason properly.

Apart from this, when the search form (SearchF2) is opened directly, an arrow is showing in the column of offerDate, I am not able to remove it also. Please help me.
Thank you.

[June7]

Form OrderBy is set with [SearchQ].[OfferDate] and OrderByOnLoad is set to yes.

[deepaksharma]

Form OrderBy is set with [SearchQ].[OfferDate] and OrderByOnLoad is set to yes.

Thank you very much June.

Due to your suggestion the arrow shown in the picture has now been removed but why is the SearchS form not showing date wise results please help me.
Thank you.

[mike60smart]

Hi

I created a copy of your SearchQ Form and named it frmSearchResult

I removed the criteria from SearchQ

Then I modified the OnClick Event on your SearchS Form

[deepaksharma]

Hi

I created a copy of your SearchQ Form and named it frmSearchResult

I removed the criteria from SearchQ

Then I modified the OnClick Event on your SearchS Form

hello mike
Thank you very much for your help.
I replaced my code with your code and my problem was solved.
Can you please explain what is the difference between these two codes and what is the function of your third code with if statement.
Thanks again.

My code

    Dim strwhere        As Integer
    strwhere = "Offerdate BETWEEN #" & Me.cbxStart & "# And #" & Me.cbxend & "#"
    DoCmd.OpenForm "searchf2", acNormal, , strwhere
    DoCmd.Close acForm, "searchs"

Your's Code

          Dim strCrit As String

          If IsDate(Me.cbxStart) Then
          strCrit = strCrit & "([OfferDate] >= #" & Format(Me.cbxStart, "mm/dd/yyyy") & "#) AND "
          End If

          If IsDate(Me.cbxend) Then
          strCrit = strCrit & "([OfferDate] <= #" & Format(Me.cbxend, "mm/dd/yyyy") & "#) AND "
          End If

          If strCrit > "" Then
          strCrit = Left(strCrit, Len(strCrit) - 5)
          DoCmd.OpenForm "searchf2", acNormal, , strCrit
          DoCmd.Close acForm, "searchs"
          End If

[June7]

Mike's code allows filter if only one date value is provided. The last If only opens form if there is criteria but if you want to open anyway, move OpenForm and Close lines outside the If. Then the If will just remove trailing AND if there was criteria provided.


Review http://allenbrowne.com/ser-62.html

[deepaksharma]

thank you June and Mike.