پیام خطا (این کد در بانک موجود است ایا انتقال ادامه یابد؟)

[michkadol]

با سلام
من نمونه ای را دارم اماده میکنم در مورد مشخصات پرسنل،
اما یک گیری دارم
من میخوام وقتی اطلاعات کارمند را به جدول همسر)mate) انتقال میدهم اگر این کد قبلا در جدول همسر ثبت شده بود پیغام "این کد قبلا ثبت شده است ایا انتقال ادامه یابد؟" پرسیده شود و با زدن دکمه no عملیات انتقال متوقف شود

در ضمن چون میخوام امکان ثبت دو یا ... همسر برای یک کارمند باشد نمیتوانم اندکس کد کارمندی در جدول همسر را تغییر دهم

[id1385]

با سلام
شما میتونید کد مورد نظرتون رو جستجو کنید اگه موجود بود وضعیت مورد نظرتون اجرا بشه.
برنامه winrar ندارم نتونستم فایلتون رو باز کنم
نمیدونم برنامتون چه شکلیه شما نمونه زیر رو ببینید میتونه کمکتون کنه.



http://barnamenevis.org/images/attach/rar.gif ANBAR.part01.rar‏ (http://barnamenevis.org/attachment.php?attachmentid=66591&d=1298121086) (488.3 کیلوبایت, 115 دیدار)
http://barnamenevis.org/images/attach/rar.gif ANBAR.part02.rar‏ (http://barnamenevis.org/attachment.php?attachmentid=66592&d=1298121125) (242.1 کیلوبایت, 106 دیدار)

[michkadol]

با تشکر
دوست گرامی برنامه من کمی متفاوته
تو این برنامه میاد با زدن دکمه انتقال چند فیلد را از جدول مشخصات پرسنل به چند جدول دیگه کپی میکنه(البته با راهنماییهای دوستان این سایت ) حالا من میخوام قبل از اینکه بیاد و عملیات کپی رو انجام بده بررسی کنه که اگه کد در داخل جدول همسر این کد وجود داشت پیام" این کد قبلا ثبت شده است ایا انتقال ادامه یابد؟" پرسیده شود و با زدن دکمه no عملیات انتقال متوقف شود و در غیر اینصورت با زدن دکمه yes عملیات کپی انجام شود
متشکرم

[michkadol]

دوستان اگه کسی کمکی بکنه ممنو میشم

[michkadol]

مهندسین گرامی لطفا جواب

[karmand]

گاهي اوقات هم از help خود اكسس استفاده كن اگر msgbox را در help جستجو كني نمونه گذاشته

Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Do you want to continue ?" ' Define message.
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Define buttons.
Title = "MsgBox Demonstration" ' Define title.
Help = "DEMO.HLP" ' Define Help file.
Ctxt = 1000 ' Define topic
' context.
' Display message.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' User chose Yes.
MyString = "Yes" ' Perform some action.
Else ' User chose No.
MyString = "No" ' Perform some action.
End If