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

لا يوجد ورقة لديك اسمها sheet3 عدلها كما في الصورة

وعليكم السلام 🙂 تفضل مثال : جعفر

بسم الله الرحمن الرحيم عندما تستخدم محرر البيزك الملحق ببرنامج الأوتكاد تتغير لغة البيزك الموجود في الأوفيس (الإكسيل - الورد - إلخ) الحل السحري تبحث على فهرس أسمه 1033 غالبا ستجده في هذا الموضع C:\Program Files\Microsoft Office\root\vfs\ProgramFilesCommonX64\Microsoft Shared\VBA\VBA7.1 تعمل نسخة من الفهرس المسمى 1033 في نفس المكان وتسميها 1025 وفقط

انت بس ابحث في اليوتيون عن برنامج محاسبة بالأكسس, خطوة بخطوة لاني لاريد ان اخرق قوانين المنتدى

قم بنغيير اسم الشيت كما افاد استاذنا عبد الفتاح

ربنا يسهل عليك..ابحث في اليوتيوب عن عمل برنامج محاسبة بالاكسس خطوة بخطوة ... حيفيدك كثير بهذا الموضوع

وعليكم السلام 🙂 جرب هذا التعديل ، ورجاء تغيير المتغير XXX برقم صحيح : If [mo] = 1 Then Me.موعد1.Visible = Not (موعد1.Visible) Else Me.موعد1.Visible = False End If If [br] <= XXX Then Me.z.Visible = Not (z.Visible) Else Me.z.Visible = False End If جعفر

أعتقد أن هذا الموضوع يفيدك بالتوفيق

Sub COPYPASTE() ActiveCell.Copy Range("C9").Select Sheets("SHEET2").Select Range("C8").Select ActiveSheet.Paste End Sub

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

السلام عليكم 🙂 الخطأ يقول ان الكائن tbl_dece لا يوجد في النموذج Data member not found) : . اذا تلاحظ اسم حاوية النموذج الفرعي في النموذج ، اسمها يطابق الاسم في الكود ، فلم تحصل على خطأ هنا : . ولكن اسم حاوية النموذج الفرعي في النموذج ، اسمها لا يطابق الاسم في الكود ، لذا فالاسم الموجود في الكود غير موجود في النموذج اصلا : . وهذه طريقة اخرى للتأكد بأن الكائن المذكور في الكود لا يوجد في النموذج : فعندك خيارين للحل: 2. يا انك تُبقي الكود كما هو ، وتغيّر اسم حاوية النموذج الفرعي الى : . 2. او انك تُبقي على اسم حاوية النموذج الفرعي كما هي ، وعليه يتغيّر الكود الى : . ولاحظت انه عندك نفس الكائن بعدة مسميات ، فانت تلخبط نفسك ، وستكون المشكلة اكبر في المستقبل لما تريد عمل اي تعديل !! اعطيه نفس اسم النموذج ، والسلام : . ونصيحة اخرى ، وهي تنسيق الكود ، فلما يكون الكود كله يبدأ من اول السطر ، فلا تعرف بداية ونهاية كل مجموعة ، بينما لما يكون منسّق هكذا ، فمن السهل معرفة البداية والنهاية بمجرد النظر في الكود ، ولا داعي لقراءة الكود لمعرفة بدايته ونهايته ، هكذا : Private Sub Form_Load() If DCount("*", "Tbl_bb", "م") < 1 Then Me![addnew].Enabled = True Me.Next.Enabled = False Me.previous.Enabled = False Me.dlet.Enabled = False Me![cmdcols].Enabled = True Me![Edit].Enabled = False Me![sav].Enabled = False Me![traghh].Enabled = False AllowAdditions = True AllowEdits = False AllowDeletions = False Me.tbl_promotion.Form.AllowEdits = False Me.tbl_promotion.Form.AllowDeletions = False Me.tbl_promotion.Form.AllowAdditions = False Me.tbl_Retr.Form.AllowEdits = False Me.tbl_Retr.Form.AllowDeletions = False Me.tbl_Retr.Form.AllowAdditions = False Me.tbl_dece.Form.AllowEdits = False Me.tbl_dece.Form.AllowDeletions = False Me.tbl_dece.Form.AllowAdditions = False End If End Sub جعفر

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

جسب فهمي لطلبك طبعا C9 خلية اللصق التابتة يمكنك تغييرها Sub COPYPASTE() ActiveCell.Copy Range("C9").Select ActiveSheet.Paste End Sub

تفضل التعديل لعرض كلمة المرور ضع المؤشر داخل حقل كلمة المرور قاعدة البيانات للمستخدمين.zip

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

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

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

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

وعلشان يكتمل الموضوع ، ومن ارشيفي ، ولا اعرف من عمل هذه البرامج ، اليك مرفقين: 1. تحديد عدد السجلات في التقرير ، 2. تحديد عدد السجلات في النموذج المستمر ، جعفر عدد السجلات للنموذج المستمر v.2.mdb تحديد عدد السجلات في التقرير.mdb

وبعد ذلك هل تقصد طباعة الكل بطريقة آلية؟؟؟ إذا كان هذا هو المطلوب الثاني فهذه بعض نتائج البحث في منتدانا الرائع Showing results for 'طباعة الكل'. - أوفيسنا (officena.net) بالتوفيق

لا تهتم ببقية الكود ، فقط اهتم بكود قسم التفصيل 🙂 وعلى العموم ، الكود فقط لإعادة الترقيم !! والطريقة تعتمد على اللعب يدويا بارتفاع هامش راس التقرير وذيله ، حتى لا يكون مجال لطباعة سجلات اكثر من طلبك ، والمهم في رلحصول على النتيجة الصحيحة ، هو ان تستعمل معاينة الطباعة Print Preview ، وليس معاينة التقرير Report Preview . نعم هناك طريقة لتحدد عدد السجلات ، وبدون اللعب براس وذيل التقرير ، ويكون عن طريق اضافة فاصل Page Break ، وتجعله مخفي ، الى ان يصل عندك رقم التسلسل (حقل انت تقوم بعمله في التقرير ، حيث مصدره =1 ، وممكن ان يكون مخفي) الى الرقم 20 (او جميع الارقام التي تقبل القسمة على 20 وبدون باقي) ، حينها تجعل الفاصل Page Break مرئي ، كما في المثال المرفق : او جعفر

شيت Salary Sheets بالفعل يمكن عرض جميع الموظفين فيه بكتابة الرقم الثابت لهم في خلية K4 جرب أن تكتب من 1 إلى 13

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

جزاكم الله خيرا ولكن الملف المرفق لازم اشرح كيفية عمله لانه لافف شوية ولازم اتواصل مع حد علشان افهمه

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

ربما تكون المشكلة في تنسيقات النظام حيث من المعروف أن الماك يجعل العلامة العشرية فاصلة وليست نقطة و‏لإجراء تغييرات في تفضيلات النظام:‏ ‏تأكد من إغلاق Excel تماما‏ ‏اختر شعار Apple في الزاوية العلوية اليسرى من الشاشة واختر ‏‏تفضيلات النظام‏ System Preferences ‏اختر ‏‏اللغة والنص‏ Language & Text ‏تحديد علامة التبويب ‏‏تنسيقات‏ Formats ‏تغيير ‏‏المنطقة‏‏ إلى ‏‏الولايات المتحدة الأمريكية‏ ‏إغلاق تفضيلات النظام واختبر داخل Excel‏ ‏بمجرد تعيين تفضيلات النظام لنمط العملة، يجب إنهاء Excel وإعادة تشغيله حتى يصبح التحديد نافذ المفعول.‏ ولتغيير فاصل الآلاف والعلامة العشرية System Preference>Language & Region>Advanced>General (grouping (,) decimal (.) ) شاهد هذا إن شاء الله يفيدك بالتوفيق

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

في زر امر طباعة استبدل الامر Forms!frm_Main!srch_Page = Me.iPage DoCmd.OpenReport "rpt_Items_Pages", acViewPreview بالامر التالي 👇 Forms!frm_Main!srch_Page = Me.iPage DoCmd.OpenReport "rpt_Items_Pages", acViewPreview, , Me.Filter

تم استعمال دوال أخرى في البحث أدق وهي index & match تفضل ملفك بعد التعديل عميل2.xlsx

لمنع تعديل الصور في نافذة حماية الشيت protect sheet قم بإلغاء تنشيط edit objects

جميعا بإذن الله تعالى

اخي العزيز ...ان كان هو هذا الحل المناسب اضغط على علامة mark as a solution

شكراً جزيلاً لك استاذ هشام وبارك الله فيك

السلام عليكم ورحمة الله هل يوجد بديل عن لهذى ( Dial-Up Modem ) بالتوفيق إن شاء الله

اخى / @samrati1 لماذا لم ترد على سؤالى

جرب هذا لعله يفي الغرض العلامات العشرية.xlsx

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