طارق_نادر

اريد التعديل لطفا على الكود المرفق بحيث لا يقبل الا تاريخ فقط وليس اي نص اخر كالحروف مثلا Private Sub txtbdate_AfterUpdate() Me.txtbdate = Format(Me.txtbdate, DateFormt) End Sub

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

للرفع

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

-

بارك الله فيك اخي سليم معلومه هامة ومفيده

ماهي المعادلة ممكن توضح اخي الكريم

اشكرك على المداخلة وسأغير اسمي كما اردت اعتذر اني خالفت القواعد

تفضل اخي المرفق اظنه المطلوب بدون اكواد Microsoft Office Excel Worksheet جديد.rar

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

امين يارب العالمين من لطفك اخي الكريم

عفوا تفضل المرفق Example1.rar

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

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

جمايلك كترت كتير الله ينصرك انت غالي عندي كتييييييير دائما دقيق وعلاجك شافي تماما

للرفع رفع الله مقداركم

ارفق لكم كود لفورم صلاحية دخول المشكلة البسيطة ان اريد المؤشر يبقى دائما عند فتح الملف في المكان المخصص لكلمة السر علما ان الفورم مصممم بدون مربع للاسم المستخدم Private Sub CommandButton1_Click() If Me.TextBox1 = "" Then MsgBox "من فضلك أدخل كلمة المرور للدخول", vbOKOnly + vbCritical, "كلمة المرور" Me.TextBox1.SetFocus GoTo 1 Else Select Case Me.TextBox1.Value Case 129806 MsgBox "مرحباً ...طارق نادر ... تفضل بالدخول", vbOKOnly + vbInformation, "مرحبا" Sheet10.Range("G80").Value = "طارق نادر" Sheet12.Range("g80").Value = "طارق نادر" Sheet13.Range("g80").Value = "طارق نادر" Sheet15.Range("g80").Value = "طارق نادر" Sheet16.Range("g80").Value = "طارق نادر" GoTo 2 Case 100158 MsgBox "مرحباً ...وصفي أبو عليقة ... تفضل بالدخول", vbOKOnly + vbInformation, "مرحبا" Sheet10.Range("G80").Value = "وصفي أبو عليقة" Sheet12.Range("G80").Value = "وصفي أبو عليقة" Sheet13.Range("G80").Value = "وصفي أبو عليقة" Sheet15.Range("G80").Value = "وصفي أبو عليقة" Sheet16.Range("G80").Value = "وصفي أبو عليقة" GoTo 2 Case 118969 MsgBox "مرحباً ...عطاالله السعود ... تفضل بالدخول", vbOKOnly + vbInformation, "مرحبا" Sheet10.Range("G80").Value = "عطاالله السعود" Sheet12.Range("G80").Value = "عطاالله السعود" Sheet13.Range("G80").Value = "عطاالله السعود" Sheet15.Range("G80").Value = "عطاالله السعود" Sheet16.Range("G80").Value = "عطاالله السعود" GoTo 2 Case 129319 MsgBox "مرحباً ...سعد الشرفات ... تفضل بالدخول", vbOKOnly + vbInformation, "مرحبا" Sheet10.Range("G80").Value = "سعد الشرفات" Sheet12.Range("G80").Value = "سعد الشرفات" Sheet13.Range("G80").Value = "سعد الشرفات" Sheet15.Range("G80").Value = "سعد الشرفات" Sheet16.Range("G80").Value = "سعد الشرفات" GoTo 2 Case 159819 MsgBox "مرحباً ...نايف الفواعرة ... تفضل بالدخول", vbOKOnly + vbInformation, "مرحبا" Sheet10.Range("G80").Value = "نايف الفواعرة" Sheet12.Range("G80").Value = "نايف الفواعرة" Sheet13.Range("G80").Value = "نايف الفواعرة" Sheet15.Range("G80").Value = "نايف الفواعرة" GoTo 2 Case Else MsgBox "نأسف انت لست من أعضاء القسم ... حاول مرة ثانية", vbCritical + vbOKOnly, "كلمة مرور خاطئة" Me.TextBox1 = "" Me.TextBox1.SetFocus GoTo 1 End Select End If 2: Application.Visible = True Unload Me 1 End Sub Private Sub CommandButton2_Click() Unload Me Application.Quit End Sub

جهودك مشكورة اكواد جميلة ومفيدة

كل الشكر والتقدير لك دائما وابدا

للرفع رفع الله مقداركم

حاولت وحدث مشاكل لذلك للرفع

حاولت وحدث مشاكل لذلك للرفع

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

يسعد مساءكم جميعا ارجو منكم لطفا اريد فورم باسورد فقط بدون اسم مستخدم او usename بالمييزات التالية - رقم الباسورد محدد واجباري ان يكون محصور بالارقام التالية وسأضع كل رقم امامه المستخدم الذي يرتبط به -129806 المستخدم هو طارق نادر - 100158وصفي ابو عليقه - 118969 عطالله السعود -129319 سعد الشرفات - 159819 نايف الفواعرة اسم المستخدم اريد ان ينسخ تلقائيا في خلية معينة في حال ادخال الرقم المرتبط فيه والخلية هي (g80) وان لا يتم الدخول الا بالارقام السابقة فقط كل الشكر والتقدير دائما لكم

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