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

وعليكم السلام 🙂 عملت استعلام الالحاق مرة اخرى ، وكل شيء اشتغل تمام 🙂 الظاهر انك خاسيت الاعدادات ، وشيء منها ما عجبته السالفه 🙂 حعفر 1407.استعلام التحديث.accdb.zip

وعليكم السلام ورحمة الله وبركاته تفضل اخى الكريم طلبك ان شاء الله Monthly Summery.zip

المرفق رقم 3 تقريبا انا خلصت الاساسيات . الجداول اللازمة علشان تقدر ترجع لأى دورة قديمة تصدير التقرير على هيئة pdf باقى تنشئ نماذج الادخال الخاصة انت على زوقك وبطريقتك انتظر احد اساتذتنا الكرام فى الرد عليكم بخصوص ارسال الايميل بالمرفقات Course certificates -3.accdb

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

بارك الله فيك أخي حسين مامون ...هذا ما كنت أرغب فيه بالضبط شكرااااااااااااااااااا جزيلااااااااااااااااااااااااااا

تفضل فاتورة .xlsm

السلام عليكم و رحمة الله ضع المعادلة التالية فى الخلية "G8" ثم اسحب نزولا =VLOOKUP($F12;$B$2:$D$12;2;0) اما المعادلة التالية فضعها فى الخلية"H8" =IFERROR(INDEX($B$2:$D$12;SMALL(IF($B$2:$B$12=$F12;ROW($B$2:$B$12));COLUMN()-7)-1;3);"") ثم اضغط Ctrl+Shift+Enter ثم اسحب طولا وعرضا

تفضل اخي يمكن هذا طلبك هذا البرنامج من تصميم الاخ سيد بدران كلمة السر للدخول 123 برنامج حسابات(قيود يومية-فواتير مخازن -معاملات نقدية) مدير حسابات بنظام الزيارات.rar

شكرا على سرعة الرد وجزاك الله خيرا

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

وعليكم السلام 🙂 لما يصل عدد الحقول في جدولي الى حدود 50 حقل (طبعا ما عندي حقل مذكرة ولا مرفقات ولا OLE) ، اعرف اني عملت خخطأ ، ويجب عليّ ان اعيد النظر في تقسيمه 🙂 جعفر

تفضل أخي علي .. Nouveau Microsoft Access Database (7).accdb

جرب المحاولة دي test (3).xlsm

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

بعض أسئلة الاستبيانات تكون ايجابية و الاخرى سلبية ، و فى حال رغبت فى اخذ متوسطات لاجابات محور معين يضم اسئلة سلبية و ايجابية ، يجب عكس النتائج الرقمية المناظرة لقيمة الرد، فمثلا الاصل فى حالة مقياس ليكارد الخماس أن تكون اجابة اتفق جدا = 5 و اتفق = 4 ، .... و هكذا ، فاذا كانت الاسئلة كلها ايجابية و هناك سؤال سلبي فهنا يجب تعديل القيم لاجابات هذا السؤال لتكون اتفق جدا = 1 ، اتفق = 2 ، ... قبل اجراء اية عمليات حسابية على المحور مثل حساب المتوسط مثلا. و اذا كان التفريغ يدويا فيمكن مراعاة ذلك ، اما فى حالة استخدام ادوات الكترونية لجمع الاستبيان فان الارقام تكون مسجلة بالفعل و يجب تعديلها ، و قد تكون العملية مرهقة فى حالة تعدد المتغيرات او كبر حجم العينة. و بالطبع يمكن تعديل الاسئلة لتكون فى نفس المحور ايجابية او سلبية ، و لكن فى بعض الاحيان يكون من الاسهل على مجيب الاستبيان الاجابة عن الصيغة الايجابية او السلبية بحسب المتعارف عليه في بعض مجالات التخصص ، فبصرف النظر عن صحة وجود اسئلة سلبية و ايجابية فى نفس المحور ، للقيام بعملية تعديل (عكس) نتائج عدد من الاجابات لتحويلها من ايجابية الي سلبية بصورة الية ، قمت باعداد دالة فى الاكسيل لتقوم بهذا الغرض (مرفق المثال). لنفرض ان الاجابات الاصلية كانت عن درجة الاتفاق مع كون وقت المشروع مناسب ، و اردتا تغيير الاجابات لتعبر عن كون زمن المشروع غير مناسب كما هو مبين: و ذلك عن طريق استخدام الدالة التالية: Function Reverse_Ordinal2(original_Ordinal As Byte) Dim newVal As Byte Select Case original_Ordinal Case Is = 1 newVal = 5 Case Is = 2 newVal = 4 Case Is = 3 newVal = 3 Case Is = 4 newVal = 2 Case Is = 5 newVal = 1 Case Else newVal = 0 End Select Reverse_Ordinal2 = newVal End Function مرفق المثال و لتشغيله يجب تفعيل الماكرو فى ملف الاكسيل و يتم ادراج الكود فى ملف اخر عن طريق فتح شاشة محرر البيزيك ALT+F11 ثم : السحب للملف الحديد او اختيار ادراج موديول جديد و نسخ الكود او استخدام الدالة و الملف المرفق مفتوح و اذا لم يكن لك خبرة بالتعامل مع الكود ، و لا ترغب فى ذلك ، يمكنك استخدام الملف المرفق مباشرة للتحويل و سحب أو نسخ الدالة للاسفل لتمتد لعدد الاسطر المطلوب ، مع مراعاة تفعيل الماكرو عند فتح الملف لتعمل الدالة ReverseOrdinalLekerd.xlsm

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

ما شاء الله تبارك الرحمن، زادك الله من فضله، لقد هذبته وسهلت ما كان صعبًا ومغلقًا، فتح الله عليك ورفع قدرك. وبالنسبة لأبريل أو إبريل؟ أقر مجمع اللغة العربية في القاهرة -كما في كتاب المعجم الكبير- كتابتها بـ (أبريل)، في حين مجمع اللغة في دمشق أقروها بـ (إبريل) لأن الأجانب ينطقونها هكذا بالكسر، فيجوز كتابتها بالوجهين. والله أعلم.

المرفق رقم 2 Course certificates -2.accdb

عمل رائع شكرا لك

العفو منكم أستاذي انا اقل طالب علم هذه اللبنة الأولى بناء على افكارى .. اعتقد هكذا يكون الاساس السليم لتلك القاعدة اتفضل فى انتظار رأى حضرتك .. ان شاء الله بعد نكمل خطوة بعد خطوة Course certificates.accdb

اولاأيوجد خطأ بالكود قم بتعديل كلمة إبريل الى أبريل بالكود بملفك كالتالي Case Is = "إبريل": kh_ColumnHidden "FC:FV" الى Case Is = "أبريل": kh_ColumnHidden "FC:FV" ثانيا لضمان الحقوق وكما اشرت في مشاركتى بالاعلي ان الكود من المنتدى وهو للعلامة اخونا من اليمن (وقاها الله وحفظ اهلها من الفتن والحروب ) الاستاذ عبدالله باقشير ثالتا ساحاول ان اشرح الكود الكود يتكون من جزء رئيسي وهو يتم اخفاء كل الاعمدة من العمود Gالى الى اخر عمود XFD بمعني اخفاء كل الاعمدة بالصفحة عد1 الخمسة الاعمده الاولي والتي بها الاسم وايام الحضور الخ Sub kh_ColumnHidden(ColumnAddres As String) ' الغاء اهتزاز الشاشة Application.ScreenUpdating = False ' الصفخة المراد تطبيق الكود عليها Sheets("الحضور والغياب").Select ' اخفاء الاعمدة من العمود G الى اخر عمودXFD Columns("G:XFD").EntireColumn.Hidden = True Columns(ColumnAddres).EntireColumn.Hidden = False End Sub بعد اخفاء جميع الاعمدة عدا الخمسة الاولي سنقوم باظهار الاعمدة التي نحتاجها If Not Application.Intersect(Range("B2"), Range(Target.Address)) Is Nothing Then Select Case Target.Value Case Is = "سبتمبر": kh_ColumnHidden "G:AB" Case Is = "أكتوبر": kh_ColumnHidden "AC:AW" Case Is = "نوفمبر": kh_ColumnHidden "AX:BS" Case Is = "ديسمبر": kh_ColumnHidden "BT:CO" Case Is = "يناير": kh_ColumnHidden "CP:DK" Case Is = "فبراير": kh_ColumnHidden "DL:EE" Case Is = "مارس": kh_ColumnHidden "EF:FB" Case Is = "أبريل": kh_ColumnHidden "FC:FV" Case Is = "مايو": kh_ColumnHidden "FW:GS" السطر الاول B2 وهي الخلية التي يتم اختيار الشهر منها Select Case Target.Value يتم اختيار الحالة (الشهر) حسب القيمة اي قيمة B2 Case Is = "سبتمبر": kh_ColumnHidden "G:AB" في حالة B2 تساوي ستمبر قم باظهار الاعمدة من "G:AB" فلو ذهبت الى شيت الحضور والغياب لوجدت شهر سبتمبر يبدأ من العمو د G وينتهي عند العمود AB وهكذا لبقية الاشهر اتمنى اني قدمت ما يفيدك

جرب هاي: ListBoxEnhancedVer15.accdb

تفضل أخي .. عملتها لك بشكل آخر عن طريق السب فورم .. وتعطيك نفس النتيجة 1234.accdb

نعم تستطيع تفضل التعديل s.zip

تفضل عدل الحقول التي تريدها من هنا سيتم فقط تصدير الحقول الموجودة داخل هذا الاستعلام تصدير ملف اكسل1.accdb

شكرا لك على هذا الكلام الطيب اخي الكريم تفضل التعديل قائمة المجلدات قابلة للتعديل كل مره تضيف فيها مجلد جديد راح يتم انشائه بشكل تلقائي عند اضافة صورة المجلدات راح يتم اضافتها لكل رقم وظيفي s.zip

تفضل التعديل تصدير للاكسيل.zip

تفضل هذا التعديل استيراد ملف نصي.accdb

التعديل في الجدول

تقضل التعديل Desktop.zip

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

تفضل التعديل aa.zip

السلام عليكم وعذرا للتاخير ... ما عليك الا ان تختار تنسيق الخلية كتاريخ وتختار شكل التنسيق ما عليك الا ان تختار تنسيق الخلية كتاريخ وتختار شكل التنسيق .. جرب الان واكتب تاريخ في الخلية m5,,, بالتوفيق المهام اليومية.xlsx