مساعدة لمبتدأ

السلام عليكم

ايه الاحباط ده يا جماعة ؟

ده اول مشاركة .......... ؟

بداية غير مشجعة على الاستمرار

على العموم شاكر لحسن تعاونكم

تقبلو تحيااتى

إذا كنت تريد عرض اسم الشركة في الكومبو عند تغيير محتوى Text8 فيمكن استخدام الكود التالي في حدث الـ Change للتكست :

Dim TmpRS As New ADODB.Recordset
TmpRS.Open "Select Company_Name From Campany Where Company_ID=" & Val(Text8.Text), DB, adOpenStatic, adLockReadOnly

If TmpRS.RecordCount = 0 Then
	Combo1.Text = ""
Else
	Combo1.Text = IIf(IsNull(TmpRS.Fields(0)), "", TmpRS.Fields(0))
End If

اشكرك استاذى العزيز

واسف على التاخير فى الرد

هل يمكن التطبيق على النموذج المرفق ؟

تقبل تحياتى

هل جربت ان تأخذ الكود Copy وتضعه Paste في حدث الـ Change الخاص بالتكست ؟؟!

نعم استاذى

ولكنى اقصد حشو الكمبو باسم الشركة

banciana كتب:

نعم استاذى

ولكنى اقصد حشو الكمبو باسم الشركة

اذا قصد تعبئة الكمبو باسما الشركات بحيث اذا نقرت على القائمة المنسدلة يعرض اسماء الشركات ضع الكود في حدث load

If RS1.RecordCount > 0 Then
        Do While Not RS1.EOF
            Combo1.AddItem RS1![Company_name]
            Combo1.ItemData(Combo1.ListCount - 1) = RS1![Company_ID]

            RS1.MoveNext
        Loop
    End If
Text8_Change

طبعا المتغير RS1 انت عرفته وربطه بالجدول في حدث load

وضع الكود التالي وهو في حالة اختيار الشركة من الكمبو يقوم بالتعبئة في text8

Private Sub Combo1_Click()
Text8 = Combo1.ItemData(Combo1.ListIndex)
End Sub

والكود التالي العكس اذا اخترت الرقم في text8 يقوم بعرض الاسم في الكمبو

Private Sub Text8_Change()
    Dim n As Integer
    n = Val(Text8)
    For t = 0 To Combo1.ListCount - 1
        If Combo1.ItemData(t) = n Then
            Combo1.Text = Combo1.List(t)
            Exit For
        End If

    Next t
End Sub

واخيرا يمكن لاحظ في الكود الاول في حدث load اني وضعت

اقتباس

Text8_Change

وتم تعديل برنامجك في المرفق

1.rar

الاخ realdie10 ما قصر , جزاه الله خير ..

لكن في المرة القادمة حاول توضيح سؤالك بالكامل اخي الكريم ..

بالتوفيق ..

بسم الله ماشاء الله عليك اخى الكريم ( realdie10)

فعلا هذا هو المطلوب

الله ينور عليك استاذى الكريم

.................................................

الف مليون شكر ليك استاذى الفاضل محمد غريب . واسف لتعبك وعدم توضيح السؤال من جانبى

وشكرا لمنتدى الفريق العربى وجميع الاعضاء الكرام

الله ينور على الجميع وإن شاء الله الكل يستفيد من هذا المنتدى

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

وماشاء الله عليه مايقصر مع الكل

اقتباس

الله ينور على الجميع وإن شاء الله الكل يستفيد من هذا المنتدى

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

وماشاء الله عليه مايقصر مع الكل

اكون سعيد بهذا اخي فأنا اكاد لا اجد احد يتفاعل مع هذا المنتدى

وإن شاء الله الكل يستفيد

بالتوفيق للجميع ..