ALWARITH

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

أستاذي العزيز أبو هادي بعد التحية والسلام قمت بتجربة الكود الذي قمت بتعديله وعملته أنا كالتالي Private Sub AccNo_Click() If Reference = True Then If vbNo = MsgBox("This is a reference book, Do you like to continue borrowing?", vbYesNo + vbInformation, "Reference Book Warning!") Then Exit Sub Else Me.Bor_date = date Me.due_date = DateAdd("d", 2, (date)) End If Else Me.Bor_date = date Me.due_date = DateAdd("d", 21, (date)) End If End Sub ولكن المشكلة أنه يعتبر كل الكتب مراجع دون أخذ الطريقه على انه صح أم خطأ وتكون في كل الأحوال التواريخ حسب المعطى الأول بحساب يومان. حيث من المفترض أنه إذا كان الكتاب مرجع (True) يحسب يومان ، غير ذلك يحسب 21 يوما. لك بالغ شكري وتحياتي أخوك الوارث

أرجو الإيضاح حول الخطأ بهذا الكود حيث أنه لا يعمل معي بالطريقة التي أريدها كما وضعتها بالمثال . Private Sub AccNo_Click() If Reference = True Then If MsgBox("This is Not a reference book, Do you like to continue borrowing?", vbYesNo + vbInformation, "Reference Book Warning!") = vbNo Then Exit Sub Else Me.Bor_date = date Me.due_date = DateAdd("d", 2, (date)) End If If Reference = False Then If MsgBox("This is a reference book, Do you like to continue borrowing?", vbYesNo + vbInformation, "Reference Book Warning!") = vbNo Then Exit Sub Else Me.Bor_date = date Me.due_date = DateAdd("d", 21, (date)) End If End Sub لكم بالغ شكري وتحياتي الوارث

عزيزي من خلال التجارب مع الأستعلامات فإن YES و NO , True و False هما الصحيحتان ولكن جرب أن تستخدم 1 و0 ( صفر) علهما ينجحان معك. أكتب ذلك بالإستعلام تحت حقل التشيك بوكس. تحياتي الوارث

(y) 100% أستاذي

أخي الكريم أبو هادي ماذا تعني الأرقام في ذلك الكود

السلام عليكم ورحمة الله وبركاته أخي العزيز أبو هادي لك بالغ شكري وأحتراماتي

عندما أكتب المعادلة المذكورة بمصدر البيانات فإن ذلك يعني لن يتخزن بالجدول وأنا أريد تخزينه بالجدول ، فكيف يكون ذلك. بالغ شكري وتقديري

شكرا جزيلا أخي أبا هادي فلنفترض أن الحقل الأول "TEXT1" يكون به اسم كبير "Mohd Said Salim" هل يمكن أن أأخذ منه اسم "Mohd" فقط وأجمعه مع باقي الحقول.

السلام عليكم ورحمة الله وبركاته سؤالي يكمن في التالي : على أفتراض أن لدي أربعة حقول أسمائهن كالتالي : Text1, Text2, Text3, Text4 الحقل الأول عبارة عن كمبو بوكس يتم أختيار شيئ منه الحقل الثاني يكتب شيئ فيه وكذلك الحقل الثالث هل يمكن أن تجمع هذه الحقول الثلاثة مباشرة للحقل الرابع دون أن تكتبها بنفسك. لنفترض أخترت من الحقل الأول "Mohd" والحقل الثاني طبعت رقم "2" والثالث "3" ما أريده أن يظهر مباشرة في الحقل الرابع "Mohd23" أتمنى أن يكون سؤالي واضحا.

عزيزي .. أتطفل بأن أشارك بالموضوع ... ما عليك فعله هو أن تبني تقرير مستخدما نوع (crosstab Query) بأن تجعل الشهر في الكروستاب عمود والقيم المطلوبة إظهارها كقيمة (Value) وأن تجعل بقية البيانات كصفوف. أأمل أن يكون الرد واضحا .. وللمزيد كما ذكر أخي منتصر يمكنك الرجوع للمثال المذكور .. تحياتي الوارث

أخي الكريم شاكر شاكرا لك ومثمنا جهدك الطيب وردودك النيرة. أتمنى ممن لديه فكرة أو آليه أخرى أن يتكرم بأثرائها فالموضوع محتاج للتمحيص بما يعود بالنفع علينا جميعا ، فهل من مكانز درر الأكسس ما يفيد هذا الموضوع ... فلننتظر مشاركة الأخوان الكرام الوارث

عزيزي شكرا لمجهوداتك في البحث عن كل جديد لإثراء المنتدى بكل ما هو مفيد ، أثابك الله وحقق جل أمانيك. الوارث

أخي العزيز شاكر شاكرا لك تجاوبك الكبير وإتحافنا بردك ولكن هل بالإمكان عمل مثال يوضح ذلك لتتضح الرؤية كاملة. ثم بخصوص الأكواد أين يكون موضعها هل عند الفتح أم عند التحميل ، ما أقصده هو دالة ( DLookup ). هذا بالنسبة لنماذج معينة ، كيف بحال البرنامج كاملا. شاكرا مجددا لمجهوداتك المبذولة وفقك الله. أخوك الوارث

أخواني الإعزاء خطر ببالي سؤال وهو هل بإمكان عمل كود في برنامج الأكسس بحيث أن البرنامج لا يقبل أي إدخال أو إلغاء أو تعديل خلال الفترة ما بين الساعة 7:45 مساءا إلى 7:30 صباحا أو بين أي فترة يمكن تحديدها. إذا كان الجواب بالإيجاب فكيف وأين يوضع الكود وهل هذا الكود يجب وضعه في كافة النماذج. (علما أن البرنامج قد يكون مفتوحا خلال تلك الفترة) للأستفسار مثلا أو قبل إغلاق البرنامج.