jjafferr

1. هذا الشيء مو ممكن يصير ، لأن طلبك سابقا كان يستثني بيانات النموذج اليسار من اليمين ، فالنموذجين ما يمكن يكون فيها نفس البيانات !! 2. اذا قصدك انه اذا لم توجد بيانات في النموذج اليمين (لأن كلها صارت في النموذج اليسار) ، فهنا تستطيع استعمال الكود الذي اقترحه اخونا @ابو نزار ، طبعا مع مراعاة اسماء الاستعلامات التي استعملها في الكود اعلاه ، لتلائم مسميات برنامجك 🙂 جعفر

عفوا هذا اسم الحقل في الاستعلام: استعمال صفر للحقل الفارغ ABC_1: nz([abc],0) استعمال فراغ "" للحقل الفارغ ABC_1: nz([abc],"") جعفر

وعليكم السلام ورحمة الله 🙂 اخي الفاضل اهلا وسهلا بك في المنتدى ، وللاستفادة من المنتدى ، رجاء قراءة قوانين المنتدى: اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة تم حذف رابط المشاركة ، حيث برنامج كاسبرسكاي قال بأن الموقع به برامج مؤذية ، كما ان حجم البرنامج اقل من 3 ميجا ، فلهذا السبب فبإستطاعتك ان ترفقه هنا في المنتدى. جعفر

رجاء مراجعة هذا الرابط ، فيه الاكواد المطلوبة جعفر

وعليكم السلام 🙂 الامر الذي يحول الحقل Null الى صفر هو NZ ، هكذا : استعمال صفر للحقل الفارغ nz([abc],0) استعمال فراغ "" للحقل الفارغ nz([abc],"") . ولكن لا ادري اذا هذا جواب لسؤالك !! جعفر

الطريقة هي في المادة رقم 2 من الرابط جعفر

حياك الله 🙂 في الواقع الحل هو نفسه الذي قدمه احوي @Ahmed_J ، ولكنه خانه التعبير ، فبدل ان يتأكد من قيمة المقام (القيمة المقسوم عليها ، التي في الاسفل) ، تأكد من قيمة البسط (القيمة المقسوم يها ، التي في الاعلى) 🙂 جعفر

وعليكم السلام 🙂 هل انت طالب او مدرس ، لأن اسألتك تدور حول بديهيات الاكسس ، كأنها دروس 😁 عملت تغيير في النموذج ، فاصبحت الازرار . اول 3 ازرار ترسل البيانات مباشرة من النموذج الرئيسي لحقول النموذج الفرعي : Private Sub cmd_xr_Click() 'عند الضغط على الزر في النموذج الرئيسي xr Me.fx!x = "xr" Me.fx!x1 = 2 Me.fx!x2 = 4 Me.fx!x3 = 1 Me.fx!x4 = 0 End Sub Private Sub cmd_xm_Click() 'عند الضغط على الزر في النموذج الرئيسي xm Me.fx!x = "xm" Me.fx!x1 = 2 Me.fx!x2 = 4 Me.fx!x3 = 1 Me.fx!x4 = 0 End Sub Private Sub cmd_xn_Click() 'عند الضغط على الزر في النموذج الرئيسي xn Me.fx!x = "xn" Me.fx!x1 = 2 Me.fx!x2 = 4 Me.fx!x3 = 1 Me.fx!x4 = 0 End Sub . الزرين الاخيرين ، ننادي دالتين في النموذج الفرعي : Private Sub cmd_xs_Click() Call Form_fx.Enter_xs End Sub Private Sub cmd_Subform_Event_Click() Call Form_fx.I_am_MsgBox End Sub . نعمل دوال في النموذج الفرعي ، ولكي نستطيع ان نراها/نقرأها من خارج النموذج ، يجب ان نستعمل Public : Public Sub Enter_xs() Me.x = "xs" Me.x1 = 2 Me.x2 = 4 Me.x3 = 1 Me.x4 = 0 End Sub Public Sub I_am_MsgBox() MsgBox "قيمة x تساوي" & vbCrLf & Nz(Me.x, "") End Sub . جعفر 1482.fyfx.accdb.zip

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

وعليكم السلام 🙂 يجب تعديل مصدر بيانات الحقل text37 الى : اذا قيمة حقل البنزين = 0 اذا اردت قيمة الحقل text37 = "" =IIf([fuel]=0,"",[text35]*20/[fuel]) اذا اردت قيمة الحقل text37 = 0 =IIf([fuel]=0,0,[text35]*20/[fuel]) . قد تضطر الى استعمال الفاصلة المنقوطة ; بدلا عن الفاصلة في الكود اعلاه. والنتيجة جعفر

السلام عليكم اخوي موسى 🙂 انا ، وعلشان الوضوح اني انادي دالة : بدل firstAndLastDay Me.txtMonthNo استعمل call firstAndLastDay (Me.txtMonthNo) حعفر

هلا والله اخوي ابوخليل 🙂 انا وياك متفقين دائما ان شاء الله 🙂 بالنسبة للنقطة 4 ، فنعم لو فيه برواز للنموذج الامامي ، فستكون محتويات النموذج واضحة بانتمائها لهذا النموذج ، وبالنسبة للالوان ، فلون الخط الازرق الفاتح ، يحتاج معالجة شوي ، وطبعا اتفق معاك ان يكون لجميع النماذج طابع واحد ، من مكان قفل النموذج ، الى سجل جديد ، ووو واما شديد ، فظاهره الشدة وداخله اللين 🙂 راحت الشدة ، واختربت القضية ، الآن اخونا سامي بيلعب على كيفه ، وخلينا نحسب كم هدف بيجيب 😁 جعفر

وعليكم السلام ورحمة الله 🙂 اهلا وسهلا بك في المنتدى ، وللاستفادة القصوى من المنتدى ، رجاء مراجعة قوانين المنتدى: اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة بما انك طالب ، اذن خليني اشرح لك ، وانت تعمل الباقي للحصول على النتيجة ادناه 🙂 . 1. اعمل استعلام خاص للنموذج الذي على اليسار ، ولنحفظه باسم qry_Left ، واجعل هذا مصدر بيانات النموذج الذي على اليسار ، 2. اعمل استعلام خاص للنموذج الذي على اليمين ، ولنحفظه باسم qry_Right ، واجعل هذا مصدر بيانات النموذج الذي على اليمين ، 3. في الاستعلام qry_Right ، في معيار الحقل Employee_Name ، سنكتب (لا يوجد Not In) اننا لا نريد الاسماء من الاستعلام qry_Left ، وهذا هو المعيار: not in(Select Employee_Name From qry_Left) 4. اغلق كل شيء ، وافتح من جديد ، وسترى النتيجة اعلاه 🙂 جعفر

حياك الله اخوي خالد ، واهلا وسهلا بك في المنتدى ، وللاستفادة القصوى من المنتدى ، الرجاء قراءة قوانين المنتدى: اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة احنا في المنتدى نأخذ راحتنا ، وبعض الاوقات نمزح كما رايت في مشاركتي 🙂 للجواب على سؤالك : 1. رجاء فتح موضوع جديد ، وتشرح فيه المطلوب ، 2. يجب ان ترفق بيانات حتى يعطيك الاعضاء جواب لبياناتك ، واذا لم تعطي بيانات ، فليس عدلا ان يعملون هم بيانات لك !! 3. رجاء ، اخبرنا كيف يجب ان تكون النتيجة النهائية (من بياناتك) ، سواء عن طريق ملف اكسل او وورد. 4. نحن مبرمجين ، ونعم هناك محاسبين معنا ، فلا تتوقع منا معرفة الطريقة المحاسبية لحل الموضوع ، وانما سنحل لك الموضوع برمجيا كالمثال الذي سترفقه من المادة 3 اعلاه 🙂 جعفر

متابع بعد 14 سنة من تاريخ الموضوع 😁

وعليكم السلام ورحمة الله وبركاته 🙂 اضف هذا السطر في نهاية الكود (هكذا موجود في كود كتبته يوم من الايام ، بس ما فيه ملاحظة في الكود ، فلا اعرف اذا يعمل العمل الذي تريده) : app.UserControl = True جعفر

وعليكم السلام 🙂 1. لازلت تستخدم بعض الصور المضمنه ، بدل ان تربطها عند حدث تحميل النموذج ، 2. هناك نموذج لا توجد طريقة لإغلاقة ، 3. الالوان وحجم الخط والوان الخط ، مو مناسبين لي (يا اخي انا حر في مزاجي 😁) ، 4. لما تفتح نموذج ، ويكون امام نموذج آخر ، فيكون فيه تلاحم وتخالط في الالوان ، بينما احب ان يكون النموذج ظاهر وواضح بشخصيته ، 5. النموذج frmReceive&Return ، اسمه غلط ، فلا يجب استعمال علامة & في الاسم ، وكذلك فيه اخطاء ، فإذا ما كنت تريده ، احذفه او اعمل على الاسم علامة مثل frmReceive&Return_OLD وبالتالي تعرف انك استبدلته بنموذج آخر ، وانك تحتفظ به مؤقتا ، 6. صحيح تقدر تستعمل Me.Filter ، ولكن تجربتي جعلتني انتقل الى فلتر/تصفية الاستعلام ، والسبب انك يجب ان تتأكد ان Me.Filter فارغ وقت فتح النموذج ، بينما اذا كان عندك Filter ثم فتحت النموذج في وضع Layout ، فان الاكسس يحفظ معلومات الفلتر ضمن النموذج (نفس الشيء بالنسبة للصور كذلك) ، ويجب عليك حذفه وحفظ النموذج مرة اخرى ، 7. انا مو من محبي Set fso = CreateObject("scripting.filesystemobject") إلا في حالات نادرة (مثل لمعرفة مسار سطح المكتب) ، لأنك تضيف اوامر خارجية على الاكسس ، بينما هناك اوامر من الاكسس نفسه لمعظم اوامر fso (لا تنسى ، كل امر في الكود يستهلك قوة من المعالج CPU ويأخذ حيز من الذاكرة المؤقته RAM ، فلماذا هذه الاضافة) ، 8. اذا بتجعل هذا البرنامج في شبكة ، ويكون فيه واجهة على كل كمبيوتر ، وتكون الجداول على السيرفر/الشبكة ، ففي نفس السيرفر او مسار الجداول نضع مجلد الصور ، فعليه الامر Application.CurrentProject.Path يعطيك مسار الواجهة وليس الجداول ، وللحصول على مسار الجداول ، انظر هنا : جعفر

وعليكم السلام 🙂 حسب نتيجة بحثي الآن ، ممكن واحد من هذه الاسباب ، وطبعا يجب ان تكون في وضع التصميم : اذا لما تنقر على زر الخصائص ، يتحول لونه الى برتقالي (او ممكن عن طريق لوحة المفاتيح Alt + Enter) ، فممكن المشكلة (اترك الزر ولونه برتقالي) : 1. نافذة الخصائص ممكن تكون على يمين او يسار الشاشة ، فيجب تغيير دقة الشاشة وتكبيرها ، ثم ستراها ، فقم بسحبها الى منتصف الشاشة وقم بتصغيرها للحجم المناسب ، 2. اذا لم تراها ، فقد يكون حجمها صغير جدا ، لذا انقر على زر الخصائص عدة مرات وحاول ان ترى اي نقطة في الشاشة ، وتستطيع تكبيرها. 3. اضغط على Alt Space S واستعمل الاسهم لتكبير وتوسيع العرض والارتفاع (لا تخاف في ان تعمل العرض كبير ، بعدين تقدر تضبطه) وتحريك الفأرة الى منتصف الشاشة واضغط على الزر Enter. اما اذا نقرت على زر الخصائص ولم يتحول لونها برتقالي ، او لم يستجيب الزر ، فقد يكون هناك كود يقوم بتوقيف القوائم ، فاعمل التالي حتى تظهرها: افتح نافذة الكود بالمفاتيح Ctrl + G وفي اسفل النافذة ، في نافذة immediate window . اكتب التالي ، ثم اضغط على زر Enter في لوحة المفاتيح (اكتب اول سطر ثم اضغط Enter ، ثم احذف الموجود واكتب السطر التالي واضغط Enter ، ثم احذف الموجود واكتب السطر التالي واضغط Enter) فالمفروض ان تظهر نافذة الخصائص في اعلى يسار الشاشة : CommandBars("Property Sheet").Enabled = True CommandBars("Property Sheet").Top = 0 CommandBars("Property Sheet").Left = 0 . واذا كذلك لم تظهر نافذة الخصائص ، اكتب التالي في immediate window CommandBars("Property Sheet").Position =msoBarTop ثم اضغط على زر Enter في لوحة المفاتيح ، وستأتيك نافذة ، انقر على No (واذا لم يحدث شيء ، جربها مرة اخرى ، وهذه المرة انقر على Yes) جعفر

في احد برامجي ، انقر نقرتين على الصورة ، وهذا الكود خلف النقرتين : Private Sub Pic_DblClick(Cancel As Integer) 'use irfan view to copy the picture in clipboard dim A as string A = "C:\Program Files\IrfanView\" 'location of i_view32.exe file Shell (A & "i_view32.exe " & Me.Pic.Picture & "/ClipCopy /killmesoftly") MsgBox "تم عمل نسخة من هذه الصورة في الذاكرة ، يمكنك الصاقها في اي برنامج" & vbCrLf & _ "This image is copied in the clipboard, you can paste it in any program" End Sub . ثم الصق الصورة في اي برنامج ، مثل الوورد 🙂 لإستعمال الكود ، استخدم برنامج IrfanView المجاني من هنا: https://www.irfanview.com/ وضبط المسار ، والنسخة سواء 64 او 32 بت ، واسم حقل الصورة هو Pic ، فيقوم الكود بحفظ الصورة في الذاكرة ، وبدون اي واجهة 🙂 جعفر

لا يحتوي على فايروس ، وانما بسبب موقع التحميل ، فيعطيك الكمبيوتر رسالة تحذيرية 🙂 جعفر

تفضل Me.Parent!finfo.SetFocus DoCmd.GoToRecord , , acNewRec Me.Parent!finfo!namebook.setfocus جعفر

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

وعليكم السلام 🙂 الظاهر هذا الكود اصلا كان لبحث اسم الكتاب ، وهذا معناه ان البيانات لا تتغير ، وانما البحث سيكون لعدة مرات ، فبدل ان ان اجعل الكود في كل مرة يأخذ RecordSet النموذج ويجعله في الذاكرة (طبعا يأخذ وقت، صحيح جدا بسيط ، ولكنه ملحوظ) ، فجعلته يأخذ RecordSet النموذج مرة واحدة فقط ، ويستخدمه مرارا : المفروض يكون Set rst_fy = Forms!freadermain!finfo.Form.RecordsetClone بينما انا جعلته هكذا 'take the Recordset one time, use it many times If rst_n = 0 Then Set rst_fy = Forms!freadermain!finfo.Form.RecordsetClone rst_n = 1 End If وتصريح المتغيرات في اعلى الوحدة النمطية ، حتى تبقى قيمها في الذاكرة ، الى ان نحذفها نحن Dim rst_fy as dao.Recordset Dim rst_n As Integer . هذا مو شغل الكود ، وانما شغل جني او عفريت 😁 اما الكود ، كيف ينقل التركيز على اسم الكتاب ، وانت قلت انه غير موجود 😲 جعفر

وعليكم السلام اخي عبدالله 🙂 هذين المرفقين سيساعدوك ان شاء الله . . جعفر

السلام عليكم 🙂 تم حذف "موضوع مهم جدا جدا" من اسم الموضوع 🙂 رجاء الالتزام بقوانين المنتدى 🙂 جعفر