غرّام العقول

وعليكم السلام ورحمة الله هل الكود الإضافي هو حل المشكلة؟ الجواب: إلى حد كبير نعم. والسبب أنه عندما يقوم البرنامج بقراءة الكود يجب أن يكون كود الشرط If قد غطى جميع الاحتمالات التي من الممكن حدوثها, فإن لم تقم أثناء كتابة الكود بتغطية هذه الاحتمالات جميعها فلن ي…

وعليكم السلام ورحمة الله وبركاته كل عام وأنتم بخير تم تعديل كود أخي راكز ليتوافق مع ما تطلبه, بحيث أصبح بالشكل التالي: If IsNull(Combo4) Then Me.Text6 = Me.Combo0 ElseIf IsNull(Combo0) Then Me.Text6 = Me.Combo4 ElseIf IsNull(Combo0) And IsNull(Combo4) Then Me.…

وعليكم السلام ورحمة الله وبركاته أستاذتي القديرة / أم عهود أعتذر بشدة لك ولكل المشرفين والإداريين والأعضاء, وخاصة صاحب الموضوع. فقد كنت أخشى من نقل الملف خوفاً من الحرج, فإذا بي أقع في حرج أكبر. أرجو قبول اعتذاري وأسفي فالكريم من عفا. وهذا هو الملف تم أخذه من …

وعليكم السلام ورحمة الله لقد تمت الإجابة على هذا الموضوع منذ قليل على هذا الرابط: منتدى مملكة الاكسس والوورد

بل يتم تخزين القيم الجديدة .. انظر إلى هذا المثال الذي عملته لك. StoreData.rar

غيّر خاصية مربع التحرير والسرد " التزام بالقائمة " من "نعم" إلى "لا", بشرط أن يكون "مصدر عنصر التحكم هو الحقل مصدر البيانات, وذلك لكي يتم تخزين القيم الجديدة بداخله.

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

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

وعليكم السلام ورحمة الله 1- أنشئ جدولاً جديداً واكتب فيه جميع القيم التي تريدها أن تظهر في مربع التحرير والسرد. 2- اذهب إلى خصائص مربع التحرير والسرد, وغير خاصية "نوع مصدر الصف" من "قائمة القيم" إلى "جدول/استعلام". 3- عند خاصية "مصدر الصف" أشر إلى الجدول الذي …

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

وعليكم السلام ورحمة الله نعم أخي الكريم .. لقد تذكرت. يمكنك استخدام هذه الطريقة دون الحاجة إلى نقر الزر Total وذلك بالشكل التالي: 1- اكتب الكود التالي في الحقل الغير منضم , والذي يظهر فيه مجموع الفواتير: =Nz(Sum(IIf([select_payment]=True;[Invoice_Amount];0));0…

وعليكم السلام ورحمة الله ألم يسبق لي أن أجبتك على هذا السؤال أو ما يشابهه سابقاً؟ على كل حال, ضع الكود التالي في حدث "عند النقر" لزر الأمر المسمى Total Me.Refresh Me.Text11 = Nz(DSum("invoice_amount", "invoice_tbl", "select_payment= True"), 0)

وعليكم السلام ورحمة الله يمكنك عمل ذلك بطريقتين: 1- عن طريق مربعات التحرير والسرد ComboBoxes 2- عن طريق العرض الشجري Treeview هذا رابط لأحد المواضيع أرجو أن تجد فيه الفائدة, كما يمكنك البحث في المنتدى بدلالة الكلمات السابقة, وستجد الكثير والكثير. شجرة حسابات ل…

حسناً .. لن أسألك عن المشاكل التي تحدث جراء تعيين خاصية النموذج "ازرار التنقل" إلى "لا". يمكنك أن تترك تلك الخاصية وشأنها, فقط أضف هذا الكود -أو ما يشابهه- إلى حدث "في الحالي" للنموذج: If Me.NewRecord Then If Me.cmd11.Enabled = False Then DoCmd.GoToRecord , , …

من أجل ذلك: 1- يجب أن تكون خاصية "أزرار التنقل" في النموذج قد تم تعيينها إلى "لا". 2- ضع أزرار أمر جديدة في النموذج للتنقل بين السجلات, "التالي - السابق - الأول - الأخير" حسب رغبتك. 3- طبق نفس الخطوات التي طبقناها على زريّ الإضافة والحذف في المثال, على أزرار ا…

وعليكم السلام ورحمة الله تفضل التعديل Database11.rar

وعليكم السلام ورحمة الله تفضل التعديل Count-INVOICE_SELECTED1.rar

لنفرض أن الجدول لديك اسمه : tblN وأن الحقل المراد ترتيبه اسمه : nam ضع الجملة التالية في استعلام تحديد وغير الاسماء السابقة بالاسماء الموجودة لديك. SELECT tblN.nam FROM tblN ORDER BY CInt([nam]); وإذا أردت الترتيب تنازلياً ضع الجملة التالية: SELECT tblN.nam FR…

وعليكم السلام ورحمة الله تفضل التعديل Set_Pay1.rar

لك ما طلبت أخي الفارس النبيل وزيادة تفضل التعديل accounting dictionary3.rar