الشربيني 123 قام بنشر أغسطس 10, 2022 مشاركة قام بنشر أغسطس 10, 2022 السلام عليكم ورحمة الله وبركاته ...اريد اضيف كود للإغلاق عند فتح نموذج " jop" بمعنى انا بفتح النموذج "kal" ومن خلاله أيضا بفتح نموذج اخر اسمه "jop" لكن نموذج "kal" بيكون مفتوح خلفه فهل من إضافة لهذا الكود لغلق "kal" مع الشكر لكل الاصدقاء والأخوة المحترمين في هذا الصرح العظيم Private Sub Form_Open(Cancel As Integer) DoCmd.Close acForm, "jop Me![txtSearch].SetFocus End Sub رابط هذا التعليق شارك More sharing options...
MO87 قام بنشر أغسطس 10, 2022 مشاركة قام بنشر أغسطس 10, 2022 عند زر فتح نموذج jop ادخل الكود الآتي DoCmd.OpenForm "jop" DoCmd.Close acForm, "KAI" end sub رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر أغسطس 10, 2022 مشاركة قام بنشر أغسطس 10, 2022 ام ممكن تكتفى باضافة سطر DoCmd.Close بدون اى اضافه بعد كود فتح النموذج الاخر وانتهت القصه رابط هذا التعليق شارك More sharing options...
الشربيني 123 قام بنشر أغسطس 10, 2022 الكاتب مشاركة قام بنشر أغسطس 10, 2022 2 ساعات مضت, MO87 said: عند زر فتح نموذج jop ادخل الكود الآتي DoCmd.OpenForm "jop" DoCmd.Close acForm, "KAI" end sub لم تنفع 2 ساعات مضت, عمر ضاحى said: ام ممكن تكتفى باضافة سطر DoCmd.Close بدون اى اضافه بعد كود فتح النموذج الاخر وانتهت القصه لم تنفع القصة رابط هذا التعليق شارك More sharing options...
الشربيني 123 قام بنشر أغسطس 10, 2022 الكاتب مشاركة قام بنشر أغسطس 10, 2022 2 ساعات مضت, عمر ضاحى said: ام ممكن تكتفى باضافة سطر DoCmd.Close بدون اى اضافه بعد كود فتح النموذج الاخر وانتهت القصه الكود بالتفصيل اللي بيتم فتحه jop اللي المراد قفله KAI Private Sub SearchList_DblClick(Cancel As Integer) On Error GoTo Err_أمر62_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "jop stLinkCriteria = "[رقم_العميل]=" & Me![cc] DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_أمر62_Click: Exit Sub Err_أمر62_Click: MsgBox Err.Description Resume Exit_أمر62_Click End Sub رابط هذا التعليق شارك More sharing options...
متقاعد قام بنشر أغسطس 10, 2022 مشاركة قام بنشر أغسطس 10, 2022 في نموذج kal اعمل زر امر ضع فيه الامر التالي DoCmd.Close acForm, Me.Name DoCmd.OpenForm "jop" رابط هذا التعليق شارك More sharing options...
الشربيني 123 قام بنشر أغسطس 12, 2022 الكاتب مشاركة قام بنشر أغسطس 12, 2022 في 10/8/2022 at 21:56, الشربيني 123 said: في 10/8/2022 at 19:10, عمر ضاحى said: ام ممكن تكتفى باضافة سطر DoCmd.Close بدون اى اضافه بعد كود فتح النموذج الاخر وانتهت القصه الكود بالتفصيل اللي بيتم فتحه jop اللي المراد قفله KAI Private Sub SearchList_DblClick(Cancel As Integer) On Error GoTo Err_أمر62_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "jop stLinkCriteria = "[رقم_العميل]=" & Me![cc] DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_أمر62_Click: Exit Sub Err_أمر62_Click: MsgBox Err.Description Resume Exit_أمر62_Click End Sub هتلاقي الأمر دبل كلك ...ما ينفعش حضرتك اعمل زر زي ما انت بتقول رابط هذا التعليق شارك More sharing options...
الشربيني 123 قام بنشر أغسطس 12, 2022 الكاتب مشاركة قام بنشر أغسطس 12, 2022 ارجو المساعدة في اضافة امر اغلاق عند النقر المزدوج رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر أغسطس 12, 2022 مشاركة قام بنشر أغسطس 12, 2022 انا شايف ان جميع الاكواد التى قدمها لك الشباب تفى بالغرض المطلوب ممكن ترفع ملف علشان نعرف فين المشكله رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.