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

فعلا أخي أبو هادي ، ساوجه لهما الدعوة مساء باذن الله علي البريد الأخوة الكرام : اعتقد أن الاحد القادم فترة كافية للمحاولة ، بعدها باذن الله ساضع شرح ما فعلته ( و هو ليسي بمعقد ) و لكن شرحه ربما يؤدي لاكتشاف طريقة للتغلب عليه قد لا تخطر ببال من يحاول دون معرفته . :pp: الأخ saud100 الصورة لم تظهر معي

السلام عليكم أخي حسام لا يوجد احراج فى الموضوع :pp: فنحن هنا جميعا لنتبادل الخبرات و نتعلم من بعضنا ، و كل منا بكتب ما يعرف ، و كثيرا ما كتبت حلولا و اتضح أنها خطأ أو يوجد حلول أفضل منها :d و كثير من الاخوة بدأوا مشوارهم مع المنتديات العربية يسألون ، و انتهي بهم المطاف الي أن أصبحوا من أنشط أعضائها و أفادوا الكثيرين و منهم من كانوا يجيبون عليهم فى البداية. و علي فكرة ردك قادني الي بحث المشكلة مع الأخ شرف ، ووصلنا الي الرد الثاني ( موضوع كون الخليتين فى نفس الصف ) ، و الذي لم تكن تفاصيله مكتملة فى ذهني من البداية . فردك أفادني و افاد الأخ شرف و من سيقرأ الموضوع مع تحياتي

أشكرك أخي أبو هادي الأخ حسام معني أنها عملت معك مباشرة ، هو أن المجال المحدد ليس به قيم خالية Null أو Blank فالتطبيق السليم لها لابد معه من ضغط ال 3 أزرار و لكي تتأكد من ذلك ضع المعادلة فى خلية فى نفس صف المجال المحدد و لتكن D4 مثلا فى هذه الحالة ثم امسح القيمة فى A4 ( الخلية من ضمن المجال فى نفس الصف الذي به المعادلة ) و راقب ماذا يحدث ثم حرر الخلية كما سبق و اضغط ال 3 أزرار ستعمل المعادلة برغم وجود ال Null

لنفرض أنك تريد الحد الادني للخلايا A1:A9 مع اهمال الصفر اكتب المعادلة التالية =MIN(IF(A1:A9>0;A1:A9;"")) ستعطيك خطأ قف في الخلية و اضغط F2 أو ضع المؤشر فى الشريط التحرير العلوي ( أي اجعل الخلية فى وضع التحرير ) ثم اضغط CTR+shift+Enter و هذا ما يسمي بال array formula اي التعامل مع مجال أو مصفوفة فى المعادلة و ليس خلية و لادخاله فى الخلية لا نضغط Enter و لكن CTR+shift+Enter

مرفق مثال ComboGoTo.rar

شكرا لك أخي الكريم لم ترد علي استفساري بخصوص الاسم ؟؟

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

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

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

Private Sub Worksheet_Change(ByVal Target As Range) If Range("B" & Target.Row).Value > 0 And Range("A" & Target.Row).Value > 0 Then MsgBox "لا يمكن الإيداع والسحب في نفس العملية", , "عفوا" Target.Value = "" Exit Sub End If If Target.Value <> "" Then If Target.Column = 1 Then MsgBox "تمت أضافة المبلغ", , "تهانينا" End If If Target.Column = 2 Then MsgBox "تم خصم المبلغ ", , "أحسن الله عزاك" End If End If End Sub ملاحظة : الكود مجمع للأخ أبو أحمد مشكورا

الملف يعمل علي أوفيس 2000 و اكس بي و الملف المرفق مضغوط ببرنامج وين رار وهو نظير افضل للوين زيب و يتعامل مع الامتدادين rar ,zip و لتحميله علي الجهاز http://www.rarlabs.com/download.htm وبه تفك الملفات ذات الامتداد rar

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

بالكود التالي يمكن تبديل النموذج الفرعي Me.SubForm.SourceObject = "Subform1" حيث SubForm هو اسم كائن انوذج الفرعي وSubform1 هو اسم النموذج الفرعي المراد ادراجه بدل الموجود مرفق مثال للتبديل بين نموذجين فرعيين بالكود ChangeSubForm.rar

بالنسبة لتنسيق التارخ للتنسيق الهجري و الميلادي استعمل B2DD/MM//YY D/MM/YY علي التوالي و بالنسبة للغة استخدم الايقونات فى الصورة (اوفيس اكس بي ) بالمناسبة : يعني ايه راعي الاولة ؟؟

هو يدخل الي الكائن المفتوح جرب فتح تقرير ثم ضغط زر التصميم بالمحرر ، سيدخل هل تقصد أنك جربت علي مثال آخر ام علي المثال الذي حاولت انا حمايته ؟؟

جرب ادخال قيمة فى نفس السطر فى العمودين a,b فى الملف المرفق PreventinsameRaw.rar

اذا فحل المتغير لا يناسبك و لابد من تخزين القيمة فى جدول و للاسترجاع من الجدول نستخدم دالة Dlookup و بناء علي القيمة التي ستسترجعها تنفذ الكود و هنا لن نعرف متغير عام DIM Mycheck AS INTEGER Mycheck = DLookUp("[FieldName]","TableName") if Mycheck = 0 then If DCount("txtnum", "Table2") > 5 Then MsgBox "عــفواً ... هذه النسخة للعرض فقط .. للحصول على نسخة كاملة من البرنامج " & vbCrLf & _ " الــرجــاء الأتــصــال على المبــرمــج " _ & vbCrLf & _ vbCrLf & " AMOTAIB@HOTMAIL.COM ", 0, "أنتهاء مدة العرض" Me.Undo Cancel = True DoCmd.Quit Else DoCmd.Maximize End If end if و لتسجيل القيمة بالجدول أو تحديثها استخدم استعلام تحديث أو ما يناظره بالكود مع تحياتي

من Tools security set database password و لكي تكون مفعلة لابد من فتح الملف فى وضع exclusive و بالنسبة لاخفاء الجداول و باقي الكائنات يمكن اختيارها من اكار قاعدة البيانات ، و من ثم اختيار خصائصصها بالزر الايمن و اخفاؤها و عن الاخفاء و الاظهار بالكود يوجد مثال وافي للأخ حارث فى قسم الحماية داخل قسم خلاصة المشاركات مع تحياتي

اذا كنت تسجلها فى كل السجلات فلماذا لا تجعل مصدر بياناتها هو مربع النص فى النموج الرئيسي أي في مصدر بيانات مربع النص فى النموذج الفرعي تضع مصدر البيانات =Forms!mainformname!t و فى حدث بعد التحديث لمربع النص t فى النموذج الرئيسي تضع Private Sub t_AfterUpdate() Forms![fa]![Contacts subform].Form.Requery End Sub

قم بتعيين متغيير عام اسمه مثلا Mycheck و اجعل زر التفعيل يغبر قيمته الي . و زر الابطال يغيرها الي 1 وعدل الكود الي if Mycheck = 0 then If DCount("txtnum", "Table2") > 5 Then MsgBox "عــفواً ... هذه النسخة للعرض فقط .. للحصول على نسخة كاملة من البرنامج " & vbCrLf & _ " الــرجــاء الأتــصــال على المبــرمــج " _ & vbCrLf & _ vbCrLf & " AMOTAIB@HOTMAIL.COM ", 0, "أنتهاء مدة العرض" Me.Undo Cancel = True DoCmd.Quit Else DoCmd.Maximize End If end if ملاحظة غيرت اسم الجدول حتي لا تنقلب الجملة أو تجعله يسالك عن رقم سري مثلا بدل صفر وواحد فاذا أدخلت الرقم ازال الشرط و اذا لم يكن يفعله أو حل آخر أن تخزن القيمة فى حقل فى جدول بدل متغير عام و تغيرها من الزر و في النهاية تختبر القيمة فى الجدول أو فى المتغير العام قبل تنفيذ الكود الذي ذكرته مع تحياتي

أي كود ؟؟ لم أفهم السؤال ، أرجو التوضيح

نسختها من المنتدي الي خلية فى ورقة عمل و جربتها و لم يأتني رسالة خطأ و جاءات النتيجة سليمة كما طلبتها ربما تكون الفواصل لديك فى لوحة تحكم الويندوز مختلفة فاستبدل مثلا الفاصلة المنقوطة بفاصلة عادية (عدد 2 فاصلة ) و يوجد فى قسم خلاصة المشاركات أكثر من مثال علي استخدام ال IF

من هنا مرفق المثال Q6.rar

أهلا بك =+IF(B3<5000;B3*0.00125;(B3-50000)*0.001+50000*0.00125)

مثلا اذا أردت تنفيذ نقل القيمة مع ضغط Ctr+Q فضع الكود التالي عند حدث الضغط علي زر للنموذج مع تعديل خاصية Key Preview الي نعم و هذه الخاصية تعني أن تنفيذ الاكواد الخاصة بالضغط علي زر الخاصة بالنموذج تتم قبل مثيلتها الخاصة بعناصر التحكم فى النموذج مثل مربعات النص و هنا مع ضغط Ctr+Q فقط ستظهر رسالة تأكيدية و يتم تنفيذ نقل القيمة و لا يحدث أي شيء مع أي زر آخر Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 17 Then MsgBox "Officena.com , you Pressed Ctr+Q" Me.d = Me.t End If End Sub