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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
khaled alborene Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil تثبيت الكود علي خليه معينه اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





ضبط كود التعديل والبحث بالفورم

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



13-08-2019 07:07 مساء
مهند محسن
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-03-2018
رقم العضوية : 5025
المشاركات : 354
الجنس : ذكر
تاريخ الميلاد : 19-3-1990
يتابعهم : 0
يتابعونه : 7
قوة السمعة : 473
الاعجاب : 10
 offline 

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


 
 
 
  Search Code.txt   تحميل txt مرات التحميل :(0)
الحجم :(2.002) KB
  Change code.txt   تحميل txt مرات التحميل :(1)
الحجم :(0.837) KB
  change code _ Search Code.rar   تحميل rar مرات التحميل :(13)
الحجم :(378.923) KB







13-08-2019 09:14 مساء
مشاهدة مشاركة منفردة [1]
محمود ابو الدهب
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1071
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 58
يتابعهم : 6
يتابعونه : 208
قوة السمعة : 3555
الاعجاب : 231
موقعي : زيارة موقعي
 Online 
look/images/icons/i1.gif ضبط كود التعديل والبحث بالفورم
بالنسبة لكود الاستعلام كان ينقصك تعريف بعض المتغيرات
 Dim i     As Long
 Dim iII   As Long
 Dim x     As Long
 Dim n     As Long


وايضا بخصوص الجزئية دى بالكود لا اعتقد ان لها لزمه

                If ActiveCell.Offset(0, 13).Text = "موجود" Then
              ck1.Value = True
                ElseIf ActiveCell.Offset(0, 13).Text = "غير موجود" Then
                ck2.Value = True
                ElseIf ActiveCell.Offset(0, 13).Text = "" Then
                 ck1.Value = False
                ck2.Value = False
                End If


لانه لا يوجد عمود 13
وان كان لها لازمه ما هو العنصر ck1.Value
وبالنسبة لقيمة الخصم معك حلين الاول
ضع الكود التالى بتسكست بوكس 50
Private Sub TextBox50_Change()
TextBox51.Value = Val(TextBox50) * Val(TextBox56)
End Sub


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

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

هذا على قدر فهمى لطلباتك في شيت 1

Private Sub CommandButton4_Click()
 Dim i     As Long
 Dim iII   As Long
 Dim x     As Long
 Dim n     As Long
For i = 1 To 13
    Me.Controls("ComboBox" & i).Value = ""
Next i
For i = 1 To 52
    Me.Controls("TextBox" & i).Value = ""
Next i
        On Error Resume Next
    If OptionButton1.Value = True Then
        If TextBox54.Text = "" Then
            MsgBox ("الرجاء ادخال رقم الفاتورة")
            TextBox54.Text = ""
            Cler
            Sheet3.Range("A1").Select
            Exit Sub
        End If
        Sheet3.Activate
    iII = 3: x = 6: n = 3
     Do Until Sheet3.Cells(iII, "B").Text = ""
       If Val(TextBox54.Text) = Val(Sheet3.Cells(iII, "B").Text) Then
       Cells(iII, "B").Activate
                TextBox1 = ActiveCell.Offset(0, 0).Text
                TextBox2 = ActiveCell.Offset(0, 1).Text
                ComboBox1 = ActiveCell.Offset(0, 2).Text
                ComboBox2 = ActiveCell.Offset(0, 3).Text
                TextBox3 = ActiveCell.Offset(0, 4).Text
                TextBox4 = ActiveCell.Offset(0, 5).Text
                TextBox5 = ActiveCell.Offset(0, 6).Text
        Me.Controls("ComboBox" & n) = ActiveCell.Offset(0, 7).Text
            Me.Controls("TextBox" & x) = ActiveCell.Offset(0, 8).Text
           Me.Controls("TextBox" & x + 1) = ActiveCell.Offset(0, 9).Text
            Me.Controls("TextBox" & x + 2) = ActiveCell.Offset(0, 10).Text
         Me.Controls("TextBox" & x + 3) = ActiveCell.Offset(0, 11).Text
'                If ActiveCell.Offset(0, 13).Text = "موجود" Then
'              ck1.Value = True
'                ElseIf ActiveCell.Offset(0, 13).Text = "غير موجود" Then
'                ck2.Value = True
'                ElseIf ActiveCell.Offset(0, 13).Text = "" Then
'                 ck1.Value = False
'                ck2.Value = False
'                End If
'                TextBox51 = ActiveCell.Offset(0, 12).Text
               x = x + 4: n = n + 1
            End If
   iII = iII + 1
   Loop
        Sheet3.Range("A1").Select
 End If
End Sub


ولاضافة كود تضغط على هذا الخيار
My8Iv_Untitled

وبالنسبه للطلب الاخر نشوف الاول للتعديل ده مرادك من عدمه 
 
 
 


أثارت هذه المشاركة إعجاب: مهند محسن، محمد الدسوقى،


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

تحياتى وتقدير للجميع  محمود ابوالدهب


14-08-2019 01:18 صباحا
مشاهدة مشاركة منفردة [2]
مهند محسن
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-03-2018
رقم العضوية : 5025
المشاركات : 354
الجنس : ذكر
تاريخ الميلاد : 19-3-1990
يتابعهم : 0
يتابعونه : 7
قوة السمعة : 473
الاعجاب : 10
 offline 
look/images/icons/i1.gif ضبط كود التعديل والبحث بالفورم
أحسنت استاذ محمود عمل رائع تم على خير بعد نصائح حضرتك الغالية 
بارك الله فيك ووسع الله فى رزقك ورحم الله والديك وفرج الله لك كل كربات يوم القيامة ان شاء الله
واقصد حضرتك واسف على ازعاج حضرتك فى ضبط كود التعديل ايضا ولك جزيل الشكر
Private Sub CommandButton5_Click()
Dim Ad As String
Dim c As Integer
Dim iNx As Long
iNx = Me.TextBox54.Column(1)
''''''''''''''''''''
For c = 1 To ContColmn
    Ad = Cells(1, c).Address(0, 0)
    If Len(Trim(Me.Controls(Ad).Value)) = 0 Then
        MsgBox "العنوان: " & Me.Controls("xx" & c).Caption & " فارغ", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "خلية فارغة"
        Me.Controls(Ad).SetFocus
        Exit Sub
    End If
Next
''''''''''''''''''''''
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
With Sheet1
    For c = 1 To ContColmn
        Ad = Cells(1, c).Address(0, 0)
        .Cells(iNx, c).Value = Me.Controls(Ad).Value
    Next
End With
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
MsgBox "تم التعديل بنجاح"
End Sub

 

أثارت هذه المشاركة إعجاب: محمد الدسوقى،




14-08-2019 03:14 مساء
مشاهدة مشاركة منفردة [3]
محمود ابو الدهب
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1071
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 58
يتابعهم : 6
يتابعونه : 208
قوة السمعة : 3555
الاعجاب : 231
موقعي : زيارة موقعي
 Online 
look/images/icons/i1.gif ضبط كود التعديل والبحث بالفورم
ان شاء الله انظر فيه بمجرد عودتى 

أثارت هذه المشاركة إعجاب: مهند محسن، محمد الدسوقى،


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

تحياتى وتقدير للجميع  محمود ابوالدهب


14-08-2019 04:53 مساء
مشاهدة مشاركة منفردة [4]
مهند محسن
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-03-2018
رقم العضوية : 5025
المشاركات : 354
الجنس : ذكر
تاريخ الميلاد : 19-3-1990
يتابعهم : 0
يتابعونه : 7
قوة السمعة : 473
الاعجاب : 10
 offline 
look/images/icons/i1.gif ضبط كود التعديل والبحث بالفورم
بارك الله فيك وزادك الله من فضله استاذنا الكريم واسف مرة اخرى على ازعاج حضرتك 





15-08-2019 12:19 مساء
مشاهدة مشاركة منفردة [5]
ريتاج المدينة
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 16-07-2018
رقم العضوية : 7205
المشاركات : 33
الجنس : ذكر
تاريخ الميلاد : 13-1-1972
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 21
الاعجاب : 1
 offline 
look/images/icons/upload/1 (6).gif ضبط كود التعديل والبحث بالفورم
السلام عليكم 
ارجو من ادارة المنتدى 
هذا الملف لي كنت قد رفعته على موقع اخر  
ونظرا لعجم التجواب من ذاك المنتدى رفعته اليكم 
واثناء تصفحي للمنتدى تفاجأت انه مرفوع هنا 

 


تم تحرير المشاركة بواسطة :ريتاج المدينة
بتاريخ:15-08-2019 12:21 مساء






15-08-2019 12:38 مساء
مشاهدة مشاركة منفردة [6]
مهند محسن
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-03-2018
رقم العضوية : 5025
المشاركات : 354
الجنس : ذكر
تاريخ الميلاد : 19-3-1990
يتابعهم : 0
يتابعونه : 7
قوة السمعة : 473
الاعجاب : 10
 offline 
look/images/icons/i1.gif ضبط كود التعديل والبحث بالفورم
نعم اخى الكريم ريتاج فكان لدى هذا الملف من اكثر من 6 أشهر وكنت اعمل ايضا عليه 
فقد تم الحصول عليه من قبل على هذا الرابط من شهر ديسمبر 2018 كما ترى
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب


تم تحرير المشاركة بواسطة :مهند محسن
بتاريخ:15-08-2019 12:50 مساء






15-08-2019 12:40 مساء
مشاهدة مشاركة منفردة [7]
ريتاج المدينة
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 16-07-2018
رقم العضوية : 7205
المشاركات : 33
الجنس : ذكر
تاريخ الميلاد : 13-1-1972
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 21
الاعجاب : 1
 offline 
look/images/icons/i1.gif ضبط كود التعديل والبحث بالفورم
يا رجل سامحني 
لسا التعديلات عاملها جديد وبعثتها لمنتدى اخر لاحظت انه لا يستطيع  عمل اي شيء  خارج قدرته 
والبيانات ايضا انا مدخلها 
والتعديلات على الفورم ايضا جديدة 
على كل حال شكرا جزيلا ومسامحك 
واذا توصلت الى حال ياريت تزودني فيه 


تم تحرير المشاركة بواسطة :ريتاج المدينة
بتاريخ:15-08-2019 12:42 مساء






15-08-2019 04:40 مساء
مشاهدة مشاركة منفردة [8]
مهند محسن
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-03-2018
رقم العضوية : 5025
المشاركات : 354
الجنس : ذكر
تاريخ الميلاد : 19-3-1990
يتابعهم : 0
يتابعونه : 7
قوة السمعة : 473
الاعجاب : 10
 offline 
look/images/icons/i1.gif ضبط كود التعديل والبحث بالفورم
للرفع من فضلكم


تم تحرير المشاركة بواسطة :مهند محسن
بتاريخ:15-08-2019 07:35 مساء






16-08-2019 04:03 صباحا
مشاهدة مشاركة منفردة [9]
محمود ابو الدهب
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1071
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 58
يتابعهم : 6
يتابعونه : 208
قوة السمعة : 3555
الاعجاب : 231
موقعي : زيارة موقعي
 Online 
look/images/icons/i1.gif ضبط كود التعديل والبحث بالفورم
اعتقد بعد النقاش الى دار بين استاذ مهند وريتاج تذكرت القليل من هذا الموضوع
وكان تم السؤل من قبل على هذا الفورم ازاى نرحل وازاى نعدل واعتقد انه من فترة قد تصل الى سنة
قلت بالنص الكود الحالى طويل جدا سواء في الترحيل او التعديل وعرضة على الى طلب كود جديد للترحيل من عشر سطور مش 100 صف كالموجود حاليا
وعلى العموم تم التعديل لانى ذكرة انى هعدل ولكن التعديل تم على الاكواد الحالية 

وانا افضل انكم ترجعوا الى الاكواد الى كنت وضعها سعتها في الموضوع ده بس مش متذكر فين وامته انتوا الى سألتوا فالمفروض معالكم كامل الداتا

ضع الكود التالى في زر التعديل
Dim TotalRows    As Long
Dim i            As Long
Dim col          As Long
Dim nmp          As Integer
Dim Sh           As Worksheet
nmp = 5
Set Sh = Sheet3
If TextBox1.Text = "" Then
   MsgBox ("الرجاء ادخال رقم الفاتورة")
   Exit Sub
ElseIf TextBox2.Text = "" Then
   MsgBox ("الرجاء كتابة التاريخ")
   Exit Sub
ElseIf ComboBox1.Text = "" Then
   MsgBox ("الرجاء اختيار نوع الرحلة")
   Exit Sub
ElseIf TextBox3.Text = "" Then
   MsgBox (" الرجاء ادخال اسم المشرف ")
   Exit Sub
ElseIf TextBox5.Text = "" Then
   MsgBox ("الرجاء ادخال اسم المندوب")
   Exit Sub
End If
With Sh
TotalRows = .Cells(Rows.Count, "B").End(xlUp).Row
If TotalRows < 3 Then
TotalRows = 3
Else
TotalRows = TotalRows
End If
For i = 3 To TotalRows
  If .Cells(i, 2) = Val(Me.TextBox1.Value) And .Cells(i, 9) = Me.ComboBox3.Text Then
        .Cells(i, 2) = Me.TextBox1.Value
        .Cells(i, 3) = Me.TextBox2.Value
        .Cells(i, 4) = Me.ComboBox1.Value
        .Cells(i, 5) = Me.ComboBox2.Value
        .Cells(i, 6) = Me.TextBox3.Value
        .Cells(i, 7) = Me.TextBox4.Value
        .Cells(i, 8) = Me.TextBox5.Value
        .Cells(i, 9) = Me.ComboBox3.Value
        .Cells(i, 10) = Me.TextBox6.Value
        .Cells(i, 11) = Me.TextBox7.Value
        .Cells(i, 12) = Me.TextBox8.Value
        .Cells(i, 13) = Me.TextBox9.Value
        .Cells(i, 14) = Me.TextBox51.Value
  ElseIf .Cells(i, 2) = Val(Me.TextBox1.Value) And .Cells(i, 9) = Me.ComboBox4.Text Then
        .Cells(i, 2) = Me.TextBox1.Value
        .Cells(i, 3) = Me.TextBox2.Value
        .Cells(i, 4) = Me.ComboBox1.Value
        .Cells(i, 5) = Me.ComboBox2.Value
        .Cells(i, 6) = Me.TextBox3.Value
        .Cells(i, 7) = Me.TextBox4.Value
        .Cells(i, 8) = Me.TextBox5.Value
        .Cells(i, 9) = Me.ComboBox4.Value
        .Cells(i, 10) = Me.TextBox10.Value
        .Cells(i, 11) = Me.TextBox11.Value
        .Cells(i, 12) = Me.TextBox12.Value
        .Cells(i, 13) = Me.TextBox13.Value
  ElseIf .Cells(i, 2) = Val(Me.TextBox1.Value) And .Cells(i, 9) = Me.ComboBox5.Text Then
        .Cells(i, 2) = Me.TextBox1.Value
        .Cells(i, 3) = Me.TextBox2.Value
        .Cells(i, 4) = Me.ComboBox1.Value
        .Cells(i, 5) = Me.ComboBox2.Value
        .Cells(i, 6) = Me.TextBox3.Value
        .Cells(i, 7) = Me.TextBox4.Value
        .Cells(i, 8) = Me.TextBox5.Value
        .Cells(i, 9) = Me.ComboBox5.Value
        .Cells(i, 10) = Me.TextBox14.Value
        .Cells(i, 11) = Me.TextBox15.Value
        .Cells(i, 12) = Me.TextBox16.Value
        .Cells(i, 13) = Me.TextBox17.Value
  ElseIf .Cells(i, 2) = Val(Me.TextBox1.Value) And .Cells(i, 9) = Me.ComboBox6.Text Then
        .Cells(i, 2) = Me.TextBox1.Value
        .Cells(i, 3) = Me.TextBox2.Value
        .Cells(i, 4) = Me.ComboBox1.Value
        .Cells(i, 5) = Me.ComboBox2.Value
        .Cells(i, 6) = Me.TextBox3.Value
        .Cells(i, 7) = Me.TextBox4.Value
        .Cells(i, 8) = Me.TextBox5.Value
        .Cells(i, 9) = Me.ComboBox6.Value
        .Cells(i, 10) = Me.TextBox18.Value
        .Cells(i, 11) = Me.TextBox19.Value
        .Cells(i, 12) = Me.TextBox20.Value
        .Cells(i, 13) = Me.TextBox21.Value
  ElseIf .Cells(i, 2) = Val(Me.TextBox1.Value) And .Cells(i, 9) = Me.ComboBox7.Text Then
        .Cells(i, 2) = Me.TextBox1.Value
        .Cells(i, 3) = Me.TextBox2.Value
        .Cells(i, 4) = Me.ComboBox1.Value
        .Cells(i, 5) = Me.ComboBox2.Value
        .Cells(i, 6) = Me.TextBox3.Value
        .Cells(i, 7) = Me.TextBox4.Value
        .Cells(i, 8) = Me.TextBox5.Value
        .Cells(i, 9) = Me.ComboBox7.Value
        .Cells(i, 10) = Me.TextBox22.Value
        .Cells(i, 11) = Me.TextBox23.Value
        .Cells(i, 12) = Me.TextBox24.Value
        .Cells(i, 13) = Me.TextBox25.Value
  ElseIf .Cells(i, 2) = Val(Me.TextBox1.Value) And .Cells(i, 9) = Me.ComboBox8.Text Then
        .Cells(i, 2) = Me.TextBox1.Value
        .Cells(i, 3) = Me.TextBox2.Value
        .Cells(i, 4) = Me.ComboBox1.Value
        .Cells(i, 5) = Me.ComboBox2.Value
        .Cells(i, 6) = Me.TextBox3.Value
        .Cells(i, 7) = Me.TextBox4.Value
        .Cells(i, 8) = Me.TextBox5.Value
        .Cells(i, 9) = Me.ComboBox8.Value
        .Cells(i, 10) = Me.TextBox26.Value
        .Cells(i, 11) = Me.TextBox27.Value
        .Cells(i, 12) = Me.TextBox28.Value
        .Cells(i, 13) = Me.TextBox29.Value
  ElseIf .Cells(i, 2) = Val(Me.TextBox1.Value) And .Cells(i, 9) = Me.ComboBox9.Text Then
        .Cells(i, 2) = Me.TextBox1.Value
        .Cells(i, 3) = Me.TextBox2.Value
        .Cells(i, 4) = Me.ComboBox1.Value
        .Cells(i, 5) = Me.ComboBox2.Value
        .Cells(i, 6) = Me.TextBox3.Value
        .Cells(i, 7) = Me.TextBox4.Value
        .Cells(i, 8) = Me.TextBox5.Value
        .Cells(i, 9) = Me.ComboBox9.Value
        .Cells(i, 10) = Me.TextBox30.Value
        .Cells(i, 11) = Me.TextBox31.Value
        .Cells(i, 12) = Me.TextBox32.Value
        .Cells(i, 13) = Me.TextBox33.Value
  ElseIf .Cells(i, 2) = Val(Me.TextBox1.Value) And .Cells(i, 9) = Me.ComboBox10.Text Then
        .Cells(i, 2) = Me.TextBox1.Value
        .Cells(i, 3) = Me.TextBox2.Value
        .Cells(i, 4) = Me.ComboBox1.Value
        .Cells(i, 5) = Me.ComboBox2.Value
        .Cells(i, 6) = Me.TextBox3.Value
        .Cells(i, 7) = Me.TextBox4.Value
        .Cells(i, 8) = Me.TextBox5.Value
        .Cells(i, 9) = Me.ComboBox10.Value
        .Cells(i, 10) = Me.TextBox34.Value
        .Cells(i, 11) = Me.TextBox35.Value
        .Cells(i, 12) = Me.TextBox36.Value
        .Cells(i, 13) = Me.TextBox37.Value
  ElseIf .Cells(i, 2) = Val(Me.TextBox1.Value) And .Cells(i, 9) = Me.ComboBox11.Text Then
        .Cells(i, 2) = Me.TextBox1.Value
        .Cells(i, 3) = Me.TextBox2.Value
        .Cells(i, 4) = Me.ComboBox1.Value
        .Cells(i, 5) = Me.ComboBox2.Value
        .Cells(i, 6) = Me.TextBox3.Value
        .Cells(i, 7) = Me.TextBox4.Value
        .Cells(i, 8) = Me.TextBox5.Value
        .Cells(i, 9) = Me.ComboBox11.Value
        .Cells(i, 10) = Me.TextBox38.Value
        .Cells(i, 11) = Me.TextBox39.Value
        .Cells(i, 12) = Me.TextBox40.Value
        .Cells(i, 13) = Me.TextBox41.Value
  ElseIf .Cells(i, 2) = Val(Me.TextBox1.Value) And .Cells(i, 9) = Me.ComboBox12.Text Then
        .Cells(i, 2) = Me.TextBox1.Value
        .Cells(i, 3) = Me.TextBox2.Value
        .Cells(i, 4) = Me.ComboBox1.Value
        .Cells(i, 5) = Me.ComboBox2.Value
        .Cells(i, 6) = Me.TextBox3.Value
        .Cells(i, 7) = Me.TextBox4.Value
        .Cells(i, 8) = Me.TextBox5.Value
        .Cells(i, 9) = Me.ComboBox12.Value
        .Cells(i, 10) = Me.TextBox42.Value
        .Cells(i, 11) = Me.TextBox43.Value
        .Cells(i, 12) = Me.TextBox44.Value
        .Cells(i, 13) = Me.TextBox45.Value
  ElseIf .Cells(i, 2) = Val(Me.TextBox1.Value) And .Cells(i, 9) = Me.ComboBox13.Text Then
        .Cells(i, 2) = Me.TextBox1.Value
        .Cells(i, 3) = Me.TextBox2.Value
        .Cells(i, 4) = Me.ComboBox1.Value
        .Cells(i, 5) = Me.ComboBox2.Value
        .Cells(i, 6) = Me.TextBox3.Value
        .Cells(i, 7) = Me.TextBox4.Value
        .Cells(i, 8) = Me.TextBox5.Value
        .Cells(i, 9) = Me.ComboBox13.Value
        .Cells(i, 10) = Me.TextBox46.Value
        .Cells(i, 11) = Me.TextBox47.Value
        .Cells(i, 12) = Me.TextBox48.Value
        .Cells(i, 13) = Me.TextBox49.Value
 End If
Next i
End With

MsgBox "تم التعديل بنجاح"


جربه لم يسعفنى الوقت للتجربه
 

أثارت هذه المشاركة إعجاب: مهند محسن،


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

تحياتى وتقدير للجميع  محمود ابوالدهب


16-08-2019 04:24 صباحا
مشاهدة مشاركة منفردة [10]
محمود ابو الدهب
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1071
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 58
يتابعهم : 6
يتابعونه : 208
قوة السمعة : 3555
الاعجاب : 231
موقعي : زيارة موقعي
 Online 
look/images/icons/i1.gif ضبط كود التعديل والبحث بالفورم
وبالنهاية شكلكم انتم الاثنين تعملوا في شركات سفريات لو ظهر قدامك عقد عمل ليا متبخلوش عليا بيه بقه اوك smile 
تحياتى وتقديرى للجميع

أثارت هذه المشاركة إعجاب: مهند محسن،


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

تحياتى وتقدير للجميع  محمود ابوالدهب


16-08-2019 11:47 صباحا
مشاهدة مشاركة منفردة [11]
مهند محسن
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-03-2018
رقم العضوية : 5025
المشاركات : 354
الجنس : ذكر
تاريخ الميلاد : 19-3-1990
يتابعهم : 0
يتابعونه : 7
قوة السمعة : 473
الاعجاب : 10
 offline 
look/images/icons/i1.gif ضبط كود التعديل والبحث بالفورم
بارك الله فيك وزادك الله من فضله
سوف اجربه واخبر حضرتك بالنتيجة ان شاء الله قريبا
تم التجربة استاذى الكريم ولكن لا يقوم الكود بالتغيير وعند تعديل اى بيانات ثم الضغط على تعديل لا تتغيير البيانات التى تم تعديلها وتبقى كما هى دون تغيير
اتمنى ان يكون هناك حل فى هذا الكود من فضلك استاذى الكريم


تم تحرير المشاركة بواسطة :مهند محسن
بتاريخ:16-08-2019 12:48 مساء






16-08-2019 01:22 مساء
مشاهدة مشاركة منفردة [12]
محمود ابو الدهب
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1071
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 58
يتابعهم : 6
يتابعونه : 208
قوة السمعة : 3555
الاعجاب : 231
موقعي : زيارة موقعي
 Online 
look/images/icons/i1.gif ضبط كود التعديل والبحث بالفورم
الكود يعتمد على عاميلين لتعديل البيانات لازم تكون عارفهم الاول رقم الفاتورة 
الثانى البيانات في الكمبوبوكس من 3 الى 13 
بمعنى اى تغير في الاتنين دول لن تعدل البيانات وبعد التجربه معى عدل تمام  
لو حابب تعدل البيانات حتى في الكمبو يجب ان يكون هناك شي ثابت اخر فما تريد تثبيته ما هو ؟
 

أثارت هذه المشاركة إعجاب: مهند محسن،


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

تحياتى وتقدير للجميع  محمود ابوالدهب



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
المساعدة في التعديل على كود انشاء مجلد ووضع ملف الاكسل بداخله محمد الحضرمي
10 296 محمد الحضرمي
اريد التعديل علي كود حفظ الفاتورة waleedmor
1 235 waleedmor
التعديل على كود الفلترة و الترحيل ayoub2007
0 153 ayoub2007
تعديل على كود البحث والتعديل Khairi
0 183 Khairi
التعديل على شيت توزيع ومراقبة الاقساط - الاستاذ حسام خطاب mrgan
15 1739 accssalah

الكلمات الدلالية
والبحث ، بالفورم ، التعديل ،


 







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



الساعة الآن 02:06 صباحا

أعلن هنا
أعلن هنا
أعلن هنا