PDA

View Full Version : سوال: چرا خصوصيت AfterUpdate براي فيلد وابسته عمل نمي كند؟


arman2000
یک شنبه 30 فروردین 1394, 11:59 صبح
با سلام
در يك فرم براي وارد كردن مواردي كه احتمال زياد داره در ركوردهاي بعدي تكرار بشه از كد زير استفاده كردم:


Private Sub date_AfterUpdate()
Me.date.DefaultValue = """" & (Me.date) & """"
End Sub

براي هر شهر، يك پيش‌شماره درنظر گرفتم كه با انتخاب هر شهر، يك پيش‌شماره در فيلد مربوط به خودش نمايش داده مي شه
شهر و تاريخي كه در ركورد قبلي انتخاب كردم با قرار دادن كد بالا در AfterUpdate اين سه فيلد (شهر city، پيش‌شماره kod1 و تاريخ date) در ركورد جديد، نمايش داده مي شه ولي پيش‌شماره مربوط به شهر، در فيلد ديده نمي شه (حتما بايد در ركورد جديد، دوباره شهر رو از منو انتخاب كنم تا پيش‌شماره، در فيلدش نمايش داده بشه)
Abbas Amiri
یک شنبه 30 فروردین 1394, 17:55 عصر
سلام
در پنجره Properties>Data در خصوصیت Default Value فیلدهای مربوطه درج کنید:
=Nz(DLast("FieldName","TableName"))
به چیز دیگری نیاز ندارید
arman2000
یک شنبه 30 فروردین 1394, 22:06 عصر
130453
سلام
این پیغام رو داد
Abbas Amiri
یک شنبه 30 فروردین 1394, 22:44 عصر
130453
سلام
این پیغام رو داد

fi به این صورت بنویسید:
=Nz(DLast("Kod1";"tbl1388"))
arman2000
دوشنبه 31 فروردین 1394, 08:36 صبح
سلام
بسيار ممنونم

تفاوت در , و ; ببين نام فيلد و نام جدول بود

باز هم ممنون:قلب::تشویق::تشویق::تشو ق:
arman2000
سه شنبه 10 دی 1398, 07:34 صبح
با سلام

از این دستور می‌شه برای موردی مشابه درخواست زیر استفاده کرد؟


بعد از پر کردن یک فیلد، ورودی اون فیلد، در یک یا چند فیلد دیگه هم وارد بشه.

مثلا تعداد ورود و تعداد خروج، با تعداد تولید برابر باشد که فقط با وارد کردن تعداد تولید، دو فیلد ورود و خروج نیز پر بشه.

Private Sub ext_AfterUpdate()
Me.ext.DefaultValue = """" & (Me.prdct) & """"

یا
Private Sub enter_BeforeUpdate(Cancel As Integer)
Me.enter.DefaultValue = """" & (Me.prdct) & """"