Hoàn thiện form nhập liệu

[yome]

Chào anh chị GPE!
Em đã tao một Form nhập liệu. Nhưng có 1 số việc em vẫn không thiết lập được. Câu hỏi cụ thể em đã viết trong file đính kèm. Xin anh chị vui lòng xem và hoàn thiện dùm em nhé. Thanks

 

[sealand]

1/Để cập nhật ô diễn giải bạn nhập đoạn code sau:

Private Sub ComboBox1_Change()
Me.TextBox4 = Me.ComboBox1.Column(1)
End Sub

2/Cái phức tạp là bạn sử dụng Textbox để nhập ngày tháng. Người ta hay dùng Calendar hay Input Mask. Nhưng có 1 cách an toàn và chính xác ngày tháng là dùng hàm date() để chuyển đổi:
Ví dụ TextBox2 ="25/06/2009"
ng=textbox1.text
ws.Cells(iRow, 1).Value=DATE(RIGHT(ng,4),MID(ng,4,2),LEFT(ng,2))

Như vậy, kể cả Textbox là Text chăng nữa thì cũng vẫn nhập đúng ngày tháng vào Cell

 

[yome]

Anh sửa hoàn chỉnh rồi post lên cho em với. Cám ơn anh nhiều!

 

[yome]

Anh ơi, anh sửa hoàn chỉnh dùm em file emn đã post lên đó nhé. Em đã làm theo các của anh nhưng ko được và vẫn bị lỗi. Anh giúp em nhé! Thanks

 

[sealand]

Bài có sử dụng hàm Access nên trong VBA vào Tools--References--Đánh dấu vào ô Microsoft Access 11.0 Object Library nhé
Hiện nay, máy của mình chưa cài lại không thêm DK được nếu không mình đưa vào calenda hay InputMask bạn tham khảo

P/s: Thêm đoạn code sau khi con trỏ đến Combo thì Combo tự động mở ra để chọn

Private Sub ComboBox1_Enter()
SendKeys "%{DOWN}"
End Sub

 

[XuanThanh]

Đã hoàn thiện và gửi cho em qua mail rồi
Thân