مساعد في استعلام الحاق

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

السلام عليكم 

في النموذج fa يوجد نموذج فرعي fa1 يحتوي على مربع تحرير وسرد numb  احتاج عند اضافة اسم غير موجود يتم اضافة في الجدول tbb تحت الحقل nameb  وان تكون قيمة المفتاح numb في الجدول tbb مساوية للاسم الجديد التي تمت اضافتة  

bl.accdb

[Moosak]

وعليكم السلام أخي أزهر 🙂 

عملت لك الكود التالي في حدث عند عدم وجود في القائمة للقائمة المنسدلة :

Private Sub numb_NotInList(NewData As String, Response As Integer)

CurrentDb.Execute " INSERT INTO tbb ( numb, nameb ) VALUES ( '" & NewData & "' , '" & NewData & "' );"
numb = Null
numb.Requery
numb = NewData

End Sub

 

bl.accdb

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

استاذ @Moosak جزيل الشكر زهو المطلوب

تم تعديل أغسطس 3, 2022 بواسطه ازهر عبد العزيز