المساعدة في فورم ادخال وبحث وتعديل

[أبو أنس حاجب]

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

عيد مبارك وكل عام وأنتم في خير وصحة وعافية.

أرجو المساعدة في فورم إدخال بيانات بإضافة أزرار داخل الفورم للبحث والتعديل حسب عمود وليكن عمود D.

أبوأنس

Copy__2__of_Orders.rar

[عبدالله باقشير]

السلام عليكم

انظر الى المرفق

ان شاء الله يكون المراد

اخوكم خبور خير

Copy__2__of_Orders.rar

[أبو أنس حاجب]

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

أستاذي وسيدى الفاضل/ خبور حفظك الله من كل الشرور.

اعلم مدى الجهد المبذول في هذا الملف جزاك الله خير الجزاء.

هناك مشكلة حيوية في الملف أحب أن تحل من ثم نضيف اللمسات الاخرى حسب ماتسمح به الظروف وهي:

عند إضافة بيان جديد وليس مكتملاً لكل الخلايا تتأثر خلايا المعادلات بالسلب لهذه الأضافة وإن كانت الخلايا فارغة.

أرجو التجربة باضافة بيان جزئي ثم مراقبة ما يحدث لأعمدة الدوال S و Z لنفس السطر المضاف.

أبوأنس

[عبدالله باقشير]

السلام عليكم

اخي ضيف في الكود بجنب التيكس بوكس كلمة قيمة

هكذا TextBox1.Value

Private Sub CommandButton4_Click()
Dim Response
Response = MsgBox(":لقد قمت بالتعديل  " & "فهل تود الإستمرار؟", vbYesNo + vbQuestion, "تأكيد التعديل")
If Response = vbYes Then
For T = 2 To Columns(1).Rows(65536).End(xlUp).Row
If Cells(T, 4) = ComboBox1.Text Then
With Cells(T - 1, 1)
            .Offset(1, 0) = TextBox1.Value
            .Offset(1, 1) = TextBox2.Value
            .Offset(1, 2) = TextBox3.Value
            .Offset(1, 3) = TextBox4.Value
            .Offset(1, 4) = TextBox5.Value
            .Offset(1, 5) = TextBox6.Value
            .Offset(1, 6) = TextBox7.Value
            .Offset(1, 7) = TextBox8.Value
            .Offset(1, 8) = TextBox9.Value
            .Offset(1, 9) = TextBox10.Value
            .Offset(1, 10) = TextBox11.Value
            .Offset(1, 11) = TextBox12.Value
            .Offset(1, 12) = TextBox13.Value
            .Offset(1, 13) = TextBox14.Value
            .Offset(1, 14) = TextBox15.Value
            .Offset(1, 15) = TextBox16.Value
            .Offset(1, 16) = TextBox17.Value
            .Offset(1, 17) = TextBox18.Value
            .Offset(1, 19) = TextBox19.Value
            .Offset(1, 20) = TextBox20.Value
            .Offset(1, 21) = TextBox21.Value
            .Offset(1, 22) = TextBox22.Value
            .Offset(1, 23) = TextBox23.Value
            .Offset(1, 24) = TextBox24.Value
            .Offset(1, 26) = TextBox25.Value
            .Offset(1, 28) = TextBox26.Value
            .Offset(1, 29) = TextBox27.Value
            .Offset(1, 30) = TextBox28.Value
      End With
      End If
         Next
      End
      MsgBox "تمت إضافة جميع البيانات بنجاح", vbInformation, "تمت الإضافة"
      End If
End Sub

الجميع حق الااضافة والتعديل

وستنتهي المشكلة

[أبو أنس حاجب]

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

أستاذي الفاضل اشكرك وجزيت خيراً.

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

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

أبوأنس