أبو عبدالله الحلوانى

نعم يستطيع واكثر مما تتخيل بكثير ان شاء الله ساحاول الاطلاع علي مرفق حضرتك لعلي استطيع مساعدتك ان شاء الله

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

نعم التطبيق الأصلي مرتبط بقاعدة بيانات علي السرفر ولكن لم استطع اقتباسه لكونه علي سرفر محلي داخل الشركة أولا- أعتذر لتأخري عن الرد لظروف خارجة عن الارادة - ولكن الحمد لله ها قد عدت ثانيا- جزاكم الله خيرا هذا هو المطلوب تماما - ولكن لي استفسار وطلب علي استحياء اما الاستفسار فهو عند ضغط CheckBox بالتطبيق الأصلي يحدث حدث كتظليل الصف بلون مختلف واظهار رسالة ما - فهل عند تمرير القيمة للـ CheckBox من خلال الكود الذي تفضلتم به هل سيتم عمل الحدث بشكل تلقائي ام سيتطلب الأمر منادة الحدث عند الضغط واجراء تعديل ما علي كود حضرتك - وان كان الأمر هكذا فسيكون الطلب كيف اصل الي هذا الكود الذي يتم استدعائه عند الضغط علي الـ CheckBox ( مع العلم لي خلفية بسيط عن لغة الـ html والحمد لله) فلا بأس بالاشارة فقط حتي لا ازعجكم بشرح مطول وطلب أخير علي استحياء أيضا ولكن أطمعني في هذا كرمكم المعهود ما هي الدلالة الرقمية في هذا الجزء من الكود tr كما اعرف علي حسب معلوماتي المحدودة بلغة الوسوم هو وسم للصف داخل الجدول هل هذا صحيح؟ وهل هذا له علاقة بدلالة الأرقام بالجزء السابق من الكود. وجزاكم الله خيرا

السلام عليكم ورحمة الله وبركاته وبعد وبناءا علي طلب الأستاذ @أبو إبراهيم الغامدي حفظه الله بافراد استفساري بموضوع مستقل هنا وقد تفضل سيادته مشكورا بوضع مرفق لما اردت ولكن ولكوني لا زلت اجهل العمل بلغة الـ html الا يسيرا وكذلك لتعم الفائدة بطلب شرح لآلية العمل بالمرفق فاسأبدأ استفساراتي حول مرفق الاستاذ من خلال النقطتين التاليتين: 1- في المرفق تم جلب قيمة الصف من خلال معرفة موضع الـ CheckBox المعلمة وسأحول استقراء الأكود لحين رد احد الاساتذة الأكارم - والسؤال هل يمكن ارسال القيمة للـ CheckBox بدلا من معرفتها؟ وهذا كان سؤالي منذ البداية بالموضوع السابق الاشارة اليه 2- بالمرفق كود بعد تعليم الـ CheckBox أو عند حدث النقر علي الـ CheckBox ولكن ما عرفت كيف يعمل؟! اما عن المرفق فها هو HTML Table.accdb اما عن مرفقي الذي وضعت به توضيح السؤال فهذا هو TestCheckBox.rar وجزاكم الله خيرا

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

جزاكم الله خيرا الموقع للأسف يعمل علي سرفر محلي داخل الشركة وليس عاما واريد ربطه بالأكسس لارسل اليه بيانات من الأكسس بدلا من كتابتها مرة اخري ولا ادري ما سبب هذه المشكلة بشأن الاتشكبوكس فقط اما باقي الحقول يتم ارسال البيانات اليها بدون اشكال وجزاكم الله خيرا

حاولت ارسال بيانات الي Check Box داخل جدول ولكن لم اوفق في ذلك جربت كل ما اظن انه قيمة صالحة للاتشك 1- zero - one 2- true -false 3- Checked - UnChecked ولكنها تعطيني قيمة غير صالحة لا أدري هل طريقة كتبة الكود هي الخاطئة ام ان لهذا الاتشك داخل الـ HTML قيم اخري؟!! هذا هو الكود مقتبس من هذا الموضوع With WD .getElementByTagName("Table").Item(0).Rows(1).Cells(6).value = Checked 'here i receve an error End With أرجو توضيح أين الخلل!!! وجزاكم الله خيرا

نعم هذا هو والسؤال الآن هل ما سيتم اضافته من خلال دالة يستدعيها نموذج غير منضم يحمل حقول غير منضمة لهذا الجدول هل سيكون نفس التأثير؟!

لم افهم هذه النقطة هلا تكرمت بمزيد من التوضيح

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

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

تفضل نفس فكرة استاذنا جعفر ولكن بعد تعديل طفيف لا يساوي شيء وانا ادخلت هذا الحقل الي الجدول وفقط وكل شيئ ماعدا هذا هو خاص بمرفق الاستاذ @jjafferr 1457.تلوين سجل محدد.accdb.zip

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

ضع لكل جدول مفتاح رئيس - وفي جدول المعاملات الكلية ضع مفتاح رئيس ومفتاح فرعي لربط كلا من الجداول المساعدة بالجدول الرئيسي مثال: جدول مساعد1 (الأقسام) وبه حقل مفتاح اساسي( كود القسم) - واسم القسم جدول مساعد2 (الشعب) وبه حقل مفتاح اساسي( كود الشعبة ) ومفتاح فرعي ( كود القسم) - واسم الشعبة جدول مساعد3 (المدرسين) وبه حقل مفتاح اساسي( كود المدرس) وفرعي (كود القسم + كود الشعبة) - واسم المدرس وحينها يمكنك ربط كلا من الجدول الأقسام بالمدرسين بعلاقة رأس بأطراف - وكذلك ربط الأقسام بالشعب كذلك هذا والله أعلم او ارفق مرفق لتسهل علي من يجاول مساعدتك مهمته

وهذا محور النقاش منذ بداية الموضوع وهذا نموذج للفكرة Setup.rar ارجو ان تقومي بالتجربة ومحاولة استخراج الملف الأصلي من الملف المرفق أعني النسخة accdb وهي موجودة بالداخل ولا شك. ملاحظة ارجو تجربة المرفق علي النوتين 32 و 64 وموافاتنا بالنتائج مع العلم أني اعمل علي النوت 32 فقط

يبدو انك لم تغير هذه الجملة Type Here a strong password بهذا السطر من الاسكربت dbs.NewPassword "", "Type Here a strong password" يجب ان تضع كلمة المرور الجديدة بدلا عنها

تفضل هذا هو الاسكربت ضعه في فولدر فارغ مع قاعدة بياناتك وقم بتشغيل الاسكربت ووافنا بالنتائج ملاحظات قبل العمل: 1- اضغط كليك يمين علي الاسكربت وقم بعمل Edit وغير هذا السطر ستجده مكررا أكثر من مرة بما يلزم من اسم قاعدة بيناتك TypeHere Accdb File name TypeHere Accde File name 2- احتفظ بنسخة من قاعدة البيانات بعيدا عن فولدر التجربة لان الاسكربت سيقوم بحذفها فور الانتهاء 3- يوجد بالاسكربت مجموعة من الاكود والافكار الهامة كمعرفة مسار الفولدر الحالي للاسكربت وتغير كلمة المرور لقاعدة البيانات - هذا بعد فضل الله نتاج سهر وجهد جهيد ارجو ان ينتفع به كل من مر من هنا 4- ومن مزايا الاسكربت ايضا انه يمكنك تغير امتداد قاعدة البيانات الاصلية مثل .dat أو .dll مثلا ويعمل مع هذه الامتدادات الوهمية بدون مشكلات ( طبعا امتداد وهمي لكي لا يعلم المخربين امثالي اين ملف القاعدة الأصلي ) ووفقا لتعليمات معلمنا أبو خليل بارفاق الشرح مكتوبا خير من وضعه بمرفق هذا هو كود الاسكربت وكذلك هو بالمرفق تمنياتي بالتوفيق dim fso dim mePath Dim wrk Dim dbs Call Createadbe wscript.sleep(15000) Rem Call changPas wscript.sleep(5000) Call DelUnuse rem============================================= Sub Createadbe() rem On Error Resume Next Set fso = CreateObject("Scripting.FileSystemObject") mePath = fso.GetAbsolutePathName(".") if fso.FileExists(mePath & "\TypeHere Accde File name")= True then fso.DeleteFile mePath & "\TypeHere Accde File name" end if If fso.FileExists(mePath & "\TypeHere Accdb File name")= True then With Createobject("Access.Application") .AutomationSecurity = 1 .SysCmd 603, mePath & "\TypeHere Accdb File name", mePath & "\TypeHere Accde File name" .Quit End With else exit sub end if set fso = nothing End sub rem================================================ Rem =>From Here You can change accde file password sub changPas() Set fso = CreateObject("Scripting.FileSystemObject") mePath = fso.GetAbsolutePathName(".") if fso.FileExists(mePath & "\TypeHere Accde File name")= True then With Createobject("Access.Application") set wrk= .DBEngine.Workspaces(0) set dbs= wrk.OpenDatabase(mePath & "\TypeHere Accde File name", True, False) dbs.NewPassword "", "Type Here a strong password" .Quit End With msgbox "the program is ready now!" else msgbox "the program is not found!" end if rem======end and exit==================================== set fso = nothing end sub rem============================================================== rem => here will delete unNeeded files sub DelUnuse() Set fso = CreateObject("Scripting.FileSystemObject") mePath = fso.GetAbsolutePathName(".") with fso If .FileExists(mePath & "\TestHiddenFile.bat") then .DeleteFile(mePath & "\TestHiddenFile.bat") If .FileExists(mePath & "\SysDefines.dll") then .DeleteFile(mePath & "\SysDefines.dll") If .FileExists(mePath & "\Database.accdb") then .DeleteFile(mePath & "\Database.accdb") If .FileExists(mePath & "\Database.mdb") then .DeleteFile(mePath & "\Database.mdb") If .FileExists(mePath & "\TypeHere Accdb File name") then .DeleteFile(mePath & "\TypeHere Accdb File name") If .FileExists(mePath & "\TestFirstRun.vbs") then .DeleteFile(mePath & "\TestFirstRun.vbs") If .FileExists(mePath & "\TestFirstRun.exe") then .DeleteFile(mePath & "\TestFirstRun.exe") End with msgbox "Done!" set fso = nothing End sub rem================================================================================= أرجو ان لا يكون كلامي الأول ازعجك - فكما تعلم الصعايدة كلامهم (دبش) أحبكم في الله TestFirstRun.rar

أستاذي @Eng.Qassim جزاك الله خيرا لحسن ظنك بي منّ الله علي وعليكم بستره الجميل أخي @ابو البشر جرب هذا ارجو ان يكون هو مطلوبك رجاءا وافنا بالنتائج DDD.accdb

السلام عليكم أولا- جزاكم الله خيرا حياكم الله وبياكم ثانيا- لو تسمح لي ببعض الملاحظات لتحسين آسف لاثراء تلك الفكرة. 1- وماذا عن قاعدة البيانات accdb اين ستذهب بعد التحويل؟! يجب ان يوضع في الاعتبار حذف القاعدة بعد التحويل. 2- برنامج الضغط جميل وسهل الاستخدام ولكن هنالك ما هو أقوي منه بهذا المجال - أعني تحزيم ملفات البرنامج، مثل: برنامج Smart Install Maker فهو برنامج سهل الاستخدام قوي المفعول يحول برنامج التحزيم الي صيغة exe ويتيح لك العديد من خيرات التسطيب علي جهاز العميل 3- عوضا عن استخدام كود التحويل بقاعدة بيانات اكسس ايضا وتحتاج الي مزيد من الاجراءات كايقاف الأمان لكي تعمل او وضعها بفولدر موثوق - كمن استعان بالرمضاء من النار يمكنك ان تضع كود التحويل داخل اسكربت يتم تشغيله تلقائيا اثناء عملية التسطيب وبعد استخراج ملف القاعدة بفولدر التسطيب ويتم ازالتها وازالة الاسكربت بعد الانتهاء من عملية التحويل الي accde وانتهي الأمر بسلام ولا خوف من استخراج الملفات قبل التسطيب مثل برنامج رار فانه غير ممكن استخراج الملفات الا اثناء عملية التسطيب فقط ودمتم هكذا بحار العلم لا يضرها من اقتبس منها المشرب ثم وان كانت مفتوحة المصدر فهي السهل الممتنع علي تلاميذ مدرستكم وجزاكم الله عنا خيرا

وعليكم السلام ورحمة الله وبركاته جرب هذا التعديل Set frm = currentproject.AllForms(frm_name) استبدل كلمة frm_name باسم الست بوكس متبوعا برقم الحقل الذي يحوي اسماء النماذج لا تنسي موافتنا بالنتائج

ان كانت هذه هي المشكلة فحلها بسيط للغاية ان شاء الله ولكن ما اعتقد ان هذا ما يريده بالضبط فان اسماء الأعمدة بالجدول كما بالصورة التي ارفقها هي عبارة عن ارقام ولكن مجارة لما اقترحته استاذي هذا تعديل علي حسب ما تفضلتم به لحين رد استاذ احمد Public Function Subsalary(GradeNumber As Byte, RankNumber As Byte) As Double Subsalary = Nz(DLookup("A" & RankNumber, "Degree", "GradeNO=" & GradeNumber), 0) End Function وهذا التعديل يفترض ثبات البادئة النصية في اسماء كل الحقول Test (1).accdb

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

القيمة يتم جلبها بمجرد كتابة الرقم 1 والنص A1 نمثلا بدون الضغط علي الزر جرب ان تكتب بالحقول بدون ان تضغط علي الزر

تفضل جرب هذا كان يجب التعويض في المعادلة بالمتغير لا بقيمته Test.accdb

إذا جرب هذا التعديل ووافني بالنتائج وهذا هو الكود بعد التعديل Private Sub B_1_Change() If Me.B_1.Text = ChrW(1584) & ChrW(1603) & ChrW(1585) Then FrameSx = 1 ElseIf B_1.Text = ChrW(1571) & ChrW(1606) & ChrW(1579) & ChrW(1610) Then FrameSx = 2 ElseIf B_1.Text = ChrW(1575) & ChrW(1606) & ChrW(1579) & ChrW(1610) Then FrameSx = 2 Else FrameSx = 0 End If End Sub test1.accdb