العبيدي رعد

شكرا  جزيلا
الكود  كالاتي 
If (MsgBox("الجهة غير موجودة سابقا" & vbCrLf & "هل تريد اضافتها", vbInformation + vbMsgBoxRight + vbYesNo, "النظام") = vbYes) Then
        DoCmd.SetWarnings False
        DoCmd.RunSQL "INSERT INTO person( resever) Values('" & Me.Comr.Text & "');"
        DoCmd.SetWarnings True
        Response = acDataErrAdded
        
    Else
        Response = acDataErrContinue
        Me.Comr.Undo
    End If
النقطة  التي  كنت غافل  عنها   هي  خاصية  limit to list    نجعلها   yes

السلام  عليكم
اكتشفت  الموضوع  ... استدعاء  الدالة  كان  في  زر  غلق  النموذج
جعلته  الان  في  حدث  befor update   للفورم   حيث  استدعيت  الدالة 
شكرا  جزيلا  للأستاذ  @ابو خليل