زر الحذف لا ينفذ الأمر إلا بعد الضغط عليه أكثر من مره

للرفع

للرفع

للرفع

تم الانتهاء من السؤال رقم 4

وذلك بفتح الاستعلام QSersh فى عرض التصميم وعمل ربط العلاقات ومن خصائص الربط واختيار الخاصيه الثانيه .

مازلت ابحث مع الانتظار

مع تمنياتى للجميع بالتوفيق ودوام النجاح

اخوانى مازلت ابحث وانتظر

من خلال البحث وجدت الكود التالى

Private Sub Command4_Click()

DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO delcat ( CATID, CATNAME )SELECT CATEGORIES.CATID, CATEGORIES.CATNAME FROM CATEGORIES LEFT JOIN TT ON CATEGORIES.CATID = TT.CATID WHERE (((CATEGORIES.CATID)=[forms]![form1]![textdel]));"
DoCmd.RunSQL "INSERT INTO hh ( aa, dd, cc, CATID )SELECT TT.aa, TT.dd, TT.cc, TT.CATID FROM CATEGORIES LEFT JOIN TT ON CATEGORIES.CATID = TT.CATID WHERE (((TT.CATID)=[forms]![form1]![TT subform]![CATID]));"
DoCmd.RunSQL "DELETE CATEGORIES.CATID, CATEGORIES.CATNAME FROM CATEGORIES WHERE (((CATEGORIES.CATID)=[forms]![form1]![textdel]));"

DoCmd.SetWarnings True
Me.Requery
End Sub

حاولت تطبيقه لكنى فشلت حتى بعد تسمية جميع الحقول بالانجليزى

حيث وجدت الكود مبنى على نموذجين رئيسى وفرعى

سوف احاول وابحث مع الانتظار

بالتوفيق

للرفع

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

اخوانى الافاضل

هل عدم وجود رد ناتج عن عدم فهم السؤال ام خطأ منى لا أعلمه إن كان خطأمنى فأرجو توجيهى للخطأ اللذى وقعت فيه بدون قصد وإن كان من عدم فهم السؤال فأوضح أكثر ارجو الرد .

تمنياتى للجميع بالتوفيق ودوام النجاح

ارفق الملف بعد تسمية الحقول بالانجليزى

dorat_up_1.rar

تم تصحيح الكود فى المرفق الاخير ليعمل باضافة الاقواس ولكن نفس المشكله ينفذ الامر على اكتر من ضغطه

DoCmd.SetWarnings False

DoCmd.RunSQL "INSERT INTO [tabll-BackUP](num, nams,sh,sx,eg,gensih) select tabll.num, tabll.nams, tabll.sh, tabll.sx, tabll.eg, tabll.gensih from tabll left join efad on tabll.num = efad.num WHERE (((tabll.num)=[forms]![fsersh]![ts]) AND ((tabll.elhakk)=Yes));"
DoCmd.RunSQL "insert into [efad-backup] (num,nam,mntka,elmda,da) select efad.num, efad.nam, efad.mntka, efad.elmda, efad.da from tabll left join efad on efad.num = tabll.num WHERE (((efad.num)=[forms]![fsersh]![num ]) AND ((efad.elhak)=Yes));"
DoCmd.RunSQL "DELETE tabll.num, tabll.nams, tabll.sh, tabll.sx, tabll.eg, tabll.gensih from tabll WHERE (((tabll.num)=[forms]![fsersh]![num]) AND ((tabll.DEL)=Yes));"
DoCmd.RunSQL "Delete efad.num,efad.nam, efad.mntka, efad.elmda, efad.da From efad WHERE (((efad.num)=[forms]![fsersh]![ num]) AND ((efad.Dell)=Yes));"

DoCmd.SetWarnings True
Me.Requery
End Sub

مازلت ابحث وانتظر

اخي الفاضل

هل من الممكن اعرف آلية البرنامج الذي تعمل عليه ؟؟

ما هو المطلوب بالخطوات ( وحده وحده ) اشرح على راحتك

حتى استطيع مساعدتك بعد فهم ما تريده بالضبط

لأنني فتحت برنامجك ولا اعلم ماذا تريد

انتظر اجابتك وشرحك

بالتوفيق

اختى ومعلمتى زهره تقبلى تحياتى واسعدنى مرورك الكريم

المطلوب بارك الله فيكى هو كالاتى

جدول tabll يوجد به سجلات رئيسيه ويوجد لها سجلات فرعيه فى جدول efad قد قمتى بعمل تعديل عليه سابقا الحاق وحذف دفعه واحده

قمت بعمل اضافة شروط للالحاق والحذف حسب الرقم وان يكون خانة الاختيار نعم طبعا ده على المرفق الاول فى استخدام الاستعلام .

وقمت بعمل نموذج للبحث من خلاله مثلا السجل رقم 1 باسم احمد زاهر يوجد له 3 سجلات فرعيه اريد الحاق وحذف سجل منهم فاقوم بالتاشير على خانة الحاق المقابله للاسم والرقم ثم اقوم بالتاشير على خانة الحاق وحذف للسجل المراد الحاقه وحذفه

وعند الضغط على زر الحاق وحذف لايتم التنفيذ الا بعد الضغط اكثر من مره وهذا فى المرفق الاول والثانى . ( على المرفقين )

هذه الاكواد تم نقلها من امثله قد قمتى انتى بالتعديل عليها سابقا بالنسبه لكود الحاق والحذف مفهوم شوية بالنسبة لى لكن كود البحث ده مش فاهم من حاجه بصراحه وكويس انه اشتغل معايا اصلا فارجو منكى توضيحه لى واخر طلب اريد نموذج البحث ده عند فتحه لا يكون به بيانات وجاهز للبحث .

ارجوا ان اكون وفقت فى الشرح لما هو مطلوب وعذرا للاطاله

تفضل اخي الكريم

الملف بعد التعديل بناء على طلبك

تم استبعاد امر الحذف من النموذج الرئيسي لأنه لو قمت بإستخدامه سوف يقوم بحذف كامل السجل الرئيسي وجميع السجلات الفرعية معه دفعة واحده

ولهذا تم الإبقاء فقط على امر الإلحاق في النموذج الرئيسي لتستطيع الحاق السجل الرئيسي اكثر من مره مع السجلات الفرعية المختاره

za-dorat_up_2.rar

بالتوفيق

جزاكى الله كل خير يا ام عهود تسلم ايدك

تم اضافة الكود فى حدث عند التحميل لكى يتم فتحه خالى من البيانات والحمد لله تمام

DoCmd.GoToRecord , , acNewRec

اخر حاجه بالنسبه لهذا المثال

شرح الجزء المختصر اللى قصيته انا من كود البحث اللى على زر البحث علشان افهم انا بعمل ايه لانه اشتغل معايا بظروفها

وكيف تم اخفاء حقل الرقم فى النموذج frmefad فى حالة العرض وهو موجود فى عرض التصميم مقدرتش اوصل للطريقه وما المقصود بالرقم 3 فى فهرس علامة الجدوله عند ااستعراض النموذج frmtabll والضغط على خصائص النموذج الفرعى frmefad

واعتذر للاطاله وكثرة الاسئله

بالنسبة لمشكلة الموضوع الاول مازالت كما هيا ولا اعلم ان كانت رسالتى قد وصلت لكى على الخاص ام لا . ( الحمد لله تم حلها )

تمنياتى لكى بالتوفيق ودوام النجاح

للرفع

اخي الفاضل

بالنسبة للكود فهو عبارة عن وظيفة مهمته القيام بعملية الفلتره كما لو انك تقوم بهذه العملية في الإستعلام تماما عندما نضع المعيار في الإستعلام ولكن الفرق هنا كود وهناك معيار لغرض التصفية واظهار النتيجة المطابقة لرقم التسلسل

فلا ارى فيه اي صعوبة لأنه من ابسط واسهل الأكواد .

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

اضغط مره اخرى على اسم الحقل واختر اظهار اعمدة ولا اعتقد ان مثل هذه الأكور غائبة عنك لأنها خاصة بالمبتدأين الذين لا زالوا يتعلمون فتح واغلاق برنامج الأكسيس

بالنسبة لعلامة الجدولة 3 للنموذج الفرعي فهذا ترتيبه عندما قمنا بعملية التصميم للنموذج الرئيسي حيث وضعنا حقل التسلسل اولا واخذ فهرس علامة الجدولة 0 تلقائيا بدون تدخل منا وعندما وضعنا حقل الإسم اخذ فهرس علامة الجدولة 1 وعندما وضعنا مربع الصح الخاص بالإلحاق اخذ الرقم 2 وعندما وضعنا النموذج الفرعي اخذ فهرس علامة الجدولة 3 وعندما وضعنا زر الأمر الخاص بالحذف والإلحاق اخذ فهرس علامة الجدولة 4 وعندما وضعنا مربع النص NM الخاص بالبحث اخذ فهرس علامة الجدولة 5 وعندما وضعنا زر البحث اخذ فهرس علامة الجدولة 6

num : فهرس علامة الجدوله = 0

nams : فهرس علامة الجدوله =1

elhakk : فهرس علامة الجدولة =2

frmefad : فهرس علامة الجدولة = 3

CmdDel : فهرس علامة الجدولة = 4

Nm : فهرس علامة الجدولة =5

btnSearch : فهرس علامة الجدولة =6

تستطيع تغيير وترتيب هذه العلامة كأن تجعل مثلا

Nm : فهرس علامة الجدولة = 0 ( مربع النص الخاص بالبحث )

btnSearch : فهرس علامة الجدولة = 1 ( زر الأمر الخاص بالبحث )

num : فهرس علامة الجدوله = 2

nams : فهرس علامة الجدوله =3

elhakk : فهرس علامة الجدولة =4

frmefad : فهرس علامة الجدولة = 5

CmdDel : فهرس علامة الجدولة = 6

بالتأكيد سيتبادر الى ذهنك سوال : وما هي الفائدة من هذا الترتيب ؟

الجواب : الفائدة انه عند استخدام مفتاح الـ TAP للتنقل بين الحقول ستكون مرتبه من البداية الى آخر كائن في النموذج

بالتوفيق

جزاكى الله كل خير يا ام عهود وبارك الله لكى فى عهود وشهد

من حيث الكود فلم افهمه صراحة من حيث الاستعلام ومعياره فقد قمت بتطبيقه بعد حذف الكود واشتغل تمام برضه اعذرينى يامعلمتى الاكواد صعبه بعض الشىء معى وبجد بقالى فتره بتجرا واحاول

اقدر وقتك وادعو الله لكى بان ييسر لكى امورك

تقبلى تحياتى وتقديرى

طالب علم مبتدىء كتب:

جزاكى الله كل خير يا ام عهود وبارك الله لكى فى عهود وشهد

من حيث الكود فلم افهمه صراحة من حيث الاستعلام ومعياره فقد قمت بتطبيقه بعد حذف الكود واشتغل تمام برضه اعذرينى يامعلمتى الاكواد صعبه بعض الشىء معى وبجد بقالى فتره بتجرا واحاول

اقدر وقتك وادعو الله لكى بان ييسر لكى امورك

تقبلى تحياتى وتقديرى

اخي الفاضل

لماذا دائما نستعجل الأمور ونحاول ان نرهق انفسنا بأمور فوق طاقتنا

لاحظ يا اخي الكريم ان رب العزة والجلال خلق السموات والآرض في ستة ايام وهو القادر ان يقول للشيء كن فيكون فإنما امره بين الكاف والنون اي في اقل من لمح البصر ولكن لحكمة هو يعملها سبحانه وتعالى .

وصدق الله تعالى في محكم كتابة الكريم في سورة الأنبياء آية 37 ( خلق الإنسان من عجل ) .

لذا بارك الله بك خذ الأمور بكل بساطة ولا تستعجل الأمور وتريد ان تتعلم كل شيء بين يوم وليلة وسأعطيك مثال حي وهو محدثتك اختك في الله زهره فيعلم الله انني لم اتعلم إلا اقل القليل جتى الآن ومن قال انني حزت العلم كله فهو جاهل ولم اصل حتى على 5% من علوم البرمجة . هناك اناس يولدون وهم يتعلمون ويشيخون وهم لازالوا يتلقون العلم . فصبرا اخي الكريم وسوف يأتي اليوم الذي ستتعلم فيه كل ما تراه صعبا الآن عليك عندما تضع تقتك بالله وتحدد الهدف الذي تسعى اليه فسوف تصل بإذن الله الى ما تطمح اليه فلا يوجد شيء اسمه مستحيل في هذه الدنيا فما تجهله اليوم ستعرفه غدا وستراه شيء بسيط وسهل .

بالتوفيق

اختى ومعلمتى الفاضله زهره

اخجلنى تواضعك ولا اجد ردا يليق بكى الا ان ادعو لكى جزاكى الله كل خير وزادك الله من فضله وبارك الله لكى فى عهود وشهد

لكى كل الاحترام والتقدير

اخوكى فى الله احمد