一個access使用日期控件的例子[原創(chuàng)]

引用 MsAccess 2002-3-17 23:49

不錯。

引用 tmtony 2002-3-18 01:11

挺不錯

引用 hi-wzj 2003-6-12 08:29

我的日期控件的使用：
界面上有三個東西：1.qsr為：起始日期的文本框2.jsr為結(jié)束日期的文本框3.rq為日歷控件。
1、日期控件平常隱藏起來。雙擊起始日期或結(jié)束日期時日歷控件才顯示（界面的問題）。
2、對應(yīng)的填上相應(yīng)的日期。
以下是源碼，大家多做交流：
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

引用 fatiguelamb 2003-11-7 07:38

哥們
有個更好的控件的

引用 zengqang 2004-2-24 17:17

不錯，我可以好好學(xué)習(xí)。

引用 quanli 2004-9-16 06:27

學(xué)習(xí)

引用 王維a780 2006-3-31 02:03

挺不錯

引用 xthand 2006-3-31 03:50

不錯，挺漂亮的

引用 lxp100 2006-4-1 08:16

ok

引用 cz685 2006-4-3 21:49

學(xué)習(xí)

查看全部評論(10)