jjafferr

وعليكم السلام انت محتاج هذا الكود ليحسب عدد السجلات في النموذج الفرعي fd If Me.frmsubSearch_sales.Form.Recordset.recordcount = 0 Then MsgBox "عفوا ، لا توجد فواتير بهذا الرقم" End If . ويكون في احد احداث الحقل n3 ، سواء بعد التحديث او قبل التحديث او حتى في نهاية الكود الموجود حاليا جعفر

حياك الله وشكرا على التقرير جعفر

لما عملت الكود اعلاه على زر الحفظ ، هل عندك نموذج بإسم frm_Main وبه حقل بإسم iRjmFatwra ؟ هناك عدة طرق تأتي على بالي لمنع تكرار ادخال البيانات ، منها في الاستعلام ، بحيث نجمع اكثر من حقل مع بعض ، مثلا: chk_Dup: [Rjmfatwra] & [Rajmsanf] & [Alkmiah] & [NoEmp] & [Atarih] ثم نقارن بيانات النموذج الفرعي بهذه البيانات عن طريق Dlookup مثلا ، فاذا موجود سجل واحد منها ، فهذا دليل انه تم حفظ البيانات سابقا ، او بعد الحفظ ، نجعل الزر غير مفعّل: me.أمر16.enabled=false ثم عند فتح فاتورة ثانية (او اي طريقة تعتقد انها مناسبة) ، تعمل تفعيل للزر. جعفر

اعتذر بدل instrev اكتب instrrev . اما الطريقة الثانية فتعمل تمام وبدون تعديل وتفضل ، كل الطرق الاربعة في استعلام: SELECT Mid([PicFile],InStrRev([PicFile],"\")+1) AS City, Replace(Replace(Mid([PicFile],InStrRev([PicFile],"\")+1),".png",""),".jpg","") AS City2, Replace([PicFile],"C:\Teed\","") AS city3, Replace(Replace(Replace([PicFile],"C:\Teed\",""),".png",""),".jpg","") AS city4 FROM tbl_pic; . جعفر

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

وعليكم السلام جرب هذا : City: mid([PicFile],instrev([PicFile],"\")+1) واما اذا اردت الاسم فقط City: replace(replace(mid([PicFile],instrev([PicFile],"\")+1),".png",""),".jpg","") . او city: replace([PicFile],"C:\Teed\","") والاسم فقط city: replace(replace(replace([PicFile],"C:\Teed\",""),".png",""),".jpg","") جعفر

وعليكم السلام 1. احنا في الاستعلام وضعنا معيار ، والمعيار به اسم النموذج واسم الحقل ، لذلك لا نستطيع استعماله في نموذج آخر!! نعم هناك طريقة انا استخدمها في جميع برامجي تقريبا ، وهي: أ. عندي نموذج واجهة frm_Main دائما مفتوح ، واعمل فيه مجموعة حقول مخفية وغير مضمنه ولا مرتبطة بشيء ، ب. فإذا اردت ان اجعل معيار الاستعلام يعمل لجميع النماذج ، اعمل التالي: اُسمي احد حقول النموذج الرئيسي frm_Main ، اسم iRjmFatwra ، قبل استعمال الاستعلام (سواء استعمال الاستعلام بمفرده او كمصدر بيانت لنموذج او تقرير) ، اعمل التالي: Forms!frm_Main!iRjmFatwra = me.RjmFatwra DoCmd.OpenQuery "QHRR" . وبدل ان يكون المعيار في الاستعلام هكذا: . يصبح هكذا ، وبهذه الطريقة يمكن استعمال هذا الاستعلام لعدة نماذج وتقارير . 2. المعيار الوحيد الذي وضعناه في الاستعلام هو رقم الفاتورة ، فإذا فاتورة الشراء بها رقم ، فالجواب سيكون نعم يمكنك استخدامه هناك ايضا شيء آخر لايزال يقلقني في الاستعلام الذي عملناه في برنامجك!! ماذا لو ضغط المستخدم على زر الحفظ عدة مرات ، فهذا سيُلحق البيانات عدة مرات الى الجدول!! لهذا السبب يجب عليك ان تنظر في هذا الموضوع وتجد له حل جعفر

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

وطريقة اخرى للكود اعلاه Private Sub DocHid() Dim ctrl As Control For Each ctrl In Me.Controls If ctrl.Tag = "DocHidTg" And ctrl.Value = val("0") Then ctrl.Visible = False End If Next End Sub . اما بالنسبة الى سؤالك الثاني: هذا الكود يقرا كائنات النموذج الذي يفتح منه فقط ، يعني اذا فتحت الكود في النموذج الرئيسي (بغض النظر عن اي حدث) ، فسيقرأ كائناته فقط ، واذا فتحت الكود في النموذج الفرعي (بغض النظر عن اي حدث) ، فسيقرأ كائناته فقط ، If ctrl.Tag = "Admin2Tg" Then ctrl.Enabled = True End If . الافضل ان تعرض صورة من شكل النموذج الذي عندك ، والنماذج الفرعيه ، حتى استوعب الموضوع ، وطبعا اذا ارفقت هذه الجزئية من برنامجك ، يكون افضل جعفر

جرب هاي Private Sub DocHid() Dim ctrl As Control For Each ctrl In Me.Controls If ctrl.Tag = "DocHidTg" then if ctrl.Value = 0 Then ctrl.Visible = False else ctrl.Visible = true End If End If Next End Sub . جعفر

وعليكم السلام ظاهرا الكود تمام ، ولكنه لن يعمل إلا في نموذج فردي. في هذه الحالة استبدل السطر ctrl.Value = "0" بهذا السطر ctrl.Value = 0 جعفر

وعليكم السلام هذه نسحة من بيانات جدول raseed لأحد تقارير (التقرير رقم2): . بالنسبة لترتيب الارقام ، لاحظ بيانات الاعمدة=2 ، وسترى ان الحالي=Seq2 (مثل ترتيب ID) ، بينما المفروض=rpt2_Seq (لاحظ اننا عملنا فرز بالتاريخ ، وعليه نعطيه ارقام التسلسل) . والكود يقوم بتعديل بيانات الحقلين Seq2 و rpt2_Seq ، حسب عدد الاعمدة وعدد السجلات: . . كما اوضحت لك بعاليه ، فعند طلبك طباعة التقرير ، فالكود يقوم بتعديل بيانات Seq2 و rpt2_Seq (حسب التقرير المطلوب طباعته) ، ولكن يجب ان تكون متغيرات الكود قد تم وضعها بالطريقة الصحيحة ودون اخطاء جعفر

بعد اذن اخي عبد اللطيف ولتعم الفائدة ، هذه نسخة بصيغة 2003 جعفر مؤسسة البركة لبيع الخلويات.zip

جرب هذا المرفق 761.رساله الا لحاق.mdb.zip

تفضل تم وضع المعيار في الاستعلام ، وتغيير في الكود قليلا جعفر 761.رساله الا لحاق.mdb.zip

المشكلة في الحفل Tarakam ، فإعداداته لا تقبل التكرار ، والاستعلام يضيف/يلحق هذا الحقل مع بقية البيانات . بينما لأن الحقل ترقيم تلقائي ، فيجب ان تسمح له بان يعطي كل سجل جديد ، رقمه التلقائي ، عليه ، الاستعلام سيكون بدون هذا الحقل: . وعندي ملاحظة ، وهي انه كلما تضيف مادة على الفاتورة ، فالاستعلام يضيف جميع الحقول !! لذا يجب عليك ان تضع معيار في الاستعلام ، مثل رقم الفاتورة مثلا ، حتى يتم ادخالها/الحاقها وحدها فقط. جعفر

وكيف اخلي الرسالة تطلع؟

السلام عليكم من زمان تعلمت ، ان لا استعمل اوامر الاكسس التي لها علاقة بالوندوز ، وانما اعتمد على API الوندوز ، الاكسس عنده عادة ، وهي حذف بعض هذه الاوامر في الاصدارات الاحدث ، وهذه الاوامر تعتمد على المكتبات ، بينما api الوندوز ، على الرغم من انها طولها (يعني نحطها في الوحدة النمطية مرة واحدة ، ولا علاقة لنا بها) ، والمشكلة الاخرى هي بين 32بت و 64بت ، والذي كذلك يتم تعديله مرة واحدة ، وكذلك لا يحتاج الى بالمكتبات جعفر

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

وعليكم السلام الرسالة تقول بأن اعدادات بعض الحقول في الجدول لا تسمح بهذا الالحاق ، قد يكون بسبب التكرار ، او وضع قيمة فاضية ، او شرط آخر ، فالطريقة للتغلب على هذه الرسالة هي: ادخل في الجدول مباشرة ، وقم بإدخال البيانات (نفس البيانات التي كنت ستلحقها بالجدول) ، وعليه ستعرف اعدادات الحقل الذي يسبب المشكلة جعفر

حياك الله الظاهر انك عملت تطريز على التعديل لكي يلائم بيئة شبكتك جعفر

وعليكم السلام الموضوع غير واضح ، ياريت تعطينا مثالين. جعفر

السلام عليكم بالنسبة للحذف ، استعمل هذه الكود: Private Sub Cmdel_Click() On Error GoTo Err_Cmdel_Click Dim mySQL As String Dim Msg, Style, Title, Response Msg = ":ستقوم الآن بحذف السجل " & vbCrLf & vbCrLf & _ Me.cbo_Class & vbCrLf & " " & vbCrLf & _ "هل أنت متأكد ؟" & vbCrLf & _ "أضغط ( نعم ) للإستمرار ، أو ( لا ) لإلغاء الأمر" Style = vbQuestion + vbYesNo + vbMsgBoxRight Title = "تحذيـــر" Response = MsgBox(Msg, Style, Title) If Response = vbYes Then mySQL = "DELETE * FROM tbl_Class_Name WHERE strClass = '" & Me.cbo_Class & "'" CurrentDb.Execute mySQL Me.cbo_Class.Requery Me.cbo_Class.Value = Me.cbo_Class.Column(0, 0) End If Exit_Cmdel_Click: Exit Sub Err_Cmdel_Click: MsgBox Err.Description Resume Exit_Cmdel_Click End Sub . وبالنسبة لإظهار المادة التي اضفتها في النموذج الاخر ، استعمل هذا الكود: Private Sub أمر2_Click() On Error GoTo Err_أمر2_Click Forms!frm_Section!cbo_Class.Requery DoCmd.Close Exit_أمر2_Click: Exit Sub Err_أمر2_Click: MsgBox Err.Description Resume Exit_أمر2_Click End Sub . جعفر 758.1.db1.mdb.zip

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