AbuuAhmed

وهذا كود لفتح التقرير على صفحة معينة: Private Sub Report_Open(Cancel As Integer) PageNo = 5 'required page If PageNo > 1 Then String_ = "{PGDN " & PageNo - 1 & "}" mySendKeys String_, True End If End If End Sub

إذا أردته في حقل نوعه تاريخ فلابد من إضافة اليوم ، فقط عليك جعل اليوم 1 أو أعتقد في حالة أضافة التاريخ بتنسيق سنة وشهر Format([Date],"yyyy/mm") فالأكسس سوف يجعل اليوم 1 بشكل ذاتي ، أما طريقتك فيناسبها حقل من نوع نصي.

رحم الله والديك .. أزلت عنا مشكلة عاشت معنا عشرات السنين. لو تفتح موضوع خاص بهذا الحل ليكون سهل الوصول له. تفاديا لتكرار هذه السطور يفضل تحويلها إلى إجراء يستدعى كما الإجراء الأصل كالتالي: Sub mySendKeys(String_ As String, Optional Wait As Boolean = False) Dim WshShell As Object Set WshShell = CreateObject("WScript.Shell") WshShell.SendKeys String_, Wait Set WshShell = Nothing End Sub وتستدعى كالتالي: mySendKeys "{End}", True

جيد ، وهذه ملاحظاتي: - لم يتم تحويل الكسر إلى "فلوس" - يجب للمبرمج فهم الفرق بين الـ Fix و الـ Int للـ vba فلكل منهما وظيفة تختلف عن الأخرى.

وجرب هذا أيضا: Database31_01.accdb

للحصول على الدينار استخدم دالة fix كالتالي: D = Fix(Amount) وللحصول على الفلوس (جمع فلس" استخدم إحدى المعادلتين: بالاستفادة من المعادلة أعلاه F = (Amount - D) * 1000 أو بشكل مباشر F = (Amount - Fix(Amount)) * 1000

لو ترفع لنا مثال وسيتم التعديل عليه.

جرب إضافة سطر ثاني لأمر sendkeys بعد أمر الذهاب إلى آخر صفحة كالتالي: SendKeys "{NUMLOCK 2}", True ويمكنك كذلك "اللعب" في رقم 2 بالزيادة أو النقصان فربما تحل المشكلة .. يعني جرب 1 ، 2 أو 3

بعد التعديل فاتورة بيع_03.accdb

هذه بسيطة الليلة إن شاء الله أضيفها.

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

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

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

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

لم أنتبه أن لديك حقل الأيام في الفرعي .. أضفته لك "+1" ستعرف سببه عند مشاهدتك لسجل التفاصيل رقم 3 ، إذا أردته صفرا فعدل في استعلام مصدر النموذج بالتبديل في المعادلة من +1 إلى +0 الفرق بين تاريخين بالأيام_02.accdb

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

مثال آخر .. جربه مع الإعتذار للزملاء لأني لم أطلع على أمثلتهم ورفعت مثالي بناءً على مشاركة السائل الأخيرة. الفرق بين تاريخين بالأيام_01.accdb

الله يعزك استاذنا @ابو جودي ويرفع من شأنك. شكرا لكم

أعترض 🙂 ، لم أشارك ولم أقرأ التفاصيل ولكن لا أعتقد أن vba عاجز عن الحل، وشكرا لكم.

أعتذر، رفعت لك ملفا مختلفا بالخطأ ، الآن جرب بعد رفع المثال الصحيح.

جرب وخبرنا مثال للدائن والمدين_01.accdb

الغريبة لي مشاركتين في هذا الموضوع بس السائل يبدو نظره ضعيف وأعتقد أنه ما قرأهما أو قرأهما بس ما عجبه اسمي.

حياك الله أخي طلبت منك التحويل لأني لا أستطيع فتح قاعدة البيانات 🙂 ، يمكن أستطيع بس الصراحة مضيعة لوقتي لأني سأضطر أصمم النماذج والجداول لعمل التجارب، وموضوعك سهل. أعتقد الشباب بعد محاولتي التصدي لموضوعك ترددوا في الدخول، ومن جهتي أقول لهم يا جماعة "درعموا" و "افزعوا" مع الرجال. فأنا مكتف اليدين. من جهتي بدعو لك،

ممكن ترفع لي نسخة 2007 وأن تحدد لي الصناديق/المربعات المطلوب التعامل معها بشكل واضح؟