jjafferr

السلام عليكم اسمح لي بمعلومة إضافية: اذا كنت تريد قيم البحر1 والبحر2 متفرقين: . والنتيجتين: . بينما اذا اردت مجموعهم في قيمة واحدة: . والنتيجة: . جعفر

وعليكم السلام أخي ابوحاتم انا عملت لك استعلامين ، وفيك البركة انك تعمل التقرير 1. الاستعلام: qry_Bahar_No_12 ، لا يشمل البحر1 والبحر2 ، 2. الاستعلام: qry_Bahar_12 ، ويشمل البحر1 والبحر2 ، جعفر 333.Current_CostProg6.mdb.zip

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

أخوي بدر ، انت واجد مستعجل ، وترى البيضة جاءت قبل الدجاجة مو بالعكس وليش تريد ترسل رسالة للصيدلي؟ المريض بيروح للصيدلي ويعطيه رقمه ، والصيدلي بيفتح النموذج بالاسم والتاريخ ويحصل الوصفة وشو فايدة الرسالة ، اذا كان امامه 5-10 مرضى؟ طبعا في طرق لرسالة التنبيه (او خلينا نقوم للتنبيه ، لأنها قد لا تكون رسالة) ، وقد تعمل توقيت كل دقيقة لنموذجه المفتوح وتعمل للنموذج Requery ، ويكون اماه كشف الوصفات القصد ، اعمل النموذج ، وبعدين اهتم بالخطوة التالية او المستخدمين جعفر

وعليكم السلام البرنامج في الرابط التالي فيه 7 استعلامات ، كلها يعمل بطرق تختلف عن بعضها بعض الشئ ، ولكنها كلها تعمل اللي تريده ، فاختر ما شئت (طبعا اقرا الموضوع هناك اولا) : جعفر

خليك من الرابط ، واشتغل على برنامجك مثل ما شرحت لك جعفر

العفو أخي ، انا غير متخصص في الحمايات والرابط الآخر اللي انت وضعت سؤالك فيه ، هم يناقشون موضوع الحماية ، فالافضل انت تسألهم هناك جعفر

المثل يقول: الباب الذي يجيك منه ريح ، سده (اغلقه) واستريح يعني انت ما تعرف راح ما/يشتغل على كمبيوتر ، فليش مصمم على استعماله شوف بديل يعمل على جميع الاجهزة جعفر

عند عمل برنامج الصيدلي ، فلن يكون فيه جداول ، وانما سيكون فيه جداول مرتبطة (والتي هي الجداول في برنامجك الاصلي ، البرنامج اعلاه) ، قد يكون فيه استعلامات ونماذج وتقارير ، وجداول مرتبطة ، جعفر

أخي الفاضل الخطأ في الكود باللون الاحمر: الكمبيوتر عندي لا يعطي رقم BIOSSerialNumber ، وعليه الخطأ يأتي في BIOx ، حيث الكود يضيف قيمة BIOx "والتي هي لا شئ" الى ارقام ، وهذا خطأ: For i = 1 To Len(ProcessorNum) Prox = Prox & (AscW(Mid(ProcessorNum, i, 1))) Next 'المتغير بعد تطبيق المعادلة الحسابيه عليه يساوي 'طبعا القسمه وغيره هي مجرد اجتهاد لكن يجب ان تكون العمليات الحسابيه متطابقه مع ملف انشاء الارقام التسلسليه Prox = Prox * 9001.25 / 8.11 * 456.9 / 7 * 187.3 '-- For i = 1 To Len(BIOSSerialNumber) BIOx = BIOx & (AscW(Mid(BIOSSerialNumber, i, 1))) Next BIOx = BIOx + 11 / 3.1 * 66612.9 / 7 * 13 قبل مدة رأيت احد المواضيع التي تخص الحماية عن طريق رقم المذربورد ، رجاء مراجعة هذا الرابط من مشاركة أخونا الفاضل ابوخليل الى النهاية: جعفر

متى / اين / كيف يأتي الخطأ؟ جعفر

وعليكم السلام الله يطول في عمرك ، انا اثبت لك الموجود من البرنامج لذا ، عليك ان تضع برنامجك الجديد ، لمعرفة التغيير الذي طرأ عليه والذي يسبب هذا الخطأ جعفر

لوسمحت تضع الكود الذي يسبب هذا الخطأ

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

وعليكم السلام الظاهر ان البرنامج الذي تستعمله يختلف عن البرنامج الذي ارفقته انت في اول مشاركاتك ، وعن البرنامج الذي عملت تعديل عليه وارفقته لك سابقا هذه نتيجة البرنامج اعلاه (وقد ارفقت لك البرنامج بعد تعديل بسيط عليه ، والتعديل لا علاقة له برسالة الخطأ الذي تشير انت عليه): جعفر 298.3.Medication.accdb.zip

وعليكم السلام شوف هذه طريقة التقسيم: جعفر

وعليكم السلام تفضل . . جعفر 332.سحب وايداع.mdb.zip

وعليكم السلام هذه طريقة ، ولكن ليس بإسم التقرير: جعفر

الحمدلله اليك طريقة اخرى: . . . جعفر

وعليكم السلام أخي ابومصطفى رجاء النظر الى الرابط التالي ، كلمة السر 123 ، والنظر في نموذج "ادخال البيانات" ، وكيف عملت التصفية للنموذج الفرعي عن طريق الاستعلام: جعفر

وعليكم السلام يجب ان يكون برنامجك الحالي مقسم الى قسمين ، قسم للجداول ، وقسم لبقية الكائنات ، وتستطيع ان تعمل برامج خارجية اخرى ، بربطها بالجداول. وانا اقترح عليك ان تضيف خانة نعم/لا ، بإسم "هل تم صرف الدواء" ، حتى يشير عليها الصيدلاني بصرف الدواء ، طبعا اذا اردت هذا جعفر

وعليكم السلام انا جربته مرة ثانية الآن ، ولم يعطني اي رفض!! لوسمحت تخبرنا الخطوات التي اتبعتها واعطتك الرفض. جعفر

حياك الله أخوي كرار جعفر

حياك الله وتكملة لما قلته: في الكود ، فهناك الكثير من المبرمجين يستخدمون On Error Resume Next وهذا معناه ، ان الكود سيواصل العمل عند حصوله على خطأ (وطبعا النتيجة قد تكون خطأ) ، لذا ، وعند عمل الكود ، يجب ان نعرف رقم الخطأ ، ونصطاده ، ونطلب من الكود اعطاء بقية الاخطاء ، إن وُجدت مثل الكود التالي ، يصطاد الخطأ رقم 2501 فنحن لا نستطيع حفظ ملف ، اذا كانت نسخة اخرى منه بنفس الاسم مفتوحة ، فنعطي رسالة للمستخدم بإغلاق الملف ، اما اذا لم توجد سجلات ، ورقم الخطأ هنا 3021 ، فنقول للكود ، لا تبالي ، وانتقل لتنفيذ السطر التالي من الكود ، وذلك بالامر Resume Next : Private Sub cmd_rpt_pdf_close_Click() On Error GoTo err_cmd_rpt_pdf_close_Click DoCmd.Hourglass True ....... DoCmd.Hourglass False Exit Sub err_cmd_rpt_pdf_close_Click: If Err.Number = 2501 Then 'pdf file is open MsgBox "رجاء اغلاق ملف pdf" & vbCrLf & _ "Please close the PDF file" elseif err.number=3021 then 'لا توجد سجلات ، واصل العمل Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub . طيب السؤال هنا ، وكيف اعرف رقم الخطأ ؟ الاكسس يعطيك رسالة خطأ ، وفيها رقم الخطأ ، هكذا: او . ولكن هناك من الاكواد ، نعرف انه سيعطينا خطأ معين ، ولسنا بحاجة الى اصطياده ، ونعرف انه لن يكون هناك اي نوع آخر من الاخطاء ، فنستعمل On Error Resume Next جعفر