اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة Solved by أبوبسمله,

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

السلام عليكم 

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

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

New Microsoft Access Database (5) - Copy.accdb

رابط هذا التعليق
شارك

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

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

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

بالتوفيق اخى

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

New Microsoft Access Database (5) - Copy.accdb

  • Thanks 1
رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

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

Capture.JPG

New Microsoft Access Database (5) - Copy.accdb

تم تعديل بواسطه ازهر عبد العزيز
رابط هذا التعليق
شارك

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

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

Capture.JPG

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

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

تم تعديل بواسطه أحمد الفلاحجى
  • Like 1
رابط هذا التعليق
شارك

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

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

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

بالتوفيق اخى

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

رابط هذا التعليق
شارك

الان, حلبي 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

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

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

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

الان, حلبي said:

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

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

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

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

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

الان, أحمد الفلاحجى said:

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

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


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

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

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

رابط هذا التعليق
شارك

  • أفضل إجابة

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

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information