اذهب الي المحتوي
أوفيسنا

مشكلة في النموذج الفرغي


Shaaban Elnagar

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

السلام عليكم اساتذي الكرام

عمل الجداول وربطها وكذلك النماذج وربطها امر يسير بشكل طبيعي الا في هذه الحاله ما سبب هذه الرساله

وشكرا لكم

لقطة الشاشة (24).png

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

السلام عليكم

مشاركه مع اخواتى واساتذتى الافاضل ابو البشر و ابوجودى

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

ثم وضع كود الترقيم فى حدث عند الفتح

Private Sub Form_Open(Cancel As Integer)
'On Error Resume Next

DoCmd.GoToRecord , , acNewRec
Me.as_a1.SetFocus
Me.as_a1 = Nz(DMax("as_a1", "pu_inv8")) + 1
Me.Pu_inx8.SetFocus
Me.Pu_inx8.Form!as_b2.SetFocus

End Sub

بالتوفيق

1_1.accdb

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

في 16‏/7‏/2022 at 14:24, ابو البشر said:
Set rst = CurrentDb.OpenRecordset("pu_inv8")
With rst
     .AddNew
     .Fields("as_a1") = Forms!pu_inv8.as_a1.Value
     .Fields("as_a2") = Forms!pu_inv8.as_a2
     .Update
 End With

اخي عندما وضعت الكود ظهرة رسالة خطأ

صورة الخطأ.png

1.rar

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

في 16‏/7‏/2022 at 14:29, احمد الفلاحجي said:
Private Sub Form_Open(Cancel As Integer)
'On Error Resume Next

DoCmd.GoToRecord , , acNewRec
Me.as_a1.SetFocus
Me.as_a1 = Nz(DMax("as_a1", "pu_inv8")) + 1
Me.Pu_inx8.SetFocus
Me.Pu_inx8.Form!as_b2.SetFocus

End Sub

اخي احمد عندما افتح النموذج لا يعطيني الترقيم الجديد ويكون حقل الترقيم فارغ وعندما ادخل بيانات في النموذج الفرعي يدخلها دون معوقات لكن المشكله تكون في انني لا يمكن ان انتقل الي ترقيم اخر الا اذا اغلقت النموذج وعدت من جديد ويظر ذلك في ازرار التنقل ان زر جديد لا يكون نشط

ولكم جميعا الف شكر

2.png

2.rar

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

اشكرك علي التعديل الا ان النموذج الرئيسي لا ينتقل الي السجل التالي ولا يكون زر التنقل الي سجل جديد نشط حتي اضغط عليه فينتقل

وشكرا لك علي المجهود والمتابعه

3.png

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

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

وعندما نغلق النموذج ونقوم بفتحه مرة اخري يتم الانتقال فعلا

لقطة الشاشة (43).png

1.rar

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

39 دقائق مضت, ابو البشر said:
DoCmd.GoToRecord , , acNewRec

زر امر و اخر العلاج الكي

في هذا النوع من العلاقات لابد ان نحصل على سجل في الرئيسي قبل الفرعي والا فسوف نحصل على رسالة خطا

جرب المرفق

 

1.accdb

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

السلام عليكم

بعتذر عن التاخير بالرد

وارجو الدعاء لجدى واسال الله ان يرحمه برحمته الواسعه وان يجعل قبره روضه من رياض الجنه

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

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

هذا التعديل ع مثال اخى ومعلمى ووالدى الحبيب @مبرمج سابق واعتذر لو قمت بالتعديل بدون استئذان

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

والثانى لمطلب الاستاذ شعبان

في 18‏/7‏/2022 at 00:05, Shaaban Elnagar said:

هل من الممكن ان يفتح النموذج علي سجل جديد

 

Private Sub Form_Open(Cancel As Integer)
'If Me.NewRecord Then
أمر11_Click
'End If
End Sub

Private Sub أمر11_Click()
DoCmd.GoToRecord , , acNewRec
Me.as_a1 = Nz(DMax("as_a1", "pu_inv8")) + 1
Me.as_a2 = Date
Me.Pu_inx8.SetFocus
Me.Refresh
Me.Pu_inx8.Form!as_b2.SetFocus
End Sub

 

وأخيرا اسالكم مره اخرى الدعاء لجدى بالرحمه ولجميع امواتنا من المؤمنين والمؤمنات والمسلمين والمسلمات

وجزاكم الله خيرا

1(1).accdb

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

6 ساعات مضت, احمد الفلاحجي said:

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

فعلا كلامك صحيح نسيت الغي استدعاء الامر 🌹

6 ساعات مضت, احمد الفلاحجي said:

وأخيرا اسالكم مره اخرى الدعاء لجدى بالرحمه ولجميع امواتنا من المؤمنين والمؤمنات والمسلمين والمسلمات

اللَّهُمَّ، اغْفِرْ له وَارْحَمْهُ، وَاعْفُ عنْه وَعَافِهِ، وَأَكْرِمْ نُزُلَهُ، وَوَسِّعْ مُدْخَلَهُ، وَاغْسِلْهُ بمَاءٍ وَثَلْجٍ وَبَرَدٍ، وَنَقِّهِ مِنَ الخَطَايَا كما يُنَقَّى الثَّوْبُ الأبْيَضُ مِنَ الدَّنَسِ

 

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

7 ساعات مضت, احمد الفلاحجي said:

وأخيرا اسالكم مره اخرى الدعاء لجدى بالرحمه ولجميع امواتنا من المؤمنين والمؤمنات والمسلمين والمسلمات

يارب اغفر له وارحمه وعافه واعف عنه واخلفه في أهل بخير واجمعنا به ووالدينا وجميع في المسلمين في الفردوس الأعلى من الجنة وكل من قرأ وشارك.. يارب..

كتب الله أجركم ورضي عنكم،،

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

ابنى / @احمد الفلاحجيواستاذى ومعلمى

اللهم ارحم جدتك واغفره له واجعل مسواه الجنه وطهره بالماء والثلج وسهل عليه الحساب وارحمه رحمة واسعة ياارحم الرحمين واجمعنا يوم الحساب بجميع المؤمنين والمسلمين اجمعين

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

22 ساعات مضت, احمد الفلاحجي said:
Refresh

اخي @احمد الفلاحجي شكرا علي المجهود

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

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

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

وشكرا علي سعة صدركم وتحملكم

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

17 ساعات مضت, مبرمج سابق said:

نسيت الغي استدعاء الامر 🌹

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

17 ساعات مضت, مبرمج سابق said:

اللَّهُمَّ، اغْفِرْ له وَارْحَمْهُ، وَاعْفُ عنْه وَعَافِهِ، وَأَكْرِمْ نُزُلَهُ، وَوَسِّعْ مُدْخَلَهُ، وَاغْسِلْهُ بمَاءٍ وَثَلْجٍ وَبَرَدٍ، وَنَقِّهِ مِنَ الخَطَايَا كما يُنَقَّى الثَّوْبُ الأبْيَضُ مِنَ الدَّنَسِ

اللهم آمين

16 ساعات مضت, حامل المسك said:

يارب اغفر له وارحمه وعافه واعف عنه واخلفه في أهل بخير واجمعنا به ووالدينا وجميع في المسلمين في الفردوس الأعلى من الجنة وكل من قرأ وشارك.. يارب..

كتب الله أجركم ورضي عنكم،،

اللهم آمين

13 ساعات مضت, الحلبي said:

ابنى / @احمد الفلاحجيواستاذى ومعلمى

اللهم ارحم جدتك واغفره له واجعل مسواه الجنه وطهره بالماء والثلج وسهل عليه الحساب وارحمه رحمة واسعة ياارحم الرحمين واجمعنا يوم الحساب بجميع المؤمنين والمسلمين اجمعين

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

اللهم آمين

جزاكم الله خيرا اخوانى وتقبل الله منكم

1 ساعه مضت, Shaaban Elnagar said:

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

اللهم آمين

طيب اخى @Shaaban Elnagar

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

1 ساعه مضت, Shaaban Elnagar said:

وان لم ادخل بيانات في النموذج

هل تقصد النموذج الفرعى

طيب وهل تريد وقف الانتقال لرقم جديد الى ان يتم ملىء النموذج الفرعى ام ماذا ؟

بالتوفيق

1_2.accdb

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

  • 2 weeks later...

استاذ @احمد الفلاحجي معذرة علي التأخير 

في المثال المرقق النموذج (فاتورة بيع اجل)

عندما افتحه يفتح علي فاتورة جديدة بدون اية ازرار أو اكواد وشكرا لك

 

1_3.rar

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

في 29‏/7‏/2022 at 12:22, Shaaban Elnagar said:

استاذ @احمد الفلاحجي معذرة علي التأخير 

في المثال المرقق النموذج (فاتورة بيع اجل)

عندما افتحه يفتح علي فاتورة جديدة بدون اية ازرار أو اكواد وشكرا لك

استاذ  @احمد الفلاحجي 

نسيت ان اكمل كلامي اني اريد ان يفتح النموذج pu_inv8 بنفس الصورة التي يفتح بها pu_inv6 او ما يسمي (فاتورة بيع اجل) علي فاتورة جديدة بدون اية ازرار أو اكواد أو تدخل مني

اليك المرفق من جديد وشكرا لك علي سعة صدرك

1_3.accdb

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

1 ساعه مضت, Shaaban Elnagar said:

نسيت ان اكمل كلامي اني اريد ان يفتح النموذج pu_inv8 بنفس الصورة التي يفتح بها pu_inv6 او ما يسمي (فاتورة بيع اجل) علي فاتورة جديدة بدون اية ازرار أو اكواد أو تدخل مني

هل جربت المثال الاخير المعدل ؟

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

بالتوفيق

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

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