با سلام
من این کد رو برای ثبت اطلاعات فرمم توی Table نوشتم
Private Sub Add_Click()Dim RD As Recordset
Set RD = CurrentDb.OpenRecordset("Daily_Register")
RD.AddNew
RD!FINNo = Me.FINNo
RD!Discipline = Me.Discipline
RD!SubCon = Me.SubCon
RD!Activity = Me.Activity
RD!EquipmentName = Me.EquipmentName
RD!MeasurementUnit = Me.MeasurementUnit
RD!AcceptVolume = Me.Acceptvloume
RD!Result = Me.Result
RD!InspectionDate = Me.InspectionDate
RD!Inspector = Me.Inspector
RD!TPAInspector = Me.TPAInspector
RD!POGCInspector = Me.POGCInspector
RD!Remark = Me.Remark
RD!Unit = Me.Unit
RD!RejectVolume = Me.RejectVolume
RD!SubConInspector = Me.SubConInspector
RD.Update
Me.Daily_Register_subform.Requery
FINNo.Requery
End Sub
در On error همین فرمی که کد بالا قرار دادم کد خانم هاشمی رو قرار دادم.
منتها همچنان وقتی مقدار تکراری وارد میکنم با Error 3022 مواجه میشم.
مشکل کجاست؟
پاسخ با نقل قول