الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

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

بدأه banciana في 26 مارس 2012 · 10 رد · 598 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

الاخوه اعضاء ومشرفى المنتدى الكرام

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

ثانيا ارجوا المشورة والنصائح من الاخوه الاعضاء

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

فهل هذا القرار صائب ام صعب المنال .... ؟ ارجوا النصيحة اخوتى فى الله

ثالثا .. فى المرفق التالى هو اول محاول عملية لما تعلمتة من المواضيع المختلفة بالمنتدى ( ارجوا من الاعضاء الاطلاع )

رابعا

ارجوا ربط كمبو 1 ( يعرض Company_name من جدول campany ) مع تكست 8 ( كود الشركة ) والعكس بحيث يمكن ادخال كود الشركة من تكست 8 ليظهر اسم الشركة فى الكمبو

اسف على الاطالة

تقبلو تحياتى

1.rar

#2

السلام عليكم

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

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

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

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

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

#3

إذا كنت تريد عرض اسم الشركة في الكومبو عند تغيير محتوى 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

It does not matter what they know about you, but what you can do, so let your work speak of you

mmghv VB6 Programmer

#4

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

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

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

تقبل تحياتى

#5

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

It does not matter what they know about you, but what you can do, so let your work speak of you

mmghv VB6 Programmer

#6

نعم استاذى

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

#7
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
حتى عند اول مرة تشغل فيها البرنامج ينفذ الاجراء الموجود في Text8_Change وببتالي بيعرض اسم في الكمبو

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

1.rar

وما من كاتب إلا سيفنى *** ويبقى الدهر ماكتبت يــداه

فلا تكتب بكفك غير شيء *** يسرك في القيامة ان تراه

لا تنسى تشجيعي بالنقر على

add.png اذا كانت مشاركتي مفيدة
#8

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

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

بالتوفيق ..

It does not matter what they know about you, but what you can do, so let your work speak of you

mmghv VB6 Programmer

#9

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

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

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

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

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

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

#10

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

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

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

1

وما من كاتب إلا سيفنى *** ويبقى الدهر ماكتبت يــداه

فلا تكتب بكفك غير شيء *** يسرك في القيامة ان تراه

لا تنسى تشجيعي بالنقر على

add.png اذا كانت مشاركتي مفيدة
#11
اقتباس
الله ينور على الجميع وإن شاء الله الكل يستفيد من هذا المنتدى

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

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

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

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

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

1

It does not matter what they know about you, but what you can do, so let your work speak of you

mmghv VB6 Programmer

مواضيع مشابهة