مفرج

السلام عليكم ورحمة الله وبركاته عيدكم مبارك الله يتقبل منا ومنكم الاعمال الصالحة هذا الكود يعيد تصفير الرقم التلقائي لجدول اكسس بعد حذف معلوماته Private Function valp() Dim REC As Recordset Dim DB As Database Set DB = CurrentDb() Set REC = DB.OpenRecordset("اس…

الرجاء الطلاع على هذا الموقع للعبرة فقط والى متى http://www.aljazeera.net/books/2001/12/12-24-1.htm

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

قاعدة بيانات اكسس لايمكن ان تزيز عن 2 جيجا مهما كان نوع الاستخدام ويمكن ان تتعامل مع بيانات اكثر من 2 جيجا خارجة عن الاكسس مثل ال اس كيو ال او الاوركل وغيرها تحياتي

كما قلت وقد عمل بنجاح اشكرك الله يوفك لما يحب الله ويرضى

اشكركم على هذا المجهود وقد عمل الكود بنجاح وكذلك كود ابو احمود عمل على الفجيول بيسك اشكركم جميعا

اخوي ابوحمود و منصور وريد اونلي شكركم جميعا على مساعدتكم لي اخوي ابو حمود جربت الكودين على الاكسس وعملا بشكل ممتاز ولكنهما لم يعمل على الفجيول بسك وهو المطلوب انا شكر لك بمجهودك في المنتديين ولا اقول الاجزاك الله خيرا في Private Sub أمر0_Click() MsgBox Getfile…

انا عملت Private Sub Command1_Click() Dim RetVal RetVal = Shell("D:Microsoft OfficeOffice10MSACCESS.EXE D:XXXHOME.MDB", 1) SendKeys "" 'كلمة سر الاكسس SendKeys "{ENTER}" DoEvents: DoEvents SendKeys "11" ' كلمة سر القاعدة SendKeys "{ENTER}" DoEvents: DoEvents U…

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

اخوتي الكرام الا يوجد جواب

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

السلام عليكم ورحمة الله وبركاته اخواني الكرام ارجو مساعدتي صممت قاعدة بيانات اكسس وجعلت لها كلمة سر وستطعت فتحها بواسطة الفجيول وتجاوز كلمة السر والمشكلة عندي تحديد موقع مشغل الاكسس MSACCESS.EXE حيث يختلف مكانه حسب تركيب الاوفس ارجو مساعدتكم في الطريقة لجلب اس…

اخي العزيز ابو هاني انا لا ادخل في مجالات التحدي ولكنني قلت في ردي ان المستخدم اذا استطاع تعديل كلمة السر فانه يستطيع معرفة فرق رقم الاسكي الذي غيرته وبذلك يسهل فكها وعليك تجربة ذلك ادخل كلمسر مثلا A وهي تمثل رقم الاسكي 65 ثم اضف عليها 18 ليكون الاسكي 83 ولك ا…

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

وعليكم السلام ورحمة الله وبركاته يمكن وضعها وذلك بستخدام pass = inputbox(ادخل كلمة السر) if pass<>"الكلمة" then exit sub وهي اسهل طريقة ومن عيوبها انك اذا ادخلت هذه الكلمة يمكن ان يرها غيرك وكذلك لايستطيع المستخدم تعديلها اذا اراد الثاني تضع شاشة خاصة لكلمات ا…

يمكن عمل ذالك في الاستعلام التابع للتقرير مثال ذالك التاريخ1 اكتبي في معايير = [ادخل التاريخ1] والتاريخ2 اكتبي في معايير = [ادخل التاريخ2]

اخي المهاجر2 الصورة غير واضحة

اخي المهاجر2 السلام عليكم اسم الجدول basic_data وهذا المثال لتحويل معلومات من الاكسس الى الوورد ويمكن تغيرر خصائص الوثيقة من خطوط واحجامها وغيرها واذا تطلب الامر اكثر من ذلك ممكن ان اعمل قاعدة بيانات وارسلها لكم تحياتي للجميع

اخواني الكرام جربوا هذا الكود : Private Function authorp() 'تحويل المعلومات الى الوورد On Error Resume Next DoCmd.Hourglass True 'الساعة الرملية Dim rec As Recordset, db As Database Dim strg, strg1, strg2, strgp, counts As String Dim flagp As Integer Set db = …

أخي ابوحمود وصل البرنامج جزاك الله خيرا