AbuuAhmed

حياك الله أخينا @Alsalim1 النصوص الطويلة تتوهني، هل أفهم من ردك أنك وجدت الحل؟

جرب الآن مثال دخول وخروج_05.accdb

جرب ، كما طلبت مثال دخول وخروج_03.accdb

جرب هذا المثال وإذا أقنعتك صممت لك استعلام وتقرير حسب التفصيلات التي تريدها. مثال دخول وخروج_02.accdb

العملية سهلة أخي ولكن لي ملاحظات قبل التعديل: يكفي أخي عمل جدول واحد يحتوي على 3 حقول رئيسية فقط وهي: 1- حقل رقم الموظف بدون الاسم. 2- حقل "تاريخ ووقت" بدون فصل وهو للدخول والخروج معا "بدون فصل" أيضا. 3- حقل نوع الوقت نوع Yes/No للتحديد نوع حقل "تاريخ ووقت" هل هو دخول أو خروج. شاور نفسك ورد علينا ، والحرية المطلقة لك ، ولكن من واجبنا تقديم النصيحة والمعلومة الأمثل. ويمكنك لاحقا ، مرحلة ثانية .. عمل بطاقات تحتوي على باركود تحصل منها على رقم الموظف بمجرد تمريرها على القارئ.

لي اقتراحين "غير ملزمين" ، هو أن يكون ترتيب المدخلات كما الأصل وكذلك قيمة Wait الافتراضية أيضا كما الأصل.

هذا ما يسمى بـ "الهدوء الذي يسبق العاصفة" ، جهودكم مشكروة

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

تم بحمد الله ايجاد حل لمشكلة إجراء SendKeys ومشكلته المعضلة مع تعطيل مفتاح NUMLOCK للوحة المفاتيح. وذلك بفضل شيخ المنتدى جعفر @jjafferr مشكورا حيث استطاع إيجاد شفرة بديلة للدالة الأصل للـ vba. رجوت من زميلي فتح موضوع باسمه لهذا الموضوع المهم جدا برأيي ولكنه تأخر في الاستجابة وربما لم يرى فيه قدر الأهمية التي أراها أنا. على كل فليسمح لي على نشره تحت اسمي. الموضوع على الوصلة الآتية: فتح اخر صفحة في التقرير

عملت لك استعلام بدون استخدام دالة DLoockup ولي ملاحظات: - لا تستخدم حقل مذكرة إلا للنصوص أطول من 255 حرف. حقل رقم التسجيل إما تجعله رقمي نوع Long أو نصي مع تحديد طوله، يعني إذا طول رقم التسجيل 10 فليكون طول الحقل 10 فقط. موفق. test 003_02.mdb

وهذا كود لفتح التقرير على صفحة معينة: 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