Nhập ngày tháng thông qua Calendar Control

Nguồn:Nhập ngày tháng thông qua Calendar Control 
Tác giả:Noname

 

Calendar control là một ActiveX control cho phép bạn nhập ngày tháng vào Access một cách chính xác, nhanh chóng và hiệu quả. Cách làm như sau:

1. vẽ 1 textbox đặt tên là txtFromdate
2. Vẽ 1 button
3. Click vào nút more control ở toolbox, tìm và chọn Calendar Control 11.0, Vào form, thả control này vào chỗ bạn muốn. Vào Properties đặt name của đối tượng này là Calendar2 và thuộc tính visible là No.


4. Code cho sự kiện Click của Calendar như sau

Mã:

Private Sub Calendar2_Click()
txtFromDate.Value = Calendar2
Me.txtFromDate.SetFocus
Me.Calendar2.Visible = False
End Sub

5. Code cho sự kiện click của nút nhấn

Mã:

Private Sub Command4_Click()
If Not IsNull(txtFromDate) Or txtFromDate <> "" Then
Me.Calendar2.Value = txtFromDate
Else
Calendar2.Value = Date
End If
Me.Calendar2.Visible = True

End Sub

Demo download