مشكلة في كود اغلاق النموذج الفارغ

السلام عليكم

استخدمت هذا الكود لجعل النموذج ينغلق في حالة عدم وجود بيانات

Private Sub Form_Current()


Me.نص54.SetFocus

If Me.نص54.Text = "" Then

MsgBox "لا توجد نتلئح للعرض", vbOKOnly + vbInformation + vbMsgBoxRight, "عفواً"

DoCmd.Close

End If

End Sub

ولكن ظهرت مشكلة بسيطة

وهي في حالة فتح النموذج وبه بيانات يتركز المؤشر في أول سجل مما ينتج عنه عدم تحرك شريط التمرير العمودي نحو الأسفل

ويمكننا تحريكه فقط إذا وضعنا المؤشر في سجل بالأسفل

وكما تعلمون هذه المشكلة تجعل من البرنامج غير سلسل الحركة والأداء

أرجو مساعدتي يا طيبين

وشكرا لكم