tạo dấu ngăn cách ngày tháng / / trong textbox ngày tháng

Chia sẻ bởi:hands

★★★★★

‹ Hàm fill ngày tự động Tặng file mẫu sử dụng Textbox với... ›

Quảng cáo

Chào các anh chị.
Xin các anh chị chỉ cách tạo dấu xổ trong textbox ngày tháng năm như trong form [URL='https://www.giaiphapexcel.com/diendan/threads/gi%C3%BAp-%C4%91%E1%BB%A1-t%E1%BA%A1o-bi%E1%BB%83u-nh%E1%BA%ADp-d%E1%BB%AF-li%E1%BB%87u.130285/#post-818228']này.
như textbox [ngày cấp SĐĐ],Ngày Cấp HK]
Cái trên là chị chỉ cách làm dấu xổ ngày tháng năm hay tạo combobox có mũi tên đơn.
Em có hai Form này, nếu được nhờ chị thiết kế lại cho đẹp.
Mong chị xem trong Form2 có Combobox, sao dấu xổ xuống của em nó khác với combobox [Giới tính] của chị vậy.
3974
Chúc các anh chị ngày vui.

Trỏ chuột đang ở Textbox đó
Nhấn F4 -> xuất hiện Properties của nó, kéo chuột xuống thấy dòng nào có Text: gõ vào ô bên phải nó / / .Hoặc dd/mm/yyyy -> tùy theo bạn muốn nó hiện thị gì.

Không được anh hpkhuong ơi.
ý là khi em gỏ 10 tháng 10 năm 2017 thì khi gỏ hết ngày 10 thi trỏ chuột tự nhảy sang dấu cách và gỏ tiếp tháng 10, hết 10 thì lại nhảy sang dấu cách và gỏ năm 2017
Cũng không được anh ơi.
Em nhớ như trong Access có làm được (vào mask gì đó)

Hên xui nhé. Gõ ngày dạng dd/mm/yyyy
Gõ đủ 2 ký tự -> tự động nhảy dấu / gõ tiếp 2 ký tự tháng thì nhảy dấu /

Private Sub tb_Ngay_Change()
If Len(Me.tb_Ngay) = 2 Then
    Me.tb_Ngay = Me.tb_Ngay & "/"
ElseIf Len(Me.tb_Ngay) = 5 Then
    Me.tb_Ngay = Me.tb_Ngay & "/"
End If
End Sub