September 6, 2008 09:39pm pdt

1. capricorn1 842,755
2. LSMCons... 451,109
3. boag2000 418,364
4. DatabaseMX 323,032
5. peter57r 295,565
6. harfang 264,026
7. jimhorn 170,911
8. matthews... 135,645
9. TextReport 130,246
10. MikeToole 114,323
11. omgang 97,947
12. frankytee 91,914
13. koutny 90,035
14. angelIII 79,170
15. Rick_Ric... 71,927
16. GRayL 70,880
17. eghtebas 65,987
18. ee_rlee 62,522
19. irudyk 62,160
20. LennyGray 61,992
21. rorya 61,932
22. hnasr 59,055
23. cactus_d... 55,098
24. jefftwilley 54,222
25. wiswalld 53,743

1. capricorn1 1,463,600
2. LSMCons... 683,228
3. DatabaseMX 625,757
4. peter57r 533,074
5. boag2000 458,276
6. harfang 445,574
7. jimhorn 366,901
8. jefftwilley 350,437
9. matthews... 284,909
10. mbizup 243,400
11. frankytee 227,167
12. stevbe 220,614
13. MikeToole 219,373
14. omgang 170,182
15. GRayL 156,686
16. rockiroads 151,183
17. LPurvis 135,020
18. TextReport 130,746
19. JDettman 122,440
20. angelIII 122,228
21. ragoran 112,130
22. koutny 105,060
23. Rick_Ric... 95,527
24. eghtebas 93,562
25. dqmq 89,656

06.16.2008 at 07:55AM PDT, ID: 23488336

	[x] Attachment Details

Access Database Search Function for Date

Asked by Dingo212 in Access Coding/Macros, Microsoft Access Database, Access Forms

Tags: Microsoft, Access, 2003

Hello all,

I would like to develop a date search from Form in Access. Here is the sample of previous search coding I have developed used the help of experts on this site.

I do want to develop something similar. From my research I gathered something like this that would go under the cmbSearch_Click function

- Date is the title of the date column and Entry is the title of the Table where the dates are stored. The dates are listed as MM/DD/YYYY in the table

If Not IsNull(txtDate) AND IsDate(txtDate) Then
GCriteria6 = "SELECT Entry.* FROM Entry" _
& " WHERE Format([Date],'dd/mm/yyyy')= #" _
& Format(txtDate, "dd/mm/yyyy") & "#"

If GCriteria = "" Then
GCriteria = GCriteria6
Else
GCriteria = GCriteria & " AND " & GCriteria6
End If
End If

Now the problem is to give the user a message if he enters the date is wrong format...I don't know where exactly that msg code would go or how to check if the user entered wrong date. And please do check if my code "looks right" too.

Thanks in advance for your time!Start Free Trial

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

           
           
             'Sample of code that i am using to search and output
'Approach to CSR
    If Not IsNull(txtSearchField12) Then
        GCriteria4 = GetResults(Me.txtSearchField12, "[ApproachtoCSR]", Me.optSearch)
 
        If GCriteria = "" Then
           GCriteria = GCriteria4
 
        Else
              GCriteria = GCriteria & " AND " & GCriteria4
        End If
   
    End If
       
    'Publisher
    If Not IsNull(cboSearchField2) Then
        GCriteria5 = GetResults(cboSearchField2.Value, "[Publisher]", Me.optSearch)
 
            If GCriteria = "" Then
               GCriteria = GCriteria5
 
           Else
                GCriteria = GCriteria & " AND " & GCriteria5
           End If
          
    End If
              
    Form_frmInput.RecordSource = "select * from Entry where " & GCriteria & ";"
 
    Form_frmInput.Requery
   
    If Form_frmInput.NewRecord Then
        MsgBox "No matching records found. Try less restricted search criteria", vbOKOnly, "No Matches Found"
       
    Else
        MsgBox "Results have been filtered.", vbOKOnly, "Search Successful"
        DoCmd.Close acForm, "frmSearch"
    End If

           
         

Keywords: Access Database Search Function for …

	Title
1	IsDate Function
2	isDate ?
3	IsDate function
4	IsDate? Is NOT a Date!!
5	IsDate Function
6	IsDate validation

Loading Advertisement...

20080716-EE-VQP-32 / EE_QW_2_20070628

Access Database Search Function for Date

Asked by Dingo212 in Access Coding/Macros, Microsoft Access Database, Access Forms

Tags: Microsoft, Access, 2003

About this solution