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 صباحا أو بين أي فترة يمكن تحديدها. إذا كان الجواب بالإيجاب فكيف وأين يوضع الكود وهل هذا الكود يجب وضعه في كافة النماذج. (علما أن البرنامج قد يكون مفتوحا خلال تلك الفترة) للأستفسار مثلا أو قبل إغلاق البرنامج.

مشكلتك قد حصلت لي ذات مرة ، حيث أن البرنامج كان يعمل في جهازي ومن ثم قمت بإزالة الفيسول بيسك وبعدها لم يعمل البرنامج بالجهاز وفي المقابل فإن البرنامج بالجهاز الآخر يعمل ، عندها جعلت الجهازين أمامي أتفحص أين المشكلة وبعد جهد جهيد وتفكير عميق وتحليل شاركني فيه أخي ابن مسقط وكنا مستغربين من الأمر ،،، المهم الذي حصل ... أنه عند قيامك بتنزيل الفيسوال بيسك يقوم آليا بأنزال بعض الدرايفرات (Drivers) في ال ODBC الموجود في لوحة التحكم في Administrative Tools فعند إزالة الفيسوال بيسك يقوم بإزالة هذه الملفات وعندها تحدث المشكلة ، لذا يجب أن تكون هذه الملفات موجودة هناك تفاديا لتلك المشكلة. هذا ما وددت إيضاحه ، لكن يبقى السؤال مطروحا وحقيقة لم أجربه هل عندما ألغي الفيسوال بيسك من الجهاز وأكتفي بوجود هذه الملفات في ODBC سيعمل البرنامج دون وجود الفيسوال بيسك ،،،،، هل من مجرب تحياتي

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

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

مشكلة طالما واجهتني كثيرا ، وهي عند فتح برامج أكسس أو نماذج خاصة تلك التي تستخدم في البحث أو عمل نسخة أحتياطية ، والمشكلة هي ظهور مربع حوار يقول لديك مشكلة في OLE Server or ActiveX control. الغريب أن نفس البرنامج و نفس النماذج تفتح في جهاز آخر ، مرفق مربع الحوار الذي يظهر المشكلة. The experation On Open you entered as the event prop erty settings produced the following error: A problem occured while Microsoft Access was communicating with the OLE server or ActiveX Control. للعلم كانت البرامج تعمل معي بصورة طيبة ولكن عند عمل إعادة تحميل النافذة أصبحت برامج الأكسس أغلبها تظهر لي هذه المشكلة عند فتحها. حتى البرامج التي تعمل معي عند قيامي بوضعها بجهاز آخر تظهر هذه المشكلة ... كيف إمكانية حل هذه المشكلة المؤرقة والتي تحرمني نوم عيني ،، أرجو أن أجد حلا لديكم ودمتم[fliph]