في مربع التحرير والسرد كيف يمكن إضافة عنصر غير موجود في القائمة ، عندما يكون الالتزام بالقائمة نعم ؟
اضافة عنصر ليس بالقائمة
مغلق
افترض قيم القائمة هي A و B وانت تريد اضافة القيم C ولما كانت قيمة خاصية التحديد بعناصر القائمة هي" نعم " فلا بد من اضافة العنصر الى عناصر القائمة وليس مجرد كتابته في المربع
ويتم ذلك باحدى طريقتين:
1- ان كانت قيمة خاصية نوع مصدر الصف هي جدول / استعلام فلا بد من اضافة العنصر D الى الجدول نفسه واسم الجدول موجود بالخاصية التالية
2- ان كانت قيمة الخاصية هي قائمة القيمة value list فانتقل الى الخاصية التالية سوف تجد عناصر القائمة مكتوبة هكذا :
A;B قم انت بكتابة C -بعد فاصلة منقوطة-
طبتم واهتديتم :)
===================================
إقرأ معي
رابط متجدد لكتاب أقرؤه فشاركني فيه
======
فضائح الرافضة ومخازيهم حين يكتب عنها أحد خصومهم فهذا شيء متوقع ،فإن كتب عنها أحدهم فهو شيء غير مألوف ، وإن كان الكاتب أحد مراجعهم وأخص خواصهم فهذا شيء متناهي الغرابة ، وإن علمت أن الكاتب قد قتل بعد نشر الكتاب فقد حان وقت قراءة الكتاب
الكتاب :
حسين الموسوي - لله تم للتاريخ ، كشف الأسرار وتبرئة الأئمة الأطهار
اضغط على الصورة لتحميل الكتاب
-----------
كتب سابقة
شكراً لك اخوي وما قصرت ويعطيك العافيه
لكن هذه الطرق أعرفها ، الطريقة التي اريدها هي انه لا يكون مصدرها جدول بل قيم قمت انا بكتابتها وعندما اريد اضافة قيمة اريد ان يظهر لي رسالة ان هذه القيمة ليست موجودة هل ترغب في اضافتها ، وبالتالي اقوم بإضافتها أو تجاهلها .
ارجوا أن اكون شرحتها بطريقة مفهومة .
السلام عليكم ورحمة الله وبركاته ،،،
تفضل أخي الكريم /
هذا الكود من برنامج أكواد الاستاذ / فهد الدوسري
عندما تضع مربع تحرير وسرد في النموذج وتحدد خاصية (التزام بالقائمة ) لتكون نعم فإن معنى ذلك
أنه لا يستطيع أحد أن يضيف إلى مربع التحرير والسرد هذا قيمة غير موجودة فيه .
ولكن إذا احتجت أن تضيف قيمة غير موجود فيه فيمكنك عمل ذلك بهذه الطريقة :-
ضع الكود التالي في حدث ( عند عدم الوجود في القائمة ) الخاص بمربع التحرير والسرد
'
لاحظ أن هناك متغيرين للدالة هما
' NewData وهذه يمكنك استخدامها لإضافة القيمة المدخلة إلى جدول القيم
' Response ويحدد الموقف من القيمة الجديدة
Dim strsql As String, x As Integer
x = MsgBox("القيمة المدخلة غير موجودة سابقاً ... هل ترغب في إضافتها ؟", vbYesNo)
If x = vbYes Then
strsql = "Insert Into tbxTraining ([Training]) values ('" & NewData & "')"
' tbxTraining اسم الجدول الذي هو مصدر مربع التحرير والسر
' TRAINING اسم الحقل في ذلك الجدول والذي ستضاف القيمة إليه
MsgBox "تم أضافة القيمة", vbOKOnly, "تنبيه"
CurrentDb.Execute strsql
' الأمر التالي يحدد الموقف من القيمة الجديدة وهو هنا إضافتها
Response = acDataErrAdded
Else
MsgBox "تم تجاهل القيمة", vbOKOnly, "تنبيه"
' تجاهل القيمة الجديدة والاستمرار
Response = acDataErrContinue
End If إنما الأمم الأخلاق ما بقيت ××× فإن هم ذهبت أخلاقهم ذهبوا ...
هذا الموضوع مغلق.