Sửa code cho đối tượng DTPicker

[hoangminhtien]

em có 2 form (1 và 2)
form 1 em date em dùng là text box, khi nhập date vào thì id tự đốngẽ hiện ra cho mình
form 2 em thay text box date bằng control active DTPicker

cả 2 form em viết code giống nhau, tuy nhiên form 2 nó không chạy, các bác xem rồi sửa lại cho em với nhé
cám ơn các bác

 

[Hai Lúa Miền Tây]

em có 2 form (1 và 2)
form 1 em date em dùng là text box, khi nhập date vào thì id tự đốngẽ hiện ra cho mình
form 2 em thay text box date bằng control active DTPicker

cả 2 form em viết code giống nhau, tuy nhiên form 2 nó không chạy, các bác xem rồi sửa lại cho em với nhé
cám ơn các bác

Bạn nên sửa lại code như sau :

Private Sub b_Exit(Cancel As Integer)
Me.a.Value = "VTE" & Format(Me.b.Value, "yyyymmdd")
End Sub

Thân

 

[hoangminhtien]

Đây là 2 cái Form của em, Form1 là form gốc, form2 là form chỉnh sửa. em đã làm theo code của bác như lúc đầu em hỏi thì nó chạy được, nhưng khi thêm 1 đoạn code nữa thì nó lại báo lỗi. các bác xem lại rồi chỉnh sữa lại cho em với nhé
Password của form là “zbr”, khi vào chọn Process Inspection, code trong form “Process” gốc là

Private Sub ManufacturingDay_AfterUpdate()
Me.ControlNo.Value = "VTE" & Format(Me.ManufacturingDay.Value, "yyyymmdd") & _
Format(Nz(DMax("Address", "qry_main_add", "Date= " & Format(Me.ManufacturingDay.Value, "yyyymmdd")), 0) + 1, "000")
End Sub

Sau khi sữa là

Private Sub ManufacturingDay_Exit(Cancel As Integer)
Me.ControlNo.Value = "VTE" & Format(Me.ManufacturingDay.Value, "yyyymmdd") & _
Format(Nz(DMax("Address", "qry_main_add", "Date= " & Format(Me.ManufacturingDay.Value, "yyyymmdd")), 0) + 1, "000")
End Sub

 

[Hai Lúa Miền Tây]

Đây là 2 cái Form của em, Form1 là form gốc, form2 là form chỉnh sửa. em đã làm theo code của bác như lúc đầu em hỏi thì nó chạy được, nhưng khi thêm 1 đoạn code nữa thì nó lại báo lỗi. các bác xem lại rồi chỉnh sữa lại cho em với nhé
Password của form là “zbr”, khi vào chọn Process Inspection, code trong form “Process” gốc là

Sau khi sữa là

File của bạn mình mở không được chắc có lẽ máy mình thiếu control nào đó, nếu bạn gặp trục trặc về DTPicker sao bạn không chuyển qua cách khác, dùng Calendar chuyển Calendar vào textbox chẳng hạn.
Bạn tham khảo file đính kèm nhe.
Thân

 

[hoangminhtien]

Cám ơn bác, bác hướng dẫn cho em lấy cái Calendar này với, em tìm mãi mà không ra được

 

[Hai Lúa Miền Tây]

Cám ơn bác, bác hướng dẫn cho em lấy cái Calendar này với, em tìm mãi mà không ra được

Máy bạn có control MSCal.OCXhttp://www.fontstuff.com/mailbag/qvba01.htm chưa?
Nếu không bạn tải ở đây nhé: http://www.fontstuff.com/mailbag/qvba01.htm
Thân

 

[hoangminhtien]

Em đã đăng ký file mscal.ocx OK rồi, nhưng vẫn không tìm tháy cái calendar trong toolsbar option, bác hướng dẫn thêm cho em với nhé

 

[Hai Lúa Miền Tây]

Em đã đăng ký file mscal.ocx OK rồi, nhưng vẫn không tìm tháy cái calendar trong toolsbar option, bác hướng dẫn thêm cho em với nhé

Bạn mở form ở dạng Design trên thanh công cụ bạn click chọn more controls... tìm Calendar Control, chọn nó, xong vẽ vào form là được.
Thân

 

[hoangminhtien]

Em đã đăng ký xong MSCAL.OCX rồi mà sao không thấy cái calendar control 8.0 là sao vậy các bác nhỉ?