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] & "*"

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

متلا يوجد في البرنامج 200 نموزج كل نموزج يوجد اجراء مثلا تكبير اجرا مثلا اخر_سجل اجراء تصغير --------- بنا نستعمل هزه الطريقه في اي مشكله في البرمجه مستقبلا وحده نمطيه لا كل البرنامج Public Function تكبير() DoCmd.Maximize End Function Public Function اخر_سجل() DoCmd.GoToRecord , , acNewRec End Function Public Function تصغير() DoCmd.Minimize End Function ========= الاجراء بهازا الشكل Private Sub أمر0_Click() تكبير End Sub

والله مناني فهمان شو عم بيسير

نرجو ان توضح اكتر

قمت اليوم صباحا بعمل ربط بين جدول البيانات الاجمالية و الاستعلام التجميعي لبيانات الجدول الفرعي على كود الفاتورة المجمعة , ثم أنشأت استعلاما بسيطا بحيث حصلت على ما أريد : رقم الفاتورة - مبلغها - تاريخها - الحقول المطلوبة , و لكن لم أتمكن من كتابة شي على هذا الاستعلام ================= في حال فتحت مجامج استعلام لا يمكنك ادخال بينان حسب معرفتي ================

نتمنا لك التوفيق ان شاء الله

اعمل مكرو اسمه AUTOKEYS اعمل اجراء حسب طلبك مثلا MsgBox اسم المكرو {f2} ========== فعال ضغط f2

شكرا لك اخ محمد طاهر المشرف العام جزاك الله كل خير ان شاء الله :f4:

السلام عليكم كيف الطريقه اخفاء الجداول يوجد برنامج عند شخص الجداول مخفيه حولت اعمل استراد ولكني لم ارجداول البرنامج شغال طبيعي

السلام عليكم من يوجد لديه برنامج وين رار

السلام عليكم