jjafferr

وعليكم السلام استاذنا الفاضل ، موجهنا الفاضل ، رفقا بنا ، فاننا لا نرى ما تراه ، وملاحظاتك للأسف مقتضبة ولا تعطي مفهوم ولا مدلول على كيفية امكاننا تعديل الخطأ !! انا قلت وقصدي كان ان نأخذ مجموع التقارير الفرعية ونجعلها في ذيل صفحة التقرير الرئيسي. الآن وقد رأيت موضوعك الجديد ، وبه مثال (عن هذا التغيير الذي تكلمت عنه هنا ولم ترفقه/تشرحه) . الشيء الغير هو طريقة جمعك لرصيد التقرير الفرعي رقم 3 و 4 هو ضربهم بثلث وثلثين: رقم 3 =Sum([raseedafter])*(1/3) ورقم 4 =Sum([raseedafter])*(2/3) . وعليه ، جمع هذه البيانات ستكون: Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer) 'Me.total = Nz(DSum("[raseedafter]", "raseed", "[nationalty]=" & Me.nationalty), 0) T2 = Nz(DSum("[raseedafter]", "qry_2", "[nationalty]=" & Me.nationalty), 0) T3 = Nz(DSum("[raseedafter]", "qry_3", "[nationalty]=" & Me.nationalty), 0) * (1 / 3) T4 = Nz(DSum("[raseedafter]", "qry_4", "[nationalty]=" & Me.nationalty), 0) * (2 / 3) Me.total = T2 + T3 + T4 End Sub . الآن اصبح عندك واضحا ، لماذا من اول ما بدأنا العمل على تقاريرك الفرعية ، انا جعلت لكل واحد منهم اسم مميز ، واستعلام خاص به ، حتى في مثل هذه الحالات ، الحصول على البيانات يكون سهلا. جعفر

وعليكم السلام الظاهر انك اتلخبطت بين اكواد مشاركاتي ، فرجاء استخدم هذه المشاركة . واذا تريد ان توقف الرسائل ، فانظر الى اي سطر يبدأ بـ Msgbox ،ومثل ما اخبرتك ، خلي الاشارة امامه ، ولن تشتغل هذه الرسالة (ولكن لا تعملهم كلهم مرة واحدة ، والا لن تعرف ايهم تريد او لا تريد) جعفر 703.a555.mdb.zip

1. هذا الكود لا يتعلق بحقل او جدول ، وانما بالعمليات الحسابية في هذه الوحدة Sub ، لذلك كل وحدة Sub يجب ان يكون عندها اسم آخر لإصطياد رسائل الخطأ ، يعني ما تقدر تستخدم err_cmd_click لجميع Subs اللي عندك ، 2. انت كمبرمج يجب ان تبرمج على الحقل الصحيح ، مثلا (وهذا المثال لا علاقة له برسالة الخطأ ، وانما له علاقة بسؤالك) : عندك حقلين: Date_From و Date_To وتريد ان تستخدمهم لتقرير ، ومن المعروف بانه اذا احد الحقلين فاضي فقد تحصل على رسالة خطأ من الاستعلام (وطبعا ستحصل على نتيجة خطأ من الاستعلام) ، لذلك ، يجب عليك التأكد ان هذه الحقول غير فارغة ، لذلك وعلى حدث النقر على زر فتح/معاينة التقرير ، اكتب هذا الكود: if len(me.Date_From & "")=0 then msgbox "رجاء ادخال قيمة في حقل: تاريخ_من" me.Date_From.setfocus exit sub elseif len(me.Date_To & "")=0 then msgbox "رجاء ادخال قيمة في حقل: تاريخ_الى" me.Date_To.setfocus exit sub endif جعفر

وعليكم السلام امام كل سطر مال الرسائل ، مثل MsgBox "هذا هو الســجل الأخير", vbInformation + vbOKOnly, "تنبيه" ضع اشارة قبل السطر ، هكذا ' MsgBox "هذا هو الســجل الأخير", vbInformation + vbOKOnly, "تنبيه" او rem MsgBox "هذا هو الســجل الأخير", vbInformation + vbOKOnly, "تنبيه" وبيتحول لون السطر الى الاخضر ، وخلاص جعفر

وعليكم السلام مثل ما قال اخونا عبدالسلام ، هكذا: private sub cmd_click() on error goto err_cmd_click .. .. .. .. exit_cmd_click: exit sub err_cmd_click: if err.number=3314 then msgbox "هنا تضع صيغة رسالتك" resume exit_cmd_click else msgbox err.number & vbcrlf & err.description endif end sub جعفر

وعليكم السلام تقدر تستخدم هذا الكود: Private Sub Command1_Click() TerminateProcess ("calc.exe") End Sub Private Sub TerminateProcess(app_exe As String) Dim Process As Object For Each Process In GetObject("winmgmts:").ExecQuery("Select Name from Win32_Process Where Name = '" & app_exe & "'") Process.Terminate Next End Sub واذا ما فادك ، استعمل الكود من هنا: http://www.vbforums.com/showthread.php?318582-Terminating-Running-EXE&p=1878673#post1878673 جعفر

وعليكم السلام ورحمة الله وبركاته هلا وغلا بالحبايب ، ولك كما دعوت ، ولمن احببت ، دنيا وآخره ان شاء الله جعفر

نعم

1. اساس الموضوع ، انك تعمل معيار "اسم المدينة" في الاستعلام الذي يفتح نموذج اعطاء الصلاحيات ، 2. بينما لك انت ، فتحذف المعيار من الاستعلام ، فترى جميع المدن. جعفر

وعليكم السلام همممم يعني انتي في النموذج Form1 وترسلين قيمة الحقل Names1 كمعيار الى الحقل EmpNum في الاستعلام "استعلام1" ، وثم تريدين قراءة قيمة الحقل job من الاستعلام "استعلام1" الى الحقل job1 في نفس النموذج Form1 ، والحقلين موجودين في سجل واحد في الجدول Employes ، والذي يأخذ النموذج والاستعلام نتائجه منه!! هذا يبدو كأنه واجب/اختبار مدرسي!! على العموم ، تستطيعين استخدام الامر Dlookup للحصول على ما تريدين جعفر

وعليكم السلام اخي شكرا على هذه المعلومة ، ولكن لا اعرف مدى ربط هذا المنتج بالسؤال!! فالسؤال هو عن استعمال كامرا الابتوب Webcam لقراءة الباركود جعفر

اخي هاني الخطوات هي كالتالي: 1. تمنع المستخدم من الدخول للبرنامج بالضغط على مفتاح الشفت ، 2. تجعل المستخدم لا يرى الكائنات ، غير النماذج والتقارير التي يفتحها عن طريق الازرار ، 3. تعمل قائمة جديدة للزر اليمين ، بحيث تحذف منه الدخول الى وضع التصميم. بهذه الطريقة لا يمكن لآحد ان يُغير التصميم جعفر

أختي الفاضلة سؤالك كان والجواب هو اما 1. فأنتي المفروض انه عندك الكود جاهز ، لهذا السبب انتي طرحتي هذا السؤال ، ومعظم المبرمجين لا يعرفون كيف يستفيدون من كود مكتبات البرامج الاخرى غير الاكسس ، 2. ابطأ من الطريقة الاولى ، وليس بطيء جعفر

وعليكم السلام الاجابة هي نفسها التي اقترحتها من اول مشاركة ، استخدمي Late Binding جعفر

انا انزلت البرنامج من الرابط ، ولكن عفوا ، هذا برنامج ويجب ان يتم تنصيبه على كمبيوتري!! ولا اعرف لغة برمجة البرنامج ، ولا اذا كان البرنامج مفتوح المصدر ، ولا ... لو عندك البرنامج وهو في صيغة اكسس ومفتوح المصدر ، فرجاء ارفاقه ، وإلا فأعتذر عن عدم تمكني مساعدتك ، لعدم معرفتي بلغات البرمجة الاخرى جعفر

نعم تفضل ، ولكن رجاء اعطاء تفصيل عن اسم النموذج وما الذي يجب ان يصير ، بمثال ، حتى اتتبع المثال ونوصل الىنتيجة

هذا مثال جعفر

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

شكرا على المعلومة منذ الصباح ابحث عن هذه البرامج كما تفضلت ، وبالفعل موجودة ، والبرنامج الوحيد "المجان" الذي وجدته والذي "اعتقد" بأننا نستطيع التحكم فيه من الاكسس هو: https://sourceforge.net/projects/zbar/ لأن فيه نظام التحكم عن طريق Commanline (كما هو الحال في التحكم في البرامج التي في رابطي اعلاه) ، والبرنامج يحتاج تنصيب وتجربة!! جعفر

أخي بلال مثل ما اخبرتك وهذا يؤكد كلام مصمم البرنامج ، وقد اعطيتك احد الحلول ، ويكون الافضل ان ترفق برنامجك حتى نعدل عليه. جعفر

وعليكم السلام نعم الامثلة كثيرة في المنتدى ، والرابط التالي فيه كود يعمل بطريقة الربط المتأخر Late Binding وستلاحظ ان مكتبة الاكسل غير مُختارة فيه ، كما ستلاحظ هذين السطرين في اول الكود: Dim xlApp As Object 'Excel.Application Dim xlWB As Object 'Excel.Workbook هذا معناه اني واثناء البرمجة ، استخدمت طريقة الربط المسبق Early Binding لكي تساعدني مكتبات الاكسل ، وعند الانتهاء من البرنامج حذفت مكتبة الاكسل وغيّرت السطرين اعلاه والمهم هنا ان تُجرب البرنامج بعد تغييره الى الربط المتأخر Late Binding ، للتأكد ان الكود لايزال يعمل بطريقة صحيحة ، ومعظمها سيعمل ان شاء الله ولكن ، الرابط التالي يُخبرك انه لا تستطيع دائما ان تستخدم نفس الكود بين الربط المسبق والربط المتأخر: جعفر

شكرا اخي @sandanet على الملاحظة 1. اخي حمدي رجاء مراعاة شروط المنتدى ، 2. اها ، اذن يجب ان يكون عندنا اجتماع على قهوة مع اخي @Shivan Rekany لمناقشة هذه العادة جعفر

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