office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

笨小漆做的Access日期控件的示例

2002-03-17 22:21:00
笨小漆-Office中國
原創
6497

笨小漆做的Access日期控件的示例

笨小漆以前做的,哪位有時間,幫我寫寫這箇Access日期控件的示例説明和幫助,我沒時間。
Access日期控件的示例下載的路徑: 文件下載

hi-wzj 回覆
我的日期控件的使用:
界麵上有三箇東西:1.qsr爲:起始日期的文本框2.jsr爲結束日期的文本框3.rq爲日歷控件。
1、日期控件平常隱藏起來。雙擊起始日期或結束日期時日歷控件纔顯示(界麵的問題)。
2、對應的填上相應的日期。
以下是源碼,大傢多做交流:
Private Sub jsr_DblClick(Cancel As Integer)
Me.rq = Me.jsr
Me.rq.Top = Me.jsr.Top + Me.jsr.Height
Me.rq.Visible = True
End Sub
Private Sub qsr_DblClick(Cancel As Integer)
Me.rq = Me.qsr
Me.rq.Top = Me.qsr.Top + Me.qsr.Height
Me.rq.Visible = True
End Sub
Private Sub rq_DblClick()
If Me.rq.Top = Me.jsr.Top + Me.jsr.Height Then
   Me.jsr = Me.rq
   DoCmd.GoToControl "jsr"
Else
   Me.qsr = Me.rq
   DoCmd.GoToControl "qsr"
End If
Me.rq.Visible = False
End Sub
Private Sub 主體_Click()
Me.rq.Visible = False
End Sub

(常用控件-相關文章技巧鏈接):
穫取3箇月前(一箇季度前),3箇月後(一箇季度後)當前日期的示例

分享