ارجو مساعدتي في(ربط الcombo بالاكسس ) ضروري

أحتي يتم الربط عادي جداً ولكن في أداة Combo إختاري خاصية List وأضيف نوع الإجازات التي تريدين

أو من خلال الكود في حدث Form_Load

Private Sub Form_Load()
Combo1.Text = "إجازة إعتيادية"
Combo1.AddItem ("إجازة إعتيادي")
Combo1.AddItem ("إجازة إضطرارية")
Combo1.AddItem ("إجازة مرضية")
End Sub

أتمنى أني أفتدك :happy:

حسناً , إذا كانت هذه الإختيارات ثابتة وغير قابلة للتغيير او الإضافة فيمكنك عمل التالي:

اولاً في الكومبو في وقت التصميم من خلال خاصية الـ List تقوم بإضافة الإختيارات التي تريد

ولربط الكومبو بالداتابيز يصبح لديك خيارين:

الاول:

ان تتعامل مع الكومبو في الربط كأنه TextBox عادي جداً, اي تقوم بتحميل البيانات من الداتابيز اليه او حفظ البيانات الى الداتابيز كما تفعل مع ااـ TextBox بالضبط بإستخدام الخاصية Text للكومبو مثل:

Combo1.Text=rs.Field("MyField")

وفي هذه الحالة ستجعل نوع الحقل نص وتضبط الخاصية Style للكومبو على 0-Dropdown Combo هذا حتى لا يحدث أخطاء عند جلب البيانات من الداتابيز, فإذا كان الحقل فارغ سيقوم بتفريغ نص الكومبو

الطريقة الثانية:

ان تجعل نوع الحقل رقم وان تقوم بربط الحقل برقم الخيار ListIndex في الكومبو بوكس, إي إذا كان الخيار الاول تكون قيمة الحقل 0 وإذا كان الخيار الثاني تكون قيمة الحقل 1 وهكذا , ويتم إستدعاء البيانات من الداتابيز الى الكومبو كالمثال:

Combo1.ListIndex=Val(rs.Fileds("MyField"))

وفي هذه الحالة تقوم بضبط الخاصية Style للكومبو على 2-Dropdown List حتى لا تسمح إلا بتحديد واحد من الاختيارات في الكومبو

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

لي ملاحظة واحدة:

حاول ان تستخدم اسماء انجليزية لكائنات الداتابيز من اسماء الجداول والحقول حتى يسهل التعامل معها من خلال الكود في الفيجوال بيسك ..

bahbah كتب:

أحتي يتم الربط عادي جداً ولكن في أداة Combo إختاري خاصية List وأضيف نوع الإجازات التي تريدين

أو من خلال الكود في حدث Form_Load

Private Sub Form_Load()
Combo1.Text = "إجازة إعتيادية"
Combo1.AddItem ("إجازة إعتيادي")
Combo1.AddItem ("إجازة إضطرارية")
Combo1.AddItem ("إجازة مرضية")
End Sub

أتمنى أني أفتدك :happy:

مشكوووووووووووووووووووووووووووووور اخي الغالي..... ولك مني جزيل الشكر والعرفان....

وجاري العمل على هذا....

محمد غريب كتب:

حسناً , إذا كانت هذه الإختيارات ثابتة وغير قابلة للتغيير او الإضافة فيمكنك عمل التالي:

اولاً في الكومبو في وقت التصميم من خلال خاصية الـ List تقوم بإضافة الإختيارات التي تريد

ولربط الكومبو بالداتابيز يصبح لديك خيارين:

الاول:

ان تتعامل مع الكومبو في الربط كأنه TextBox عادي جداً, اي تقوم بتحميل البيانات من الداتابيز اليه او حفظ البيانات الى الداتابيز كما تفعل مع ااـ TextBox بالضبط بإستخدام الخاصية Text للكومبو مثل:

Combo1.Text=rs.Field("MyField")

وفي هذه الحالة ستجعل نوع الحقل نص وتضبط الخاصية Style للكومبو على 0-Dropdown Combo هذا حتى لا يحدث أخطاء عند جلب البيانات من الداتابيز, فإذا كان الحقل فارغ سيقوم بتفريغ نص الكومبو

الطريقة الثانية:

ان تجعل نوع الحقل رقم وان تقوم بربط الحقل برقم الخيار ListIndex في الكومبو بوكس, إي إذا كان الخيار الاول تكون قيمة الحقل 0 وإذا كان الخيار الثاني تكون قيمة الحقل 1 وهكذا , ويتم إستدعاء البيانات من الداتابيز الى الكومبو كالمثال:

Combo1.ListIndex=Val(rs.Fileds("MyField"))

وفي هذه الحالة تقوم بضبط الخاصية Style للكومبو على 2-Dropdown List حتى لا تسمح إلا بتحديد واحد من الاختيارات في الكومبو

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

لي ملاحظة واحدة:

حاول ان تستخدم اسماء انجليزية لكائنات الداتابيز من اسماء الجداول والحقول حتى يسهل التعامل معها من خلال الكود في الفيجوال بيسك ..

جزاااااااااااااااك رب السموات الجنة.....

وانا فعلا عاجز عن الشكر..... ولو اني مبتدئ في هذا بس بحاول اعمل كل شي انت قلته.....

شرح + مثال عملى