د.كاف يار

العفو و تحت أمرك في اي وقت

اتفضل التعديل توليد رقم عشوائي.accdb

لتوليد رقم عشوائي استخدم الدالة Rnd Int(Rnd() * 10000) + 1

تفضل هذه المشاركة برنامجي.mdb

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

تفضل التعديل Test_It_0001.zip

اتفضل التعديل يابوالحسن من خلال الاستعلام الإلحاقي DATA14.zip

في الحقل الذي ترغب ان تشاهد فيه النتيجة

تفضل هذا التعديل كلمة المرور للإتصال بقاعدة البيانات هي 123456 يمكنك تغييرها من خلال الدخول للكود الألية للربط بما انك قمت برفع ملف غير متصل بالأساس بقاعدة بيانات فقد قررت تغيير التكنيك للربط بحيث يتم حذف اي ارتبطات سابقة و انشاء ربط جديد مع قاعدة البيانات و في حال عدم وجود ربط سابق سيتم تأسيس ربط جديد للتجربة بعد تحميل الملف ستجد ازرار بإسم تسجيل الدخول اضغط عليه لتبدء العمل <<<<< نصيحتى لك قم بإغلاق محرر الأكواد برقم سري و ذلك عند حدوث اي خطأ في البرنامج فلن يكون لدى المستخدم اي مجال للعبث >>>>>> تفضل التعديل dataform.zip

تفضل هذا التعديل 22test.zip

في حدث عند فتح النموذج الرئيسي و يفضل وضعه عند الخطأ اثناء فتح النموذج

تفضل التعديل هذه الأعمدة التي سيتم استيرادها test.zip test.accdb

صحيح فهي اساس اي برنامج ترغب في انشائه

ضع في القيمة الإفتراضية لحل السنة المالية ما يلي DLast("NowYaer", "EndYaer")

لإضافة قيم لأكثر من جدول في نفس الوقت اتبع التالي Dim db As DAO.Database Dim sSQL As String On Error GoTo errorhandle ' الجدول الأول Set db = CurrentDb sSQL = "INSERT INTO [Table_Name1] (Column1, Column2,...) VALUES (Value1, Value2,....) " db.Execute sSQL ' الجدول الثاني sSQL = "INSERT INTO [Table_Name2] (Column1, Column2,...) VALUES (Value1, Value2,....) " db.Execute sSQL MsgBox "تم اضافة البيانات الى الجداول بنجاح", vbInformation + vbMsgBoxRight, "تأكيد" errorhandleexit: Exit Sub errorhandle: MsgBox Err.Description Resume errorhandleexit

الإستعلامات لها انواع كثير لكني سوف اذكر الأكثر استخداما انواع الاستعلامات من حيث معالجة البيانات Select - INSERT INTO - Update - Delete إستخراج البیانات من قاعده البیانات : Select بناء الجملة يكون بالشكل التالي لعرض جميع البيانات SELECT * FROM Persons '================================= لعرض أعمدة محدددة مثلا الاسم الأول و الاسم الأخير للموظف SELECT LastName,FirstName FROM Persons '================================= لعرض البيانات بدون تكرار اضف بعد عبارة التحديد الجملة التالية DISTINCT SELECT DISTINCT Company FROM Orders إضافه بیانات جديده : INSERT INTO بناء الجملة يكون بالشكل التالي اضافة بيانات INSERT INTO table_name (column1, column2,...) VALUES (value1, value2,....) التعديل على البیانات المسجله : Update UPDATE table_name SET column_name = new_value WHERE column_name = some_value حذف البیانات من القاعده : Delete DELETE FROM table_name WHERE column_name = some_value استعلام التوحيد تستخدم لدمج حقلین من جدولین مختلفین ولكن يجب ان يكون نوع البیانات فى الحقلین واحد اى يكون نصوص او ارقام .………إلخ SELECT E_Name FROM table_name_1 UNION SELECT E_Name FROM table_name_2 استعلام الدوال Functions (AVG - COUNT-First-last-Max-Min-SUM) لنفترض انك تريد الحصول على اجمالي الفواتير للشركات المتعاقدة مع شركتك SELECT Company, SUM(Amount) FROM Sales حذف جدول DROP DATABASE DROP TABLE table_name لعمل نسخه إحتیاطیه من الجدول فى نفسالقاعده Persons="اسم الجدول" Persons_backup= اسم الجدول الجديد الذي سيتم انشائه و حفظ البيانات به في حال عدم وجوده SELECT * INTO Persons_backup FROM Persons IN لنسخ الجدول لقاعده بیانات أخرى : نستخدم SELECT Persons.* INTO Persons IN '\Backup.mdb' FROM Persons في النهاية انصحك بإستخدام اليوتيوب و البحث عن دروس في SQL فهي روح اي برنامج ان اسحنتها صلح برنامجك شكرا لك

تفضل هذا الكود الخاص بتحديث ربط قاعدة البيانات Dim strDbFile As String Dim strPassword As String Dim strConnect As String strDbFile = CurrentProject.Path & "\Data.mdb" strPassword = "Password" strConnect = "MS Access;PWD=" & strPassword & ";DATABASE=" & strDbFile Dim tdf As DAO.TableDef Dim db As DAO.Database Set db = CurrentDb For Each tdf In db.TableDefs ' ignore system and temp tables If Not (tdf.Name Like "MSys*" Or tdf.Name Like "~*" Or tdf.Name Like "exl*") Then tdf.Connect = strConnect tdf.RefreshLink End If Next

اخي الكريم اتبع الشرح التالي في حال اردت اضافة بيانات الى جدول من حقول في النموذج غير منضمة اسهل طريقة بما أنك مبتدئ ان تستخدم الإستعلام الإلحاقي كما يلي بمجرد اختيار الجدول الذي سيتم الحاق البيانات به تبدء الأن اختيار حقول الجدول قم بإختيار الحقول التي ترغب بإضافة القيمة لها من النموذج تبقى الأن اضافة الحقول من النموذج داخل الإستعلام و هذا هو النموذج المستخدم كما ترى الحقول غير منضمة الأن نذهب للإستعلام لإضافة حقول النموذج داخل الإستعلام لإلحاق البيانات من النموذج الى الجدول ثم تضع اسماء الحقول كما يلي بعد تعبئة الحقول و حفظ الاستعلام الالحاقي تضع ازرار داخل النموذج لتشغيل الاستعلام و في حديث عند الضغط تضع التالي DoCmd.SetWarnings False DoCmd.OpenQuery " ضع هنا اسم الاستعلام الإلحاقي " DoCmd.SetWarnings True و كذلك الاستعلام التحديث بنفس الطريقة

تفضل التعديل لعرض كلمة المرور ضع المؤشر داخل حقل كلمة المرور قاعدة البيانات للمستخدمين.zip

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

لم افهم قصدك وضح اكثر ؟؟؟

هل تأكدت من تطابق اسم مربع التسمية في برنامجك ؟؟؟

تفضل هذا التعديل في اضافة مستخدم جديد يجب ان تقوم بتسجيل الدخول من نموذج تسجيل الدخول لكي يتم تخزين رقم المستخدم و بعدها سيتم اضافته في القائمة تلقائيا لتغيير كلمة المرور قاعدة البيانات للمستخدمين.zip

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

تفضل اليك طريقتين سهلة للغاية label fade.accdb