[حل شده] مشکل در انتقال بین یوزر فرم‌ها

[میثم مقدم نیا]

سلام
من در فایل پیوست دوتا یوزرفرم دارم که اولی برای خوشامد گویی هستش و دومی برای شروع به کار
من برای رفتن خودکار به یوزرفرم دوم با مشکل مواجه شدم یوزرفرم اولی بعد از ۳ ثانیه بسته میشه من در پایین کد دستوری این فرم برای رفتن به یوزر فرم بعدی از Userfurm1.show استفاده کردم که با پیغام خطا روبرو شدم

Private Sub UserForm_Activate()
    Application.Wait (Now + TimeValue("00:00:03"))
       Unload SplashUserForm
    'UserForm1.Show
End Sub 

اگه امکانش هست راهنمایم کنید

[Amir Ghasemiyan]

سلام دوست عزيز

كدهاي مربوط به يوزرفرم دومتون مشكل داره

Private Sub TextBox9_enter()
    TextBox9.Value = Sheet1.Cells(1, 1).Value
    Label1.Caption = Sheet1.Cells(1, 1).Value
End Sub

[میثم مقدم نیا]

سلام دوست عزيز

كدهاي مربوط به يوزرفرم دومتون مشكل داره

Private Sub TextBox9_enter()
    TextBox9.Value = Sheet1.Cells(1, 1).Value
    Label1.Caption = Sheet1.Cells(1, 1).Value
End Sub

ممنون از راهنمایتون
یه مشکل دیگه اینجا هست که وقتی از یوزرفرم یه به یوزرفرم دو میرم صفحه کلا سفید میشه و نمیتونم کار انجام بدم انگاری که فایلم خراب باشه
تصویر زیر را ملاحضه فرمایید

[Amir Ghasemiyan]

كدهاتون يكم مشكل داشت. اصلاح كردم

بررسي بفرماييد

[میثم مقدم نیا]

كدهاتون يكم مشكل داشت. اصلاح كردم

بررسي بفرماييد

استاد الان تو این فایل وقتی به یوزرفرم دو میریم وقتی ازش خارج میشم مشکل کوچیک است که برای ویرایش نمیتوانم به قسمت ماکرو برم این مشکل هم به خاطر اینه که ساعتی در یوزرفرم قرار دادم در حال اجرا است که مانع از دسترسی به Vba میشود
من الان باید موقع خروج از یوزر فرم باید ساعت را متوقف کنم تا در پس زمینه کار نکند یا همون متوقف کنم من از کد زیر در ماژول

Sub StopClock()
'   Cancels the OnTime event (stops the clock)
    On Error Resume Next
    Application.OnTime NextTick, "UpdateClock", , False
End Sub 

و از Call برای فراخوانی ماژول در کلید خودم استفاده کردم

Private Sub CommandButton4_Click()
ActiveWindow.Application.Visible = True
Call StopClock
Unload Me
End Sub 

ولی متوقف نشد

[Amir Ghasemiyan]

كد اول مربوط به شروع كار ساعت هست و كد دوم براي متوقف كردنش

Sub SetTime()
SchedRecalc = Now + TimeValue("00:00:01")
Application.OnTime SchedRecalc, "Recalc"
End Sub


Sub Disable()
On Error Resume Next
Application.OnTime EarliestTime:=SchedRecalc, Procedure:="Recalc", Schedule:=False
End Sub