نجوم المشاركات

احسن الله اليك استاذي ومعلمي @kanory الان مما سبق ماذا نستفيد من ذكر هذه البارمترات الاستفادة اننا نستطيع ان نعمل نموذج لخيارات الطباعة نحدد فيه عدد النسخ من الى جودة الطباعة "نستفيد منها لتقليل التكلفة عند طباعة المسودات " ترتيب الطباعة الخ تحياتي

امر الطباعة DoCmd.PrintOut له 6 بارمترات لكل منها عمله والي يهمنا في تحديد عدد النسخ هو الخامس Copies ولكوننا نرغب في تحديد النسخ عن طريق مربع او قائمة نكتب الامر DoCmd.PrintOut , , , , [tx3] tx3 هو مربع النص الذي نحدد فيه عدد النسخ ويكون الامر هكذا DoCmd.OpenReport "r_1", acViewPreview, , , acHidden DoCmd.PrintOut , , , , [tx3] نفتح التقرير في وضع مخفي ونطبع النسخ المحددة انا ماعندي طابعة ولكن استخدمت طابعة مايكرواسوفت لبي دي اف وطبع ثلاث نسخ مثلما حددت

تفضل <<<<<<< Public Sub colorSet(frm As Form) With frm.Form .Section(acHeader).BackColor = 12874308 .Section(acDetail).BackColor = 16769023 .Section(acFooter).BackColor = 12874308 End With End Sub

جزاك الله خيرا .... فاتني التوضيح .... بارك الله فيك ..

البارامتر السته كما يلي PrintRange خاص بتحديد النطاق وله ثلاث قيم 2 او 0 و 1 رقم 2 ويستخدم مع البارمترات التاليه 2 و 3 لتحديد الصفحات 0 لتحديد الكل 1 للجزء المحدد من الكائن PageFrom من صفحة PageTo الى صفحة PrintQuality جودة الطباعة Copies النسخ المطلوبه CollateCopies ترتيب الطباعة وله قيمتين 0 و 1 صفر عشوائي وواحد بالترتيب تحياتي

اضافة لما ذكر اخي @مبرمج سابق هذا الامر العام .... DoCmd.PrintOut printrange,pagefrom,pageto,printquality,copies,collate

تفضل كامل المحكمة للمستشار.xlsx

السلام عليكم ورحمة الله وبركاته .. اليوم جايب لكم موقع وظيفته يقرأ أو يشرح لك الكود بلغة إنجليزية مفهومة ، ويمكنك عن طريق المترجم تحويلها إلى اللغة العربية 🙂 وهذا هو الموقع : https://denigma.app الموقع بفضل الله يتعامل مع معظم اللغات البرمجية تقريبا ، ومن ضمنها الفيجوال بيسك VBA .. وهذا شرح مبسط للاستخدام .. بعد فتح الموقع ننزل تحت إلى هذي الخانة، يوضع الكود في الخانة اليسرى ويظهر التفسير في الجهة اليمنى : نجرب نلصق دالة حساب العمر بالسنة والشهر واليوم ونضغط على [Explain it!] : ولترجمته باللغة العربية ، تأخذ النص لمترجم جوجل فيعطيك النتيجة هكذا : 🙂 هذا وسلامتكم ☺️🌹

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

قد يسأل سائل وكيف يعرف البرنامج التقرير المراد طباعته ؟؟؟؟؟؟ الجواب : يجب بالطبع قبل هذا الاجراء مباشرةً ان نضع الاجراء الخاص بفتح التقرير المراد طباعته

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

تفضل يا أبو حودة 🙂 تجارب.accdb

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

وهذا نفس كودك مع تصريف بسيط ...... frm.Section(acHeader).BackColor = GetSetting("FormColor", "ColorOption", "HeaderColor", 12874308) frm.Section(acDetail).BackColor = GetSetting("FormColor", "ColorOption", "DetailColor", 16769023) frm.Section(acFooter).BackColor = GetSetting("FormColor", "ColorOption", "FooterColor", 12874308)

ممكن باكثر من طريقة وساشرح طريقة بسيطة في مصدر القائمة نقوم باضافة حقل يجمع الكود واسم المادة [الكود]&" "&[اسم المادة] لنقوم بالفلترة من خلال هذا الحقل ولكن هناك بعض الخطوات في خصائص القائمة تبويب بيانات توسع تلقائي = لا تبويب تنسيق عدد الاعمدة = 3 عرض الاعمدة = 0سم;2سم;3سم الان في حدث عند مفتاح اعلى نضع الكود التالي If Len(co2.Text) > 0 Then Me.co2.RowSource = " SELECT [id] & "" "" & [item] AS Expr1, tbl_it.id, tbl_it.item, tbl_it.price " & _ " FROM tbl_it " & _ " WHERE ((([id] & "" "" & [item]) Like ""*"" & [Forms]![frm_3]![co2].[Text] & ""*""));" Me.co2.Dropdown Else Me.co2.RowSource = " SELECT [id] & "" "" & [item] AS Expr1, tbl_it.id, tbl_it.item, tbl_it.price " & _ " FROM tbl_it;" [tx2] = Null: [tx4] = Null End If co2 هي القائمة المنسدلة tx2 و tx4 هي الحقول التي سيتم اضهار الصنفى وسعر الصنف بها ثم في حدث بعد التحديث للقائمة نضع الامر Me.tx2 = Me.co2.Column(2) Me.tx4 = Me.co2.Column(3) بالتاكيد توجد طرق اكثر ولكن ساكتفي بهذه الطريقة اخيرا انا لا فضل استخدام مربعات التحرير والسرد ودائما استخدم مربع نص غير منضم يتم ادخال رقم الصنف به وفي حالة عدم معرفة رقم الصنف نضع رقم صفر ليفتح لنا نموذج اختيار الاصناف جاهزة للفلترة برقم او اسم الصنف وهذه الطريقة اسرع في ادخال البيانات ولا نحتاج لاستخدام الماوس في الصورة المتحركة في المثال ⬇️ يوجد خطا حيث وضعنا اسم الصنف في حقل السعر والسعر في حقل الصنف لاني عملت المثال وصورتة وانا مشغول بعمل اخر ولم اراجعة تحياتي

السلام عليكم اخى الفاضل @alsihran قم بمراجعه الموضوع التالى لاخى واستاذى د حسنين @SEMO.Pa3x جزاه الله خيرا هو جميع واخوانى واساتذتى بالتوفيق

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

جزيت خيرا أخي محمد Speed Test

جزاك الله خير

بسم الله الرحمن الرحيم ............ والصلاة والسلام على رسولنا الكريم ............ أحببت أن أقدم هدية لأحبابي أعضاء وزوار منتدى أوفيسنا ملتقى مبرمجي الأوفيس العرب المدرسة الأولى التي تعلمت منها اساسيات برمجة الأوفيس وخاصة الإكسل فتوكلت على الله وقمت بعمل أبسط كود لتخفيض أمان الأكسس برمجياً لجميع إصدارات الأوفيس حتى التي لم تصدر منها بعد **************** ولقد تعلمت في هذا الصرح أن المبرمج الحق الذي يؤدي ما هو مطلوب بأقل كود ممكن بل قل بأقل عدد لحروف الكود إن أمكن //////////////////////// وكنت قد أصدرت قبل ذلك ملفات كثيرة صغيرة الحجم جداً وتؤدي مهام كبيرة جداً سميت هذه السلسلة ما خف وزنه وغلا ثمنه كان منها على سبيل المثال القرآن بالصوت والصورة إرسال البريد من الأكسس مباشرة أصغر كود لقراءة وتغيير دقة الشاشة وغيرها الكثير +++++++++++++++++ وأخيرا وليس بآخر أتقدم بالشكر لكل من ساهم في حل هذه المشكلة على كل ما قدموه في هذا المجال //////////////////////////////////////// وبناء على النقاشات الممتعة للإخوة الذين ظهرت معهم رسائل خطأ في بعض الأحيان تم اختصار الكود أكثر مما هو عليه ليصبح سطرا واحداً CreateObject("WScript.Shell").RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Access\Security\" & IIf(Application.Version < 12, "Level", "VBAWarnings"), "1", "REG_DWORD" ........... ويوجد مرفق جديد به الملف بعد اختصار الكود وجعله سطرا واحدا ولا تنسوا أخاكم محمد صالح من صالح دعائكم MasAcessSecurity_mdb.rar MasAcessSecurity2.rar

شكرا لمتابعتكم أستاذ علي المصري ولكن الكود يعمل على جميع الإصدارات حيث أن الجزء الخاص ب Application.Version يقوم بجلب رقم الإصدار الحالي للأكسس ثم الجزء التالي IIf(Application.Version < 12, "Level", "VBAWarnings") وهو دالة if فإذا كان الإصدار أقل من 12 يكون اسم الحقل في الرجيستري level وإذا كان أكبر من أو يساوي 12 يكون اسم الحقل VBAWarnings أرجو أن يكون الأمر قد اتضح

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

شكرا لجميع الإخوة على المرور الكريم والكلمات العطرة

استاذى الفاضل طبعا حضرتك كبير وانا تلميذك وشكرا على مرورك العطر شكرا على التنويه وكنت اتمنى احد الاعضاء الجدد هو من يطلب ذلك عموما بعد اذن حضرتك اشرح الدالة وهى iferror هذه الداله تتكون من جزئين الجزء الاول وهو القيمة وطبعا فى مثلنا هذا هو (0;2;A1:c5!الطلبه;VLOOKUP(A1= الجزء الثانى وهو النتيجة فى حاله عدم وجود القيمة المطلوبة ويكون شكل الداله كالاتى (الرقم فى حاله عدم وجود قيمة ;القيمة المطلوبه)if error= لو حبينا نطبق الداله على المثال السابق ("" ;(0;2;A1:c5!الطلبه;iferror(VLooKup(A1 = الرقم فى حالة عدم وجود القيمة هنا "" وذلك يعنى ادينى فاضى قيمة فارغه ويمكن ايضا (0 ;(0;2;A1:c5!الطلبه;iferror(VLooKup(A1 = الرقم فى حالة عدم وجود القيمة هنا 0 وذلك يعنى ادينى 0 بالخلية

شاهد معي هذا الموضوع http://www.officena.net/ib/index.php?showtopic=39248 وأخبرني برأيك به

طلباتك أخي الكريم تم عمل اللازم تجده هنا http://www.officena.net/ib/index.php?showtopic=39163&view=findpost&p=216327

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

شكرا لك أبا أحمد على مرورك الكريم وكل عام أنتم بخير

عارف أنا نفسي في إيه أستاذ نارت؟؟ ما شاء الله حضرتك عندك مكتبة أتمنى أن تكون عندي وفقك الله لكل الخير وكل عام أنتم بخير

بارك الله لك أخي جمال وكل عام أنت ومن تحب بكل خير فكرة رائعة استخدام كود التفقيط العام لتفقيط الدرجات ولكن المشكلة أن تفقيط المال يكون بصيغة مثلا: خمسة وأربعون جنيهاً وخمسون قرشاً فيوجد وحدة للعدد الصحيح ووحدة للكسر أما الدرجات فليس لها وحدة في الكسر ويقال فقط: خمس وأربعون درجة ونصف ...... واستكمالاً لمشوارك أضع بين أيديكم هذا الملف لتفقيط الدرجات وبصفتي معلم للغة العربية ستجد أيضاً أنه موافق لقواعد العدد في اللغة العربية بإذن الله ............ وكل عام وجميع الإخوة بكل خير تفقيط الدرجات.rar

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