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

جرب الملف ربما هو طلبك ‏‏Employer_kan.accdb

تفضل حسب طلبك .... kan_231.accdb

واياك ... حياك الله

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

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

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

تفضل الكود Option Explicit Sub PRINT_OUT() Dim ws As Worksheet Set ws = Sheets("Renew Report") Dim lr As Long Dim x Application.ScreenUpdating = False lr = ws.Cells(Rows.Count, 3).End(3).Row With Sheets("renew") For x = 2 To lr .Range("G8").Value = ws.Cells(x, "b") .Range("B4").Value = ws.Cells(x, "c") .Range("B8").Value = ws.Cells(x, "d") .Range("G12").Value = ws.Cells(x, "k") .Range("B14").Value = ws.Cells(x, "r") .Range("a1:h26").PrintOut If .Range("G8") = "" Then Exit For Next x End With Application.ScreenUpdating = True End Sub الملف Ù_ادÙ_ اÙ_Ø®Ù_راÙ_ Ù_Ù_Ù_Ø®Ù_ت.xlsm

تفضل التعديل دائن و مدين.zip

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

ما أجمل التعاون من أجل قضاء حوائج بعضنا البعض دمتم بخير أحبابي المشاركين وتفضل أخي الكريم هذا هو ملفك حسب الكود السابق لي تم إضافة أمر حفظ الملف باسم هذا الاسم هو رقم المعرف وتاريخ ووقت التصدير وعدم حفظ الملف الأصلي مع إغلاقه ‏‏إرسال الحقول للوورد bookmarks.rar

سيتم التطرق بهذا الجزء بعض النقاط الأساسية عند البدء بالتخطيط لإعداد للاستراتيجية لمؤسسية، ابتداءً من سبب الحاجة لوجود استراتيجية. ومن ثم الخطوات الرئيسية للتخطيط، والنتائج المتوقعة منها. نقاط يجب أخذها بالاعتبار عند التخطيط للاستراتيجيات للتأكد من تكامل الخطوات ووضح أهداف التخطيط وإعداد للاستراتيجية المؤسسية: 1- تحديد سبب القيام بالتخطيط أو إعادة دراسة للاستراتيجية الحالية 2- تحديد العمليات وتعريفها التي يتم من خلالها تحليل للاستراتيجية ، وتحديد المعنيين في المؤسسة بهدف معرفة المهام والمسؤوليات وأولويات تنفيذ الاستراتيجية 3- معايير الجودة: الهدف من هذه الخطوة التأكد من تحقيق متطلبات تنفيذ الاستراتيجية بحسب الأهداف ومؤشرات الأداء. 4- الحوكمة: يهدف هذا الجزء إلى الاستمرارية والتحسين المستمر في الأداء وعدم التوقف عن التطوير المؤسسي بما يلبي تطلعات المؤسسة بتحقيق أهدافها الاستراتيجية. عند الإعداد لاستراتيجية المؤسسة، من الضروري في البداية على التأكيد بأن الإدارة العليا وأصحاب المؤسسة يوجد لديهم تصور عن طبيعة ونطاق عمل المؤسسي، وبالتالي هناك تصور مبدئي عن هوية الشركة ورؤيتها، وما هو العنصر/ الاستراتيجية التنافسية Competitive strategy للمؤسسة في سوق الأعمال. وعليه توضح الخطوات التالية مراحل إعداد والتخطيط الاستراتيجي بشكل مستمر للوصول للشكل النهائي. ونؤكد هنا بأن التخطيط الاستراتيجي أو التخطيط للاستراتيجيات يكون على شكل حلقات تتكرر بهدف التحسين والتطوير للوصول لإطار عام متميز في مجال عمل المؤسسة. المخرجات المتوقعة/ صفات الاستراتيجية المؤسسية: 1- يجب أن تكون متميزة ومنفردة حتى تستطيع المنافسة في سوق الأعمال 2- الأهداف المنبثقة عنها واضحة ودقيقة، ومرتبطة بمؤشرات أداء لقياس مدى الالتزام، ومدى مساهمتها بتحقيق رؤية المؤسسة 3- المرونة المؤسسية لمواكبة التغيير والتطوير لضمان التحسن المستمر. ولا يعني بالضرورة تغيير الاستراتيجية بشكل كلي، ولكن الأهداف الاستراتيجية المنبثقة عنها قد يطرأ تعديل عليها أو في أولويات تنفيذها. 4- ارتباط المؤسسة بشكل عامودي بتنفيذ وتحقيق الاستراتيجية والتي يتم ترجمتها على مستوى الأقسام في المؤسسة على شكل مهام ومسؤوليات. وللتوضيح فإن الاستراتيجية والأهداف التابعة لها يتم دراستها ضمن فترات زمنية بحسب تغير سوق العمل، والمتطلبات، والتحديات ولا يوجد وحدة زمنية ثابتة لتنفيذ ذلك. وللحديث بقية في الجزء القادم.

السلام عليكم بمعنى أنك تريد الاحتفاظ بصفحة واحدة لجدول الحراسة (نموذج) وبمجرد تغيير اليوم والفترة من القوائم المنسدلة، يتم جلب قائمة الحراس لكل القاعات في هذا اليوم والفترة... إذا كان كذلك فقد قمت بذلك في ملفي المرفق أعلاه وينقصه فقط قائمة الحراس الاحتياطيين وتعديل تاريخ يوم الامتحان حسب تاريخ بداية الامتحان المحجوز في ورقة "بيانات المركز"... إذا وافقك هذا الملف أضفت لك معادلات جلب قائمة الحراس الاحتياطيين حسب اليوم والفترة مع تعديل تاريخ اليوم، ويكون كل ذلك بطريقة أوتوماتيكية حسب اختيارك لليوم والفترة من القوائم المنسدلة... والله أعلى وأعلم

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

وبارك فيك اخي ابو حسن اذا ممكن الوصل للنتيجة عن طريق عمل استعلام ثم في حقل الرصيد نضع الكود (select(sum([Creditor])-sum([Debit])) from [Financial_Records] where [Registration_Date]<= k.Registration_Date and [Registration_Number]<= k.Registration_Number) والنتيجة في الصورة

استاذى الفاضل @kha9009lid بارك الله فيك اخي الكريم كلام حضرتك مضبوط اشكرك استاذى الحبيب

شكرا الله يجزاك الخير

الحقيقة عمل @د.كاف يار رائع ماشاء الله ولكون هذا الموقع تعليمي فاذا تسمحوا لي اعتقد ان هناك خطأ في الرصيد او انني لم افهم المطلوب بشكل صحيح نتيجة استاذنا الفاضل حسين الدائن المدين الرصيد 0 100 0 150 0 150 0 150 300 100 0 100 222 0 222 في العملية الاولى دائن 0 مدين 100 الرصيد يكون -100 في الثانية دائن 150 ومدين 0 ولكن لدينا مدين 100 من العملية الاولى قيكون الرصيد في العملية الثانية 150-(-100)=50 وهكذا ليصبح الرصيد لكل العمليات 👇 دائن مدين الرصيد 0.00 100.00 -100 150.00 0.00 50 0.00 150.00 -100 100.00 0.00 0 222.00 0.00 222 انا لست محاسب ولا احب عمل المحاسبة فان كان رأيي جانب الصواب فاعتذر مقدما

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

ربما لا تحتاج إلى النموذج 1 ولا التايمر الخاص به في حدث عند الفتح للنموذج الرئيس في البرنامج يمكن وضع الكود الموجود في التايمر If Day(Date) = 1 Then DoCmd.OpenForm "frmBackupCompact1" End If وبهذا سيفتح النموذج مرة واحدة عند فتح النموذج الرئيس لأن موضوع التايمر يستهلك ذاكرة الجهاز

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

السلام عليكم هل ما تريده موجود في الملف المرفق؟ بن علية حاجي جدول الحراسة 2022.xlsm

عليكم السلام

تفضل هذا تعديلي 2تصدير للوورد.zip

تفضل هذا التعديل تصدير للوورد.zip

تفضل شوف الملف بعد التعديل تÙ_رÙ_ر تسÙ_Ù_Ù_ اÙ_Ù_Ù_اد..xlsx

نعاني من ضغوطات الحياة وربما ذلك قد يحدث يوميًا من المُشكلات العائلية أو العاطفية أو المُشكلات مع الأصدقاء أي المُشكلات الخاصة أو مُشجلات المجتمع الغير متوقعة مثل في مكان العمل أو الشارع أو شيء كهذا، قد يحدث الكثير من الأمور الغير متوقع حدوثها مع الأسف الشديد وذلك يجعلنا دومًا نسعى إلى تغيير نشاط حياتنا أو الروتين المُتكرر ولذلك من وجهة نظري البسيطة لمواقع الإنترنت وخاصة مواقع الدردشة أهتمامات مُعينة وعلى الأقل للحصول على جزء من التسالي في حياتنا والحصول على مُتعة بأي شكل كان فيمكنك من خلال مواقع الدردشة أن تحصل على صداقات حقيقية مما لا شك فيه أو المُشاركة في مسابقات ومواضيع أو الدخول على مواقع مشهورة مثل موقع Twitter لمتابعة التغريدات العالمية والأطلاع على الردود والتعليقات من المشاهير أو من الجميع ليس مثل دردشة عربية فأصبح للسوشيال ميديا اليوم تأثير خاص وبسبب السوشيال ميديا حدث ثورات ومن الممكن أن يحدث حروب وبسبب السوشيال ميديا أيضًا تظهر الشائعات والأخبار وربما قبل التلفاز في الوقت الحالي فهذا نحن، أصبحنا في زمن وجيل التكنولوجيا والتحضر ولكن إذَا عدنا إلى نقطة البداية وعنوان المقال بأن للإنترنت أهمية كبيرة جدًا في حياتنا وخاصة مواقع الدردشة فقط من أجل كسر الروتين أو الملل التي قد يحدث نحن لا نقوم بعمل دعايا لمكان ما بل نسعى للوصول إلى الرفاهية وعليك بأن تتمكن من الوصول إلى الرفاهية بالفعل بأكثر من طريقة ولكن أجعل الدردشة دومًا في مقدمتك نعم أشعر بأن من داخلك سؤال وهو (للدردشة تأثير سلبي كما لها تأثير إيجابي) بل تأكيد الإنترنت ككل سلاح ذو حدين يمُكننا أستخدامة بشكل خاطئ وفي نفس الوقت يُمكننا أستخدامة بشكل صحيح فلما لا أن تقوم بأستغلال الإنترنت والدردشة خصيصًا بشكل صحيح وتتجاهل من يتعامل معها بشكل خاطئ فأنت لست مُجبر أن تتعامل مع البعض بنفس الطريقة فعليك أن تتعامل مثلما تعلمت وتربيت ونشأت ولا تقوم بالتقليل من ذاتك أو تقليد غيرك فمن الممكن أن يكون ليس لديك على أرض الواقع القدرة على التحدث مع الأشخاص أو لغة الحوار فهذا سبب من الاسباب ان للدردشة دور كبير جدًا في حياتنا بأن تؤهلك بطريقة الكلام أي صناعة لغة الحوار في الشارع، ومكان العمل ومع الأصدقاء وفي كل مكان ولذلك هي شيء إيجابي وليس سلبي فقم بإستغلال هذا بالطريقة الصحيحة وحينها ستعلم بأنك في المكا نالصحيح، اكتساب صداقات وثقافات وعلاقات بشكل مُحترم ومبسط من على الإنترنت لا يقلل منك وعليك دومًا أن تعلم بأن في كل مكان على مستوى العالم لا يُشترط الإنترنت يوجد من هو جيد ومن هو سيء حتى مواقع التواصل الأجتماعي الشهيرة كاليوتيوب هناك فيديوهات دينية كثيرة وفي نفس الوقت يسمح اليوتيوب وسياسات اليوتيوب بوضع فيديوهات إباحية فأنت من الممكن أن ترى هذا أو هذا، فالموضوع يرجع إلى رأيك الشخصي وليس لي أو لغيري.

السلام عليكم ورحمة الله وبركاته طاب يومكم جميعاً الأخ الكريم / أبو خليل وجميع الاخوة حفظكم الله اعرف أن الحديث يدور حول المراكز التجارية سوى كانت صغيرة أو كبيرة وحديثي عن السلعة التي تم بيعها واتضح بعد البيع وجود عيب في السلعة و اعيدة للمركز التجاري كيف يكون حالة هذى السلعة بعد ما يتم اعادته الى المركز التجاري " في نظام قاعدة البيانات" إي ان الحديث هو ما مدا إمكانية النظام لمثل هذى الحالات لكل سلعة مرتجعة 1- هل يتم وضع السلعة على الرف وتعرض مره ثانية للبيع 2- هل يتم ادخال السلعة الى المستودع التباع للمركز التجاري "أن وجد مستودع" 3- هل يتم الرجوع لكتيب الضمان الشركة المنتجة او الوكيل المسوق لهذا السلعة غالباً بعض الأنظمة عند ما يتم ادخال معلومات السلعة يتم إضافة بيانات مختصرة عن الضمان غالباً هناك قسم يشرف ويتابع كل سلعة مرتجعة قد يكون شخص او اكثر" وارسال السلعة الى الشركة او الوكيل المسوق سوى للاستبدال او الصيانة" نفرض أن هناك زبون اشتراء جوال وبعد يوم قام بإعادة الجوال الى المركز التجاري لوجود عيب فيه ربما لن يعطون الزبون جوال جديد حتى يعرض على قسم الصيانة وربما يعطيك موع بعد يوم من تاريخ استلام قسم الصيانة لهذى السلعة يذهب الزبون بعد يوم او يومين لقسم الصيانة "الملحظ في هذى العملية ان كل معلومات السلعة موجودة في قاعدة البيانات اقصد ان قسم الصيانة لا يحتاج الى إعادة كتابة كل المعلومات المتعلقة بأسلعه او معلومات الشراء التاريخ الواقت والسعر " وايضن القسم الذي يقوم بإعادة السلعة الى الشركة المنتجة او الوكيل المسوق لسلعة لا يحتاج الى إعادة كتابة كل اسم السلعة رقمها والموديل وتاريخ الشراء و تقرير الصيانة الموجودة بالمتجرة واعتقد "لهذا القسم صلاحيات قد لا تسمح له بفك السلعة بسبب ان السلعة مازالت تحت ضمان الشركة او الوكيل "لست متأكد من ذلك لم اتحدث عن استلام الزبون للمبلغ هذى خاضع لتقرير فني الصيانة نرجع الى الأول نقطه وهي عند استلم السلعة المرتجعة ماذا يقدم النظام الذي يفترض ان يكون هو من يسير العمل اقصد بالنظام "هو قواعد البيانات وليس النظام الإداري" ما اود قوله باختصار 😉 يجب عند البداء في تصميم النظام إين كان هذى النظام صغير او كبير يجب في فترت التحليل وضع كل الفرضيات وحل كل المصاعب وعدم ترك حل أي شيء لضرف الزمني او يترك لاجتهاد المشغل لهذى النظام و ان يكون نظام البيانات نظام متكامل ومرتبط مع بعض وليس مجزاء كل قسم له برنامج مستقل "هذى ما قصدة " ملاحظة ليس لكل السلع يجري عليه ماسبق فالملابس و ادوات المطبخ وغيرها قد تسترجع ويستلم الزبون مبلغ المال ما يتعلق بأسلعه التي يتم اعادته للمتجر بسبب تاريخ انتهاء الصلاحية فقد تكون حالت خاصة وغالباً تحدث في السوبر ماركت الصغيرة داخل الاحياء السكنية لهذا تجنبت الحديث عنها اعتذر عن الإطالة☺️ بالتوفيق إن شاء الله

السلام عليكم ورحمة الله وبركاته ملاحظة لست محاسب والا اعرف شيء في المحاسبة فقط توارد خواطر اعتقد أن المرتجع لم يعد كما كان في السابق قبل عقود من الزمن مع تطور التجارة واساليبها و ربما يبقا تعريف المرتجع هو كل بضاعة او منتجة صدر له فاتورة بيع وقبض المبلغ وتم إخراجه من المتجر او المستودع و تم إعادة لأسباب مختلفة و قد يكون الشي الذي اختلف عن السابق هو أسباب الارجاع ودخول الطرف ثالث في ذلك وهي الشركة المنتجة لهذى المنتج كـ( تلف المنتج اثناء فترة الضمان او فيه عيب من المصنع ويمكن تلخيص اسباب ارجاع البضاعة في التالي 1- مرتجع لوجود عبيب في المنتج اثناء التصنيع السؤال (ماذا لو اشتراء زبون جوال واكتشفه انه فيه عبيب مصني وتم إعادته ولم يجدوا بديل بنفس مواصفات الجوال الذي تم اعادته ) ؟ 2- مرتجع انتهاء تاريخ الصلاحية (( في المواد الغذائية )) وهذى قد تحدث في السوبر ماركاته سوى كانت صغيرة او كبيرة بعض المنتجات الغذائية اذا انته الصلاحية المنتج وهي في المتجر الشركة تسقط قيمتها او جزء من القيمة في فاتورة البيع بين الشركة المنتجة والمتجر او السوبر ماركت او غيرة ... السؤال ( لو اشتراء زبون مواد غذائية معلبات وبعد وصولك للبيت اكتشف انها منتهية الصلاحية وتم إعادة المبلغ لزبون كيف يتم التعامل هل سيتم احتساب المبلغ على المتجر او الشركة ) بعض المنتجات قد يتم إعادة الى المتجر ومن ثم يرسل الى قسم الصيانة في الشركة المنتجة والمبلغ مازال في عهدة المتجر اذا تم تصنيف أسباب ارجاع الزبون للبضاعة بعد ذلك يسهل على المبرمج صياغة الفكرة وتحويلة الى برنامج عملي يمكن العمل عليه ومتابعة جميع ما يتم إرجاعه سوى كان تم تحويلة الشركة المنتجة او تم إعادة الى المتجر او الى المستودع او الى الصيانة وغير ذلك وحديثي السابق عن أنواع المرتجع من المبيعات واعتقد ان كل منتج يختلف عن المنتج الاخر في عملية الارجاع حيث عن الشركة المنتجة لها دور في ذلك وايضن سياسية المركز التجاري له دور في ذلك ويمكن نستنتج مما سبق فكرة بسيطة وبدائية يتم انشاء جدول خاص بالمرتجع قبل ما يتم حذف المنتج من فاتورة الشراء يتم ترحيل معلومات الى جدول المرتجع مثل رقم المنتج اسم المنتج تاريخ الشراء من الشركة المنتجة تاريخ البيع تاريخ شراء الزبون تاريخ ارجع الزبون للمنتج أسباب ارجاع المنتج "حقل مهم جداً " فائدة وجود جدول للمرتجعات يعطي فكرة ودراسة عن أسباب ارجع منتج معين او كم مرة تم ارجع هذى النوع من المنتج وغير ذلك من الاستفسارات والتحليل عندما يتم حذفة المنتج من فاتورة الشراء يعاد المتجر او المستودع او قسم الصيانة واعادة للشركة المنتجة هذى فقط أفكار بسيط وأكرر لست محاسب والا اعرف شي في المحاسبه فقط توارد خواطر بالتوفيق إن شاء الله

.هذه طريقة اخرى بدون كتابة اسماء الحقول وخاصة عندما تكون كثيرة ولكن بشرط ان تتشابه ترتيب الحقول في الجدولين Dim db As DAO.Database Dim rstFrom As Recordset Dim rstTo As Recordset Set db = CurrentDb Dim RC, i, r As Integer Set rstTo = db.OpenRecordset("tblB1", dbOpenDynaset) Set rstFrom = db.OpenRecordset("tblB", dbOpenDynaset) rstFrom.MoveFirst: rstFrom.MoveLast RC = rstFrom.RecordCount rstFrom.MoveFirst For i = 1 To RC rstTo.AddNew For r = 1 To rstFrom.Fields.Count - 1 rstTo.Fields(r) = rstFrom.Fields(r) Next r rstTo.Update rstFrom.MoveNext Next i rstTo.Close rstFrom.Close Set rstTo = Nothing Set rstFrom = Nothing Set db = Nothing Kan_355.accdb