[atefkhalf2004]

عند اضافة الحقل
يظهر علي انه نص وليس نعم لا
alter table edary  ADD  column aaaa yesno
بحثت  ولقيت
لكن هناك خطا في الجملة

alter table edary  ADD  column aaaa yesno  DisplayControl CheckBox
برجاء حل مشكلتي

[atefkhalf2004]

up
up
please

[alfaiz678]

لو تضع الكود الذي فيه الخطأ
اعني كود الاضافة

[atefkhalf2004]

الكود في الموضوع مشاركة رقم 1 وبه الخطا.  شكرا

[حريف برمجة]

القي نظره هنا :

https://stackoverflow.com/questions/5177...able-query

https://stackoverflow.com/questions/2755...ble-in-vba

https://stackoverflow.com/questions/3881...-sql-query

[atefkhalf2004]

شكرا
لكن
هو يضيف الحقل ولكن يظهر علي انه نص
بعد ذلك
يدويا
تفتح القاعدة وتغير الشكل من نص الي checkbox

---

كيف ذلك برمجيا

[atefkhalf2004]

من فضلكم
اين عباقرة المدرسة

[elgokr]

مرحباً اخى atefkhalf2004

بخصوص بتحويل عمود aaa من من رقم 0/1 الى خيار yes/no

وعو عن طريق Combo Box كل ما عليك فعله هو 

فتح تصميم الجدول وتقوم بالوقوف على العمود المطلوب aaa

وبالاسفل ستجد قائمة Lookup قم بتنشيطها وطبق كما فى الصورة

لتقوم بتغيير TextBox الى Combo Box

بخصوص YesNo

اى كانت القيمة التى تنتج عن نص او رقم او ما كان الامر

فهو بالاول والاخر عبارة عن 0/1 

فلا يهم طريقة ظهور القيمة بالجدول اذا كان رقم او نص

لان بالنهاية انت من تتعامل معها فى البرمجة فى الفورم من خلال التحقق واستبدال الجمل

وبخصوص الـ lookup ما هو الا اداء يتم التعامل معها يدوياً وليس من خلال الكود

ووظيفتها للتعامل مع قاعدة البيانات قا داتا و مشروع متكامل

حتى يختصر الامر معط فى انشاء الفورم من خلال قاعدة البيانات نفسها او عند اتمام عمل التقارير داخل قاعدة البيانات

وليس للتعامل مع الجدول خارج نطاق قاعدة البيانات مثل Vb.Net

لذلك عندما قلت لا تشغل بالك بطريقة تسجيلا لقيمة اذا كانت 0/1  أو Yes/No أو حتى True/False

لان بالنهاية قاعدة البيانات تقوم بقراءتها فعلياً عبارة عن 0/1 مهما كانت القيمة التى تظهر لك

جرب بنفسك التعديل على اى قيمة خاصة بـ Yes/No لو كانت القيمة No عند الوقوف عليها ستجد تلقائي يتحول الى 0

والعكس اذا كانت القيمة Yes ستجد بمجرد الوقوف عليها ستجد تحول القيمة الى -1 واى انه 1 فكلاهما واحد

لان اى قيمة غير 0 تعنى الموافقة

تحياتى لك

وتمنياتى لك التوفيق

[atefkhalf2004]

شكررا
علاونا كل شئ ينفع بللكود
مرة اخري شكرا لن افقد ابلمل

---

الامل طالما هناك منتي وعباقرة

[elgokr]

بكل تاكيد لكل شئ ولها حل

وكما تقول انه يوجد طريقة من خلال الكود

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

هل ما تريده هو مظهر قاعدة البيانات من حيث المظهر ، ام انك تريد مضمون الفعلى للمطلوب فى البرنامج ؟

قاعدة البيانات ما هى الا مظر فقط

ولا يلزم كل ما يكتب بها هو الزامى بمعنى

انا اريد عمل شاشة تسجل مستخدم فلاتمام ذلك

يجب عليا ان اقوم بعمل جدول تحت اسم users أو ما شبه

فبامكانى ان اجعله باسم ty18577 كمثال

وليس لان محتوى الجدول يعتمد على اسم المستخدم وكلمة المرور 

فيصبح عمود الاسم username و الباسور Password

فمن الممكن ان اجعله ty-p15776 وما شبه من مسمى كمثال

ولا يعنى ان اسم المستخدم كا اسم فاننى مجبر ان اجعل النوع نص

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

قاعدة البيانات فى الاول والاخر هى عائد لك يمكنك تهيئتها لما يناسبك

حتى لا تجعل من يقوم بفتح قاعدة البيانات الفهم لما يتضمن من محتوى

وكي لا يقوم باستخدامها فى اى شئ اخر

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

ليقوم بتنفيذ المطلوب وليقوم بتخذين البيانات بانهاية بقاعدة البيانات

اى كانت طريقة ارسالة القيمة ومحتواها لقاعدة البيانات

وبخصوص الكود الذى تريده

فلاتمام تغيير Display Control اضافة DAO فى References

ومن ثم عمل كود

كود :

Imports dao
Imports dao.DataTypeEnum

وتتعامل مع الاضافة لتغيير Display Control

ليكون الكود على هذا النحو

كود :

   Dim dbe As New dao.DBEngine
   Dim dbs As dao.Database
   Dim fld As dao.Field
   Dim prp As dao.Property

   dbs = dbe.OpenDatabase("YourMDB.mdb")
   fld = dbs.TableDefs("YourTable").Fields("YourField")
   prp = fld.CreateProperty("DisplayControl", dbInteger, 106)
   Try
     fld.Properties.Append(prp)
   Catch ex As Exception
     MsgBox(ex.Message, MsgBoxStyle.Information)
   End Try

اذا كنت تلاحظ فى الكود ستجد انه يقوم بعمل فتح قاعدة البيانات ليقوم بتنفيذ

ما قمت بشرحه مسبقاً عن الطريقة اليدوية لان كما شرحت بالاعلى

ان المضمون النهائي للفكرة ما هو الا مظهر ولا يفيد المظهر داخل VB.NET

تذكر ان الامر لهذا العمود انك بامكانك جعله من نوع رقمي ويكود الحد الاقصة للقيم الترقيم هو احادى

اى الاعداد لا تتجاوز 9 كي يكون الاعداد من 0:9 وكل ما ستقوم به عند ارسال قيمة ان ترسم Yes  بقيمة 1 للعمود الرقمي

وما يخص No ان ترسل قيمتها بـ 0 وان تجعل العمود قيمة اجبارية والقيمة الافتراضية هى 0

اتمنى ان يكون مضمون الشرح وصل لك واستوعبت ما اريد ان يصل لك

تحياتى لك

وتمنياتى لك التوفيق