عزيزي الزائر / عزيزتي الزائرة يرجي التكرم بتسجبل الدخول اذا كنت عضو معنا او التسجيل ان لم تكن عضو وترغب في الانضمام الي اسرة المنتدي سنتشرف بتسجيلك شكرا ادارة المنتدي
الاستاذ مجدى
عزيزي الزائر / عزيزتي الزائرة يرجي التكرم بتسجبل الدخول اذا كنت عضو معنا او التسجيل ان لم تكن عضو وترغب في الانضمام الي اسرة المنتدي سنتشرف بتسجيلك شكرا ادارة المنتدي
الاستاذ مجدى
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.
سبحانك لا علم لنا إلا ما علمتنا أنك أنت العليم
مع تحيات مجدى عبد المنعم محمود يونس ببورسعيد " مدير المنتدى "
موضوع: التعديل على الكود السبت أغسطس 27, 2022 8:17 pm
السلام عليكم ورحمة الله وبركاته استاذنا الفاضل
مشكلة عند الضغط على زر الحفظ يقوم بالحفظ ولكن تنسيق التاريخ يحفظه معكوس مثلا 01/10/2022 يحفظه هكذا 10/01/2022 ارجو منكم ان تعدلو على هذا الكود الذي هو من صنيعكم الله يحفظكم ويكثر من امثالكم يارب وجزاكم الله خيرا
وهذا هو الكود [left] Private Sub btn_savenew_Click() If Len(Me.Controls("textbox" & 3)) <> 9 Then MsgBox "برجاء مراجعة رقم الهاتف" Exit Sub End If Z = Application.WorksheetFunction.CountIf(Range("C3:C" & Lrow + 2), Me.Controls("textbox" & 3)) If Z >= 1 Then MsgBox "هذا رقم هاتف مكرر" Exit Sub End If If Not IsNumeric(Me.Controls("textbox" & 5)) Or Me.Controls("textbox" & 5) = 0 Then MsgBox "يرجى كتابة رقم أكبر من الصفر وليس نص" Exit Sub End If HesSa For T = 1 To Lcol Sheets("ورقة1").Cells(Rec_Num + 2, T) = Me.Controls("textbox" & T).Text Next Me.Controls("textbox" & 3).Enabled = False Me.btn_savenew.Visible = False Me.btn_savechange.Visible = True Me.btn_savechange.Enabled = True Me.btn_new.Visible = True Me.btn_undo.Visible = False Lrow = Sheets("ورقة1").Cells(Rows.Count, 1).End(xlUp).Row - 2 End Sub
ابواميمة
عدد المساهمات : 65 تاريخ التسجيل : 17/06/2022
موضوع: رد: التعديل على الكود السبت سبتمبر 03, 2022 5:54 pm
السلام عليكم ورحمة الله وبركاته في انتظار الحل........
مجدى يونس Admin
عدد المساهمات : 3806 تاريخ التسجيل : 22/02/2013 العمر : 70
موضوع: رد: التعديل على الكود الثلاثاء سبتمبر 06, 2022 10:13 am
عزيزى ان نظرت للكود لا يوجد به تاريخ عموما لو كان تاريخ بالفورم اكتب الكود التالى عدل رقم التكست وضعه فى التكست الخاص وفى اليوزرفورم
الكود:
TextBox6 = Format(TextBox6, "dd/mm/yyyy")
_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك
ابواميمة يعجبه هذا الموضوع
ابواميمة
عدد المساهمات : 65 تاريخ التسجيل : 17/06/2022
موضوع: رد: التعديل على الكود الخميس سبتمبر 08, 2022 10:10 am
السلام عليكم ورحمة الله وبركاته
استاذي الفاضل لم افلح في تطبيقه لو تكرمتم ان تقوم بالتعديل على ملف العمل المرفق بارك الله فيكم وجعل كل تفعلونه من خير في ميزان حسناتكم
وجزاكم الله خيرا
راط الملف
ملف العمل
مجدى يونس Admin
عدد المساهمات : 3806 تاريخ التسجيل : 22/02/2013 العمر : 70
موضوع: رد: التعديل على الكود الجمعة سبتمبر 09, 2022 3:02 pm
ادخله على موقع اخر لا يفتح معى
_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك
ابواميمة يعجبه هذا الموضوع
ابواميمة
عدد المساهمات : 65 تاريخ التسجيل : 17/06/2022
موضوع: رد: التعديل على الكود السبت سبتمبر 10, 2022 6:08 am
السلام عليكم ورحمة الله وبركاته الله يحفظكم من كل شر استاذنا الفاضل ويبارك في صحتكم ومالكم وعمركم اللهم امين
رابط جديد على الميجا اتمنى ان يشتغل معكم استاذي الفاضل ملف العمل
ابواميمة
عدد المساهمات : 65 تاريخ التسجيل : 17/06/2022
موضوع: رد: التعديل على الكود الأحد سبتمبر 18, 2022 7:46 am
السلام عليكم ورحمة الله وبركاته أستاذي الفاضل أتمنى من الله تعالى ان تكون بألف خير لقد ارفقت لكم الملف على رابط الميجا وجزاكم الله خيرا
ابواميمة
عدد المساهمات : 65 تاريخ التسجيل : 17/06/2022
موضوع: رد: التعديل على الكود الأحد نوفمبر 20, 2022 8:35 am
السلام عليكم ورحمة الله وبركاته أستاذي الفاضل أتمنى من الله تعالى ان تكون بألف خير لقد ارفقت لكم الملف على رابط الميجا وجزاكم الله خيرا
ابواميمة
عدد المساهمات : 65 تاريخ التسجيل : 17/06/2022
موضوع: رد: التعديل على الكود الأربعاء نوفمبر 30, 2022 12:11 pm
السلام عليكم ورحمة الله وبركاته اخواني هل الامر صعب للحل ام ماذا ؟ ارجو منكم بارك الله فيكم ان تنظروا للملف المدرج لحل مشكلة التاريخ ولكم على جزيل الشكر.
ابواميمة
عدد المساهمات : 65 تاريخ التسجيل : 17/06/2022
موضوع: رد: التعديل على الكود الجمعة يناير 27, 2023 11:28 am
السلام عليكم ورحمة الله وبركاته ما زلت منتظرا الحل ................؟!!!