القائمه المنسدله

[سامر1972]

ارجوا من سيادتكم حل لهذه الموضوع

عند كتابه اسم بلد في القائمه المنسدله في جدول الطلبه في العنوان وغير موجوده في جدول اسم البلد تضاف اتوماتيك الي جدول اسم البلد

Database2.accdb

[kha9009lid]

من خلال نموذج الادخال في حدث عند عدم الوجود في القائمة

ضع الكود التالي لاخينا الاستاذ @ابوآمنة

Dim strSQL As String, X As Integer
    X = MsgBox("هذة المدينة ليست من ضمن القائمة .. هل ترغب في إضافتها؟", vbYesNo + vbDefaultButton1)
    If X = vbYes Then
        strSQL = "Insert Into tbl_city (city) values ('" & NewData & "')"
        CurrentDb.Execute strSQL
        Response = acDataErrAdded
    Else
       Response = acDataErrContinue
    End If

عدلت اسم جدول اسماء المدن واسم المدينة الى الانجليزي

الاسم العربية مع اعتزازنا وحبنا للغتنا الا انها تسبب اشكال مع محرر الاكواد

الملف مرفق

Database2111.accdb

[سامر1972]

2 ساعات مضت, kha9009lid said:

من خلال نموذج الادخال في حدث عند عدم الوجود في القائمة

ضع الكود التالي لاخينا الاستاذ @ابوآمنة

Dim strSQL As String, X As Integer
    X = MsgBox("هذة المدينة ليست من ضمن القائمة .. هل ترغب في إضافتها؟", vbYesNo + vbDefaultButton1)
    If X = vbYes Then
        strSQL = "Insert Into tbl_city (city) values ('" & NewData & "')"
        CurrentDb.Execute strSQL
        Response = acDataErrAdded
    Else
       Response = acDataErrContinue
    End If

عدلت اسم جدول اسماء المدن واسم المدينة الى الانجليزي

الاسم العربية مع اعتزازنا وحبنا للغتنا الا انها تسبب اشكال مع محرر الاكواد

الملف مرفق

Database2111.accdb 436 kB · 5 تنزيلات

ممكن من سيآدتكم

تفسير الكود

[kha9009lid]

1 دقيقه مضت, سامر1972 said:

ممكن من سيآدتكم

تفسير الكود

حجز متغيرين ورسالة بان المدينة ليست من ضمن القائمة ثم تخيرنا ان كنا نرغب في اضافتها

اذا اخترنا نعم ينفذ استعلام اضافة واذا اخترنا لا لن يتم التحديث ونختار من الاسماء المسجلة من قبل

تحياتي لك