أبو عبدالله الحلوانى

السلام عليكم اذا كنت تريد آخر قيمة وفقط وليس أعلى قيمة فنفس كود أخونا شيفان ولكن مع تغير دالة Dmax الى دالة DLast هكذا DLast(("[id]", "tbl") + 1

السلام عليكم أوقف عمل تعطيل الماكرو من الشريط الأصفر الذى يظهر عند بدأ تشغيل البرنامج أو من داخل الاعدادات

السلام عليكم ( ليه اللامة دى ياجماعة هو الخناقة مع مين؟ عموما احنا بالخدمة الصعايدة جاهزين بالشوم والنبوت ) هذه مساهمة بسيطة (ربما تنهى الخناقة على خير ) هذه أداة صغيرة لتفعيل والغاء زر الشفت من صنع أحد أعضاء المنتدى القدامى ( نسأل الله أن يجزيه بها عنا خيرا) والمفيد فى الأمر أنها تعمل مع اصدارات مختلفة للأكسس أنا جربتها على 2003 و 2007 و 2010 ولكن لا أملك اصدارات بعد 2010 ( آخر تقنية وصلت الصعيد ) تفضل ووافنا بالنتائج على اصدارك الجديد Shift.rar

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

لا كل ما عليك هو حذف القيمة الموجودة بالجدول ومن ثم تشغيل البرنامج ويمكنك فعل ذلك برمجيا لكى لا تضطر لفعله يدويا بكل مرة.

و عليكم السلام هذه فكرة أخرى مساهمة مع أستاذى الكبير يوسف Count.rar

أخى طبعا كلامك صحيح لن تعمل النسخة accde التى تم أخذها من جهاز العميل على جهازك بالطبع طالما تواجه هذه المشكلة ولكن السؤال هنا ما حاجتك بالنسخة المغلقة وأنت صاحب البرنامج أى لديك السورس كود accdb ؟!!!!! هو انت بتفكر تقفل البرنامج على نفسك

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

السلام عليكم على اعتبار أن العدد المقسوم هو A والمقسوم عليه هو B وأن ناتج القسمة هو D جرب هذه الصيغة وادع لأخيك بظهر الغيب D = iif(Nz(B,0)=0,B/A,A/B) نرجو موافتنا بالنتائج

السلام عليكم جرب هذه الفكرة لعلها تفيدك منع تغيير الوقت.rar

أشكر لك حسن ظنك بى سأطلع على مرفقك وأوافيك بما أعرف ان شاء الله متى سمح الوقت ان شاء الله

كان باعتقادى أن هذا الأمر غير موجود سوى بالأوهام - كما اعتقد أخى ساندا من قبل ولكن مازال الحكم بعد التجربة والى ذلك الحين نجهز جواز السفر الى C# أو على الأقل Ms Vb مغادرين أرض الأكسس التى لم يعد بها أمان

السلام عليكم جرب هذا التعديل لعله يوافى مرادك za.rar

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

السلام عليكم للتواصل والاتفاق هذا هو الايمايل aboabdallahhlawany@gmail.com

بارك الله فى غفران ووالديها جزاك الله خيرا

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

مبارك وعقبال مائة سنة - فى طاعة الله

عود أحمد أيها الغائب الحاضر ولكن العجيب أنى كنت أفكر بطرح هذا الموضوع ولكن ليس بهذا الجمال والاحترافية - مكنتش أفتكر أن تلاقى الأفكار يوصل الصعيد - وأبشرك قد عمل البرنامج لدى بشكل جيد بصيغة accdb الموجودة بالمرفق بالمشاركة الأولى ويبدو أنها أضيفت مؤخرا ولكن ما استطعت تجاوز مرحلة تصميم قوالب التثبيت يطلب منى مسار للقاعدة أى قاعدة ولكن فى النهاية جزاك الله خيرا ولا حرمنا الله من ابداعاتك وأفكارك الرائعة

السلام عليكم وهذه فكرتى - أقصد فكرة أخرى - وهى لاستدعاء الاختصار بدون الحاجة لفتح النموذج أصلا فقط الضغط على المفاتيح المحددة وسيتم استدعاء الحدث من الماكرو مباشرة ننشىء ماكرو - بداخله ماكرو فرعى (SubMacro) - أمام الماكرو الفرعى سنكتب : ^ 1 او أى رقم أو أى حرف نريد ثم نحفظ الماكرو باسم (AutoKeys) هذا الأسم ضرورى لكى يعمل الماكرو بشكل تلقائى بمجرد الضغط على أزرار لوحة المفاتيح ملاحظة: 1- العلامة ^ تعنى زر كنترول (Ctrl) : يعنى نضغط المفتاحين معا (Ctrl + 1) ويمكن تغير 1 لأى حرف أو رقم آخر 2- يمكن الاستغناء عن مفتاح الكنترول والاكتفاء بزر واحد فقط - يعنى ازالة ^ من اسم الماكرو الفرعى ولكن سيتطلب الأمر رموز مع المفاتيح مثل: {F1} تكتب هكذا - ولا أدرى كيف نستخدم الأحرف أو الأرقام بدون ^ فمن يدرى فليتصدق علينا بها. والآن هذا مثال طبقت الفكرة على مثال أستاذ شيفان - من باب الصراحة - افتح الملف واضغط على هذه المفاتيح F3 Ctrl + 4 Ctrl +5 Ctrl+6 فتح نماذج بواسطة ارقام.rar

السلام عليكم اسمحو لى بتوضيح بسيط: من المعروف أن الأكسس يحتوى على جداول يحتفظ بها لنفسه تسمى جداول النظام وهذه الجداول لا يمكن للمستخدم التحكم بها بل يتحكم بها الأكسس بشكل آلى تماما وهذه الجداول أى خلل بها يؤدى لتلف قاعدة البيانات - وهذه الجداول يبدأ أسم كل جدول بها بالبادئة "MSys" والآن أرجو أن يكون اتضح كلام استاذ رمهان بأنك تحاول حذف علاقة نظام. هذه واحدة والأخرى: وضع هذه العبارة on error resume next بالكود لن يستثنى أو يثبت شىء وانما هذه الجملة لتجاوز الخطأ عند حدوثه وعدم اظهار مثل رسائل الخطأ السابقة وفى النهاية جرب كود أخينا شيفان بهذا التعديل Option Compare Database Option Explicit Public Function DeleteAllRelationships() On error goto erDletRl Dim db As Database Dim rex As Relations Dim rel As Relation Dim iKt As Integer Set db = CurrentDb() Set rex = db.Relations iKt = rex.Count Do While rex.Count > 0 rex.Delete rex(0).Name Loop Exit Function erDletRl: if Err.Number = 0 then MsgBox " تم حذف العلاقات بين الجداول بنجاح ", vbInformation, "العلاقات" elseif Err.Number = 3033 then Resume Next else msgbox Err.Number & VbCr & Err.Descrption End if End Function وفي زر حذف العلاقات اكتب Call DeleteAllRelationships تمنياتى بالتوفيق

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

الحمد لله وأنا بخدمتكم متى شئتم على قدر المستطاع وكنت أتمنى مشاركتم ببرنامجين تتوق نفسى لانجازهم ووقفهم لوجه الله برنامج لتيسير أحكام التجويد - والآخر للمواريث والتقسيم الشرعى أن تعاونونا بالبحث العلمى والأدلة الشرعية وأنا بالجانب الفنى على حسب الوسع . والطاقة حسبة لوجه الله تعالى وهى دعوة للأحبة أيضا لمن أراد المساهمة بفكرة أو بدعوة بظهر الغيب بالتوفيق لهذا العمل مبارك علىّ التعرف بكم وأسأل الله أن يجمعنا بكم مع النبى محمد (صلى الله عليه وسلم) على فكرة ما كنت أظن أن أخوتنا بـ كوردستان يجيدون العربية حتى سمعت صوتك خلنا من سيرة الذهب تلك - فقد ضاع وسام يجى 1.5 جرام وعموما شكرا على الورد وشكرا على الزيارة العطرة

آمين ولك بالمثل أرجو أن نستطيع تقديم هذا العلم النافع وجزاك الله خيرا

السلام عليكم جرب هذا لعله يوافق مطلبك ajazat.rar