بروز خطا جهت ایندکس

[michkadol]

با سلام
از چه کد استفاده کنم تا وقتی داده وارد فیلدشد قبل از خروج از فیلد مشخص کند که این داده در بانک وجود دارد تا از ادامه کار جلوگیری نماید
نوع فیلد number است
وبه عنوان کد پرسنلی استفاده نمودم

[bita_ziba77]

با سلام
شما كافي است در جدول خود در حالت Design بر روي فيلد خود رفته و از بخش پايين صفحه و از Tab General گزينه Indixed را به حالت Yes(no Duplicate را انتخاب نماييد.

با تشكر

[michkadol]

با سلام
من اینکار رو قبلا انجام دادم
منظور من روی فرم است
روی فرم 10تا فیلد دارم
index فیلد کدپرسنلی از نوع Yes(no Duplicate است اما روی فرم وقتی به اخرین textbox میرسم ،بعد از خروج از اخرین textbox قبل از ذخیره یک پیغام میدهد68229

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

[michkadol]

متشکر میشم کسی کمک کنه
متشکرم

[alirezabahrami]

با سلام
از چه کد استفاده کنم تا وقتی داده وارد فیلدشد قبل از خروج از فیلد مشخص کند که این داده در بانک وجود دارد تا از ادامه کار جلوگیری نماید
نوع فیلد number است
وبه عنوان کد پرسنلی استفاده نمودم
سلام
در رویداد BeforeUpdate فیلد code کد زیر را وارد کن !


Dim str As String
If DLookup("code", "table1", "[code]=" & Me.code) Then
str = MsgBox("!˜Ï æÇÑÏå ÊßÑÇÑí ãí ÈÇÔÏ", vbOKOnly + vbCritical, "!ÎØÇ")
Cancel = True
End If


موفق باشید

[hf.farhadi]

سلام دوست عزیز
مشکل فونت مربوط به شناخته نشدن فونتها در محیط ویژوال است
میتون از آدرس زیر درستش کنی (از چپ)

Control panel - reqional and lanquage option – tab lanquage – سی دی ویندوزتو بزار و هر دو تا تیک نصب فونتها رو بزن (البته اگه موقع نصب نزدی)هر چند تیک اولی کفایت میکنه ولی جهت اطمینان دوتا رو هم بزن در ادامه - tab advanced –zaban farsi
امیدوارم مشکلت حل بشه. موفق باشید :چشمک:

[michkadol]

سلام
در رویداد BeforeUpdate فیلد code کد زیر را وارد کن !


Dim str As String
If DLookup("code", "table1", "[code]=" & Me.code) Then
str = MsgBox("!˜Ï æÇÑÏå ÊßÑÇÑí ãí ÈÇÔÏ", vbOKOnly + vbCritical, "!ÎØÇ")
Cancel = True
End If


موفق باشید


متشکرم
عالی بود