السلام عليكم
اريد المساعدة فى كيفية ادراج عمود فى جدول و يكون العمود ده لعمل التاشير Yes/No
وشكرا
كيفية ادراج عمود فى جدول صح او خطأ
مغلقمُجاب
ضع مرفق حتي تجد المساعده
(اللَّهُمَّ أَنْتَ رَبِّي لا إِلَه إِلاَّ أَنْتَ خَلَقْتَني وأَنَا عَبْدُكَ وأَنَا على عهْدِكَ ووعْدِكَ ما اسْتَطَعْتُ أَعُوذُ بِكَ مِنْ شَرِّ ما صنَعْتُ أَبوءُ لَكَ بِنِعْمتِكَ علَيَ وأَبُوءُ بذَنْبي فَاغْفِرْ لي فَإِنَّهُ لا يغْفِرُ الذُّنُوبِ إِلاَّ أَنْتَ)
اذا كانت المشاركة مفيدة لك فلا تبخل علينا بالتقييم
ده مثال للأستاذة زهرة يتم كان يتم فيه اعادة ترقيم بس انا اردت التعديل فيه لعمل ارجاع للداتا في العمود فى ال vip و الذى هو عبارة yes/ no
مثال الاصلى للاستاذة زهرة يعتمد على اسقاط العمود بالكامل و عمل عمود اخر بنفس الاسم و عندما حاولت اعمل بس بال yes/no لم يستجب اسقط العمود و لم ينشئ عمود آخر و هو المطلوب حل مشكلته
وشكرا
تم تعديل هذه المشاركة بواسطة ashrafcardio في 24 يوليو 2013 في 16:33
تفضل اخي الكريم
سيتم حذف حقل vip الذي بصيغة YesNo من الجدول
وسيتم اضافة الحقل ايضا vip بصيغة YesNo على شكل CheckBox
بالتوفيق
الف الف شكر للأستاذة زهرة
على الاستجابة السريعة
ممكن سؤال استاذة زهرة
لما بنقل الكود لبرنامج اخر مع تغيير اسم الجدول و اسم العمود لا يشتغل الكود
و شكرا
ashrafcardio كتب:
ممكن سؤال استاذة زهرة
لما بنقل الكود لبرنامج اخر مع تغيير اسم الجدول و اسم العمود لا يشتغل الكود
و شكرا
اخي الفاضل
عندما تنقل الكود الى برنامج آخر يجب عليك اضافة المراجع والمكتبات المطلوبه كما في البرنامج الذي تم عمله لك سابقا بهذه الطريقة
1. افتح محرر الأكواد
2. اذهب الى القوئم العلوية واختر Tools ثم Refernces
3. ابحث عن المرجع Microsoft ADO Ext 2.8 for DLL and Security وقم بإضافته الى المراجع
وسوف يعمل معك البرنامج
بالتوفيق
شكرا على الرد
نفزت المطلوب و لم تحل المشكلة نفسها لم يحدث اى تغيير
ما الحل
ashrafcardio كتب:
شكرا على الرد
نفزت المطلوب و لم تحل المشكلة نفسها لم يحدث اى تغيير
ما الحل
الحل هو ان تضع البرنامج الذي به المشكلة ليتم حلها لك
بالتوفيق
إدا كان لديك عدة حقول بصيغة YesNo
مثلا
vip1
vip2
vip3
.
.
.
.
vip12
كيف يتم إضافتهم في الكود
Private Sub ReAutoNumber_Click()
On Error Resume Next
Dim tdf As DAO.TableDef
Dim fld As DAO.Field
Dim strSQL1 As String
strSQL1 = "ALTER TABLE [Table1] DROP COLUMN [vip];"
Dim strSQL2 As String
DoCmd.RunSQL strSQL1
Set tdf = DBEngine(0)(0).TableDefs("Table1")
Set fld = tdf.CreateField("vip", dbBoolean)
tdf.Fields.Append fld
fld.Properties.Append fld.CreateProperty("DisplayControl", dbInteger, CInt(acCheckBox))
End Subالْلَّهُم صَلِّ وَبَارِك وَسَلِم عَلَى سَيِّدِنَا مُحَمَّد وَعَلَى الِه وَصَحْبِه وَسَلِّم
اخي الفاضل : اشرف
عندما قمت بأخذ الملف الخاص بالترقيم التلقائي هل قرأت شروط اعادة الترقيم للحقل ام انك قمت بالتحميل بدون ان تقرأ وتطلع على المشاركة
اذا من الشروط اللازمة لحذف حقل من الجدول واعادته كما كان هو ان لا يكون هناك اي نموذج مفتوح يعتمد على هذا الحقل الذي في الجدول
لذا يجب اولا اغلاق النموذج ALL لأن مصدر السجلات للنموذج هو الإستعلام المبني على الجدول الذي به الحقل
ايضا يجب ان يكون نموذج DONE ليس له مصدر سجلات ابدا حتى يتم حذف الحقل DONE من الجدول واعادته مره ثانية كما كان
اتمنى ان لا تأتي وتقول انك تحتاج علامة الصح والحقل Num في النموذج DONE لأنه مرتبط بحقل آخر في النموذج
هذه مشكلتك قم بحلها بنفسك ....
اما مشكلة حذف الحقل DONE واعادته الى الجدول فقد تم حلها لك
ملفك بعد التعديل
بالتوفيق
الف شكر
و انا اسف على تعبكم
و الف الف شكر
كريمو2 كتب:
إدا كان لديك عدة حقول بصيغة YesNo
مثلا
vip1
vip2
vip3
.
.
.
.
vip12
كيف يتم إضافتهم في الكود
Private Sub ReAutoNumber_Click() On Error Resume Next Dim tdf As DAO.TableDef Dim fld As DAO.Field Dim strSQL1 As String strSQL1 = "ALTER TABLE [Table1] DROP COLUMN [vip];" Dim strSQL2 As String DoCmd.RunSQL strSQL1 Set tdf = DBEngine(0)(0).TableDefs("Table1") Set fld = tdf.CreateField("vip", dbBoolean) tdf.Fields.Append fld fld.Properties.Append fld.CreateProperty("DisplayControl", dbInteger, CInt(acCheckBox)) End Sub
ياريت من يساعدنا
الْلَّهُم صَلِّ وَبَارِك وَسَلِم عَلَى سَيِّدِنَا مُحَمَّد وَعَلَى الِه وَصَحْبِه وَسَلِّم
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
الْلَّهُم صَلِّ وَبَارِك وَسَلِم عَلَى سَيِّدِنَا مُحَمَّد وَعَلَى الِه وَصَحْبِه وَسَلِّم
ياترى ماسبب تجاهل مطالبنا ربما احنا لسنا مسلمين او عرب
الْلَّهُم صَلِّ وَبَارِك وَسَلِم عَلَى سَيِّدِنَا مُحَمَّد وَعَلَى الِه وَصَحْبِه وَسَلِّم
هذا الموضوع مغلق.