Advancing Date with a command button

[rmd62163]

Question of curiosity. Is it possible to have command buttons on a form to advance the current recordset filter date back or forwards one day at a time on each click. Would go like if today was the 15th and I clicked it would go to the 16th and then to the 17th for the next click and so on. Just not sure if I should keep looking for a way to do this, so I figured I would ask some experts before putting more time in to this then I already have to no avail.

[pbaldy]

Sure. If you filter off a textbox:

Me.TextboxName = Me.TextboxName + 1

Then apply the filter or whatever

[rmd62163]

Thanks Paul, I 'll play around with it tomorrow to see if I can do what you are referring to. I'll let you know if I can do it, and not I'll be asking some more questions.

[pbaldy]

No problem; I have several apps with up/down buttons so users can scroll dates. Welcome to the site by the way.

[rmd62163]

Paul,

Perhaps this is more complex then I can handle. can you point me to an example app so I can break it down and see if I can apply it?
I can get the text boxes changing on +1 or -1. And then apply the filter to the form filter like such>

Private Sub CmdPday_Click()

Me.TxtDayFilter = Me.TxtDayFilter - 1

Me.Filter = TxtDayFilter

End Sub



Thanks

[pbaldy]

The filter line would look like

Me.Filter = "FieldName = #" & Me.txtDayFilter & "#"
Me.FilterOn = True

[rmd62163]

Paul,

Just want to thank you again. That certainly cleared it up. I gotta read a good book on VBA, do you have any suggestions? May be VBA for Dummies that might be the ticket for me.
On another note, once I click on a button to apply a filter for say today. What method would be best to set the text box txtDayFilter back to that date? So that it reflects the current filtered date imposed by another method. I have a few command buttons to set the filter to like this month, last month today. Don't give any code just yet, just point me the right direction so I can try and figure it out. And if I can't I will ask.

[rmd62163]

Tried using this and it seems to work alright. what do you think?

Private Sub CmdLastMonth_GotFocus()
Me.TxtDayFilter = Me.Sch_date
End Sub

[pbaldy]

I'm not clear what this is trying to accomplish. If this is "to set the text box txtDayFilter back to that date", then that method is fine, presuming Me.Sch_date contains the date you want to go back to.

[rmd62163]

Could of swore I replied yesterday but I don't see it. Anyhow your assumption is correct. that is what I was trying to accomplish. What did since that was just moved it to the on click event for the button that changes the filter. works the same i suppose, not much different.

Thanks again Paul.

[pbaldy]

No problem.