ما السبب في ظهور هذه الرساله

[beLaL 100]

السلام عليكم ورحمة الله وبركاته

الاساتذه وجميع الاعضاء الكرام مالسبب في ظهور هذه الرساله عند تجربة القائمه المنسدله ارباح مبيعات عميل

والف شكر للجميع

1.rar

[ناقل]

لم تظهر الرسالة عندي انظر ..... متى تظهر الرسالة

 

 

[محمد أبوعبدالله]

وعليكم السلام ورحمة الله وبركاته

لانك تقوم باغلاق نموذج Fz_1 وذلك في الامر التالي

DoCmd.Close

Private Sub b2_Click()
TimerId = SetTimer(0, 0, 1, AddressOf TimerProc)
str_Title = "الرقم السري مطلوب"
str_Prompt = "ادخل الرقم السري"
If InputBox(str_Prompt, str_Title) = "123" Then
        MsgBox "الرقم السري صحيح", , "تفضل بالدخول"
        DoCmd.Close
        DoCmd.OpenForm "Fz_12", acNormal
   Else
        MsgBox "الرقم السري خاطىء", , "لا يمكنك الدخول"
        Exit Sub
        End If

End Sub

والافضل استبدال امر الاغلاق بامر اخفاء كالتالي

Me.Visible = False

واليك الكود كاملاً

Private Sub b2_Click()
TimerId = SetTimer(0, 0, 1, AddressOf TimerProc)
str_Title = "الرقم السري مطلوب"
str_Prompt = "ادخل الرقم السري"
If InputBox(str_Prompt, str_Title) = "123" Then
        MsgBox "الرقم السري صحيح", , "تفضل بالدخول"
'        DoCmd.Close
        Me.Visible = False
        DoCmd.OpenForm "Fz_12", acNormal
   Else
        MsgBox "الرقم السري خاطىء", , "لا يمكنك الدخول"
        Exit Sub
        End If

End Sub

1_2.rar

تحياتي

[beLaL 100]

الف شكر وجميل من حضرتك ان لفت انتباهي الي امر الاغلاق 

اود من حضرتك ان يظل النموذج FZ_1 مفتوح الي اخر الاختيارات

وشكرا جزيلا لحضرتك علي المشقه التي تبذلها معي

[محمد أبوعبدالله]

1 دقيقه مضت, beLaL 100 said:

اود من حضرتك ان يظل النموذج FZ_1 مفتوح الي اخر الاختيارات

باستخدام امر الاخفاء

Me.Visible = False

لن يتم اغلاق النموذج بل سيظل مفتوح ولكن مخفي فقط

تحياتي