Ms Access Reset a date range to default values

anoble1

Hey I am wanting to reset a date range to lets say 1/1/2008 - 12/31/2008.
So when I click on reset i want it to bring those values up and limit everything by them. That way it brings up every record. Right now it doesn't seem to work it clears out every record and the dates don't change. It changes the date but does not Requery the form. So no dates populate.

Here is my code so far:

Expand|Select|Wrap|Line Numbers

 cmdReset_Click()
 
Recordsource....................................................
 
cmbName.Value = ""

cmbLocation.Value = ""

txtLowDate.Value = "1/1/2008"

txtHighDate. = "12/31/2008"
 
End Sub

ADezii

Quote:

Originally Posted by anoble1

Hey I am wanting to reset a date range to lets say 1/1/2008 - 12/31/2008.
So when I click on reset i want it to bring those values up and limit everything by them. That way it brings up every record. Right now it doesn't seem to work it clears out every record and the dates don't change. It changes the date but does not Requery the form. So no dates populate.

Here is my code so far:

cmdReset_Click()

Recordsource...................................... ..............

cmbName.Value = ""
cmbLocation.Value = ""
txtLowDate.Value = "1/1/2008"
txtHighDate. = "12/31/2008"

End Sub

Expand|Select|Wrap|Line Numbers

 Dim strSQL As String

Dim dteLow As Variant

Dim dteHigh As Variant
 
dteLow = Me![txtLowDate]

dteHigh = Me![txtHighDate]
 
'Must have Values in both Text Boxes

If Not IsNull(dteLow) And Not IsNull(dteHigh) Then

  'They must both be Valid Dates

  If IsDate(dteLow) And IsDate(dteHigh) Then

    strSQL = "Select * From TableName Where TableName.[DateField] Between #" & _

              CDate(dteLow) & "# And #" & CDate(dteHigh) & "#;"

      Me.RecordSource = strSQL

  Else

    'Just to indicate that 1 or more Fields does not contain a Valid Date, not needed

  End If

Else

  'Just to indicate that 1 or both Fields are Null, not needed

End If

NeoPa

It seems like you need to requery whatever it is that you want to reflect the new range. Your question is not very clear on what that is so I'll leave that to you.

Welcome to Bytes!

Ms Access Reset a date range to default values

re: Ms Access Reset a date range to default values

re: Ms Access Reset a date range to default values

Similar Microsoft Access / VBA bytes

/bytes/development

/bytes/it

/bytes/about