yamakashi2003 > 04-05-20, 06:09 PM
tranthanhan1962 > 04-05-20, 06:58 PM
yamakashi2003 > 04-05-20, 11:53 PM
(04-05-20, 06:58 PM)tranthanhan1962 Đã viết: Private Sub Form_Open(Cancel As Integer)Em cám ơn bác ạ,
If Day(Date) = 2 And Month(Date) = 9 Then MsgBox "Hom nay la ngay Quoc Khanh"
End Sub
ongke0711 > 05-05-20, 12:01 AM
tranthanhan1962 > 05-05-20, 08:08 AM
(04-05-20, 11:53 PM)yamakashi2003 Đã viết: Em cám ơn bác ạ,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:
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 ạ
Xuân Thanh > 05-05-20, 09:45 AM
(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ị
Private Sub Form_Timer()
If Day(Date) = 5 And Month(Date) = 5 Then MsgBox "Hom nay la ngay Quoc Khanh"
Me.TimeInterval = 0
End Subtranthanhan1962 > 05-05-20, 10:03 AM
(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ôiHì 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
Mã:Private Sub Form_Timer()
If Day(Date) = 5 And Month(Date) = 5 Then MsgBox "Hom nay la ngay Quoc Khanh"
End Sub
Xuân Thanh > 05-05-20, 10:39 AM
(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
Private Sub Form_Timer()
If Day(Date) = 5 And Month(Date) = 5 Then MsgBox "Hom nay la ngay Quoc Khanh"
Me.TimerInterval = 0
End SubXuân Thanh > 05-05-20, 11:23 AM
(05-05-20, 10:57 AM)tranthanhan1962 Đã viết: Thế thì được! Hay
Private Sub Form_Load()
Me.TimeInterval = 3000
End Sub
Private Sub Form _Time()
DoCmd.Close
DoCmd.OpenForm "frmmeNu", acNormal
End Sub