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:

السلام عليكم

كيف الطريقه اخفاء الجداول

يوجد برنامج عند شخص الجداول مخفيه

حولت اعمل استراد ولكني لم ارجداول

البرنامج شغال طبيعي

السلام عليكم

من يوجد لديه برنامج

وين رار

السلام عليكم