سئوال مهم در مورد رکورد تکراری

[iransim]

سلام
من کد زیر را برای کنترل رکورد تکراری را وارد کردم


Dim varData As Variant
varData = DLookup("Onvan", "main", "Onvan='" & [Onvan] & "'")
If Not (IsNull(varData)) Then
MsgBox "تکراری است"
cancel = True
End If

حال سئوال من اینه اگر بخواهم انتخاب کنم که رکورد تکراری در جدول ثبت بشود یا نشود چکار باید بکنم؟
ممنونم

[مهدی قربانی]

سلام
این تیکه کد رو اضافه کنید :


If MsgBox("اطلاعات تکراری است آیا قصد ثبت آنرا دارید ؟", vbQuestion + vbMsgBoxRight + vbYesNo, "توجه") = vbNo Then
Cancel = True
Else
Exit Sub
End If

[iransim]

آقا مهدی دستت درد نکنه دمت گرم

[iransim]

سلام آقا مهدی
ببخشید من کد پیشنهادی را وارد کردم ولی وقتی که اطلاعات چه تکراری چه غیر تکراری باشد نیز پیام " این رکورد تکراری است " را میدهد می خواهم طوری باشد که رکوردی که واقعا" تکراری است این پیام ظاهر شود .
میشه بازم راهنمائی کنید
ممنونم

[karmand]

If IsNull(txt_barcode) = False Then

intCount = DCount("num_posti", "asli", "barcode='" & Me.txt_barcode & "'")
If intCount > 0 Then
MsgBox "رکورد ثبت شده تکراری می باشد", vbInformation, "توجه"
Me.cmb_sherkat.SetFocus
intCount = 0
Exit Sub
End If

[iransim]

ببخشید دوست عزیز منظور شما را از این کد متوجه نشدم میشه در مورد محل درج و ارگومانهای آن توضیح دهید .
ممنونم :خجالت:

[مهدی قربانی]

سلام


Dim varData As Variant
varData = DLookup("Onvan", "main", "Onvan='" & [Onvan] & "'")
If Not IsNull(varData) Then
MsgBox "تکراری است"
Me.Undo
Exit Sub
End If
یا

intCount = DCount("Onvan", "main", "Onvan='" & [Onvan] & "'")
If intCount > 0 Then
MsgBox "رکورد ثبت شده تکراری می باشد", vbInformation, "توجه"
Me.Undo
intCount = 0
Exit Sub
End If
کدی که جناب کارمند نوشتند تعداد رکوردهای متناظر با عنوان رو شمارش می کنه که طبیعتاً اگر تعداد از 0 بیشتر باشه یعنی رکورد تکراریه و پیغام ظاهر میشه در ضمن سعی کنید این کدها رو در رخداد Before Update فیلد مورد نظر بنویسید

[karmand]

num_posti نام فیلدی است که باید از فیلدی استفاده کنید که همیشه پر باشد مانند auto number ان را می شمارد پس باید حتما پر باشد
asli نام بانک است
barcode نام فیلدی که نباید تکراری باشد