• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

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

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thư viện thủ thuật
  • [Thủ Thuật] Nhập ngày tháng thông qua Calendar Control
• Nhập ngày tháng thông qua Calendar Control

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

  jason > 16-10-13, 12:33 PM

  (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 ạ !

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

  jason > 16-10-13, 03:59 PM

  (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 !

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

  connguoi123 > 25-06-14, 12:27 PM

  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.
• Bài trước Bài tiếp