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

طيب عزيزي اهلا بك يا طيب..

لدي استفسار وارجو الا يكون فيه ثقل عليك..

هل ارقام الفروع مخزنة في قاعدة البيانات..

اذا كان كذلك..لهناك طريقة افضل من كتابتها..بل اختيارها مباشرة من قائمة منسدلة (كمبوبكس) وتعبئة الحقول الاخرى مباشرة بالكود وفي كلتا الحالتين المسألة سهلة..

وصدقني تكون اسهل واسهل بمجرد ارفاقك للملف المراد تعديله..

همام

اخي الغالي ابوهمام

ارقام الفروع مخزنة

عن طريق قاعدة البيانات

ولكن ما اريد بمجرد اختيار رقم الحقل او ادخاله

تظهر بشكل تلقائي اسم الفرع ومنطقته

ولك جزيل الشكر

ملاحظة : انا شخص مبندئ في البرمجة

بعد إذنك خبيرنا الغالي همام

أخي المشاعر

بما أنك لم ترفق مثال فقد أضطريتني لعمل مثال (( الله يسامحك ))

الطريقة كما يلي :

1. عملنا جدول وسمينها ( Tbl1 ) وأضفنا له الحقول التالية :( Code _ رمز الفرع ) (Branch _ اسم الفرع ) ( Region _ اسم المنطقة )
   
2. عملنا مربع تحرير وسرد وعن طريق المعالج أخترنا الجدول الذي أنشئناه ثم أخترنا كل الحقول.
   
3. من خصائص مربع النص خاصية الكل ـــ> خاصية عرض الأعمدة جعلنا عمود الرمز = 2 والفرع والمنطقة = 0 لأننا لا نريد ظهورهما في مربع التحرير والسرد.
   
4. أنشأنا مربعي نص الأول باسم ( TxtBranch ) لإظهار اسم الفرع فيه والثاني بأسم ( TxtRegion ) لإظهار المنطقة فيه .
   
5. في حدث عند التغيير لمربع التحرير والسرد كتبنا الكود التالي :
   

	If Me.cbo1.Text <> "" Then
		Me.TxtBranch = Me.cbo1.Column(1)
		Me.TxtRegion = Me.cbo1.Column(2)
	Else
		Me.TxtBranch = ""
		Me.TxtRegion = ""
	End If

شرح الكود :

السطر1

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

السطر 2

ضع قيمة العمود الأول المقابلة للرقم المختار من مربع التحرير وهي اسم الفرع في مربع النص ( أعمدة مربع التحرير والسرد تبدأ بالصفر أي أن أول عمود يأخذ القيمة صفر )

السطر 3

وضع قيمة العمود الثاني المقابلة للرقم المختار من مربع التحرير وهي اسم المنطقة في مربع النص الخاص باسم المنطقة.

إذا كان مربع النص الخاص بمربع التحرير والسرد فارغاً نمسح قيمتي مربعي النص الخاصين باسم الفرع والمنطقة.

المثال مرفق

Test1.rar

اخي الغالي

ابوساره

يعطيك العافيه

واشكر الجميع علي المرور والتفاعل

واسال الله ان يكون ذلك في موازين اعمالكم

تقبلوا مني كل الاحترام والتقدير

بارك الله فيك وجزاك الله خير مشرفنا القدير مصلح

الله يعطيك العافيه

عفوا أخ مصلح ممكن بعد إذنك وأيضاً في نفس الوقت جميع الشباب الموجودين في المنتدى لمن لديه المعلومه :

حاولت إضافة عمود مثلاً لمدير الفرع مثلاً وأطلقت عليه ( name )

وإضفت مربع نص وتحرير ونسخت المعلومات الموجودة داخل الفرع مع تغيير ( name )

لكن ماشتغلت معي وتطلع رساله خطأ بعد إذنك ممكن تقللي فين الخطأ وهذا هو الملف بعد التغيير

Test2.rar

عزيزي اسماعيل..

المشكلة في الكود التالي:

rivate Sub cbo1_Change()

	If Me.cbo1.Text <> "" Then
		Me.TxtBranch = Me.cbo1.Column(1)
		Me.TxtRegion = Me.cbo1.Column(2)
		Me.Txtname = Me.cbo1.Column(3)
	Else
		Me.TxtBranch = ""
		Me.TxtRegion = ""
		 Me.Txtname = ""
	End If

End Sub

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

الملف بعد التعديل

Test2_up.rar

نعم هكذا روح الفريق يا عيني عليكم

اخي الكريم مصلح دائما سبّاق في التميز..

بارك الله فيك وعذرا على التأخير..

همام

حيث ان "Txtname" عنصر تحكم غير موجود ولهاذا تعطيك الفيجوال بيسك خطا هذا كلام الأخ / همام أبو عرقوب

شكراً لكم جميعاً وشكراً للأخت زهرة لكن لم أفهم مكان الخطأ وعندما قمت بفتح ملف الأخت زهرة اشتغلت ولكن لم اجد التغيير فأين مكان التغيير ؟

الخطأ لأنك وضعت في الكود Txtname وأنت تريد التعامل مع مربع التحرير والسرد بينما اسمه على النموذج ( مربع_تحرير_وسرد6 ) فعندما يقوم فيجول بيسك بالبحث عن مربع النص الذي كتبته في الكود المسمى Txtname لم يجده على النموذج فهنا ظهر الخطأ بينما قامت الأخت زهره بمعالجت المشكلة حيث وضعت مربع نص على النموذج باسم Txtname

هذه كل المشكلة