amir zahed
دوشنبه 09 آذر 1394, 07:37 صبح
سلام دوستان
من يه برنامه از همين سايت گرفتم و چند تا تغيير توش دادم كه وقتي كسي دكمه ذخيره رو زد اگه كد پرسنلي تكراري باشه اجازه ثبت نده و پيغام مربوطه نشون داده بشه
از همين سايت كدي هم گرفتم اما فقط تو رويداد فرم و تكس باكس كار ميكنه و تو دكمه اي كه من ميخوام اجر انميشه.
اگه ممكنه راهنمايي كنيد
خاصيت ايندكس رو تو جدول Yes (No Duplicates) گذاشتم. و كدي هم كه تو دكمه گذاشتم اينه
If DataErr = 3022 Then
MsgBox "نام اين پرسنل قبلا ثبت شده است"
End If
DoCmd.GoToRecord , , acNewRec
DoCmd.Save
نمونه فايل هم گذاشتم
من يه برنامه از همين سايت گرفتم و چند تا تغيير توش دادم كه وقتي كسي دكمه ذخيره رو زد اگه كد پرسنلي تكراري باشه اجازه ثبت نده و پيغام مربوطه نشون داده بشه
از همين سايت كدي هم گرفتم اما فقط تو رويداد فرم و تكس باكس كار ميكنه و تو دكمه اي كه من ميخوام اجر انميشه.
اگه ممكنه راهنمايي كنيد
خاصيت ايندكس رو تو جدول Yes (No Duplicates) گذاشتم. و كدي هم كه تو دكمه گذاشتم اينه
If DataErr = 3022 Then
MsgBox "نام اين پرسنل قبلا ثبت شده است"
End If
DoCmd.GoToRecord , , acNewRec
DoCmd.Save
نمونه فايل هم گذاشتم