أكاديمية الصقر للتدريب

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


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





مشكلة تعديل البيانات في اليوزرفورم

السلام عليكم اعضاء المنتدى الكرام عندي مشكلة في اليوزر فورم عندما يكون هناك رمز مكتوب في المستطيل الاصفر للبحث برمز الم ..


موضوع مغلق


14-09-2021 12:13 صباحا
شبل
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 02-01-2020
رقم العضوية : 17346
المشاركات : 50
الجنس : ذكر
تاريخ الميلاد : 4-6-1976
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 47
 offline 

السلام عليكم اعضاء المنتدى الكرام



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



تفضلكم بمساعدتي على ان لا يتم التعديل الا عندما يكون رمز المنتسب مطابقا للرمز في المستطيل الاصفر ..ولكم مني فائق الشكر والتقدير .



لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب












 
 
  ملاك 2021.xlsb   تحميل xlsb مرات التحميل :(7)
الحجم :(591.026) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
وعليكم السلام أخي الكريم
إذا كنت قد فهمت المشكلة فأنصحك أن تضع هذا السطر كتعليق بحيث لا يتم تنفيذه ولا يتم تغيير رمز المنتسب
.Cells(c.Row, 2).Value = TextBox1.Text


أمر آخر قم بتغيير الإجراء الخاص بحدث التغيير لصندوق النص 6 بالشكل التالي
Private Sub TextBox6_Change()
    For Each cel In ws.Range("B2:B" & lr)
        If (Val(Me.TextBox6)) = cel Then
            Me.TextBox1.Value = cel.Offset(0, 0).Value
            Me.TextBox2.Value = cel.Offset(0, 1).Value
            Me.TextBox3.Value = cel.Offset(0, 2).Value
            Me.TextBox4.Value = cel.Offset(0, 3).Value
            Me.TextBox5.Value = cel.Offset(0, 4).Value
            Me.ComboBox1.Value = cel.Offset(0, 5).Value
            Me.TextBox8.Value = cel.Offset(0, 6).Value
            Me.TextBox9.Value = cel.Offset(0, 7).Value
            Me.TextBox10.Value = cel.Offset(0, 8).Value
            Me.TextBox11.Value = cel.Offset(0, 9).Value
        End If
    Next cel
End Sub
عرض الإجابة




14-09-2021 03:05 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif مشكلة تعديل البيانات في اليوزرفورم
وعليكم السلام أخي الكريم
إذا كنت قد فهمت المشكلة فأنصحك أن تضع هذا السطر كتعليق بحيث لا يتم تنفيذه ولا يتم تغيير رمز المنتسب
.Cells(c.Row, 2).Value = TextBox1.Text


أمر آخر قم بتغيير الإجراء الخاص بحدث التغيير لصندوق النص 6 بالشكل التالي
Private Sub TextBox6_Change()
    For Each cel In ws.Range("B2:B" & lr)
        If (Val(Me.TextBox6)) = cel Then
            Me.TextBox1.Value = cel.Offset(0, 0).Value
            Me.TextBox2.Value = cel.Offset(0, 1).Value
            Me.TextBox3.Value = cel.Offset(0, 2).Value
            Me.TextBox4.Value = cel.Offset(0, 3).Value
            Me.TextBox5.Value = cel.Offset(0, 4).Value
            Me.ComboBox1.Value = cel.Offset(0, 5).Value
            Me.TextBox8.Value = cel.Offset(0, 6).Value
            Me.TextBox9.Value = cel.Offset(0, 7).Value
            Me.TextBox10.Value = cel.Offset(0, 8).Value
            Me.TextBox11.Value = cel.Offset(0, 9).Value
        End If
    Next cel
End Sub

14-09-2021 05:47 صباحا
مشاهدة مشاركة منفردة [2]
شبل
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 02-01-2020
رقم العضوية : 17346
المشاركات : 50
الجنس : ذكر
تاريخ الميلاد : 4-6-1976
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 47
 offline 
look/images/icons/i1.gif مشكلة تعديل البيانات في اليوزرفورم
شكرا استاذ  Yasse rKhalil 
سوف اقوم بتجربة هذا الحل المبدع
لك كل الشكر والامتنان لقد ساعدتني كثيرا
بارك الله فيك

14-09-2021 06:57 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif مشكلة تعديل البيانات في اليوزرفورم
بارك الله فيك أخي الكريم والحمد لله الذي بنعمته تتم الصالحات.



الكلمات الدلالية
مشكلة ، فورم ، اليوسر ، تعديل ، البيانات ،


 










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

الساعة الآن 07:17 مساء