ابوخليل

تفضل يمكنك التعديل حسب الصورة جرب ووافني بالنتيجة

تفضلوا تم التعديل 1- استبدال الدالة بأخرى تستخرج الارقام بدلا من تحويل النص الى رقم 2- الاقتطاع اصبح اربعة ارقام بدلا من 3 3- تغييرات وتصحيح لبعض المتغيرات الآن هذه صورة لرقم الاجهزة عندي انظروا ان كانت تتوافق مع اجهزتكم الهارد والمعالج واللوحة الأم2.rar جزاك الله خير وخيرا فعلت كنت اتصور نموذج المعادلة سيكون عند العميل

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

اخي الكريم حتى تضمن اطلاع اعضاء اكثر على مرفقك قم بتحويله الى صيغة xls

كيف ؟ المعادلة في رأس المبرمج لما يتصل العميل يطالبه المبرمج برقم النسخة الظاهرة ثم يجري عليها المعادلة في الآلة الحاسبة مثلا ثم يرسلها للعميل العميل لما يضع رقم التسجيل وينقر على الزر آليا يتم فتح النموذج وحفظ الرقم في الجدول

ما يحتاج فلو تلاعب به فهو الخسران .. نعم شكرا استاذ ديو على المشاركة فكرة الحماية تتلخص بالتالي : 1- اقتطاع 3 ارقام من اليسار لسيريال القطع ( ثلاث مجموعات كل مجموعة ثلاثة ارقام ) 2- ضم بعضها الى بعض بالترتيب لكي تكون 9 ارقام ( رقم النسخة ) 3- اجراء معادلة على الرقم الناتج ووضعه في حقل في الجدول عند فتح نموذج البداية ماذا يحدث ؟ : 4- يتم اجراء العمليتين في الخطوتين : 1 و 2 5- اجراء عكس المعادلة في الخطوة 3 على الرقم الموجود في الجدول لاعادة (رقم النسخة ) 6- تجزئة رقم النسخة لاستعادة ارقام القطع ( عكس الخطوة 2) --------------- الخطوة 4 هي استخراج ارقام القطع الحالية في الجهاز الخطوتين 5 و 6 استخراج ارقام القطع بمعلومية الرقم المحفوظ في الجدول اذا تساوت الاطراف حسب الشرط يفتح البرنامج اتمنى تكون الفكرة واضحة ومفهومة

كل ما عليك هو ان تبحث فالمنتدى مليء بمثل هذه المواضيع

جربت عندي والكود شغال ولكنه يكرر اللصق والسبب عدم وجود ضوابط في الجدول انظر الصورة حيث جعلنا ثلاثة حقول مفاتيح من اجل عدم التكرار في حال تساوت القيم في الحقول الثلاثة لفحص المثال بالصورة الصحيحة : اختر من القائمة اليمنى تاريخ الاسبوع الاخير 6/3/2017 واختر من الاسبوع الجديد تاريخ 13/6/2017 kamwala4.rar

تم الفتح

السلام عليكم تم العمل على ثلاث قطع البرنامج يتأكد من وجود قطعتين على الاقل يمكن جعله يتأكد من قطعة واحدة فقط ، ولكن من واقع خبرة بعض الاجهزة ارقام اللوحة الام فيها موحدة المعادلة (رقم التسجيل)= ضرب رقم النسخة في 2 + 12345 آمل ان يحوز على استحسانكم الهارد والمعالج واللوحة الأم.rar

عليكم السلام اطلعت على المرفق يوجد معايير في الاستعلامات تطلب قيمة حقل Text1 وهذا الحقل اصلا غير موجود في النماذج حاول تحذف المعايير الموجودة كتجربة ستظهر الصور والمستندات عند التنقل

بعد اعمال الفكرة وجدت ان تطبيق الفكرة غير منطقي نفرض استخرجنا ارقام كل من القرص الصلب / المعالج / اللوحة الأم وكانت النتيجة على النحو التالي : 12345 / 98745 / 528467 كيف سيتم صياغة الشرط ، واي الارقام سيظهر للمستخدم وما هي الترتيبات التي سيستخدمها المبرمج عند عطل واستبدال واحد منها اشرح لي الفكرة المراد تنفيذها وسوف اقوم بإذن الله بتطبيقها

حاضر .. ولكن المسألة تحتاج الى نشاط ووقت لتجميع الكودات وضبطها وتجربتها يتحقق ذلك ان شاء الله

الموضوع كتبته في 2009 يوم قدحت الفكرة من رأسي من بقايا الرياضيات في الاعدادية و الدالة abs مولودة من عملية برمجية اصعب من فكرتي ، وهي بلا شك افضل وهي ليست خاصة بأكسس او الفيجوال وانما جدورها اعمق

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

وهذا تطبيق للعملية مختصر جدا ولكن انتبه ! اربط قاعدة الجداول الخلفية يدويا قراءة مسار الشبكة آليا.rar

اولا نأخذ الطلب الاول قاعدة الجداول في المرفق هي داخل مجلد اسمه Bground انشء مجلد بجانب قاعدة الجداول وليكن اسمه Photo غير الوحد النمطية الموجودة في الوحدات العامة داخل المديول ModlinkAbkup Public Function RelinkIspic() Dim i, x, r As String r = IsUserID i = mID(CurrentDb.TableDefs("tblNames").Connect, 11) x = Left(i, InStrRev(i, "\")) & r & ".jpg" RelinkIspic = x End Function بهذه : Public Function RelinkIspic() Dim i, x, r As String r = IsUserID i = mID(CurrentDb.TableDefs("tblNames").Connect, 11) x = Left(i, InStrRev(i, "\")) & "photo\" & r & ".jpg" RelinkIspic = x End Function لاحظ الفرق فقط ادرجنا اسم المجلد جرب بعد هذا واضف صورة الطلب الثاني : اذا في برنامجك عرض ملفات pdf جاهز لماذا لا تنقل المديول الى برنامجك ، انا وضعت المثال كتطبيق صغير لفهم العملية

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

السلام عليكم انا لم اطلع على المرفق ولكني قرأت ما كتبت ، وهو انك وضعت اربع جداول للعملية والصحيح يجب ان يكون جدولا واحدا فقط

كلامك صحيح لا غبار عليه يمكن استخراج رقم المعالج وايضا رقم اللوحة الأم ولكن لا حل لمن يريد استبدال الجهاز بآخر احدث منه الا باعطائه رقم التسجيل مرة اخرى

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

Private Sub Form_Current() الحدث في الحالي للنموذج يجعل الكود يعمل باستمرار

جرب هذا في النموذج Private Sub Form_Current() If Me.ANC = 1 Then If Me.TR > 16 Then Me.TR.ForeColor = 255 If Me.TR < 10 Then Me.TR.ForeColor = 16711680 ElseIf Me.ANC = 2 Then If Me.TR > 18 Then Me.TR.ForeColor = 255 If Me.TR < 7 Then Me.TR.ForeColor = 16711680 Else Me.TR.ForeColor = 0 End If End Sub

الوحدات النمطية : Public IsUserID As String ' اعلان عن متغير عام يأخذ قيمة المعرف داخل النماذج أو التقارير Public Function RelinkIspic() 'اعلان عن اسم الوحدة النمطية Dim i, x, r As String 'اعلان عن متغيرات نصية r = IsUserID 'المتغير هذا يساوي قيمة المعرف i = mID(CurrentDb.TableDefs("tblNames").Connect, 11) ' المتغير هذا يساوي المكان البعيد الذي تتواجد به قاعدة بيانات الجداول x = Left(i, InStrRev(i, "\")) & r & ".jpg" 'اسم الملف ونوعه في المكان البعيد RelinkIspic = x 'لا تحتاج شرح End Function'اغلاق '============================================================== Public Function RelinkIsshar() Dim i, x, r As String r = "shar" ' اسم الملف i = mID(CurrentDb.TableDefs("tblNames").Connect, 11) x = Left(i, InStrRev(i, "\")) & r & ".jpg" RelinkIsshar = x End Function كما نلاحظ الوحدتين النمطيتين طبق الاصل الاولى ترجع الملف بمعلومية متغير والثانية بمعلومية اسم الملف ويتم الاستدلال على المسار بواسطة الجدول المرتبط به البعيد وكل ما علينا عمله هو نداء الدالة RelinkIspic في الاول والدالة RelinkIsshar في الثاني والمثال المرفق سيوضح الطريقة بشكل عملي حيث يشتمل على : 1- الوحدة النمطية والكودات الخاصة بربط الجداول آليا عند تغيير مكان مجلد قاعدة الجداول 2- الوحدة النمطية الخاصة برفع الملفات واستبدالها ، وستلاحظون كيف وظفنا ()RelinkIspic داخلها 3- وحداتنا النمطية الخاصة بهذا الموضوع وعملها في عرض الملفات وتوجيه النسخة الاحتياطية بعد فك الضغط عن المرفقات وتشغيل الواجهات سيطالبك البرنامج بربط الجداول وهذا كل ما عليك فعله فقط . يمكنكم بعد التطبيق بنجاح نقل المجلد فقط وتغيير مكانه للتجربة ملحوظة : بسبب نظام وندوز قد يحتاج بعض اصدارات اكسس لتفقد المكتبات وتعديلها لا تنسون اخيكم من دعوة صالحة في ظهر الغيب . أسأل ربي الكريم ان يجزيني بكرمه وفضله . قراءة مسار الشبكة آليا وربط الجداول والنسخ الاحتياطي.rar

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