عفرنس

أخي @محمد ابوعبد الله عندما أضغط على زر إضافة صورة ما يستجيب . أين المشكلة ؟؟ أيضا لا يوجد لدي حقل باسم ( FCar_ No ) If IsNull([FCar_No]) Then [FCar_No].SetFocus Exit Sub End If

ما شاء الله تبارك الرحمن .. مبارك لك أخي الفاضل @husamwahab الى الأمام دوما ..

استفسار هل احذف حقل مرفق من الجدول ؟؟

أين أنت يا صاحبي @mga211

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

السلام عليكم حاول أضيف الصورة في الجدول عن طريق النموذج وما عرفت . لعلكم تجدون لي حلا . الله يحلي أيامكم FF.rar

استفسار : هل المهام اليومية تسجل في ملف اكسل أولا ثم في يتم تسجيلها في برنامج أكسس ؟ أم تسجل في برنامج اكسس مباشرة ؟؟

@ابوآمنة @رمهان شكر الله لكما .. يستحق كل واحد منكما صبية فتية .

تفضل Posters.accdb

جزاك الله خيرا .. جميل .. لي طلب منك أخي @رمهان و الأخ @ابوآمنة لو نظرتما لي في الكود الموجود في محرر الأكواد .. تحديدا الكود الموجود في ( Public Sub Find() ) .. هل فيه شيء مكرر لا فائدة منه ، عن الكود الأعلى منه الخاص بزر بحث ؟؟ شاكر ومقدر لكما .. Posters.rar

أخي @رمهان لا أدري إن كنت انتبهت لهذه أم لا ؟؟

أخي الفاضل : @رمهان من وجهة نظري القاصرة أن يكتفى بالرسالة لأول مرة في إيجاد الاسم ولا داعي لباقي المرات . الأمر الثاني وهي أرى أنها اشكالية ثانية وهي بعد الانتهاء من البحث عن الاسم المطلوب ثم أردت أن أبحث عن اسم آخر أو حتى نفس الاسم يعطيني رسالة ( لا يوجد سجل بهذا الاسم .. مما يضطرني لإغلاق النموذج ثم الفتح مرة أخرى . لذلك نريد أن نتفادى هذه المشكلة ( إغلاق الفورم ) من أجل البحث مرة أخرى . فلو هناك حل لها فلا تبخل علينا به .. دمت بود .

شكرا لك .. على جهدك وتعبك معي أخي @رمهان عندي ملاحظة : وهي/ تكرار الرسالة ( تم إيجاد الاسم ) عند كل اسم .. نريد ان يكتفى بها في المرة الأولى فقط عند العثور على الاسم المطلوب .

سأعاود النظر فيه وأوافيك النتائج @jjafferr تفضل ياصاحبي CS_SeetNumberLabels (2).xlsx

هل النموذج الذي كان اسمه المستخدمين11 غيرت اسمه إلى اسم آخر ؟؟ إذا الجواب نعم فاضغط على زر Debug الموجود في الرسالة التي ظهر لك وسيفتح لك محرر الأكواد واستبدل اسم النموذج بالاسم الجديد انظر لردي على هذه ..

أخي @ابوآمنة بعدما أبحث عن اسم معين ويجده لي ، وبعد الانتهاء من البحث لا يعطيني الرسالة الموجودة في هذا الكود . Private Sub C_Next() On Error GoTo Err_C_Next DoCmd.GoToRecord , , acNext Find Exit_C_Next: Exit Sub Err_C_Next: MsgBox "آخر سجل بحث" Resume Exit_C_Next End Sub يعطيني بدلا عنها الرسالة الموجودة في كود زر البحث MsgBox "لا يوجد سجل بهذا الإسم : " & strSearch, , "غير موجود"

جزاك الله خيرا أخي صالح البريكان @ابوآمنة هذا المطلوب ...

مشاركة رائعة ومقبولة سأوافيك بالنتائج بإذن الله

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

نعم شاهدته بقي أضيف عليه بعض الرسائل ( لا يوجد طالب بهذا الإسم ) ( تم إيجاد اسم الطالب )

شكر الله لك .. هذا ممتاز وهو المطلوب . لكن كيف لي إضافة MsgBox "رجاء ادخل اسم للبحث عنه", vbOKOnly, "خطأ في البحث" MsgBox "لا يوجد سجل بهذا الإسم : " & strSearch, , "غير موجود" MsgBox "تم ايجاد اسم : " & strSearch, , "مبروك" Me.cmdSearch.Caption = "اكمال البحث" رائع ..

مشاركة رائعة من مشارك أروع .. جزاك الله خيرا .. وهذا ملف الأخت زهرة .. مرفق za-EmployyeUP.rar

تمام ها اجرب ووافيك بالنتيجة ان شاء الله

تفضل CS_SeetNumberLabels (2).xlsx

@Barna @أحمد الفلاحجى هلّا أسعفتموني في هذه الكود