مساعدة في مربع تحرير وسرد

[ازهر عبد العزيز]

السلام عليكم 

في النموذج FY يوجد مربع تحرير وسرد  IDX   احتاج عند كتابة اسم في هذا المربع ولم تكن موجودة في مصدر عنصر التحكم لمربع التحرير والسرد تظهر رسالة ان الاسم غير موجود هل ترغب باضافتة فان كان الجواب نعم يتم اضافتة مباشرة والالغاء في حالة لا  بدون ان يتم تحويلي الى نموذج اخر من اجل اضافتة باي طريقة ممكنة

XY.accdb

تم تعديل أبريل 29, 2021 بواسطه ازهر عبد العزيز

[ابوبسمله]

وعليكم السلام 

اتفضل اخى @ازهر عبد العزيز ان شاء الله يكون ما تريد

Private Sub idx_NotInList(NewData As String, Response As Integer)
Dim strSql As String, x As Integer
    x = MsgBox("هذا الاسم غير موجود .. هل ترغب في إضافته؟", vbYesNo + vbDefaultButton1)
    If x = vbYes Then
        strSql = "Insert Into tbx (x1) values ('" & NewData & "')"
        CurrentDb.Execute strSql
        Response = acDataErrAdded
    Else
       Response = acDataErrContinue
    End If
End Sub

بالتوفيق

XY.accdb

[ازهر عبد العزيز]

11 دقائق مضت, احمد الفلاحجي said:

وعليكم السلام 

اتفضل اخى @ازهر عبد العزيز ان شاء الله يكون ما تريد

بالتوفيق

 

استاذ المبدع  احمد الفلاحجي

جزاك الله كل خير على الرغم من اني وجدت الحل لكن حلك افضل جزيل الشكر  اخي وجعلة الله في ميزان حسناتك 

[ابوبسمله]

4 دقائق مضت, ازهر عبد العزيز said:

جزاك الله كل خير على الرغم من اني وجدت الحل لكن حلك افضل جزيل الشكر  اخي وجعلة الله في ميزان حسناتك 

واياكم اخى ازهر

وياريت تتفضل وترفق حلك الذى توصلت اليه لتعدد الحلول بارك الله فيك

[ازهر عبد العزيز]

22 دقائق مضت, احمد الفلاحجي said:

واياكم اخى ازهر

وياريت تتفضل وترفق حلك الذى توصلت اليه لتعدد الحلول بارك الله فيك

بالتاكيد 

لكني لم استطيع اظهار رسالة التحذير  في حلي

XY.accdb