السلام عليكم : اخواني
عندي برنامج اكسس وطبعا فيه بعض الحقول في النماذج قوام منسدلة للاختيار مثل حقل الجنسية على سبيل المثال :
المطلوب هنا : يوجد طريقة للإضافة جنسية ضمن القائمة مع العلم ان هذه الجنسية غير موجودة ضمن القائمة وهذا بدون الدخول للتصميم
وشكرا
نعم تستطيع عزيزي الطاير فعل ذلك فقط اتبع الخطوات التالية
1. افتح النموذج في عرض التصميم
2. اختر مربع التحرير والسرد المطلوب واضغط عليه بالماوس الايمن واختر خصائص
3. اذهب الى نوع مصدر الصف : واجعله قائمة القيم
4. في مصدر الصف اكتب التالي وانتبه وانت تكتب
"سعودي";"مصري";"اردني";"سوداني";"سوري";"كويتي";"اماراتي";"بحريني"
الشرح
غير اتجاه الكتابة للانجليزي اضغط مفتاح Shift في لوحة المفاتيح واكتب علامتين تنصيص تجدهم في حرف الطاء العربي ثم ارفع يدك عن الـ Shift واضغط النقطة وعليها شوله تجدها في حرف الكاف العربي الان قم بنسخ هذه القيم " "; على العدد المطلوب عشره او عشرين حسب رغبتك ثم ضع المشيرة الخاصة بالكتابة بين علامتي التنصيص وغير اتجاه الكتابة للعربي واكتب العبارات المطلوبه قم بحفظ ما عملته وانظر النتيجه
اختكم
زهره
بعد اذن الاخت العزيزة زهرة / هذا كود آخر ،،،
تفضل
' لاحظ أن هناك متغيرين للدالة هما
' 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وهنا تجد مثال مختلف كل ما عليك هو الكتابة مباشرة في مربع التحرير والسرد ثم اضغط اضافة سجل او Enter من لوحة المفاتيح وسيتم الحفظ مباشرة في مربع التحريد والسرد بعد خروج رساله لك لتأكيد الاضافة والحفظ
اختكم
زهره
جزاكي الله خير اختي زهرة وبارك الله فيك وزادك من علمة
وكذلك جزى الله الاخ عبدالمانع كل الخير
اخوكم محم الطاير
يا هلا وسهلا ،،، وموفق إن شاء الله ،،،
ولكن عندي ملاحظة على مثال الاخت زهرة المثال يضيف 100% ولكن لواردت ان احذف لا يحذف لأني ممكن اكتب كلمة خطأ واريد ان الغيها فلا يلغي
ياريت يكون فيه طريقة لذلك
وشكراً
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…