محمد طاهر عرفه

و لماذا تريدها تبدأ من السبت ؟؟ اكتب السبت و اسحب الخلايا و اختار Fill series ستعمل معك حيث أن القوائم متتالية و لن يهم بأيها تبدأ ام هناك حاجة معينة لجعل بداية القائمة السبت ؟؟

تم تصحيح الملف المرفق ، حيث تم ارفاق ملف يخص الموضوعغ السابق سهوا F1.rar

بالكود فى حدث بعد التحديث لبيان معين او فى الكود الخاص بزر علي النموذج الرئيسي تقوم بتحديث قيمة الحقل المنضم ( الذي مصدر بياناته حقل فى جدول) فاذا كان الكود سينفذ من زر او بعد التحديث لكائن فى النموذج الرئيسي me.txboxname = Forms![MainFormname]![Subformname]![txtboxsubformsum] أو يمكنك تنفيذ الكود مع تغيير اي قيمة فى مربع نص فى النموذج الفرعي و في هذه الحالة سيكون الكود forms![MainFormname]![txboxname]= Forms![MainFormname]![Subformname]![txtboxsubformsum]

تقوم بحسب كل من الرصيد و المستهلك باستخدام دالتي Dsum ثم تقارن بينهما فاذا لم يسمح الرصيد ترفض تسجيل الاجازة و تصدر الرسالة

ما المشكلة فى حذف كل هذا الكود ؟؟ اما اذا اردت تنفيذ الانتقال و حذف الرسالة فقط فاحذف السطر الذي يبدأ ب Msgbox

ان ملفات ال add-in هي اضافات تم برمجتها من قبل آخرين و تحويلها الي add-in لتكون جاهزة للاستخدام و من الافضل أن نحاول تعلم الكود نفسه و عمل ال add-in بأنفسنا ، و تحويلها بعد ذلك ال add-in اذا أردنا و طبعا لا مانع من عرض ما هو جاهز لنستفيد منه ، و لكنه فى الغالب لا يكون متاحا فى صورة ملفات مفتوحة

لقد جربت الكود و يعمل بشكل سليم جربه ثانية ، و لاجظ أني عدلته قبل عدة مشاركات انسخه ثانية

يمكنك استخدام Like مع ال * يبدأ بأي شيء و ينتهي بما فى الكومبو Like "*" & [Forms]![FormName]![ComboName] يحوي ما فى الكومبو Like "*" & [Forms]![FormName]![ComboName]& "*" يبدأ بما فى الكومبو Like [Forms]![FormName]![ComboName]& "*" فاذا كان الكومبو يحوي كلمة عبد فاستخدم الخيار الثالث

شكرا لك

ان ال ado هو المرجع الافتراضي من ضمن كائنات الوصول الي البيانات فى الاكس بي و تجده مضافا تلقائيا اما ال DAO فهو الاصدار السابق و قمكنك الاختيار بينهما أما دمجهما فى تطبيق واحد فأعتقد انه ليس محبذا ( لست متأكداً ) و فى كل الاحوال التنفيذ بال sql افضله طالما يمكنه أن يفي بالغرض راجع المناقشة فى آخر هذا الموضوع http://www.officena.net/ib/index.php?showt...opic=978&hl=ado

لم أفهم ما دخل الكود الذي أضفته بالموضوع ؟؟

نعم أعتقد أن هذا هو الوضع :(

مكان سطر الرسالة كان به خطأ جرب الان

ربما يكون هذا الموضوع قريبا مما تريد http://www.officena.net/ib/index.php?showt...1048&hl=صلاحيات اما ان كان المطلوب كلمة سر فقط ففي الكود فى الزر الذي تفتح من النموذج ضع هذا الكود كلمة السر 111 If InputBox("Enter Password PLease ", "www.officena.net") <> "111" Then DoCmd.CancelEvent MsgBox "Wrong password", 64, "www.officena.net" Else DoCmd.OpenForm "FORM2" End If

نظريا يكفي تغيير الاوفيس

فهرس الدورة من هنا http://www.officena.net/ib/index.php?act=S...8&st=0#entry784

أول مواضيع التعامل مع النماذج أنشاء النماذج باستخدام المعالج ، من هنا مرفق المثال

مرفق المثال لحساب الفرق بين الاسابيع و أيضا بين تاريخين كفرق عادي سنين + شهور + أيام و كإجمالي لكل فترة علي حدة اي الفرق كشهور فقط أو أسابيع فقط أو ايام فقط أو سنين فقط ملاحظة : تم استخدام احدي دوال أبو هاجر ضمن الكود و موجودة فى موديول منفصل ضمن الكود Weeks_Diff.rar

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

المشكلة ليست فى أسماء الحقول و لكن فى أسماء الكائنات الاساسية فمثلا detail تكون عندك تفصيل و هذا ما يسبب المشكلة ، لذا عليك اذا أردت تشغيله فى الويندوز الانجليزي ، عليك باستبدال كل الاسماء من هذا النوع و هذا أحد أسباب عدم استخدامي للنسخة العربية اما اذا استخدمت نسخة الاكسس ذات واجهة التطبيق الانجليزية ( و التي تدعم العربية كلغة ) و لكن الاوامر فيها بشكل File و ليس ملف فلن تواجه هذه المشلكة و يبدون أن النسخة العربية أكثر انتشارا فى الخليج من هذا الاستقصاء http://www.officena.net/ib/index.php?s=&showtopic=287

لقد كتبت لك ما أعرفه ، و ان شاء الله يأتي حل من أحد الأخوة

الكود الذي ذكرت هو لل Paste Append و لانشاء الكود يكنك استخدام معالج انشاء االازرار و من مجموعة Record نختار نسخ السجلات و سبب الرسالة هو عدم امكانية حفظ السجل نتيجة لوجود قيمة مكررة أو أكثر بعد النسخ ، و مطلوب تسجيلها فى حقل غير مسموح بالتكرار فيه و لايقاف الرسالة الي حين تعديل تلك القيمة اوقف اظهار الرسائل On Error GoTo Err_Command4_Click DoCmd.SetWarnings False DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append DoCmd.SetWarnings True Exit_Command4_Click: Exit Sub Err_Command4_Click: MsgBox Err.Description Resume Exit_Command4_Click و لكن لابد من تعديل القيم الغير مسموح بتكرارها قبل الانتقال للسجل التالي أو الخروج و ما أراه هو استخدام الطريقة السابق ذكرها لنسخ السجل و ليس هذه الطريقة . حيث أن طريقة نسخ و لصق السجل تكون أكثر مناسبة فى حال عدم وجود حقول بها قيم فريدة و هذا وضع نادر

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

لا أعتقد بامكانية ذلك

بصراحة أنا مازلت مش فاهم علاقة الناتج بالشرح السابق فالان ااذا كان الرقم بين 45000 و 60000 لم تعد تعطيه 3% كما وصفت سابقا عموما جميل أنك وصلت لما تريد ، و هو المطلوب مع تحياتي