Em chào các bác ạ
Giả sử em có tạo 1 form,
giờ em muốn cài trên sự kiện open form để nếu khi mở form mà hôm đó là ngày 2/9 (form sẽ dựa trên lịch của máy tính đó)
thì sẽ hiện ra  thông báo là: "Hom nay la ngay Quoc Khanh"
Em xin cảm ơn các bác ạ

Private Sub Form_Open(Cancel As Integer)
If Day(Date) = 2 And Month(Date) = 9 Then MsgBox "Hom nay la ngay Quoc Khanh"
End Sub

(04-05-20, 06:58 PM)tranthanhan1962 Đã viết: Private Sub Form_Open(Cancel As Integer)
If Day(Date) = 2 And Month(Date) = 9 Then MsgBox "Hom nay la ngay Quoc Khanh"
End Sub

Em cám ơn bác ạ,
HIện em muốn nếu mở 1 form lên thì cái thông báo msgbox này sẽ hiện ra sau, msgbox chỉ hiện ra 1 lần lúc mở fom
nhưng cho vào các sự kiện: open, active, onload, thì đều là msgbox hiện ra trước, ấn ok rồi form mới hiện ra
Bác có cách nào giải quyết vấn đề này không ạ

Bạn ngâm cứu dùng Timer đi. Sau khoảng bao nhiêu giây thì sẽ chạy code hiện Msgbox.

(04-05-20, 11:53 PM)yamakashi2003 Đã viết: Em cám ơn bác ạ,
HIện em muốn nếu mở 1 form lên thì cái thông báo msgbox này sẽ hiện ra sau, msgbox chỉ hiện ra 1 lần lúc mở fom
nhưng cho vào các sự kiện: open, active, onload, thì đều là msgbox hiện ra trước, ấn ok rồi form mới hiện ra
Bác có cách nào giải quyết vấn đề này không ạ

Thế thì trên form tạo thêm 1 textbox có tên Time, thiết đặt properties: form Timer Interval =500 và visible của textbox  Time = False nếu không muốn nhìn thấy nó, thiết đặt Default Value của textbox Time =0, bỏ cái code Private Sub Form_Open đi và thay thế bằng:
Private Sub Form_Timer()
     Time.Value = Time.Value + 1
     If Time.Value = 3 Then If Day(Date) = 5 And Month(Date) = 5 Then MsgBox "Hom nay la ngay Quoc Khanh"
End Sub
Sau khi mở form thì 1,2,3. Thông báo sẽ hiển thị

(05-05-20, 08:08 AM)tranthanhan1962 Đã viết: Thế thì trên form tạo thêm 1 textbox có tên Time, thiết đặt properties: form Timer Interval =500 và visible của textbox  Time = False nếu không muốn nhìn thấy nó, thiết đặt Default Value của textbox Time =0, bỏ cái code Private Sub Form_Open đi và thay thế bằng:
Private Sub Form_Timer()
     Time.Value = Time.Value + 1
     If Time.Value = 3 Then If Day(Date) = 5 And Month(Date) = 5 Then MsgBox "Hom nay la ngay Quoc Khanh"
End Sub
Sau khi mở form thì 1,2,3. Thông báo sẽ hiển thị

Vẽ thêm Textbox làm chi nữa. Đặt Time Interval của Form = 3000 rồi làm cái Sub Form_Time thôi

P/S : Sửa lại code vì thiếu lệnh

(05-05-20, 09:45 AM)Xuân Thanh Đã viết: Vẽ thêm Textbox làm chi nữa. Đặt Time Interval của Form = 3000 rồi làm cái Sub Form_Time thôi

Mã:

Private Sub Form_Timer()
     If Day(Date) = 5 And Month(Date) = 5 Then MsgBox "Hom nay la ngay Quoc Khanh"
End Sub

Hì hì! Cái textbox có giá trị của nó, nó chỉ thông báo một lần lúc giá trị 3, khi vượt qua giá trị này nó sẽ không thông báo nữa. Còn làm theo cách của bác cứ qua một chu kỳ TimerInterval nó lại hiện thông báo một lần. Tắt thông báo rồi nó tiếp tục hiện lại. Cuối cùng chỉ còn cách vào task manager để đóng access

(05-05-20, 10:03 AM)tranthanhan1962 Đã viết: Hì hì! Cái textbox có giá trị của nó, nó chỉ thông báo một lần lúc giá trị 3, khi vượt qua giá trị này nó sẽ không thông báo nữa. Còn làm theo cách của bác cứ qua một chu kỳ TimerInterval nó lại hiện thông báo một lần. Tắt thông báo rồi nó tiếp tục hiện lại. Cuối cùng chỉ còn cách vào task manager để đóng access

Sory! Thiếu lệnh

(05-05-20, 10:39 AM)Xuân Thanh Đã viết:

Mã:

Private Sub Form_Timer()
    If Day(Date) = 5 And Month(Date) = 5 Then MsgBox "Hom nay la ngay Quoc Khanh"
    Me.TimerInterval = 0
End Sub

Thế thì được! Hay

(05-05-20, 10:57 AM)tranthanhan1962 Đã viết: Thế thì được! Hay

Nó cũng giống như tạo Form BoardSwich đó. Khi mở chương trình thì mở form này trước sau 3s tự động đóng lai và mở form frmMeNu vậy. Code cho form BỏadSwich