خطا در سابفرم

[amirghadiri]

با عرض سلام و تبریک سال نو به همه کاربران عزیز و محترم
در فایل ارسال شده در form1 موقعی که اشاره گر موس روی دکمه کامند باتن قرار بگیره سابفرم نمایان میشه و وقتی اشاره گر روی صفحه فرم 1 بره سابفرم مخفی میشه.
حالا اگر موقع نمایان شدن ساب فرم رو خود سابفرم کلیک بشه و اشاره گر موس هم بروی فرم 1 بره خطا میده از دوستان نهایت تشکر میکنم بابت راهنمایی.
ممنون عیدتان مبارک

[Mahmoud.Afrad]

پیغام خطا واضح هست. باید کاری کنید فوکوس از subform خارج و مثلا به باتن منتقل بشه. برای اینکه کدها به طور مداوم اجرا نشن از شرط مناسب استفاده کنید

Private Sub Command0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If (namonazam_subform.Visible = False) Then
namonazam_subform.Visible = True
End If

End Sub

Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If (namonazam_subform.Visible = True) Then
Form_Form1.Command0.SetFocus
namonazam_subform.Visible = False
End If

End Sub

[amirghadiri]

با سلام خدمت دوستان عزیز.
مشکل پست 1 در سابفرم حل شده اما اینبار در فرم خطا میده در فایل زیر اگر روی هر کدام کامند باتن اشاره گر موس بره یه فرمی نشون میده و هر کدوم باتن یه فرمی نشون میده و فرم های دیگر را مخفی میکنه اما مشکل اینجاست که اگر در همین حالت روی کلید فرم 1 یا 2 یا 3 کلیک کنم و دوباره اشاره گر موس بره رو هر کدام از باتن ها خطا میده منون میشم اشکال خطا رو بگید.
با تشکر.

[amirghadiri]

دوستان ممنون از شما .خودم حلش کردم.
Private Sub Command25_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If (a2.Visible = False) Then
a2.Visible = True
End If
Form_Form1.Command25.SetFocus
a1.Visible = False
a3.Visible = False
End Sub

Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If (a1.Visible = True) Or (a2.Visible = True) Or (a3.Visible = True) Then
Form_Form1.Command24.SetFocus
a1.Visible = False
a2.Visible = False
a3.Visible = False
End If
End Sub