Đánh giá chủ đề:
  • 1 Votes - 5 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Thủ Thuật] Nhập ngày tháng thông qua Calendar Control
#11
(07-06-12, 07:07 PM)Noname Đã viết:
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
Bác Noname ơi,các bạn ơi,
cho mình hỏi mình có thể chỉ lấy giá trị tháng của Calendar vào textbox hoặc combo box được không ?
nếu được bác chỉ cho em hướng đi với
chân thành cảm ơn ạ !
Chữ ký của jason Học ...học nữa và học mãi 53_53 !

ღღღღღTài sản của jason (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#12
(16-10-13, 12:33 PM)jason Đã viết:
(07-06-12, 07:07 PM)Noname Đã viết:
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
Bác Noname ơi,các bạn ơi,
cho mình hỏi mình có thể chỉ lấy giá trị tháng của Calendar vào textbox hoặc combo box được không ?
nếu được bác chỉ cho em hướng đi với
chân thành cảm ơn ạ !
sau một lúc mày mò, mình đã làm được rồi
Me.txtFromdate= Month(Calendar.Value)

thân !
Chữ ký của jason Học ...học nữa và học mãi 53_53 !

ღღღღღTài sản của jason (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#13
Dear các Bác, nếu trong trường hợp em muốn dùng Calendar Control trong 1 Subform thì làm cách nào ( em dùng acc2003). Các bác hướng dẫn em với Tks you nhiều.
Chữ ký của connguoi123 Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Thủ Thuật] [Shared Code- PhầnII]Chọn ngày tháng bằng click chuột [No Calendar] maidinhdan 24 2,361 21-09-17, 10:17 PM
Bài mới nhất: maidinhdan
  [Help] Tạo subform có thể tự động expand khi nhập thêm dòng mới. tien1505 4 238 09-07-17, 03:53 PM
Bài mới nhất: tien1505
  [Thủ Thuật] Table variables - Lưu các biến hệ thống vào bảng ongke0711 0 116 01-07-17, 04:35 AM
Bài mới nhất: ongke0711
  [Thủ Thuật] Demo_Chọn ngày tháng bằng nút (No Calender Tiếng việt) maidinhdan 8 2,099 09-05-17, 05:27 PM
Bài mới nhất: quocbinh77dilang@gmail.com
  [Thủ Thuật] Demo Dọn rác 1 tháng 1 lần (Mọi phiên bản Access) maidinhdan 15 3,259 31-03-17, 12:20 AM
Bài mới nhất: kieu manh

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ