نقل قول نوشته شده توسط mazoolagh مشاهده تاپیک
ساعت پست های شما نشون دهنده پشتکار و همچنین اهمیتی هست که به پرسشها میدین.
سلام استاد!
تو این دوران بازنشستگی سیستم خواب و بیداریمون حسابی بهم ریخته



نقل قول نوشته شده توسط mazoolagh مشاهده تاپیک
فقط یک سئوال:
بدون timer راهی نیست که باز بودن یک پنجره (مثل همین Unhide Columns) رو تشخیص داد؟
ایونتی؟
راه دیگه ای به ذهن نرسید
بجای استفاده از تایمر خواستم از یک حلقه در تابع زیر استفاده کنم ولی جواب نداد:


Public Sub eTimer(InterVal As Integer)

Dim Start

Start = Timer

Do While Timer < Start + InterVal

   DoEvents

Loop

End Sub



Private Sub CmdOpenUnhideColumns()

Me.subform.SetFocus

DoCmd.RunCommand acCmdUnhideColumns



eTimer 1

    

Dim find As Long

find = FindWindow(vbNullString, "Unhide Columns")

If find > 0 Then MsgBox "Unhide Columns is open"

End Sub