ساخت پیغام خطا [بایگانی]

HAMRAHSOFT.IR

پنج شنبه 05 مهر 1386, 05:34 صبح

سلام دوستان شاید این سوال کمی تکراری باشد
اما اگر نونه را ببینید متوجه تغیر خاصی می شید

اما سوال من اینه چطوری مشه پیغام خطالی برای این فرم یاخت که اگر اصلاعات وارد شده تکراری بود اطلاع بدهد
در حال حال حاضر درصورت اطلاعات تکراری هچ عملیاتی انجام نمی شود

karmand

پنج شنبه 05 مهر 1386, 08:27 صبح

برنامه اصلاح شده ارسال شد البته قبلا من نیز مثل شما از دیگری گرفتم

HAMRAHSOFT.IR

پنج شنبه 05 مهر 1386, 10:10 صبح

برنامه اصلاح شده ارسال شد البته قبلا من نیز مثل شما از دیگری گرفتم

از کمک شما سپاس گزارم

اما من می خوام بعد از زدن کلید ثبت به من اعلام خطا نماید

درصورت امکاناگر مشود نمونه را اصلاع نماید

Ali_Fallah

جمعه 06 مهر 1386, 14:31 عصر

با سلام
چه خوب شد که برای کدهای برنامه خودتان رمز عبور نگذاشتید
و اما
به نظر من شما خیلی ساده تر میتونستید برنامه را طراحی کنید بجای اینکه Text گذاشته و آنها را به فیلدهای تیبل ربط دهید از خود همان فیلدها استفاده می کردید حالا چه اصراری بوده بماند...
فکر کنم کدهای زیر مشکل شما را حل کند.

Private Sub a_BeforeUpdate(Cancel As Integer)
If DLookup("a", "table1", "[a]=" & Me.a.Text) Then
MsgBox "تکراری"
Cancel = True
End If
End Sub
a فیلد تیبل 1 بوده و نامبر میباشد

HAMRAHSOFT.IR

شنبه 07 مهر 1386, 05:03 صبح

با سلام
چه خوب شد که برای کدهای برنامه خودتان رمز عبور نگذاشتید
و اما
به نظر من شما خیلی ساده تر میتونستید برنامه را طراحی کنید بجای اینکه Text گذاشته و آنها را به فیلدهای تیبل ربط دهید از خود همان فیلدها استفاده می کردید حالا چه اصراری بوده بماند...
فکر کنم کدهای زیر مشکل شما را حل کند.

Private Sub a_BeforeUpdate(Cancel As Integer)
If DLookup("a", "table1", "[a]=" & Me.a.Text) Then
MsgBox "تکراری"
Cancel = True
End If
End Sub
a فیلد تیبل 1 بوده و نامبر میباشد

دوست خوب اگه امکان داره نمونه اصلاح کن

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

karmand

شنبه 07 مهر 1386, 07:57 صبح

Private Sub Form_Error(DataErr As Integer, Response As Integer)
Const conDuplicateKey = 3022
Dim strMsg As String

If DataErr = conDuplicateKey Then
Response = acDataErrContinue
strMsg = "Each employee record must have a unique " _
& "employee ID number. Please recheck your data."
MsgBox strMsg
End If
End Sub

Ali_Fallah

شنبه 07 مهر 1386, 14:25 عصر

این هم یک نمونه برنامه
شما میتونید برنامه خودتون رو طبق نمونه اصلاح کنید.