شايب

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

يمكن الوصول للنتيجة بدون استخدام دوال تجميع المجال وخصوصا ان الخبراء ينصحون بتجنب استخدامها في الاستعلام وللوصول للنتيجة عن طريق العلاقات النتيجة في استعلام q_1 EXAMPLE2000.mdb

لا اعتقد ذلك وانما سوف نحصل فقط على الفارق بين سعر البيع وسعر الشراء فهناك امور عدة لابد من اخذها بعين الاعتبار لحساب الارباح

ربما لم افهم المطلوب بشكل صحيح لذا ضع مرفق ليتم الاطلاع عليه او شاهد الملف المرفق علما بان الامر RunMenuCommand للاصدارات 2010 فاحدث اما الاصدارات ماقبل 2010 فالامر RunCommand Database221.accdb

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

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

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

رد غير صحيح العتب على النظر

بل تظهر

لوضع مسافات في الحقول ساتحدث عن طريقتين بدون اكواد ادخل على عرض التصميم للتقرير حدد الحقول المطلوبه ثم التبويب تنسيق ثم في خانة هامش ايمن ضع رقم 0.100سم او اكثر وفقا لما تريد بالزيادة او النقص الطريقة الثانية في حدث عند التحميل للتقرير ضع Me.tx.RightMargin = 100 tx هو اسم الحقل الرقم 100 ممكن زيلدته لزيادة المسافة وممكن انقاصه ايضل ممكن ايضا وضع الكود في حدث عن التنسيق ولكن سوف يظهر التأثير للكود فقط عند عرض التقرير في وضع معاينة قبل الطباعة قد تكون هناك طرق اسهل ولكن اخوك مجرد مزارع ولديه معلومات بسيطة في قواعد البيانات شايب

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

في زر الامر ضع الكود Dim x As String x = Me.EmpName.Column(1) & ".rtf" DoCmd.OpenReport "Hr_Letter_Rep", acViewPreview, , "[Empcoode]=" & Me.Empcoode DoCmd.OutputTo acOutputReport, "Hr_Letter_Rep", _ acFormatRTF, "d:\" & x, True وبالامكان تغيير مكان الحفظ من الدريف d الى اي قرص HR_Letter.rar

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

Database211.accdb

الطريقة صحيح ولكن نحتاج نضع معيار للدالة

بداية لايوجد خطأ لان الدفعات مبنية على تاريخ الدفعة ومصدر التقرير استعلام بمعيار التاريخ استخدم دالة dsum للدفعات القروض والديون2024.accdb

الاسماء السته ذكرها ابن مالك المتوفى عام 672 هجري في الفيته وَارْفَـعْ بِـوَاوٍ وَانْصِبَنَّ بِالأَلِـفْ وَاجْرُرْ بِيَاءٍ مَـا مِنَ الأَسْمَا أَصِفْ مِنْ ذَاكَ ذُو إِنْ صُحْبَـةً أَبَـانَـا وَالفَـمُ حَيْثُ الْمِيمُ مِنْهُ بَـانَـا أَبٌ أَخٌ حَـمٌ كَذَاكَ وَهَــنُ وَالنَّقْصُ فى هَذَا الأَخِيرِ أَحْسَنُ اما من عدها خمسة فيعود الى كما اشار ابن مالك "وَالنَّقْصُ فى هَذَا الأَخِيرِ أَحْسَنُ" والنقص المقصود هنا ليس الحذف وانما احدى لهجات العرب فتكون علامة الاعراب مقدرة على الالف والسبب الاخر لعدم ذكر الاسم السادس فيعود للمعنى والله اعلم mktbah.rar

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

الدالة int تقرب الى اصغر قيمة للعدد الصحيح 9.5 = 9 اما الاعداد السالبة فتقرب الى العدد الاكبر 9.5- = 10- لذا ان كانت الحقول تحتمل وجود كسور عشرية فان استخدامها لن يعود بنتيجة صحيحة والافضل استخدام val val([text1])+val([text2])

وممكن نختصر الامر في حدث بعد التحديث نضع الامر Dim i As String i = Nz(item.OldValue, "") note = i