ایجاد کنترل بر روی فیلد تائید

[mmha_85]

سلام خدمت تمامی دوستان
راه اندازی مجدد سایت رو به همگی تبریک میگم.
مسئله من این هستش که 1 فرم و زیر فرم دارم که می خواهم اگر در زیر فرم من اطلاعاتی وارد نشده است و رکوردی درج نشده، یک شرط در فرمم اعمال شود.
اگر بخواهم به طور واضح تر بیان کنم و بر روی فرمم یک کلید به نام تائید دارم که با فشردن این کلید من اجازه حذف، اضافه کردن و ادیت کردن در زیر فرم و اجازه حذف و ادیت کردن بر روی فرم رو از کاربرم می گیرم. حالا می خوام یک کنترل پشت این کلید تائید بذارم که بیاد چک کنه که اگه در زیر فرم من رکوردی نخورده است اجازه تائید به کاربرم نده.
میشه بگید چطوری میشه این کار رو انجام بدم؟
پیشاپیش از کمک دوستان ممنونم.

[Ali_Fallah]

اگه در ست متوجه شده باشم... میتونی اینطور بنویسی
IF ISNULL(ME.Text2)Then COMMAND4.ENABLED=False

[moustafa]

IF dcount("*","[table1]")=0Then COMMAND4.ENABLED=False

[mmha_85]

IF dcount("*","[table1]")=0Then COMMAND4.ENABLED=False

ببخشید آقا مصطفی اینجا تیبل 1 کدوم تیبل منه؟ تیبل زیر فرم منه؟ میشه در مورد این کد توضیح بدید که dcount چی کار می کنه و دو قسمتی که در پرانتز نوشتید هر کدوم چی هستن؟
ممنون

اگه در ست متوجه شده باشم... میتونی اینطور بنویسی
IF ISNULL(ME.Text2)Then COMMAND4.ENABLED=False

اون چیزی من می خوام در حقیقت اینه که اگر رکوردی ثبت نشده بود به کابرم ارور بده. حال اگر من یک رکورد زده باشم و بر روی رکورد دوم ایستاده باشم اونوقت فکر می کنم که باز هم این شرط شما برقراره. (چون text 2 هنوز دیتایی نداره و خالیه) در صورتی که نباید برقرار باشه.

[Ali_Fallah]

بنظر من اگه فایلت رو یا چیزی شبیه اون رو ضمیمه کنی بهتر میشه جواب داد
گاهی اوقات بعضی از فیلدها نباید خالی باشند که در این صورت این کد جواب میده ودر اینجا Text2 فیلدی که حتما بایستی پر بشه
ضمناً شما تا موقعی که رکوردی ثبت نکردی انتظار هیچ عملی نمیتونی داشته باشی و همانطور که فرم راباز کردی میتونی ببندی

[mmha_85]

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

[moustafa]

بله table 1همون جدول زیر فرم هست
تابع dcount هم تعداد رکورد ها را با شروط خاص نشان میدهد که در اینجا شما هیج شرطی نداری
متاسفانه من به علت یه گرفتاری خاص فعلا نمی تونم رو فایلت کار کنم اما در اولین وقت ممکن اگه به جواب نرسیدی حتما روش کار میکنم

[mmha_85]

این کد رو نوشتم.
خیلی جالب بود. ممنون. فقط من رکوردهایی که می خوام برام بشمره شرط داره. اگر فایل رو ببنید می تونین مشاهده کنین که من فقط رکوردهای یک شماره سند خاصم رو می خوام. میشه یه نمونه هم با شرط برام بنویسین که ببینم سینتکس کدش چطوریه؟

[Ali_Fallah]

سلام کد زیر رو در رویداد Check21_BeforeUpdate بنویس احتمالاً همونی باشه که میخوای...
تغییر یافته SFRM ضمناً اسم زیر فرم رو به

If Me.sanad_no > 0 And IsNull(Form_SFRM.cod_kala) Then
MsgBox "خطا پیغام مورد نظر", 160, "خطا"
DoCmd.CancelEvent
End If
فرم هم بنویس BeforeUpdate در قسمت

[Ali_Fallah]

فایل اصلاح شده ...

[moustafa]

IF dcount("[fild1]","[table1]","[fild1]="&forms!form1!text1)= 0 Then COMMAND4.ENABLED=False
Endif

فیلد 1 فیلدی که می خواهی براش شرط بذاری و تکست 1 هم شرط
اگه دیدی جواب نمی ده کوتیشنها( ") را بردار یا دستکاری کن