سوال : اخطار داده ی تکراری در vb6

[ali-a2]

سلام

دارم یه برنامه مینویسم که میخوام وقتی یه داده ی تکراری به برنامه داده شد خود برنامه اخطار بده و نذاره به این داده تو بانک اطلاعاتی سیو بشه . یه جورایی از ورود داده ی تکراری به برنامه جلوگیری کنه ، تو کدش مونـــدم

ممنون میشم کمکم کنین

[Hashemvp]

دوست عزیز خیلی ساده است قبل از اینکه اطلاعات رو ذخیره کنه در بانک
اول داخل بانک جستجو کن اگر مشخصاتی شبیه مشخصات اون بود که پیغام بده قبلا ثبت شده
اگر نبود که همین اطلاعات رو ثبت کنه
یفقط یه جستجو نیاز داره
موفق باشی

[ali-a2]

ممنون دادا ولی من دقیقا مشکلم همینه ، کدشو نمیدونم ، آخه آماتورم:افسرده:

[Hashemvp]

دوست عزیر اینم کدش
امیدوارم به دردت بخوره
موفق باشی



HvPFind = "FildName=" & "'" & Text1 & "'"
Adodc1.Refresh
Adodc1.Recordset.Find HvPFind
If Adodc1.Recordset.EOF = False Then msgbox "Sabt shode"

[ali-a2]

اینجوری باید نوشته شه دیگه : ؟؟؟
HvpFind = "code" & "'" & Text1 & "'"
ado.Refresh
ado.Recordset.Find HvpFind
If ado.Recordset.EOF = False Then MsgBox "Sabt shode"

وقتی میزنم اررور میده ~~> ado.Recordset.Find HvpFind

[Hashemvp]

دوست عزیز به کد ها به دقت نگاه کن
این خطتو ویرایش کنی و اینطوری بنویسی درست میشه
موفق باشی


HvPFind = "code=" & "'" & Text1 & "'"

[ali-a2]

ممنون دادا خیلی کمکم کرد:قلب:

شرمندم ولی بازم یه مشکلی پیش اومد:لبخند: حالا اینجوری پیغام میده ولی بازم سیو میکنه تو دیتابیس چی کار کنم تو دیتابیسم سیو نشه !
وقتی آخرش با شرط میگم حذف کنه کلا در هر صورتی باشه اون ردیف رو پاک میکنه اگـــــــه اینم کمکم کنین دیه ممنون میشم

[dimomid]

با سلام
اگه از بانك اكسس استفاده ميكني
من يه برنامه نوشتم كه زمان ذخيره چنانچه شماره نامه تكراري باشه
هشدار ميده و نميزاره اون ركورد ثبت بشه
شايد بدرد بخوره

[دستور خطا براي تكراري بودن ركورد
Data1.Refresh
While Data1.Recordset.EOF = False
If Val(Data1.Recordset.Fields(0).Value) = Val(Text1.Text) Then
Form6.Show
Exit Sub
Unload Me
End If


Data1.Recordset.MoveNext
Wend


در بالا بعد از خط دستور if
من پنجره هشدار رو كه اخطار ميده ركورد تكراريه رو در فرم 6 طراحي كردم جهت اخطار
كه شما ميتونين از هشدارهاي آماده خود برنامه vb استفاده كني
مثلا
Call MsgBox(" rekord tekrarist ", vbCritical, "Warning")

[ali-a2]

dimomid خیلی ممنون مشکلم رفع شد هاشم تو ام ممنون ک کمکم کردی :قلب: