نجوم المشاركات

If MsgBox("هل تريد حذف هذا السجل ؟", _ vbCritical + vbYesNo, _ "تحذير") = vbYes Then DoCmd.RunCommand acCmdDeleteRecord Else Exit Sub @Shivan Rekany

السلام عليكم جميعا يمكنك فعل ذلك عن طريق الحشر بالطريقة التالية Object.[event]="=MsgBox('Say Something')" يمكنك استخدام جميع وظائف أكسس، أو إنشاء وظائف خاصة، كما يمكنك استخدام الميكرو أيضا تنبيه الإجراءات ()SUB لا يعمل هنا لأنه لا يقبل الاسناد! إليك مرفق الاستاذ أبو خليل بعد التعديل db1.zip

عزيزي هذا الكود للمطلوب وعند النقر المزدوج على عنصر البحث Private Sub txt_Search_DblClick(Cancel As Integer) DoCmd.OpenReport "report", acViewPreview, , Me.Filter End Sub ولكن اسمحولي براي هنا ادارة المنتدى تسعى جاهدة لتقليل المواضع المكرره خصوصا في فترات متقاربة . هنا العتب اكثر على الاساتذة حيث هم اولى بالاشارة الى الموضوع وخصوصا لو اصبح في فتره متقاربة جدا فهنا نفس الموضوع بالتمام تحياتي

هل قصدك هذا If MsgBox("هل تريد الحذف السجل ", vbYesNo , "تنبيـــه") = vbYes Then Docmd.runcommand accmdselectrecord DoCmd.RunCommand acCmdDeleteRecord MsgBox "تم الحذف" me.Refresh End If

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

وعليكم السلام ورحمة الله وبركاته فعلا ويعطيك امكانية لاختيار الحقل الذي تريد البحث فيه ويظهر كل شيئ أمامك في النموذج أرفق ملف بسيط لبرنامج لك وسنحاول إن شاء الله التطبيق كما ترى الطريقة تتلخص في كود الفلترة التالي Private Sub comb_Search_AfterUpdate() On Error Resume Next Me.Filter = Nz(comb_Search, "id") & " Like ""*" & txt_Search & "*""": Me.FilterOn = True End Sub ''ÑãåÇä ''ÇæÝíÓäÇ Private Sub txt_Search_Change() On Error Resume Next FindAsType = txt_Search.Text Me.Filter = (Nz(comb_Search, "ID")) & " Like ""*" & FindAsType & "*""": Me.FilterOn = True txt_Search.SetFocus txt_Search = FindAsType txt_Search.SelStart = Len(FindAsType) End Sub الجزء الأول من الكود يقوم بالفترة اذا قمت باختيار حقل الفلترة وتستند الفلترة على القيم الموجودة في مربع البحث والجزء الثاني يقوم بالفلترة مع كتابة أي شيئ في مربع البحث لكن هناك خطأ في الكود التالي : Nz(comb_Search, "id") المفترض أنه اذا لم تقم باختيار حقل للبحث فإنه تلقائيا يختار الحقل ID وهو حقل غير موجود في مصدر البيانات مما تظهر معه رسالة خطأ وربما هذا ما يحدث معك عندما تحاول تطبيق المثال لذلك يجب أن تستبدله في مثالك المرفق وفي برامجك باسم الحقل الصحيح شيئ آخر : جرب استبدال الكود كاملاً بهذا الكود التالي وانظر الفرق Option Compare Database Private Sub comb_Search_AfterUpdate() Me.Filter = Nz(comb_Search, "CustomerID") & " Like ""*" & txt_Search & "*""": Me.FilterOn = True End Sub Private Sub txt_Search_Change() Me.Filter = (Nz(comb_Search, "CustomerID")) & " Like ""*" & txt_Search.Text & "*""": Me.FilterOn = True txt_Search.SetFocus txt_Search.SelStart = Len(txt_Search.Text) End Sub وأخيرا : ربما يكون عدم التطبيق في برامجك راجع إلى الفلترة في اللغة العربية حيث أن المثال لا يدعم الحروف المتشابهة مثل الهمزات إلى آخره ولكن طبعا يمكن تطويره سواء للبحث في داخل كل الحقول في نفس الوقت أو في دعم الحروف العربية المتشابهة لأنه مثال رائع وقوته في البساطة والفكرة الجديدة وشكرا جزيلا لمن قام بهذا العمل ولكل أساتذة المنتدى الأكفاء

إخواني الأعزاء السلام عليكم ورحمة الله وبركاته برنامجي الصغير والسريع للحماية برقم القرص الصلب أهديه إلى إخواني المبرجين المبتدئين في عالم الأكسس ملحوظة : نموذج التسجيل لا يظهر إلا مرة واحدة عند بداية التسجيل ثم يختفي كل ما عليك هو استيراد نموذج التسجيل ونموذج الترحيب والجدول إلى برنامجك ( لا تنسى تعديل اسم النموذج الرئيسي داخل الكود والذي هو في المثال "QQ" وتستبدله باسم النموذج الرئيسي في برنامجك المعادلة : ( رقم التسجيل = رقم النسخة + 55 * 2 ) وبإمكانك التعديل داخل الكود كما تشاء أمل أن يحوز على القبول والرضا فلا تنسوني من صالح دعائكم . تقبلوا تحياتي ،،، حماية برقم القرص يظهر مرة واحدة.rar

الاخوة اعضاء المنتدى العظيم بمناسبة تجديد المنتدى بثوبه الجديد نتعرف على موضوع الدوال بطريقة بسيطة تكملة لموضوع كيفية تصميم شيت بالاكسل الذى تم تنفيذه سابقا ارجو ان ينال رضاكم الدوال الدوال هى أوامر تقوم بتنفيذ مهام معينة وتتم كتابتها داخل الخلايا المختلفة لورقة العمل ويمكن تقسيم الدوال الى ست مجموعات كما يلى 1 الدوال العامة 2 الدوال المالية 3 الدوال الرياضية 4 الدوال الحرفية 5 الدوال الخاصة بالتاريخ والوقت 6 دوال قاعدة البيانات تعال معا نتعرف على كيفية البحث عن الدوال المختلفة الموجودة بالاكسل كيفية استخراج الدالة.rar

بسم الله الرحمان الرحيم السلام عليكم تحياتي لجميع اعضاء اوفيسنا المحترمين الموضوع ليس بجدبد فقد تم التطرق له من قبل الاستاد القدير عبد الله باقشير جازاه الله خيرا و ان شاء الله نراه بينانا في المنتدى عن قريب لمتابعتي المنتدى في الاونة الاخيرة رئيت عدت تسائلات عن البحث والتعديل في الجداول و رئيت العديد من الحلول فحاولة الاجتهاد و الوصول الى ابسط و اسهل طريقة لعمل ذلك لذى فكرة في برمجة فورم مرن يكون ملائم لاي جدول مهما كان عدد صوفوفه او عدد اعمدته و لكي يتمكن اي عضو مهما كانت معرفته بالبرمجة ضعيفة من استعماله بسهولة ووصلة الى هذا الفورم الذي ارجو ان اكون قد وفقت في فكرته وان يستفيد منه الاغلبية يتميز هذا البرنامج يجلب الجدول المستهدف للعمل عليه و امكانية البحث داخله بدلالة اي عمود من اعمدته كما ان البحث يتميز بالبحث بأول حرف من الكمة او اي جزء منها حسب احتياجك وايضا تتميز عملية البحث بالسرعة الفائقة لاني اعتمدت على المصفوفات للوصول الى ذلك و تعرفون قوة المصفوفات و فعاليتعها اما بخصوص التكستبوكس و الكمبوبكس فتنشأ برمجيا على حسب عدد اعمدة الجدول نأتي الان الى طريقة استعمال الفورم هذا مع ملفك الخاص اولا اذهب الى محرر الاكواد تجد موديل باسم ModulePublic تجد في بدايته هذين الكودين او التعريفين ان صح التعبير Public Const sNomFeuil As String = "data" 'اسم ورقة العمل التي تحمل قاعدة البيانات Public Const sTableau As String = "tbData" ' اسم جدول قاعدة البيانات اضن ان الامر واضح تصع اسم الشيت الذي يحوي الجدول مكان عبارة "data" واسم الجدول نفسه مكان عبارة "tbData" ملاحظة : يجب ان تكون قاعدة البيانات عبارة عن جدول لايهم عدد اعمدة ولا صفوفه المهم ان يكون جدول باتباعك الخطوات السابقة تكون قد انتهيت من ربط جدولك مع الفورم ثانيا نأتي الى الاعمدة التي تحتاج قوائم في مثالنا لدين العمود 4 و العمود الاخير يحتاجون ان يمثلو في الفورم على شكر قوائم (كمبوبكس) لتنفيذ ذالك قم بأنشاء القوائم الازمة في اي شيت تريد و اعطي كل مدى قائمة اسم معين في المثال الخاص بنا سمينا نطاق قائمة الجنس ب list1 كما هو موصح في الصورة ثم اذهب الى رأس العمود المستهدف قم بادراج تعليق له و اكتب داخل التعليق نفس اسم نطاق القائمة و انتهى الامر ارجو ان اكون قد وفقت في الشرح وان يستفيد أكبر عدد من الاعضاء من هذا العمل ملاحضة: تنسيق عرض اعمد اليست يكون بتنسيقك ععرض اعمدة الجدول نفسه من الشيت و الفورم يكتشف العمود الذي يحوي تواريخ تلقائيا اي ملاحظة او استفسار او اضافة تحتاجونها للفورم لا تترددو في طلبي اهدي هذا العمل الى الغائبين الحاضرين في قلوبنا الاخ ضاحي الغريب و الاستاد عبد الله باقشير تحياتي للجميع UserForm Flexibles.rar

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

السلام عليكم الرجاء من فضلكم عمل كود 1 . طباعة الناجحين 2 . طباعة الدور الثاني في شيت .. شهادات آخر العام ... بالملف المرفق

السلام عليكم ممكن كود ترقيم تلقائي خلية a عند الكتابة في خلية c

فينك من زمان استاذى @صالح حمادي والله الله ينور وربنا يباركلك ويوفقك اشتغل تمام التمام وجزاك الله خيراً .

السلام عليكم تفضل أخي هذا هو الكود Dim str_code As String Dim name_frm As String Dim frm As AccessObject, dbs As Object Set dbs = Application.CurrentProject For Each frm In dbs.AllForms name_frm = frm.Name DoCmd.OpenForm name_frm, acDesign str_code = "Private Sub Form_Load()" & vbCrLf & _ "call Color_V(me)" & vbCrLf & _ "end sub" Forms(name_frm).Module.AddFromString str_code DoCmd.Close acForm, name_frm, acSaveYes Next

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

السلام عليكم ورحمة الله معذرة لقد قمت بتغيير مكان خلايا الخاصية من... إلى... في الشيت (من السطر الثالث إلى السطر الثاني) وغفلت على التعديل في الكود... المهم يمكنك القيام بذلك بتغيير الأمر التالي في الكود: For I = [T3] To [U3] Step 9 بالأمر : For I = [T2] To [U2] Step 9 معذرة مرة أخرى... يمكنك أيضا تحميل الملف المرفق الذي تم فيه التصحيح... بن علية حاجي طباعــــــة بن عليه.rar

مشكور أخي محمد بك زينة شباب المنصورة أنا أتمنى طبعا من الله التوفيق لك والمساعدة سواء عن طريقي أو طريق أساتذة المنتدى المحترفين لكن نبدأ بطلبك الأول حيث عندي استفسارين: واعذرني بسبب تداخل الكلمات الانجليزية مع العربية وصعوبة ربطهما بالنسبة لي حيث تبدو متداخلة عندي في المتصفح هل تريد حساب تكلفة الأصناف وذلك بالمعادلة الحسابية في جدول الحركة وهي حاصل ضرب متوسط السعر في الكمية الواردة أم حاصل ضرب متوسط السعر في العدد con ? وهل تريد حساب التكلفة للأصناف الرئيسية بجدول المنتجات أو بالأصناف الفرعية بجدول Bom ؟

السلام عليكم ورحمة الله تفضل أخي الملف المرفق وبه المطلوب... تقبل الله منا ومنكم ومن كل المسلمين الصلاة والصيام والقيام وصالح الأعمال أخوك بن علية طباعــــــة بن عليه.rar

السلام عليكم ورحمة الله تم التعديل على الكود للطباعة حسب رقم الجلوس باستعمال خاصية من...إلى...، ولإضافة خليتين للاختبار U1 و U2 (لأصغر وأكبر قيمة لرقم الجلوس) وتم أيضا التعديل على معادلات الشهادات لجلب البيانات حسب رقم الجلوس... تجد كل ذلك في الملف المرفق (وأعتذر من الأخ فايز فراج في استعمال ملفه للتطبيق)... اخوك بن علية حاجي طباعة الشهادات حسب رقم الجلوس.rar

إخوتى الكرام .. الملف التالى يتناول الطرق المختلفة لتعبئة الـــــــComboBox .. اتمنى ان يمثل إضافه بسيطة .. وكل عام وانتم بخير .. المرفقـــات Khaled-elrashedy -Combobox.rar

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

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

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

اخي الكريم Aliko طريقة الحماية المتبعة هي تقوم على مبدأ دمج سيريلات 3 قطع ومن ثم يضرب الناتج * 2 ويضاف اليه رقم 12345 للحصول على سيريال للنسخة يقوم المستخدم بارساله لك لكي تقوم انت باعطاءه رقم التفعيل ومن ثم يقوم المستخدم بادخال رقم التفعيل في البرنامج حيث يتم خزنه في الجدول لكي يقوم البرنامج بالتأكد من صحته .. السؤال هنا هو كيف يعرف البرنامج ان الرقم الذي اعطيته انت هو رقم التفعيل الصحيح؟؟ هنا تأتي الفكرة الجميلة في البرنامج وهي تفكيك كود التفعيل الذي تم خزنه في الجدول وذلك عن طريق عكس المعادلة (المتغير aa3) ومن ثم يستخرج الرقم المدمج الذي يحتوي على ارقام 3 قطع ومن ثم يقوم بالتاكد من وجود ارقام قطعتين على الاقل من الثلاث قطع فإن وجدها مطابقة فسوف يتم تفعيل البرنامج وان لم يجدها مطابقة فسيرفض رقم التفعيل. تحياتي

السلام عليكم ورحمة الله قيمة الخلية N1 التي تأخذ قيمها من المتغير I في الكود من... إلى... (بالخطوة 4) هي بداية قيم البحث التي تعتمدها معادلات الشهادات، بالنسبة للشهادات فقيم بحثها تجدها في الخلايا N50 ، N37 ، N24 ، N11 التي تحوي على الترتيب المعادلات التالية: N1 = ثم N11 + 1 = ثم N24 + 1 = ثم N37 + 1 = (أي القيم الموالية لقيمة N1)... أخوك بن علية

اتفضل هذا الحل الانسب في حدث فتح نموذج من نوع سبلايت استخدمنا هذا الكود Private Sub Form_Open(Cancel As Integer) DoCmd.Maximize End Sub وللفتح النموذج استخدمنا هذا الكود Private Sub أمر8_Click() DoCmd.OpenForm "nform", acNormal, , , , acDialog End Sub ولان لا يظهر الاستعلام في وضع اخفاء الشاشة عملنا نموذج من نوع داتاشيت وكتبنا هذا الكود لفتحه Private Sub أمر9_Click() DoCmd.OpenForm "q1", acFormDS, , , , acDialog End Sub اتفضل اليك مرفقك بعد تعديل ASH1 (1).rar

بارك الله لك أخي الكريم ربما يفيدك هذا التعديل لا يلزمك حقل إجابة الطالب تم تعديل كود زر تسليم (هو ما يلزمنا) mas_Questions.rar

ما هو السبب عمل 302000 تقرير في القاعدة ؟ ما قصدك بهذا ؟ اتفضل رأيت احد مشاركات استاذنا @ابوخليل وكان فيها الحل وكان استخدمت هذه الوحدة نمطية Option Compare Database Global Const SW_HIDE = 0 Global Const SW_SHOWNORMAL = 1 Global Const SW_SHOWMINIMIZED = 2 Global Const SW_SHOWMAXIMIZED = 3 Private Declare Function apiShowWindow Lib "user32" _ Alias "ShowWindow" (ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long Function fSetAccessWindow(nCmdShow As Long) Dim loX As Long Dim loForm As Form Dim loReport As Report On Error Resume Next Set loForm = Screen.ActiveForm Set loReport = Screen.ActiveReport If Err <> 0 Then loX = apiShowWindow(hWndAccessApp, nCmdShow) Err.Clear End If If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Or _ nCmdShow = SW_SHOWMINIMIZED And loReport.Modal = True _ Then ' MsgBox "Cannot minimize Access with " _ ' & (loForm.Caption + " ") _ ' & "form on screen" ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Or _ nCmdShow = SW_HIDE And loForm.loReport <> True _ Then ' MsgBox "Cannot hide Access with " _ ' & (loForm.Caption + " ") _ ' & "form on screen" Else loX = apiShowWindow(hWndAccessApp, nCmdShow) End If fSetAccessWindow = (loX <> 0) End Function وفي حدث فتح التقرير كان كتبت Private Sub Report_Open(Cancel As Integer) DoCmd.Minimize DoCmd.OpenReport Me.Name, acViewPreview End Sub وفي زر فتح التقرير كتبت كود فتح التقرير بشكل عادي Private Sub Command1_Click() DoCmd.OpenReport "report1", acViewPreview End Sub والنتيجة 100% واليك المرفق و نشكر استاذنا ابوخليل على هذا hide (1).rar

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

السلام عليكم ورحمة الله هذا موجود ضمنيا في معادلة التقريب الموجودة في الخلية B15 التي تحسب نصف العدد الإجمالي بالأيام (تقريب للأعلى دون أرقام عشرية)... بن علية

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

بعد إذن الأستاذ جمال أخي الكريم يرجع الخطأ لاستعمال أسماء الحقول باللغة العربية وتصحيح هذا الخطأ هو ما يلي Private Sub comb_Search_AfterUpdate() On Error Resume Next Me.Filter = "[" & Nz(comb_Search, "رقم المستفيد") & "] Like ""*" & txt_Search & "*""": Me.FilterOn = True Me.txt_Search.SetFocus End Sub Private Sub txt_Search_Change() On Error Resume Next FindAsType = txt_Search.Text Me.Filter = "[" & (Nz(comb_Search, "رقم المستفيد")) & "] Like ""*" & FindAsType & "*""": Me.FilterOn = True txt_Search.SetFocus txt_Search = FindAsType txt_Search.SelStart = Len(FindAsType) End Sub لاحظ الأقواس قبل وبعد اسم الحقل * يبدو أنه أثناء إعدادي للرد سبقني بها أخي شيفان تقبل منا منكم صالح الأعمال

استأذن من استاذنا @Gamal.Saad واستأذن من استاذي الحبيب @رمهان اتفضل القي نظرتا الى الصورة انا غيرت مصدر كومبوبوكس والكود اصبح Private Sub comb_Search_AfterUpdate() On Error Resume Next Me.Filter = "[" & (Nz(comb_Search, "رقم المستفيد")) & "]" & " Like ""*" & FindAsType & "*""": Me.FilterOn = True End Sub Private Sub txt_Search_Change() On Error Resume Next FindAsType = txt_Search.Text Me.Filter = "[" & (Nz(comb_Search, "رقم المستفيد")) & "]" & " Like ""*" & FindAsType & "*""": Me.FilterOn = True txt_Search.SetFocus txt_Search = FindAsType txt_Search.SelStart = Len(FindAsType) End Sub واليك المرفق بعد تعديل مثال .rar

احتمال يكون الخلل من تفعيل بعض خصائص قاعدة البيانات الصورة في المرفقات هي لخيارات قاعدة بيانات mdb ابحث عن الخاصية المحاطة بالمربع الاحمر في الخيارات الخاصة بالاصدار الذي تعمل عليه ثم ازل العلامات من مربع الخيار ان وجدت ثم اغلق قاعدة البيانات وافتحها من جديد

السلام عليكم مشاركة معكم احبتي الكود الذي تفضلت بعرضه ثم قام بالتعديل عليه الاستاذ جمال يعمل بكفاءة حسب الطلب في المثال : انقر على الزر فيقوم بتغيير الخاصية على جميع النماذج حتى النموذج المفتوح db1.rar

بآخر خطوة، هل قمت بوضع كلمة السر؟ وقمت بالتجربة على أوفيس 2010، ولا يوجد مشكلة. قم بكتابة كلمة السر بخانة "بدء فرض الحماية"، وإن شاء الله ستكون النتيجة كما تريد. احترامي

الاستاذ مصطفى شاهين أشكرك على اهتمامك وردك - تم إجراء التعديل الموضح ولكن الموضع كما هو عندى اوفيس 2010 برجاء تجرية

تحية طيبة وبعد، الحماية الموضحة بالشرح سليمة 100% وتمنع عملية النسخ سواء بواسطة Ctrl + C أو بطريقة النسخة الاعتيادية، ولكن يوجد شيء بسيط تم الضغط عليه بالخطأ وهو إزالة إشارة (صح) الموجودة على كلمة (الكل) [بالاستثناءات اختياري] بين رقمي 3 و 4 أعلاه. رمضان كريم دمتم بخير

الاستاذ مصطفى شاهين أشكرك على اهتمامك وردك هذه الجملة مرفقة فى سؤالى - خاصة عن طريق استعمال لوحة المفاتيح - اتبعت كل خطواتك ولكن عند استعمال Alt+C يتم اخذ نسخة ووضعها فى اى مكان أخر وهذا ما أريده أن يحدث الملف للقراءة فقط اسف تعديل للأمر Ctrl+C

الاخ steel2008man وعليكم السلام ورحمة الله وبركاتة وبعد اذن الاخ شوقى انظر الصور سجلت اسمك فى اعلى الفورم مكان التعديل ضع البيان داخل الاقواس فهذا الكود لتسجيل المطلوب اعلى الفورم Private Sub UserForm_Initialize() Me.RightToLeft = True Me.Caption = "مجدى عبد المنعم يونس" RemplirTableau sNomFeuil, sTableau ' دالة ملئ المصفوفة الرئسية End Sub انظر الصورة اسمك داخل الاقواس

شكرا على مروركم أستاذتي الأفاضل الاستاذ عبدالفتاح كيره والاستاذ عمرو أشرف والأستاذ أبو خليل at_aziz والاستاذ والأستاذ محمد النجار Wael_rafat والاستاذ وبارك الله فيكم وفي كل أعضاء هذا المنتدى الراقي مشكور أستاذ عمرو وإن شاء الله نقوم بهذا ا|لأمر أيضا سوياً مع الأعضاء

تحية طيبة وبعد، للاطلاع لطفاً على الشرح المرفق. دمتم بخير

بارك الله فيك استاذ وقي على هذا العمل المتميز و الرائع وهذا ان دل على شئ فدل على انم انت شخصيا متميز و متفوق اريد ان اضيف شئ بعد تجربة الملف الرائع وحتى يكتمل الملف بشكل تام هو ان التاريخ يكتب بطريقة غير صحيحة اي الشهر مكان اليوم و العكس 2- عند الحذف هل ممكن ان يعاد ترتيب الارقام تسلسليا 3- كيف يمكن اخفاء التكتس بوكس من محرر الاكواد واعادة اضهارهم تحياتي الخالصة و بارك الله فيك استاذ شوقي مع مزيد من الاعمال المتميزة و الرائعة ...شكرا و بارك الله فيك

شكرا جزيلا لك اخي الفاضل الآن يعمل بدون مشاكل بصيغة اخرى بصيغة افضل

أنا حلت ذلك المستخدمين يعملون بدون مشاكل

هل تستطيع تعديل على هذه المرفق ، اذا ليست صعبة الك سوف أكون سعيدا حاولت كثير مرات لكن لم انجحت في ذلك Permission.rar

شكرا جزيلا لك ساحاول ان شاء الله

هذا ملف به فورمه للبحث ارجو ادراج اكوادكم الرائعه فيها حيث انها هنا لاتاتي بمطابقه الحرف الذي نبحث عنه فورمه بحث تصلح للمدارس.rar

* ملحوظة : انا خذت الكود في موقع اجنبي في البداية اريد اقول سنحتاج مكتبة Microsoft WMI Scripting v2.1 library الصق هذا الكود في وحدة نمطية Option Compare Database Option Explicit Const Arr = 2 Public Function GetPcSnCpuAndMotherboard() ' Microsoft WMI Scripting v2.1 library ستحتاج مكتبة DoCmd.Hourglass True Dim SWbemSet(Arr) As SWbemObjectSet Dim SWbemObj As SWbemObject Dim varObjectToId(Arr) As String Dim varSerial(Arr) As String Dim i, j As Integer Dim fld As String On Error Resume Next varObjectToId(1) = "Win32_BaseBoard,SerialNumber" varObjectToId(2) = "Win32_Processor,ProcessorId" For i = 1 To Arr Set SWbemSet(i) = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf(Split(varObjectToId(i), ",")(0)) varSerial(i) = "" For Each SWbemObj In SWbemSet(i) varSerial(i) = SWbemObj.Properties_(Split(varObjectToId(i), ",")(1)) 'Property value varSerial(i) = Trim(varSerial(i)) If Len(varSerial(i)) < 1 Then varSerial(i) = "Unknown value" Next fld = "Text" & i Forms("FORM2")(fld) = varSerial(i) ' غير اسم فورم 2 الى اسم الفورم عندك Next DoCmd.Hourglass False End Function وفي النموذج في اي حدث تريد مثلا عند تحميل او عند الضغط على كليك مثلا اكتب في محرر فيجوال هذا Call GetPcSnCpuAndMotherboard ويجب ان يكون عندك مربعين نصيين واسمهما بيكون text1 والاخر بيكون text2 على الرغم اننا نكدر نغيره الى مانريد في وحده‌ نمطية =============== واذا تريد ان توصل الى احد من سريالات وبدون استخدام وحدة النمطية اليك هذا Private Sub Form_Load() ' Microsoft WMI Scripting v2.1 library ستحتاج مكتبة Dim varObjectToId As String Dim varSerial As String On Error Resume Next varObjectToId = "Win32_BaseBoard,SerialNumber" ' اذا تريد ان تبحث عن معالج اكتب الصدر الادناه بدل السطر اعلاه 'varObjectToId = "Win32_Processor,ProcessorId" Set SWbemSet = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf(Split(varObjectToId, ",")(0)) varSerial = "" For Each SWbemObj In SWbemSet varSerial = SWbemObj.Properties_(Split(varObjectToId, ",")(1)) varSerial = Trim(varSerial) If Len(varSerial) < 1 Then varSerial = "Unknown value" Next Me.Text1 = varSerial End Sub واخيرا اتفضل مع قاعدة بيانات بها الطريقتين لمعرفة سريال نمبر المعالج واللوحة الأم.rar

الصحيح لحساب عدد الأيام أن تكون المعادلة بالشكل التالي =DATEDIF(A3,B3,"d") أما لحساب السنوات يتم استبدال حرف d بحرف الـ y