samir_samir

الله يعطيكن العافيه ههههههههه

السلام عليكم ورحمة الله وبركاته،، اخي العزيز استازي محمد طاهر يوجدعندي هزا الاجراء اخفاء كل الاستعلامات ولكن يظهر بالخيارات ولكن انا بحاجه لا اخفاء نهائيا ثم واظهاره Private Sub إخفاء_مع_إظهار_بالخيارات_Click() Dim obj As AccessObject, dbs As Object Set dbs = Application.CurrentData For Each obj In dbs.AllQueries If Left(obj.Name, 4) <> "MSys" Then SetHiddenAttribute acTable, obj.Name, True Next obj End Sub Private Sub إظهار_مع_إخفائها_بالخيارات_Click() Dim obj As AccessObject, dbs As Object Set dbs = Application.CurrentData For Each obj In dbs.AllQueries If Left(obj.Name, 4) <> "MSys" Then SetHiddenAttribute acTable, obj.Name, False Next obj End Sub

شكرا لك اخ جمال فايز انا عندي استعلامات كتيره يوجد كود اخفاء استعلام في المنتدي من حوالي سنه ؟؟؟؟؟؟؟؟؟

عندي كود اخفاء الجداول انا بحاجه لا كود اخفاء استعلام وشكرا لكم لكم اجرأ وثواب

للرفع

السلام عليكم انا بحاجه لا كود خفاء استعلام واظهار

برك الله فيكن

صحيح جزاك الله كل خير

اعمل next سوري

انت بتعرف اين توجد خصيه shortcut هزا الموضوع كله ========= اعمل shortcut Browse اسحب المجلد محاسبه فقط اعمل ALL FIES / حتي يبين البرنامح الاكسس حدد البرنامج المراد اعمل zexte FINISH ========== صار البرنامج عند فى الوجه اكبس حلى البرنامج على الشمال يوجد خاصيه PROPERTIES CHANGE LCON يوجد عدد صور حدد الصوره دبل كليك يتغير ايقونه الاكسس

ممتاز الله يعطيك الف عافيه استاز ابو هادي برنامج رائع

اول مرحله اعمل فلدر جديد اسمه مثلا محاسبه احفظه في مكان انت تعرفه مثلا في السي اسب البرنامج من المي دكمنت ضع البرنامج في داخل الفلدر ========== المرحله التانيه اعمل shortcut Browse اسحب الفلدر محاسبه اعمل ALL FIES حدد البرنامج المراد اعمل zext FINISH ========== صار البرنامج عند فى الوجه اكبس حلى البرنامج على الشمال يوجد خاصيه PROPERTIES CHANGE LCON يوجد عدد صور حدد الصوره دبل كليك يتغير ايقونه الاكسس

جربت الطريقه ممتازه الله يعطيك العافيه

اعمل نموزج فاضي اسم النموزج a ضع نص لا نفرض اسمه .. n افتح اجراء بعد التحديس في نص.. n اكتب في الاجراء DoCmd.Requery "B" اعمل نموزج اسمه...B ادخل نموزج B ضمن نموزج A يوجد في هزا النموزج رقم التليفون. اسم العميل. كود العميل افتح النموزج في التصميم مصدر السجل في خصيه الاستعلام النموزج اكتب في المعير عند رقم التلفون الشرط Like [forms]![A]![N] & "*"

افتح الجدول تصميم احزف رقم التلقائي نهائي افتح رقم تلقائ جديد يبدء الاكسس من الاول