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

[محمد_عبد_الوهاب]

في الملف المرفق

فورم بحث عند البحث تظهر تكستات بوكس بكل بيانات الصف

آخر تكست خاص ( بالجنسية ) وعند التعديل في اي تكست بوكس يتم التعديل في الخليه فورا

المطلوب

ان يستبدل التكست بوكس والخاص بالجنسية عند الظهور بعد البحث بكمبوبكس يكون فيه خياران ( تم الصرف ، لم يتم الصرف )

كي يمكنني العمل عليه لبرنامجي

Listbox Form5.rar

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

في الملف المرفق

فورم بحث عند البحث تظهر تكستات بوكس بكل بيانات الصف

آخر تكست خاص ( بالجنسية ) وعند التعديل في اي تكست بوكس يتم التعديل في الخليه فورا

المطلوب

ان يستبدل التكست بوكس والخاص بالجنسية عند الظهور بعد البحث بكمبوبكس يكون فيه خياران ( تم الصرف ، لم يتم الصرف )

كي يمكنني العمل عليه لبرنامجي

Listbox Form5.rar

تم التعديل اضافة الاسطر هنا

قارن بين السابق وهذا

Private Sub kh_Add_Controls(MyCont As Control, MyTop As Integer, iRo As Integer, MyCount As Integer)

'On Error Resume Next

Dim MyTxt As Control

Dim MyTyp As String

Dim i As Integer

For i = 1 To MyCount

    If i = MyCount Then MyTyp = "Forms.ComboBox.1" Else MyTyp = "Forms.TextBox.1"

    Set MyTxt = MyCont.Add(MyTyp, Cells(iRo, i).Address, True)

    With MyTxt

        .Move MyCont.Controls(i - 1).Left, MyTop, MyCont.Controls(i - 1).Width, MyHeight

        .AutoTab = True

        If i = MyCount Then

            .List = Array("تم الصرف", "لم يتم الصرف")

        Else

            .MultiLine = True

            .ScrollBars = 3

        End If

        .TextAlign = 3

        .Font.Bold = True

        .Font.Size = 12

        .FontName = "Times New Roman"

        '===========================================

        .ControlSource = "'" & Mysh_Name & "'!" & Range(.Name).Address

        '===========================================

    End With

Next i


'==================

Set MyTxt = Nothing

'==================

'On Error GoTo 0

End Sub

المرفق 2003

Listbox Form5.rar

[محمد_عبد_الوهاب]

السلام عليكم

الاستاذ والعلامة والخبير / عبد الله باقشير - خبور خير

راااااااااااااااائع ... لا اجد شيئاً والله العظيم ارد عليك به الا ان اقول لك

جزاك الله خيرا ... ورحم والديك

الف الف شكر ... استاذنا

[محمد_عبد_الوهاب]

استاذنا الكبير

الاستاذ العلامة / عبد الله باقشير

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

كنت في احد المنتديات الاخري وكان لاخ آخر تقريباً نفس طلبي من فورم سيادتكم الرائع ( الفورم الاصلي ) وقد ارسلته له بالفعل ( تحت رعاية سيادتكم )

ولكنه طلب زيادة عدد التكست بوكس من 5 تكست الي 7 تكست بوكس ليكون البحث في الصف مكون من 7 اعمدة

فتم الرد عليه الانتظار لحين وصول رد سيادتكم اخي الكريم واستاذنا الكبير

الف الف شكر لهذا المنتدي الرااااااااااااااااااااااااااائع

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

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

السلام عليكم

ولكنه طلب زيادة عدد التكست بوكس من 5 تكست الي 7 تكست بوكس ليكون البحث في الصف مكون من 7 اعمدة

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

الموجود داخل الفرمة 5 ليبلات

يضيف 2 بجانب الموجود

تقبل تحياتي وشكري

[محمد_عبد_الوهاب]

الف الف شكر

استاذنا القدير

لا يمكنني ان اقول الا

جزاك الله خيراً .. وجعله في ميزان حسناتك

فلا يوجد ما يوفيك حقك تجاه رواد هذا المنتدي

شكرا جزيلاً