عمر ضاحى

السلام عليكم كل عام وانتم بخير اساتذتي الكرام حفظكم الله وبارك الله فى اعماركم واولادكم واموالكم بعد اذن حضرتكم معي مشكله فى هذا الكود Dim X As Object Dim objWord As Object Dim FORAMOUNT As Integer FORAMOUNT = Format(txtPOAmount, "0,0.00") Set X = CreateObject("Word.Application") X.Documents.Open CurrentProject.Path & "\PayReqForm.doc" X.Visible = True X.ActiveDocument.Bookmarks("txtPONO").Select X.Selection.InsertAfter txtPONO X.ActiveDocument.Bookmarks("cbLPOSuppliersName").Select X.Selection.InsertAfter cbLPOSuppliersName X.ActiveDocument.Bookmarks("txtPOAmount").Select X.Selection.InsertAfter FORAMOUNT X.ActiveDocument.saveas2 CurrentProject.Path & "\" & txtPONO & " " & Format(Now(), "dd_mm_yyyy HH_MM__AM/PM") & ".doc" X.ActiveDocument.Close savechanges:=0 X.Quit MsgBox "DONE" المشكله ان لما بيتم ارسال الرقم الى ملف الورد بيتم ارساله بدون الفاصله او حتى الارقام العشريه الصفريه مثل 1.00 جربت استخدم دالة FORMAT زي ما هو واضح فى الكود FORAMOUNT = Format(txtPOAmount, "0,0.00") لكن بيتم ارسال الرقم كما هو دون تنسيق يعنى الرقم مثل 123456 المفترض انه يظهر فى الورد هكذا 123,456.00 لكن لا يحصل هذا ويتم ارساله كما هو ك 123456 هل لهذا المشكله من حل ؟ ولكم جزيل الشكر

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

اين المرفق ؟

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

فى الغالب علشان خايفين لنسأل اسأله تخلى الروبيت يتمرد عليهم ههههههههههههه

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

تم تعديل كود اعادة الربط بكود المهندس / جعفر من موضوع لحين معرفة الخطأ فى الكود احالى للربط التلقائى مرفق البرنامج بعد التعديل HR-OmarDahyV2.rar

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

اتفضل قمت برفع البرنامج كامل

السلام عليكم اساتذتى وزملائى الكرام مرفق الى حضرتكم برنامج لادارة الموارد البشرية للاسف انا لا اجيد كتابة المواضيع (سامحوني على هذا) لكن احب اولا ان اشكر كل من قدم لى المساعدة والنصح والارشاد حتى يخرج البرنامج بهذا الشكل خاصة استاذى الجليل @jjafferr وايضا @ابو جودي وايضا @Eng.Qassim @Moosak @ابوخليل والكثير من الاستاذة الاجلاء حفظهم الله لا استطيع ان اتذكرهم الان سائل المولى عز وجل ان يزيدهم من علمهم ويبارك فى صحتهم هم وزويهم واصحابهم وجميع المسلمين ناتي للبرنامج البرنامج فيه الكثير من الامور التى يصعب علي تسجيلها كلها هنا مثل نظام صلاحية المستخدمين (هو موجود لكن هناك الكثير من النماذج لم اقم باضافتها لاني انا المستخدم الوحيد للبرنامج فتكاسلت عن ظبطها لجميع النماذج) ايضا 1- تسجيل بيانات الموظفين (بيانات كاملة وشامله لاغلب ما يمكن ان يتطلب* 2-نظام الحضور والانصراف للموظفين وترحيلها 3-نظام تحضير وتجهيز الرواتب 4- طباعة ورقة الحضور للموظفين اليومي ....... الكثير الكثير من الاستعلامات الخاصه مثل الاستعلام عن حضور وانصراف و اضافى الموظفين و البحث عن الموظفين والتسجيل لهم غياب مرضى او اجازة عمرة او حج ..... الخ سوف اضع بعض الصور للبرنامج وقوائهم قائمة التكوين والاعدادات قائمة الاجراءات قائمة الاستعلامات هذا كل ما يمكن ان اذكره والباقى على المحتاجين للبرنامج استكشاف البرنامج والادوات الموجودة فيه ملاحظه : قمت بازالة لوجو الشركة عندي كل ما عليك وضع شعار الشركة او المؤسسة عندك فى التقارير ايضا (اكيد هيكون هناك بعض الاخطأ فى البرنامج لم اقم باصلاحها لانى توقفت عن استخدام البرنامج من فتره طوووويله ^_^ بسبب وجود جهاز للبصمه وتم الاستغناء عن نظام الحضور والانصراف فى البرنامج لكن باقى الامور ان شاء الله تعمل جيدا واذا كان هناك اى اصلاحات مطلوبه واستطيع ان اصلحها انا فى الخدمه واذا لم يكن فى امكاني فسوف اطلب المساعدة من اساتذتى الكرام حفظهم الله) كل ما احتاجه منكم دعوة لى فى ظهر الغيب ولاهلى وان تدعو لامي ان يغفر لها ويرحمها 😢 ولكم جزيل الشكر والعرفان . HR-OmarDahy.rar Key.rar

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

انا حاولت اسجل على الموقع لكن اخبرني ان الخدمة غير متاحة فى بلدي كيف سجلت انت ^_^

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

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

اين المسطره فى الصوره ؟ هل يظهر لك شئ لا يظهر عندي ؟

اين المسطره السفليه ؟ ممكن صوره

جرب كده رسائل2.rar

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

نصيحه دائما ارفق ملف علشان نقدر نشوف السبب معك

الف الف مبروك للترقيه مبارك لك

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

عند مفتاح للأسفل وتخلى مفتاح المعاينه نعم

بص انا معنديش حل لكن عندي فكره وعليك انت تجرب خلينا نتفق ان Ctrl+A بيحدد النص داخل الحقل (وغالبا لا يعمل ايضا) فانت ممكن تعمل ايه اول هتعمل حدث عن الضغط على المفتاح لاسفل وهتستخدم دالة Select Case وبداخلها هتعمل لوب او اى دالة مشابهه علشان تعمل تحديد للسجلات طبعا التحديد هيكون عن طريق اضافة حقل جديد قيمته نعم/لا علشان نحدد عن طريقه وهذا لتقريب المثل Select Case KeyCode & vbKeyControl Case 65 & 17 MsgBox "111111111" End Select طبعا انت هتستبدل كود الرساله باللوب او باى كود انت عاوزه ملاحظه رقم 65 تدل على حرف A رقم 17 تدل على مفتاح Ctrl واترك الباقى لك او لاساتذتى الكرام اذا كان هناك حل اخر افضل

طيب ما تجرب تعيد تسمية جداول احد القاعدتين ( باضافة حرف او رقم ) وتعمل ربط للقاعدتين معا وتشتغل عليهم دائما

اما بخصوص النقطه الثانيه ( لا اعرف لها حل ولم اجربها لكن اقدم لك اقتراح قد ينفع او يفشل) ممكن تستخدم دالة Select Case و دالة Replace اذا كان الحرف ى يقوم باستبداله بالحرف ي وهذا اقتراح لا اعرف اذا كان هينفع ام لا