الاستاذ مجدى
التعديل على الكود  613623
عزيزي الزائر / عزيزتي الزائرة يرجي التكرم بتسجبل الدخول اذا كنت عضو معنا
او التسجيل ان لم تكن عضو وترغب في الانضمام الي اسرة المنتدي
سنتشرف بتسجيلك
شكرا التعديل على الكود  829894
ادارة المنتدي التعديل على الكود  103798

التعديل على الكود  Uoou_u10


الاستاذ مجدى
التعديل على الكود  613623
عزيزي الزائر / عزيزتي الزائرة يرجي التكرم بتسجبل الدخول اذا كنت عضو معنا
او التسجيل ان لم تكن عضو وترغب في الانضمام الي اسرة المنتدي
سنتشرف بتسجيلك
شكرا التعديل على الكود  829894
ادارة المنتدي التعديل على الكود  103798

التعديل على الكود  Uoou_u10


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



 
الرئيسيةالأستاذ التعليمLatest imagesضع التسجيلدخولالتسجيل
سبحانك لا علم لنا إلا ما علمتنا أنك أنت العليم
عزيزى الزائر قم بالتسجيل بالمنتدى لمشاهدة باقى الاقسام المهمه
مع تحيات مجدى عبد المنعم محمود يونس ببورسعيد " مدير المنتدى "
أهلا بك من جديد يا زائر آخر زيارة لك كانت في الخميس يناير 01, 1970
آخر عضو مسجل احمد مصطفى فمرحبا به


 

 التعديل على الكود

اذهب الى الأسفل 
2 مشترك
كاتب الموضوعرسالة
ابواميمة




عدد المساهمات : 58
تاريخ التسجيل : 17/06/2022

التعديل على الكود  Empty
مُساهمةموضوع: التعديل على الكود    التعديل على الكود  Avatarالسبت أغسطس 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
الرجوع الى أعلى الصفحة اذهب الى الأسفل
ابواميمة




عدد المساهمات : 58
تاريخ التسجيل : 17/06/2022

التعديل على الكود  Empty
مُساهمةموضوع: رد: التعديل على الكود    التعديل على الكود  Avatarالسبت سبتمبر 03, 2022 5:54 pm

السلام عليكم ورحمة الله وبركاته
في انتظار الحل........
الرجوع الى أعلى الصفحة اذهب الى الأسفل
مجدى يونس
Admin
مجدى يونس


عدد المساهمات : 3699
تاريخ التسجيل : 22/02/2013
العمر : 68

التعديل على الكود  Empty
مُساهمةموضوع: رد: التعديل على الكود    التعديل على الكود  Avatarالثلاثاء سبتمبر 06, 2022 10:13 am

عزيزى ان نظرت للكود لا يوجد به تاريخ
عموما لو كان تاريخ بالفورم اكتب الكود التالى عدل رقم التكست
وضعه فى التكست الخاص وفى اليوزرفورم
الكود:
TextBox6 = Format(TextBox6, "dd/mm/yyyy")

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

التعديل على الكود  Aaa11

ابواميمة يعجبه هذا الموضوع

الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://magdi54.forumegypt.net
ابواميمة




عدد المساهمات : 58
تاريخ التسجيل : 17/06/2022

التعديل على الكود  Empty
مُساهمةموضوع: رد: التعديل على الكود    التعديل على الكود  Avatarالخميس سبتمبر 08, 2022 10:10 am

السلام عليكم ورحمة الله وبركاته

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

وجزاكم الله خيرا

راط الملف

ملف العمل

الرجوع الى أعلى الصفحة اذهب الى الأسفل
مجدى يونس
Admin
مجدى يونس


عدد المساهمات : 3699
تاريخ التسجيل : 22/02/2013
العمر : 68

التعديل على الكود  Empty
مُساهمةموضوع: رد: التعديل على الكود    التعديل على الكود  Avatarالجمعة سبتمبر 09, 2022 3:02 pm

ادخله على موقع اخر لا يفتح معى

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

التعديل على الكود  Aaa11

ابواميمة يعجبه هذا الموضوع

الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://magdi54.forumegypt.net
ابواميمة




عدد المساهمات : 58
تاريخ التسجيل : 17/06/2022

التعديل على الكود  Empty
مُساهمةموضوع: رد: التعديل على الكود    التعديل على الكود  Avatarالسبت سبتمبر 10, 2022 6:08 am

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

رابط جديد على الميجا اتمنى ان يشتغل معكم استاذي الفاضل
ملف العمل

الرجوع الى أعلى الصفحة اذهب الى الأسفل
ابواميمة




عدد المساهمات : 58
تاريخ التسجيل : 17/06/2022

التعديل على الكود  Empty
مُساهمةموضوع: رد: التعديل على الكود    التعديل على الكود  Avatarالأحد سبتمبر 18, 2022 7:46 am

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




عدد المساهمات : 58
تاريخ التسجيل : 17/06/2022

التعديل على الكود  Empty
مُساهمةموضوع: رد: التعديل على الكود    التعديل على الكود  Avatarالأحد نوفمبر 20, 2022 8:35 am

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

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
الاستاذ مجدى :: قسم مجموعة الاوفيس :: قسم الاكسل-
انتقل الى: