مهند عبادي

أخي searcherman1973 إن المهم هو أين تضع الكود .. في حالتك هذه ضع الكود عند إدخال أو تحديث القيم في النموذج الثاني وسيكون الكود كما يلي : Forms![Main Form]![Sub Form].Requery

أخي biskra هذا هو كود المقارنة الذي تريده If DateDiff("y", date1, date2) < 18 Then msgbox "لا يمكن توظيف شخص عمره أقل من 18 عاماً" End If

السلام عليكم ورحمة الله وبركاته إلى الأخ العزيز فيصل الحربي أقدم لك البرنامج الذي تريده .. وأنا أعتذر عن التأخر بسبب كثرة المشاغل لدي وأنا جاهز عن أي استفسار عن هذا البرنامج وتصميمه.. كما أرجو أن يستفيد من أسلوب تصميمه كل الأخوة مع تحياتي Box.rar

أرفق الملف أخي الكريم حتى نتمكن من مساعدتك

ماذا تقصد بالضبط أخي ؟؟ الرجاء التوضيح أكثر

ولكن .. ينبغي أن تكون هناك طريقة لذلك قياساً على قواعد البيانات Dbase و Calipper وأيضاً لأن حجم قاعدة البيانات Access لا يقل بعد حذف سجلات منها إلا إذا عملنا ضغط وإصلاح وأنا بحثت في الانترنت عن هذا الموضوع ولكن لم أجد الحل

مشكور أخي biskra على جهودك الرائعة

أخي رامي .. ضع حقل ترقيم تلقائي عادي في جدولك وليكن اسمه SN وفي النموذج ضع مربع نص وعين خاصية مصدر عنصر التحكم إلى : =[SN]+865

أشكر الأخوة الكرام على تهنئتهم لي .. أخي رامي أنا في سوريا

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

السلام عليكم ورحمة الله ,, نبارك للأخ Maverick لترقيته إلى مجموعة خبراء المنتدى بلغة VB ,, وهو يستحق هذه الترقية نظرا لجهوده الواضحة في المنتدى وقسم VB خاصةً ,, وأنا أتطلع إلى أن يتم ترقيته إلى مشرف لأنه مثال للنشاط والمساهمات الجيدة ومساعدة الأعضاء بارك الله …

مبروك أخي Maverick الترقية وبالنسبة للأسماء المرشحة الأخرى ينبغي أن يتم ترشيح الاسم من 3 أعضاء على الأقل ليتم رفع ترشيحه

أخي ماجد أرى أن لديك ضعف في تصميم الجداول 1- لماذا لم تعمل جدول خاص بالكتب المستعارة يحتوي : /اسم الكتاب المستعار /رمز الكتاب المستعار /كود الكتاب المستعار /تاريخ الإستعارة /تاريخ نهاية مدة الإعارة ثم تربطه بجدول المستعيرين الذي يحوي :اسم الطالب/الرقم الأكاديم…

هذه هي الأداة مرفقة مع الكود وإن شاء الله في أول وقت فراغ لدي سأبدأ بكتابة دروس متدرجة عن تصميم أدوات ActiveX مع الأمثلة Graduate.rar

أخي الكريم .. جواب hishampro صحيح على ما أعتقد وبإمكانك أن تجعل جدولك من كائنات النظام ولكن بدون حمايته ككائنات النظام الأخرى بل فقط يتم إخفاؤه وإظهاره مع كائنات النظام وذلك إذا وضعت أول اسمه 4 حروف هي : USys

آسف أخي على هذا الخطأ .. وذلك بسبب الاستعجال في الكتابة والردود أولاً : معك حق المفروض أن نكتب : [get]=v ثانياً : لقد كتبت في المثال السابق الأسلوب ولم أحصي لك كل الحالات بسبب الاستعجال أيضاً ظناً مني أنك سوف تفهم الاسلوب وتكمله .. ثالثاً : لقد عدلت لك النموذج…

تفضل أخي المبرمج هذا برنامجك بعد التعديل ... ولكني لم أضف الكود المكتوب فوق .. بل عدلت وأكملت طريقتك التي كنت تحاول بها (الماكرو) لأنها أقصر وأسهل من الكود وقد أرفقت ملف QQ.xls من أجل التجريب وشكراً dd.rar

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

Public Sub ImportXLS() On Error GoTo Err_subImport Dim MyXLS As String, MySql As String Dim fso As Scripting.FileSystemObject Dim oktogo As Boolean DoCmd.SetWarnings False oktogo = False MyXLS = "c:\qq.xls" Set fso = CreateObject("Scripting.FileSystemObject") …

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