في حدث عند عدم الوجود في القائمة ضع الكود التالي مع تغيير اسم القائمة :
If MsgBox("هذا البند غير موجود بالقائمة ." _
& vbCrLf & "هل ترغب بإضافته إلى بنود القائمة ؟" _
, vbYesNo + vbMsgBoxRight + vbMsgBoxRtlReading) = vbYes Then
Response = acDataErrAdded
LimitToList = False
[اسم القائمة].RowSource = [اسم القائمة].RowSource & ";" & NewData
DoCmd.Save
LimitToList = True
End If
يجب وضع التزام بالقائمة إلى نعم .
وللجميع التحية
أخي العزيز
جربت الكود وظهرت هذه الرسالة
characters found afterend of SQL statment
اشرف خليل
الأخ أشرف
القائمة نوع بياناتها قائمة القيم وليس استعلام/جدول .
ولك تحياتي
الأخ أبو حمود :
كنت على وشك أن أطرح سؤالا بهذا الموضوع لحاجتي إليه، لكنك وعلى عادتك سباق إلى كل خير .
جربت الكود وأدى المطلوب على خير وجه .
جعله الله في موازين حسناتك .
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…