ابو جودي

ممكن صورة من القاعدة بعد فتحها بالشيفت كما تفضلت المرفق فيه 3 قواعد 1- القاعدة الخلفية: الجداول ---------------------------------------------- TablesArchivingDB.accdb 2-القاعدة الامامية: النماذج وباقى الكائنات --------------------------------------------Archiving.accdb 3- قاعدة تشغيل التطبيق -----------------------------------------------------------Run My App.accde انت متأكد ان دى هى يا اللى فتحت معاك ؟؟؟؟؟ ودى صورة من القاعدة الخلفية: الجداول ---------------------------------------------- TablesArchivingDB.accdb القاعدة الامامية: النماذج وباقى الكائنات --------------------------------------------Archiving.accdb

قضلا وكرما وليس امرا اخى الحبيب ومعلمى واستاذى الجليل استاذ @أبو عبدالله الحلوانى ممكن تعيد التجربة وتوافينى بالنتيجة تعديل.zip

أضف اختيارا إلى قائمة مربع التحرير والسرد عن طريق إضافة سجل إلى الجدول الخاص بمصدر الصف في حدث NotInList لمربع التحرير والسرد. الكود داخل الموديول Public Sub CmboNotInList(ByVal strTableName As String, ByVal strFieldName As String, ByVal strNewData As String, ByRef intResponse As Integer) On Error GoTo Proc_Err Dim sSQL As String Dim sMsg As String intResponse = acDataErrContinue sMsg = """" & strNewData & """ is not in the current list. " & vbCrLf & vbCrLf & "Do you want to add it? " If MsgBox(sMsg, vbYesNo, "Add New Data") <> vbYes Then GoTo Proc_Exit End If sSQL = "INSERT INTO [" & strTableName & "] " & "([" & strFieldName & "])" & " SELECT """ & strNewData & """;" With CurrentDb .Execute sSQL If .RecordsAffected > 0 Then intResponse = acDataErrAdded End If End With Proc_Exit: Exit Sub Proc_Err: MsgBox Err.Description, , "ERROR " & Err.Number & " CmboNotInList" Resume Proc_Exit Resume End Sub يتم استدعاء الكود فى الحدث >>------> عند عدم الوجود فى القائمة - NotInList من خلال الكود الاتى Call CmboNotInList("tableName", "FieldName", NewData, Response) المرفق Not In List.mdb

شكرا اخى الحبيب الأستاذ @محمد التميمي ادعوا الله لوالديكم ولكل المسلمين بالرحمة والمغفرة ان شاء الله وان يسكنهم اعلى درجات الجنان مع النبيين والصديقين والشهداء واسال الله تعالى ان يبارك الله في جهودكم والشكر بكل كل الشكر لكم انتم على هديتكم الرائعة وانا لم افدم اى شئ ولم افعل ما يستوجب اى شكر اصلا

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

لا مش عارف ده ايه بصراحه

كلام حضرتك صح صح بس الطريقة معقدة بعض الشئ على طلاب العلم المبتدئين امثالى المرفق الاتى فيه 3 قواعد 1- القاعدة الخلفية: الجداول ---------------------------------------------- TablesArchivingDB.accdb 2-القاعدة الامامية: النماذج وباقى الكائنات --------------------------------------------Archiving.accdb 3- قاعدة تشغيل التطبيق ------------------------------------------------------------Run My App.mde تم اضافة بعض التعديلات لتأمين القاعدتين القاعدة الخلفية / القاعدة الامامية بعدم تمكين زر الشيفت لهما وبهذه الطريفة الان والله اعلم 1- يصعب تمكين الشيفت 2- يصعب استيراد الكائنات من اى منهما 3- يصعب الوصول الى جدول النظام MSysObjects لاستخراج بيانات الاتصال بقاعدة الجدول اترككم مع التجربة الحماية 2.rar

هات مرفق يمكن اقدر افهم

اولا كل الشكر والتقدير استاذى الجليل ومعلمى القدير الاستاذ @أبو إبراهيم الغامدي ولكن هل كل نموذج او تقرير يتم وضع السطر هذا من الكود حتى نستطيع فتحه ؟؟ طبعا مع تغيير اسم الجدول ؟ مصدر البيانات Set Me.Recordset = DBDAO.OpenRecordset("EMPLOYEES", dbOpenDynaset) وكيف ننشئ الاستعلامات ؟؟؟؟؟

استاذى الجليل ومعلمى القدير الاستاذ @أبو إبراهيم الغامدي فضلا وكرما ممكن مثال عملى او التعديل على المرفق الحماية من استيراد الكائنات.zip

مرفق الملفات بدون حماية قاعدة التشغيل Run My App.mdb الحماية من استيراد الكائنات.zip

اولا اعتذر لم انتبه لطريقة استاذى الجليل ومعلمى القدير الاستاذ @kaser906 لان الصفحة كانت مفتوحة قبل ان يقوم استاذى بالمشاركة ولن انتبه فأرجوا المعذرة من استاذى الفاضل وبخصوص الشرح قبل البدء بالشرح وحتى يأخذ كل ذى حق حقه بدأت الفكرة عندى من مرفق للاستاذة زهرة " ام عهود " وتتمثل فكرتى المتواضعة فى الاتى 1- تشفير كل من القاعدة الأمامية والخلفية بكلمة مرور وبذلك لا يمكن فتح القاعدتين الا بكسر كلمة المرور وللعلم استطعت من قبل كسر كلمات مرور القواعد من النوع .mdb اما القواعد من النوع .accdb لم استطع كسرها 2- قمت بأخفاء اطار الاكسس فى قاعدة البيانات الامامية 3- طبعا كود ربط القواعد الامامية بجداول الخلفية اليا دون تدخل من المستخدم طبعا يتم تعديل الكود بمسار محدد ان كانت القواعد على سيرفر 4- قاعدة بيانات لتفتح قاعدة البيانات الامامية دون طلب الباسورد فهو موجود بالاكواد وطبعا لتأمينه ولعدم الوصول اليه تم تحويل قاعدة البينات الى mde وهذه الملف

اولا هى دالة من دوال الاكسل وليس الاكسس ولكن ممكن تحقيقها برمجيا لتناسب الاكسس من خلال الاكواد والمرفق يوضح ذلك الشــــــــــــرح الوصف تُرجع رقماً تم تقريبه للأعلى، بعيداً عن الصفر، إلى أقرب مضاعف للوسيطة significance. على سبيل المثال، إذا كنت تريد تجنب استخدام السنت في الأسعار وكان سعر المنتج 4,42 ر.س.، فاستخدم الصيغة ‎=CEILING(4,42,0,05)‎ لتقريب السعر للأعلى إلى أقرب مبلغ صحيح. بناء الجملة CEILING(number, significance)‎ يحتوي بناء جملة الدالة CEILING على الوسيطتين التاليتين: Number مطلوبة. وهي القيمة التي تريد تقريبها. Significance مطلوبة. وهي المضاعف الذي تريد التقريب إليه. ملاحظات إذا كانت قيمة أي الوسيطتين غير رقمية، فستُرجع الدالة CEILING قيمة الخطأ ‎#VALUE!‎. يتم تقريب القيمة للأعلى عند تعديلها بعيداً عن الصفر، وذلك بغض النظر عن علامة الوسيطة number. أما إذا كانت number عبارة عن مضاعف صحيح للوسيطة significance، فلن يحدث أي تقريب. إذا كانت قيمة الوسيطتين number وsignificance سالبتين، فيتم تقريب القيمة للأدنى، بعيداً عن الصفر. إذا كانت قيمة number سالبة وكانت قيمة significance موجبة، فيتم تقريب القيمة للأعلى باتجاه الصفر. مثال انسخ البيانات النموذج في الجدول التالي، والصقها في الخلية A1 في ورقة عمل Excel جديدة. لعرض نتائج الصيغ، حدد هذه الأخيرة، ثم اضغط على F2، ثم اضغط على Enter. عند الحاجة، يمكنك ضبط عرض العمود لرؤية البيانات كافة. الصيغة الوصف ‎=CEILING(2.5, 1)‎ تقريب 2,5 للأعلى إلى أقرب مضاعف لـ 1 3 ‎=CEILING(-2.5, -2)‎ تقريب ‎-2,5 للأعلى إلى أقرب مضاعف لـ ‎-2 ‎-4 ‎=CEILING(-2.5, 2)‎ تقريب ‎-2.5 للأعلى إلى أقرب مضاعف لـ ‎-2 ‎-2 ‎=CEILING(1.5, 0.1)‎ تقريب 1,5 إلى أقرب مضاعف من لـ 0,1 1,5 ‎=CEILING(0.234, 0.01)‎ تقريب 0,234 إلى أقرب مضاعف من لـ 0,01 0,24 امثلة Ceiling(2.5, 1) equals 3 Ceiling(2.5) equals 3 Ceiling(-2.5, -2) equals -4 Ceiling(-2.5, 2) equals -2 Ceiling(1.5, 0.1) equals 1.5 Ceiling(0.234, 0.01) equals 0.24 Ceiling function.mdb

db7.mdb

لا خااااااااااااااالص مش نفس المشكلة طبعا انت بس مش مركز المرفق فيه 3 قواعد 1- القاعدة الخلفية: الجداول ---------------------------------------------- TablesArchivingDB.accdb 2-القاعدة الامامية: النماذج وباقى الكائنات --------------------------------------------Archiving.accdb 3- قاعدة تشغيل التطبيق ------------------------------------------------------------Run My App.mde الى انت فتحتها دى جدول قاعدة تشغيل التطبيق ليس الا جرب تانى ودى صورة من القاعدة الخلفية: الجداول

تجربة يتم فتح التطبيق من القاعدة باسم Run My App.mde تجربة الحماية.zip

وحتى تعم الفائدة المرفق النهائى بعد التعديلات الصحيحة Autolink Table.zip

جزااااااااااااااااااااااااااااااااااكم الله خيــــــــــــــــــــــــــــــــــــــــــــــرا نعم القلوب عند بعضها احبكم فى الله

تم حل المشكلة بفضل الله تعالى اخى الحبيب و استاذى الجليل ومعلمى القدير الاستاذ @أبو عبدالله الحلوانى كان الخطأ فى هذا السطر Set chkDb = OpenDatabase(Application.CurrentProject.Path & "\Btbl.accdb") وتم التعديل على الكود كالاتى ونجحت العملية بفضل الله تعالى Set chkDb = OpenDatabase(Application.CurrentProject.Path & "\Btbl.accdb", False, False, ";PWD=0")

جزاكم الله خيــــــــرا اخى الحبيب و استاذى الجليل ومعلمى القدير الاستاذ @أبو عبدالله الحلوانى خطأ فى هذا السطر Set chkDb = OpenDatabase(Application.CurrentProject.Path & "\Btbl.accdb") رسالة الخطأ run-time error '3031': not a valid passowrd.

اخى الحبيب و استأذى الجليل أستاذ @kaser906 جزاكم الله خيرا بالرغم من البحث فى المنتدى مطولا ورؤية الكثير من الأمثلة الا اننى لم استطع التعديل على المرفق ولكن سوف أحاول مرة أخرى

ملاحظة الربط يتم اليا بدون اى مشاكل ان لم تكن قاعدة الجداول مأمنه بكلمة مرور

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

السلام عليكم ورحمة الله تعالى وبركاته جارى العمل انتظر قليلا وابشر

السلام عليكم ورحمة الله وبركاته اريد التعديل على الموديول فى القاعدة المرفقة حتى يقبل الربط اليا مع قاعدة الجدول الخلفية Btbl.accdb المحمية بكلمة مرور ملاحظة كلمة مرور القاعدة الخلفية للجداول هى 0 Auto ReLink.zip