نوشته شده توسط
مرضیه جلالی
خیلی متشکرم
اگه خواسته باشم یک شرط دیگه هم بهش الحاق کنم ، در صورتیکه اون رکورد توی تیبل بصورت عددی باشه و توی فرم بصوت رشته ؟ اون رو چطور باید براش تعریف کنم و با این شرط همزمان هر دو رو کنترل کنم ؟
فرض میکنیم در جدول مربوطه فیلدی با عنوان فارسی کد پرسنلی و نام لاتین PersonelCode از نوع نامبر وجو داره و میخواهی در رویداد مربوطه شرط بگذاری که اگه تاریخ جدول با تاریخ وارد شده تکراری باشه و کد پرسنلی هم با متغیر رشته ای strCode که از نوع استرینگ تعریف کرده ای و اون رو برابر PersonelCode قرار داده ای یکی بود پیغام صادر بشه
در اینجا برای اینکه دستور فوق با خطا صادر نشه باید متغیر رشته ای رو در تابع Int قرار بدی . در واقع تابع Int متغیر رشته ای شما رو به عدد تبدیل می کنه
Dim strCode As String
strCode = PersonelCode
If DCount("DateStart", "tblL", "[DateStart]=[Forms]![frmL]![DateStart] and PersonelCode=" & Int(strCode) & "") > 0 Then
MsgBox "رکوردي در اين تاريخ ثبت شده است."
Cancel = True
End If