Вопрос : Помощь кнопки командование!!

Я имею форму для вытягивать рапорты с txtStart и txtEnd 2 коробок текста после этого после кнопок командование cmdCurrentDay, CmdCurrentWeek, cmdCurrentMonth, cmdCurrentYear, cmdYesterday, cmdLastWeek, cmdLastMonth, cmdLastYear когда щелчок одна u этих кнопок командование оно устанавливает дату в txtStart и в txtEnd. пример: cmdCurrentDay Кодий читает:
Me.txt старта = Format$
Me.txt cmdCurrentDay_Click
Private
End Sub
all конца = Format$ Sub () (ДАТЫ, DateFormat) (ДАТЫ, DateFormat) работы этой кнопки командование исправляется, но мне нужно теперь 2 больше кнопки командование на cmdCurrentPay и cmdLastPay поэтому основанной на в настоящее время дате, котор я хочу его положить в 2 даты на в настоящее время даты получки и ранее получка датирует поэтому cmdCurrentPay положил 7/21/2010 в txtStart и 8/3/2010 в txtEnd. и cmdLastPay положил 7/7/2010 в txtStart и 7/20/2010 в txtEnd.

Attached будет фотоим образца и базой данных образца. filename " class= >