abouelhassan

بارك الله فيك اخى سأرجع الى نسخة اقدم اعزكالله اشكرك لمساعدتى اخى

السلام عليكم اخواتى الافاضل ظهر عندى هذا الخطأ فى هذا السطر من كود تقرير DoCmd.OpenForm "frm_Items_Dates" انا معملتش اى شئ ياريت توضيح سبب الخطأ مشكورين بارك الله فيكم

الف شكر يا استاذ ابو خليل. ربنا يحفظك يارب ويديك الصحة والعافية ويبارك لك في اسرتك الكريمة يارب

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

الف مبروك يا باشا

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

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

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

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

الله ينور استاذى حبيبى استاذ جعفر بس عا يز كمان التاريخ والمخزن والرقم يتم مسحهم بارك الله فيك اخى الحبيب

السلام عليكم ورحمة الله وبركاته الاخوة الافاضل الكرام استطيع تنفيذ هذا بالاكسيل بوضع كود فى thisworkbook عند الفتح 100 يطلب باسورد مش فترة تجريبية لا كل 100 مرة فتح يطلب رقم سرى وهكذا كل 100 مرة فتح هل يمكن تنفيذ هذا بالاكسس ان شاء الله لايصعب عليكم ااوكد لحضرتكم مش عايز فترة تجريبية لا انا عايز كل 100 مرة فتح للبرنامج يطلب باس ورد للفتح بارك الله فيكم لا حرمت منكم اخواتى الاعزاء هذا كود الاكسيل If GD > 100 Then x = InputBoxDK("", " Password") If x = 123456 Then GD = 0 SaveSetting "Excel", "0", "RunCounter", GD Else MsgBox "Password Is Invalid." & Chr(10) & "Workbook Will Close." & Chr(10) & " ", 64 ThisWorkbook.Close 0 End If DATA12.mdb

اعزك الله وجعلها بميزان حسناتك يارب كنز معلومات مهم يجب اغتنامه سأحتفظ به لحين اتمكن من استخدامه حفظك الله وادام نعمه وخيره عليك اخى استاذ جعفر بارك الله فيك ولك وبك اللهم امين يارب

بارك الله فيك اخى احمد هل يمكن منع اهتزاز الشاشة عند التنفيذ بارك الله لك اخى

الف شكر لحضرتك اخى احمد حفظك الله للاسف زر الفاتورة الجديدة لم يعمل معى اشكرك بارك الله فيك

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

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

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

حضرتك حبيبي واخويا استاذى حفظكم ربي يا راجل يا محترم جدا جدا جدا جدا جدا

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

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

ما الفائدة من التحويل من اكسس الى sql مشكور اخى فى الله

هذا استاذى الفاضل كود بالاكسيل يقوم بعمل ماشرحته لحضرتك صفحة الترحيل بها كود ترحيل وكود استدعاء بيانات الصفحة وبها شرح الية العمل ومرفق اخر قاعدة بيانات احترامى وخالص دعائى شرح الكود.xlsm DATA12.mdb

تصبح على خير استاذى حاضر

حبيبي واخويا استاذى حفظكم الله اريد الاسم والصفحة ولما اكتب المبلغ السطر يترحل يعنى 30 سطر التاريخ والرقم والمخازن زى ما هم اوتو العطلة بتكون فى اختيار الصفحات لأن عددهم كبير حوالى 60وكتابة الاسم فاهمنى استاذى سامحنى

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