إضافة إلى قائمة نوع مصدر الصف قائمة القيم

[ashraf]

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

If MsgBox("هذا البند غير موجود بالقائمة ." _ 

& vbCrLf & "هل ترغب بإضافته إلى بنود القائمة ؟" _ 

, vbYesNo + vbMsgBoxRight + vbMsgBoxRtlReading) = vbYes Then 

Response = acDataErrAdded 

LimitToList = False 

[اسم القائمة].RowSource = [اسم القائمة].RowSource & ";" & NewData 

DoCmd.Save 

LimitToList = True 

End If[/sql]

يجب وضع التزام بالقائمة إلى نعم .

******************

أبو حمود

تم تعديل فبراير 16, 2005 بواسطه rudwan