Đá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
#1

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
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn haquocquan , duongtu_1992 , Minh Tiên
#2
Bác noname hay lắm
Nhưng nếu trên form chỉ có 3 đối tượng: Textbox 'TuNgay'; Textbox 'DenNgay'; Combobox 'IN'; tức là mình thiết kế 1 kích thước form rất nhỏ nhưng cái ActiveX Control 'Calendar' nó chiếm 1 kích thước tương đối lớn trên form nên ta phải mở rộng form ra, nhưng khi chưa click nút command hoặc khi đã nhập xong ngày thì calendar ẩn đi, nó sẽ tạo ra 1 khoảng trống tương đối lớn trên form. Có cách nào khắc phục không nhỉ?
Chữ ký của cannguyen Xin chào, mình là cannguyen, Tham gia http://thuthuataccess.com/forum từ ngày 15-08 -11.
Reply
Những người đã cảm ơn
#3
Bác Noname cho em hỏi làm sao để ngày tháng trên cái lịch đó nó cập nhật theo ngày hệ thống ? Tức là lúc mở ra nó là ngày hiện tại.
Chữ ký của ledangvan Xin chào, mình là ledangvan, Tham gia http://thuthuataccess.com/forum từ ngày 22-08 -11.
ღღღღღTài sản của ledangvan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#4
(08-06-12, 03:22 PM)ledangvan Đã viết: Bác Noname cho em hỏi làm sao để ngày tháng trên cái lịch đó nó cập nhật theo ngày hệ thống ? Tức là lúc mở ra nó là ngày hiện tại.

Mặc định nó là ngày hệ thống mà bạn!
Chữ ký của cannguyen Xin chào, mình là cannguyen, Tham gia http://thuthuataccess.com/forum từ ngày 15-08 -11.
Reply
Những người đã cảm ơn
#5
(08-06-12, 03:13 PM)cannguyen Đã viết: Bác noname hay lắm
Nhưng nếu trên form chỉ có 3 đối tượng: Textbox 'TuNgay'; Textbox 'DenNgay'; Combobox 'IN'; tức là mình thiết kế 1 kích thước form rất nhỏ nhưng cái ActiveX Control 'Calendar' nó chiếm 1 kích thước tương đối lớn trên form nên ta phải mở rộng form ra, nhưng khi chưa click nút command hoặc khi đã nhập xong ngày thì calendar ẩn đi, nó sẽ tạo ra 1 khoảng trống tương đối lớn trên form. Có cách nào khắc phục không nhỉ?
Bởi vì nó có thuộc tính ẩn và nó luôn nằm đè lên trên đối tượng khác. Vì vậy bạn cứ thiết kế nó kéo chồng lên các đối tượng khác. Không ảnh hưởng gì cả
(08-06-12, 03:22 PM)ledangvan Đã viết: Bác Noname cho em hỏi làm sao để ngày tháng trên cái lịch đó nó cập nhật theo ngày hệ thống ? Tức là lúc mở ra nó là ngày hiện tại.
Thêm dòng sau vào sự kiện nút nhấn:

Mã:
If Not IsNull(txtFromDate) Or txtFromDate <> "" Then
Me.Calendar2.Value = txtFromDate
Else
Calendar2.Value = Date
End If
Me.Calendar2.Visible = True
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn ledangvan
#6
(08-06-12, 05:12 PM)Noname Đã viết: [quote='cannguyen' pid='12498' dateline='1339139630']
Bác noname hay lắm
Nhưng nếu trên form chỉ có 3 đối tượng: Textbox 'TuNgay'; Textbox 'DenNgay'; Combobox 'IN'; tức là mình thiết kế 1 kích thước form rất nhỏ nhưng cái ActiveX Control 'Calendar' nó chiếm 1 kích thước tương đối lớn trên form nên ta phải mở rộng form ra, nhưng khi chưa click nút command hoặc khi đã nhập xong ngày thì calendar ẩn đi, nó sẽ tạo ra 1 khoảng trống tương đối lớn trên form. Có cách nào khắc phục không nhỉ?
Bởi vì nó có thuộc tính ẩn và nó luôn nằm đè lên trên đối tượng khác. Vì vậy bạn cứ thiết kế nó kéo chồng lên các đối tượng khác. Không ảnh hưởng gì cả

Bác noname cho hỏi chút xíu về chủ đề khác nhé.
Trên main form mình có 1 subform, trong subform chỉ có 1 textbox, mình muốn truyền tham số từ subform đó ra 1 textbox trên main form thì công thức thế nào nhỉ?
Chữ ký của cannguyen Xin chào, mình là cannguyen, Tham gia http://thuthuataccess.com/forum từ ngày 15-08 -11.
Reply
Những người đã cảm ơn
#7
(08-06-12, 05:12 PM)Noname Đã viết:
(08-06-12, 03:13 PM)cannguyen Đã viết: Bác noname hay lắm
Nhưng nếu trên form chỉ có 3 đối tượng: Textbox 'TuNgay'; Textbox 'DenNgay'; Combobox 'IN'; tức là mình thiết kế 1 kích thước form rất nhỏ nhưng cái ActiveX Control 'Calendar' nó chiếm 1 kích thước tương đối lớn trên form nên ta phải mở rộng form ra, nhưng khi chưa click nút command hoặc khi đã nhập xong ngày thì calendar ẩn đi, nó sẽ tạo ra 1 khoảng trống tương đối lớn trên form. Có cách nào khắc phục không nhỉ?
Bởi vì nó có thuộc tính ẩn và nó luôn nằm đè lên trên đối tượng khác. Vì vậy bạn cứ thiết kế nó kéo chồng lên các đối tượng khác. Không ảnh hưởng gì cả
(08-06-12, 03:22 PM)ledangvan Đã viết: Bác Noname cho em hỏi làm sao để ngày tháng trên cái lịch đó nó cập nhật theo ngày hệ thống ? Tức là lúc mở ra nó là ngày hiện tại.
Thêm dòng sau vào sự kiện nút nhấn:

Mã:
If Not IsNull(txtFromDate) Or txtFromDate <> "" Then
Me.Calendar2.Value = txtFromDate
Else
Calendar2.Value = Date
End If
Me.Calendar2.Visible = True

Thank bác Noname
Chữ ký của ledangvan Xin chào, mình là ledangvan, Tham gia http://thuthuataccess.com/forum từ ngày 22-08 -11.
ღღღღღTài sản của ledangvan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#8
(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ái lịch này mình đặt trong Tab Control được không vậy? Khi mình làm nó báo lỗi như sau:
The expression On Click you entered as the event property setting produced the following error: A problem occurred while "tên phần mềm" was communicating with the OLE server or ActiveX Contrl
Giúp mình nhé
Chữ ký của cannguyen Xin chào, mình là cannguyen, Tham gia http://thuthuataccess.com/forum từ ngày 15-08 -11.
Reply
Những người đã cảm ơn
#9
(08-06-12, 06:23 PM)cannguyen Đã 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ái lịch này mình đặt trong Tab Control được không vậy? Khi mình làm nó báo lỗi như sau:
The expression On Click you entered as the event property setting produced the following error: A problem occurred while "tên phần mềm" was communicating with the OLE server or ActiveX Contrl
Giúp mình nhé
lại đặt dấu tiếng Việt chứ gì
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#10
(08-06-12, 11:12 PM)Noname Đã viết:
(08-06-12, 06:23 PM)cannguyen Đã 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ái lịch này mình đặt trong Tab Control được không vậy? Khi mình làm nó báo lỗi như sau:
The expression On Click you entered as the event property setting produced the following error: A problem occurred while "tên phần mềm" was communicating with the OLE server or ActiveX Contrl
Giúp mình nhé
lại đặt dấu tiếng Việt chứ gì

Không có, mình đâu có đặt dấu tiếng Việt, mình muốn hỏi là Tab Control có làm được Calendar không thôi, nếu được để mình ktra lại.
Cám ơn
Chữ ký của cannguyen Xin chào, mình là cannguyen, Tham gia http://thuthuataccess.com/forum từ ngày 15-08 -11.
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 13 537 30-11-16, 11:45 AM
Bài mới nhất: ongke0711
  Nhập đường dẫn 1 file ảnh vào chương trình để lưu! Noname 29 11,191 08-09-16, 08:24 PM
Bài mới nhất: maidinhdan
  [Thủ Thuật] Demo_Chọn ngày tháng bằng nút (No Calender Tiếng việt) maidinhdan 7 1,399 25-06-16, 12:44 AM
Bài mới nhất: zinzin8x
  [Thủ Thuật] Ẩn record trong table theo ngày tháng tvn_hut 6 486 24-04-16, 01:00 AM
Bài mới nhất: tvn_hut
  [Thủ Thuật] Hiện thông báo nhắc nhở và gửi vào TASK của MS OUTLOOK ongke0711 5 549 16-01-16, 11:41 PM
Bài mới nhất: lamvanphung

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ơ