Shaaban Elnagar قام بنشر يوليو 16, 2022 قام بنشر يوليو 16, 2022 (معدل) السلام عليكم اساتذي الكرام عمل الجداول وربطها وكذلك النماذج وربطها امر يسير بشكل طبيعي الا في هذه الحاله ما سبب هذه الرساله وشكرا لكم تم تعديل يوليو 16, 2022 بواسطه Shaaban Elnagar
ابو البشر قام بنشر يوليو 16, 2022 قام بنشر يوليو 16, 2022 اضف هذا الكود تحت امر عند فتح النموذج الرئيسي لديك .... 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 1
ابوبسمله قام بنشر يوليو 16, 2022 قام بنشر يوليو 16, 2022 السلام عليكم مشاركه مع اخواتى واساتذتى الافاضل ابو البشر و ابوجودى اولا قمت بازاله القيمه الافتراضيه للترقيم فالنموذج الرئيسى وكذلك تعديل خاصيه ممكن الى نعم ثم وضع كود الترقيم فى حدث عند الفتح 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 3
Shaaban Elnagar قام بنشر يوليو 17, 2022 الكاتب قام بنشر يوليو 17, 2022 في 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 اخي عندما وضعت الكود ظهرة رسالة خطأ 1.rar
Shaaban Elnagar قام بنشر يوليو 17, 2022 الكاتب قام بنشر يوليو 17, 2022 في 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.rar
ابو البشر قام بنشر يوليو 17, 2022 قام بنشر يوليو 17, 2022 17 دقائق مضت, Shaaban Elnagar said: اخي عندما وضعت الكود ظهرة رسالة خطأ تفضل ملفك .... واعلمنا بالنتيجة ... 1.rar 2
Shaaban Elnagar قام بنشر يوليو 17, 2022 الكاتب قام بنشر يوليو 17, 2022 اشكرك علي التعديل الا ان النموذج الرئيسي لا ينتقل الي السجل التالي ولا يكون زر التنقل الي سجل جديد نشط حتي اضغط عليه فينتقل وشكرا لك علي المجهود والمتابعه
ابو البشر قام بنشر يوليو 17, 2022 قام بنشر يوليو 17, 2022 اصنع زر سجل جديد وضع فيع هذا ... Me.Requery DoCmd.GoToRecord , , acNewRec 2
Shaaban Elnagar قام بنشر يوليو 17, 2022 الكاتب قام بنشر يوليو 17, 2022 اخي الفاضل لقد اتعبتك معي الانتقال يحدث ولكن بشكل صوري وليس فعليا داخل الجدول لذا تظهر رسالة الخطأ وعندما نغلق النموذج ونقوم بفتحه مرة اخري يتم الانتقال فعلا 1.rar
متقاعد قام بنشر يوليو 17, 2022 قام بنشر يوليو 17, 2022 39 دقائق مضت, ابو البشر said: DoCmd.GoToRecord , , acNewRec زر امر و اخر العلاج الكي في هذا النوع من العلاقات لابد ان نحصل على سجل في الرئيسي قبل الفرعي والا فسوف نحصل على رسالة خطا جرب المرفق 1.accdb 1
Shaaban Elnagar قام بنشر يوليو 17, 2022 الكاتب قام بنشر يوليو 17, 2022 مطلب اخير من حضراتكم هل من الممكن ان يفتح النموذج علي سجل جديد وشكرا لكم
ابوبسمله قام بنشر يوليو 18, 2022 قام بنشر يوليو 18, 2022 السلام عليكم بعتذر عن التاخير بالرد وارجو الدعاء لجدى واسال الله ان يرحمه برحمته الواسعه وان يجعل قبره روضه من رياض الجنه وجزاهم الله خيرا اخوتى واساتذتى @ابو البشر و @مبرمج سابق على كل ما يقدمونه لنا فى سبيل التعلم والمساعده لاخوانهم المبتدئين امثالى 💐 واعذرنى فلم ارى مشكله بمثالى الذى ارفقته او الذى ارفقته انت استاذ شعبان ردا على مشاركتى ولا ادرى السبب هذا التعديل ع مثال اخى ومعلمى ووالدى الحبيب @مبرمج سابق واعتذر لو قمت بالتعديل بدون استئذان وهذا التعديل لسببين فى المثال السابق لمعلمى ووالدى الحبيب خالد عند الضغط عالزر يقوم بزياده الرقم بمعنى اذا كان المفروض السجل الثانى رقم 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 2
متقاعد قام بنشر يوليو 19, 2022 قام بنشر يوليو 19, 2022 6 ساعات مضت, احمد الفلاحجي said: وهذا التعديل لسببين فى المثال السابق لمعلمى ووالدى الحبيب خالد عند الضغط عالزر يقوم بزياده الرقم بمعنى اذا كان المفروض السجل الثانى رقم 2 فيقوم باضافه 1 مره اخرى فيصبح 3 فعلا كلامك صحيح نسيت الغي استدعاء الامر 🌹 6 ساعات مضت, احمد الفلاحجي said: وأخيرا اسالكم مره اخرى الدعاء لجدى بالرحمه ولجميع امواتنا من المؤمنين والمؤمنات والمسلمين والمسلمات اللَّهُمَّ، اغْفِرْ له وَارْحَمْهُ، وَاعْفُ عنْه وَعَافِهِ، وَأَكْرِمْ نُزُلَهُ، وَوَسِّعْ مُدْخَلَهُ، وَاغْسِلْهُ بمَاءٍ وَثَلْجٍ وَبَرَدٍ، وَنَقِّهِ مِنَ الخَطَايَا كما يُنَقَّى الثَّوْبُ الأبْيَضُ مِنَ الدَّنَسِ 1
حامل المسك قام بنشر يوليو 19, 2022 قام بنشر يوليو 19, 2022 7 ساعات مضت, احمد الفلاحجي said: وأخيرا اسالكم مره اخرى الدعاء لجدى بالرحمه ولجميع امواتنا من المؤمنين والمؤمنات والمسلمين والمسلمات يارب اغفر له وارحمه وعافه واعف عنه واخلفه في أهل بخير واجمعنا به ووالدينا وجميع في المسلمين في الفردوس الأعلى من الجنة وكل من قرأ وشارك.. يارب.. كتب الله أجركم ورضي عنكم،،
الحلبي قام بنشر يوليو 19, 2022 قام بنشر يوليو 19, 2022 ابنى / @احمد الفلاحجيواستاذى ومعلمى اللهم ارحم جدتك واغفره له واجعل مسواه الجنه وطهره بالماء والثلج وسهل عليه الحساب وارحمه رحمة واسعة ياارحم الرحمين واجمعنا يوم الحساب بجميع المؤمنين والمسلمين اجمعين
Shaaban Elnagar قام بنشر يوليو 19, 2022 الكاتب قام بنشر يوليو 19, 2022 22 ساعات مضت, احمد الفلاحجي said: Refresh اخي @احمد الفلاحجي شكرا علي المجهود واللهم اغفر لجدك وارحمه وارحم جميع اموات المسلمين الزر يقوم بعمل ترقيم لا نهائي مع كل ضغطه حتي وان لم ادخل بيانات في النموذج وهذا بخلاف زر التنقل الموجود بالنموذج الرئيسي الذي لا ينشط مرة اخري الا بعد ادخال بيانات اشكركم جميعا علي ما بذلتموه من عمل اكواد واعود الي اساس المشكله هل هي مشكلة علاقات ان كانت مشكلة علاقات ارجو منكم وضع الشكل المناسب للعلاقه بين الجدولين بالشكل الذي يسهل من عملية الربط وادخال البيانات اعتمادا علي الازرار الاساسيه في البرنامج دون عمل ازرار جديده وشكرا علي سعة صدركم وتحملكم
ابوبسمله قام بنشر يوليو 19, 2022 قام بنشر يوليو 19, 2022 17 ساعات مضت, مبرمج سابق said: نسيت الغي استدعاء الامر 🌹 ولا يهمك اخى ومعلمى ووالدى الحبيب فما نسيته انت فقد اكملته نيابه عنك فهذا قليل مما تعلمناه منكم فجزاكم الله عنا كل خير 💐 17 ساعات مضت, مبرمج سابق said: اللَّهُمَّ، اغْفِرْ له وَارْحَمْهُ، وَاعْفُ عنْه وَعَافِهِ، وَأَكْرِمْ نُزُلَهُ، وَوَسِّعْ مُدْخَلَهُ، وَاغْسِلْهُ بمَاءٍ وَثَلْجٍ وَبَرَدٍ، وَنَقِّهِ مِنَ الخَطَايَا كما يُنَقَّى الثَّوْبُ الأبْيَضُ مِنَ الدَّنَسِ اللهم آمين 16 ساعات مضت, حامل المسك said: يارب اغفر له وارحمه وعافه واعف عنه واخلفه في أهل بخير واجمعنا به ووالدينا وجميع في المسلمين في الفردوس الأعلى من الجنة وكل من قرأ وشارك.. يارب.. كتب الله أجركم ورضي عنكم،، اللهم آمين 13 ساعات مضت, الحلبي said: ابنى / @احمد الفلاحجيواستاذى ومعلمى اللهم ارحم جدتك واغفره له واجعل مسواه الجنه وطهره بالماء والثلج وسهل عليه الحساب وارحمه رحمة واسعة ياارحم الرحمين واجمعنا يوم الحساب بجميع المؤمنين والمسلمين اجمعين يشرفنى منادتكم لى بابنكم دكتور محمد ولا يصح ان يتوجه الاب لابنه باستاذى ومعلمى اللهم آمين جزاكم الله خيرا اخوانى وتقبل الله منكم 1 ساعه مضت, Shaaban Elnagar said: واللهم اغفر لجدك وارحمه وارحم جميع اموات المسلمين اللهم آمين طيب اخى @Shaaban Elnagar جرب المثال المرفق هو نفس مثالى الاول مع تعديل بسيط وبدون ازرار وان شاء الله يشتغل معك هذه المره 1 ساعه مضت, Shaaban Elnagar said: وان لم ادخل بيانات في النموذج هل تقصد النموذج الفرعى طيب وهل تريد وقف الانتقال لرقم جديد الى ان يتم ملىء النموذج الفرعى ام ماذا ؟ بالتوفيق 1_2.accdb 1
Shaaban Elnagar قام بنشر يوليو 29, 2022 الكاتب قام بنشر يوليو 29, 2022 استاذ @احمد الفلاحجي معذرة علي التأخير في المثال المرقق النموذج (فاتورة بيع اجل) عندما افتحه يفتح علي فاتورة جديدة بدون اية ازرار أو اكواد وشكرا لك 1_3.rar
Shaaban Elnagar قام بنشر يوليو 30, 2022 الكاتب قام بنشر يوليو 30, 2022 في 29/7/2022 at 12:22, Shaaban Elnagar said: استاذ @احمد الفلاحجي معذرة علي التأخير في المثال المرقق النموذج (فاتورة بيع اجل) عندما افتحه يفتح علي فاتورة جديدة بدون اية ازرار أو اكواد وشكرا لك استاذ @احمد الفلاحجي نسيت ان اكمل كلامي اني اريد ان يفتح النموذج pu_inv8 بنفس الصورة التي يفتح بها pu_inv6 او ما يسمي (فاتورة بيع اجل) علي فاتورة جديدة بدون اية ازرار أو اكواد أو تدخل مني اليك المرفق من جديد وشكرا لك علي سعة صدرك 1_3.accdb
ابوبسمله قام بنشر يوليو 30, 2022 قام بنشر يوليو 30, 2022 1 ساعه مضت, Shaaban Elnagar said: نسيت ان اكمل كلامي اني اريد ان يفتح النموذج pu_inv8 بنفس الصورة التي يفتح بها pu_inv6 او ما يسمي (فاتورة بيع اجل) علي فاتورة جديدة بدون اية ازرار أو اكواد أو تدخل مني هل جربت المثال الاخير المعدل ؟ لا اعتقد بانك قمت بتجربته لان المثال تم تعديله كالسابق فعليا فيتم فتح النموذج ع فاتوره جديده ويتم التسجيل بالفرعى دون اى مشاكل بالتوفيق 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.