Question : Command Button Help!!

I have a form for pulling reports with 2 text boxes  txtStart and txtEnd then following command buttons cmdCurrentDay, CmdCurrentWeek, cmdCurrentMonth, cmdCurrentYear, cmdYesterday, cmdLastWeek, cmdLastMonth, cmdLastYear when u click one of these command buttons it places date in txtStart and in txtEnd. example: cmdCurrentDay code reads:
Private Sub cmdCurrentDay_Click()
    Me.txtStart = Format$(DATE, DateFormat)
    Me.txtEnd = Format$(DATE, DateFormat)
End Sub
all of these command button's work correct, but what i need now is 2 more command button's on cmdCurrentPay and cmdLastPay so based on the current date i want it to put in the 2 dates for the current pay dates and previous pay dates so cmdCurrentPay would put  7/21/2010 in txtStart and  8/3/2010 in txtEnd. and cmdLastPay would put 7/7/2010 in txtStart and 7/20/2010 in txtEnd.

Attached is a Sample Photo and Sample Database..
 
Sample Photo
331969
 
Attachments:
 
Sample Database
 

Answer : Command Button Help!!

Please see in mdb
Random Solutions  
 
programming4us programming4us