zoom10

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

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

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

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

بارك الله فيك أخي الكريم REDA.M.A بصراحة فيديو مفيد جدا ولكن لا ينطبق على مشروعي وحاولت ولكن لم تضبط معنا .

عند تحميل الملف تأتيني هذه الرسالة . ايش المشكلة أخ محمد

السلام عليكم ورحمة الله وبركاته . في المرفق لدي نموذج وأريد زر أو مربع بحث بالإسم أو جزء من الإسم . ولكم الشكر . 11.accdb

الله يزيد فضلك أخي الكريم ابا جودى الله يجزاك خير ويبارك فيك وفي رزقك . شكرا لك

تفضل المرفق aaaa.mdb

السلام عليكم ورحمة الله لدي زر في النموذج يقوم بنقل المادة إلى نموذج آخر وقمت بإضافة رسالة تفيد بنجاح النقل عند الضغط على الزر . المشكلة أنني عند الضغط على الزر والحقول فاضية تأتيني الرسالة بنجاح النقل وكل ما أريده إضافة كود رسالة مع الكود المرفق تفيدني أنه( لابد من أختيار مادة أولا) أو ( لايوجد مادة لنقلها ) . الكود هو : Private Sub أمر3_Click() On Error GoTo Err_أمر3_Click Dim stDocName As String stDocName = "M-K" DoCmd.OpenQuery stDocName, acNormal, acEdit If MsgBox(" تم النقل بنجاح ", vbCritical, "نقل سجل") = vbYes Then Exit_أمر3_Click: Exit Sub Err_أمر3_Click: MsgBox Err.Description Resume Exit_أمر3_Click End If End Sub وشكرا لكم

بارك الله فيك أخي الكريم kaser906 ادخلت الكود الذي صنعته داخل الكود أعلاه ونجحت العملية وأصبح الكود كالتالي : أكرر شكري وتقديري لك وللأخ الكريم أبا جودي .

للأسف أخي الكريم ابا جودي لايمكن جعل الخاصية نعم لأنه يؤثر على زر آخر وهو التقرير الشامل .

السلام عليكم ورحمة الله لدي نموذج رئيسي واسمه ArkamTakzeen ويوجد به زر خاص التقرير لمادة واحدة فقط وهذا هو كود الزر Private Sub أمر12_Click() On Error GoTo err_أمر12_Click Dim stLinkCriteria As String stLinkCriteria = "[ID] =" & Me![id] DoCmd.OpenReport "TG", acViewPreview, , stLinkCriteria stDocName = "PrintPreviewFrm" DoCmd.OpenForm stDocName, , , stLinkCriteria, , , "TG" exit_أمر12_Click: Exit Sub err_ÃãÑ12_Click: If Err.Number = 3075 Then MsgBox " لايوجد مادة لعرضها" Resume exit_أمر12_Click Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub المشكلة هي أنني عند ضغط الزر يفتح التقرير ولكن يأتي التقرير خلف النموذج الرئيسي وكل ما أريده هو إضافة كود مع الكود اعلاه يقوم بإغلاق النموذج الرئيسي ArkamTakzeen ويفتح التقرير قمت بإضافة DoCmd.Close ولكن لم تنفع معي اتمنى مساعدتي وتحملونا بارك الله فيكم وفي علمكم .

تم حل المشكلة ولله الحمد . المشكلة طلعت في تعديل خاصية منبثق ومشروط

السلام عليكم ورحمة الله عند الضغط على معاينة التقرير تظهر لي هذه الرسالة فما معناها وما الحل برأيكم ؟

بارك الله فيكم وفي علمكم - سلمت أخي الكريم essam rabea دائما حاضر بالإجابة . أكرر شكري وتقديري لك . - سلمت أخي عبد اللطيق أيضا ولك مني جزيل الشكر على ردك . - بارك الله فيك أخي kanory كانت هي الإجابة الرائعة وكل الإجابات رائعة . ولكن إضافتك للكود Msgbox لتنبيه المستخدم بأن البيانات خالية كانت جميلة جدا .

السلام عليكم ورحمة الله وبركاته عند الضغط على زر ( عرض تقرير السلعة ) وهي غير معروضة بياناتها في الحقول تظهر هذه الرسالة وهذا طبيعي لأن البيانات ليست معروضة . سؤالي كيف استطيع تغيير هذه الرسالة أو إخفاءها عن المستخدم لأن فيها إمكانية الولوج إلى أكواد البرمجة في حال قام بالضغط على Debug. وهذا هو كود الزر : Private Sub أمر12_Click() Dim stLinkCriteria As String stLinkCriteria = "[ID] =" & Me![ID] DoCmd.OpenReport "TG", acViewPreview, , stLinkCriteria End Sub ودمتم

تسلم أخ جعفر . قمت بتحميل sp1 , sp2 ولكن دون جدوى يصل إلى الأخير وتأتي رسالة بفشل التحديث . هل هناك طريقة ثانية لو سمحت .

🙄

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

سبحان الله وبحمده سبحان الله العظيم

😥🧐 💟

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

أشكركم جزيل الشكر . بصراحة هذا ماكنت أريد . شكرا على صبركم

تفضل معليش يباش مهندس aaaa.mdb