مساعدة انشاء سجل جديد عند الانتقال

**ازهر عبد العزيز** · مايو 25, 2020

السلام عليكم

كل عام وانتم بالف الف خير تقبل الله صيامكم واعمالكم

عندي نموذج LAD يحتوي بعض الاسماء ويحتوي زر GO TO ينتقل عن طريقة الى النموذج FALD1 في سجل مفصل اكثر حسب الاسم اي عندما يكون الاسم في النوذج LAD المشكلة عندي عندما يكون هناك اسم جديد ليس لة سجل مفصل فانة ينقلي عند الضغط على زر GO TO الى سجل جديد لايحتوي اي اسم كيف اتمكن من الانتقال الى سجل جديد مع اظهار الاسم الجديد في حقل NALD في النموذج FALD1 كمثال خند اختيار الاسم E في النوذج LAD والضغط على زر GO TO اريدة ان ينقلي الى النموذج FALD1 مع انشاء سجل لة بنفس الاسم اذا لم يكن لة سجل سابق ..... ملاحظة الله يساعدكم علية اذا اني طارح السؤال راسي افتر ......... اسف مقدما

New Microsoft Access Database (5) - Copy.accdb

**أبوبسمله** · مايو 25, 2020

وعليكم السلام اخى @ازهر عبد العزيز

هل هذا ما تريد ؟

بالتوفيق اخى

New Microsoft Access Database (5) - Copy.accdb

**عفرنس** · مايو 25, 2020

4 دقائق مضت, أحمد الفلاحجى said:

وعليكم السلام اخى @ازهر عبد العزيز

هل هذا ما تريد ؟

بالتوفيق اخى

New Microsoft Access Database (5) - Copy.accdb 620 kB · 2 تنزيلات

ما الذي صنعت يا صاحبي @أحمد الفلاحجى ؟؟

**ازهر عبد العزيز** · مايو 26, 2020

الاستاذ @أحمد الفلاحجى بهذة السرعة و السهولة :wallbash:

**أبوبسمله** · مايو 26, 2020

الان, فايز.. said:

ما الذي صنعت يا صاحبي @أحمد الفلاحجى ؟؟

لم اصنع شىء غير وضع كود لحفظ السجل الجديد لانه سجل جديد ولم يتم الحفظ

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

قبل الانتقال وفتح النموذج

Private Sub ÃãÑ13_Click()
DoCmd.RunCommand acCmdSaveRecord
DoCmd.OpenForm "flad1", , , "[idlad]=" & idlad
End Sub

السهوله تاتى بالممارسه ومعرفه الاوامر ثم اننى لم اتعلم الا من اسئلتكم جزاكم الله خيرا

الان, ازهر عبد العزيز said:

الاستاذ @أحمد الفلاحجى بهذة السرعة و السهولة

بالتوفيق اخوانى 🌷

ويمكن استعمال هذا الكود ايضا

Private Sub أمر13_Click()
DoCmd.Save
Me.Refresh
DoCmd.OpenForm "flad1", , , "[idlad]=" & idlad
End Sub

اما عن الفرق سوف ابحث عن المعلومه واتاكد منها ثم اذكرها لكم

او يذكرها لنا احد اخواننا واساتذتنا جزاهم الله خيرا

بالتوفيق اخوانى

**أبوبسمله** · مايو 26, 2020

واضافه لاخى العزيز @ازهر عبد العزيز 🌷

زر انتقال GoTo آخر زر وهو حفظ السجل الجديد والانتقال اليه بدل الكود بالمحرر لما اعلمه سابقا من ارادته بتحويل الكودات للماكرو

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

New Microsoft Access Database (5) - Copy.accdb

**ازهر عبد العزيز** · مايو 26, 2020

1 ساعه مضت, أحمد الفلاحجى said:

واضافه لاخى العزيز @ازهر عبد العزيز 🌷

New Microsoft Access Database (5) - Copy.accdb 584 kB · 0 تنزيلات

شكرا جزيلا استاذي واخي احمد الفلاحجي

**ازهر عبد العزيز** · مايو 26, 2020

الاستاذ @أحمد الفلاحجى ممكن تعمل لي نفس الطريقة على هذا المرفق مع اختلاف في اسم النموذج FALD1 الى النموذج BATT كمثال خند اختيار الاسم E في النوذج LAD والضغط على زر GO TO اريدة ان ينقلي الى النموذج BATT مع انشاء سجل لة بنفس الاسم اذا لم يكن لة سجل سابق اذا امكن

New Microsoft Access Database (5) - Copy.accdb

تم تعديل مايو 26, 2020 بواسطه ازهر عبد العزيز

**أبوبسمله** · مايو 26, 2020

1 ساعه مضت, ازهر عبد العزيز said:

الاستاذ @أحمد الفلاحجى ممكن تعمل لي نفس الطريقة على هذا المرفق مع اختلاف في اسم النموذج FALD1 الى النموذج BATT كمثال خند اختيار الاسم E في النوذج LAD والضغط على زر GO TO اريدة ان ينقلي الى النموذج BATT مع انشاء سجل لة بنفس الاسم اذا لم يكن لة سجل سابق اذا امكن

New Microsoft Access Database (5) - Copy.accdb 1.78 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 3 تنزيلات

لقد حاولت محاوله ولم تنجح

لان فى المثال السابق كان النموذج الذى سننتقل اليه هو الجدول الاساسى وبه نموذج فرعى للجدول الاخر

ان شاء الله احاول فيها مره اخرى بعد اخذ راحه وان شاء الله احد اخواننا واساتذتنا يساعد

بالتوفيق اخى ازهر

**أبوبسمله** · مايو 26, 2020

الحمدلله رب العالمين والصلاه والسلام على اشرف المرسلين سيدنا محمد المبعوث رحمه للعالمين وعلى آله ومن والاه الى يوم الدين

جرب الان اخى @ازهر عبد العزيز

لما تفتح على السجل EE رقم 5 وعند الانتقال سيتم فتح النموذج ووضع رقم السجل فالنموذج سجل بياناتك

فى نموذج batt وفى حقل idlad تم وضع الكود التالى للقيمه الافتراضيه

=[Forms]![lad]![idlad]

بالتوفيق اخى ازهر

New Microsoft Access Database (5) - Copy(2).accdb

تم تعديل مايو 26, 2020 بواسطه أحمد الفلاحجى

**أبوبسمله** · مايو 26, 2020

واليك طريقه اخرى لخى @ازهر عبد العزيز

تم مسح القيمه الافتراضيه بالنموذج للمثال السابق

فى زر انتقال تم وضع القيمه setvalue فالماكرو

بالتوفيق اخى

New Microsoft Access Database (5) - Copy(2)(1).accdb

**الحلبي** · مايو 26, 2020

محاولة منى اخى / @ازهر عبد العزيز

ومشاركة مع معلمى الفاضل / @أحمد الفلاحجى

azhr test.accdb

**أبوبسمله** · مايو 26, 2020

الان, حلبي said:

محاولة منى اخى / @ازهر عبد العزيز

ومشاركة مع معلمى الفاضل / @أحمد الفلاحجى

azhr test.accdb 652 kB · 0 تنزيلات

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

عدل الكود الى ليتم حفظ السجل الجديد اولا ثم الانتقال لقيمته

Private Sub Command60_Click()
DoCmd.RunCommand acCmdSaveRecord

DoCmd.OpenForm "batt", , , "[idlad]=" & idlad

Forms!batt!idlad = Me.idlad
Forms!batt!numsold = Me.nlad
Forms!batt!nbatta = Me.delad


End Sub

نعم كل الطرق تؤدى انا كان ذهنى متشتت بالاضافه الى اننى مانمت الى الان

وبعدما وضعت ردى بالمحاوله الفاشله هدانى الله لوضع القيمه الافتراضيه للحقل فالنموذج عند الفتح

بارك الله فيك وجعلك عونا دائما لاخوانك

تم تعديل مايو 26, 2020 بواسطه أحمد الفلاحجى

**الحلبي** · مايو 26, 2020

امين اخى ومعلمى / @أحمد الفلاحجى

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

**أبوبسمله** · مايو 26, 2020

الان, حلبي said:

امين اخى ومعلمى / @أحمد الفلاحجى

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

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

ثم فى نقطه يرجى الاخذ بها فى الحل التالى يحتفظ النموذج برقم السجل الذى تم الفتح عليه

فى حاله انه سيتم تسجيل اكثر من سجل لنفس الرقم

الان, أحمد الفلاحجى said:
لما تفتح على السجل EE رقم 5 وعند الانتقال سيتم فتح النموذج ووضع رقم السجل فالنموذج سجل بياناتك

فى نموذج batt وفى حقل idlad تم وضع الكود التالى للقيمه الافتراضيه
=[Forms]![lad]![idlad]

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

بالتوفيق اخوانى

**أبوبسمله** · مايو 26, 2020

الحمدلله رب العالمين والصلاه والسلام على اشرف المرسلين سيدنا محمد المبعوث رحمه للعالمين وعلى آله ومن والاه الى يوم الدين

تم معالجه ما تم ذكره سابقا

35 دقائق مضت, أحمد الفلاحجى said:

ثم فى نقطه يرجى الاخذ بها فى الحل التالى يحتفظ النموذج برقم السجل الذى تم الفتح عليه

فى حاله انه سيتم تسجيل اكثر من سجل لنفس الرقم

فى المثالين لى ولأخى العزيز محمد @حلبي جزاه الله خيرا 🌷

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

Private Sub Command60_Click()

DoCmd.RunCommand acCmdSaveRecord
DoCmd.OpenForm "batt", , , "[idlad]=" & idlad

Forms!batt!idlad.DefaultValue = Me.idlad
Forms!batt!numsold = Me.nlad
Forms!batt!nbatta = Me.delad

End Sub

ومثالى تم تعديله الى فى زر الانتقال بالماكرو باضافه [DefaultValue]

[Forms]![batt]![idlad].[DefaultValue]

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

azhr_test_Mohamed.accdb azhr_test_ahmed.accdb

**ازهر عبد العزيز** · مايو 26, 2020

الاستاذالمبدع @أحمد الفلاحجى والاستاذ @حلبي شكرا جزيلا لكما

تسجيل الدخول

مساعدة انشاء سجل جديد عند الانتقال

الردود الموصى بها

ازهر عبد العزيز

أبوبسمله

عفرنس

ازهر عبد العزيز

أبوبسمله

أبوبسمله

ازهر عبد العزيز

ازهر عبد العزيز

أبوبسمله

أبوبسمله

أبوبسمله

الحلبي

أبوبسمله

الحلبي

أبوبسمله

أبوبسمله

ازهر عبد العزيز

Join the conversation

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

تصفح الموقع

تصفح جديد الموقع

Support

Important Information