آپدیت شدن فرم و ساب فرم بدون بستن آن

[parsa70]

سلام یک فرم و ساب فرم دارم که سرچ لحظه‌ای داره
که همان طور که در عکس می‌بینید اون پایین با استفاده از dcount یک شمارشی را انجام می‌دهد.
می‌خواستم بدونم میشه کاری کرد که اون شمارش پایین وقتی اون اطلاعات رو اگه کسی تو این فرم تغییر میده بدون اینکه فرم رو ببندیم و باز کنیم آپدیت بشه؟؟
و کد نویسیش چطوری هست

سپاس

[padide55]

از کدهای زیر استفاده کنید
Me.Requery
Me.subformName.Requery

[parsa70]

از کدهای زیر استفاده کنید
Me.Requery
Me.subformName.Requery

ممنون تو کدوم رویداد باید این کد رو بزنم؟؟

[parsa70]

از کدهای زیر استفاده کنید
Me.Requery
Me.subformName.Requery

این آدرس دهیش رو نمیتونم بزنم هی میزنم ارور میده
مثلا: نام یکی از اون تکست های پایینی text43 هست چجوری باید بزنم
من تو After update یکی از اون فیلدهای اصلی که وقتی تغییر میکنه میزنم me.text43.requery ارور میده
نمونه ای دارید بزارید ببینم چجوریه
این مدلی هم میزنم ارور میدم
me.forms!subformname!text43.requery

[padide55]

این آدرس دهیش رو نمیتونم بزنم هی میزنم ارور میده
مثلا: نام یکی از اون تکست های پایینی text43 هست چجوری باید بزنم
من تو After update یکی از اون فیلدهای اصلی که وقتی تغییر میکنه میزنم me.text43.requery ارور میده
نمونه ای دارید بزارید ببینم چجوریه
این مدلی هم میزنم ارور میدم
me.forms!subformname!text43.requery

به این صورت بزنید

me.forms!subformname.requery
Me.Requery

ضمنا فایلتون رو کپی بگیرید .
فرمها و جدولهای غیر مرتبط اضافی رو حذف کنید .
جدول مربوطه رو خالی کنید و چند رکورد تمرینی وارد کنید .
و همین فرم و ساب فرم و جدول مربوطه رو ضمیمه کنید.
نمونه همون فرم خودتون باشه .

[parsa70]

SAMPLE.zip

به این صورت بزنید

me.forms!subformname.requery
Me.Requery

ضمنا فایلتون رو کپی بگیرید .
فرمها و جدولهای غیر مرتبط اضافی رو حذف کنید .
جدول مربوطه رو خالی کنید و چند رکورد تمرینی وارد کنید .
و همین فرم و ساب فرم و جدول مربوطه رو ضمیمه کنید.
نمونه همون فرم خودتون باشه .

بفرمایید نمونه را ببینید.

[padide55]

چشم . دارم چک میکنم

این کد جواب داد.
در رویداد after update ساب فرمتون . فیلد Status

Private Sub Status_AfterUpdate()



     [Forms]![FRMQrsynagesearch].Refresh

End Sub

[parsa70]

چشم . دارم چک میکنم

این کد جواب داد.
در رویداد after update ساب فرمتون . فیلد Status

Private Sub Status_AfterUpdate()



     [Forms]![FRMQrsynagesearch].Refresh

End Sub

دستتون درد نکنه

[parsa70]

چشم . دارم چک میکنم

این کد جواب داد.
در رویداد after update ساب فرمتون . فیلد Status

Private Sub Status_AfterUpdate()



     [Forms]![FRMQrsynagesearch].Refresh

End Sub

سلام شاید این مورد بهتر باشه
Forms]![FRMQrsynagesearch].text43.Requery]

فقط یک باگی الان متوجه شدم اون قسمت بالا فایل sample که مربوط به جستجو هست یا جستوی داینامیک وقتی یک ستون رو فیلتر میکنیم و از فیلتر در میاریم سرچ لحظه ای تو کلمات دیگه کار نمیکنه دلیل آن از چی میتونه باشه؟

[padide55]

نمونه فایل کامل همراه با خروجی اکسل رو اینجا ببین
جمع با فیلتر فعال شد.

[parsa70]

نمونه فایل کامل همراه با خروجی اکسل رو اینجا ببین
جمع با فیلتر فعال شد.

سلام ممنون خیلی روش خوبی بود

یک مشکلی که الان دارم، توضیحاتش رو میدم و بعدش فایل رو ضمیمه میکنم که ببینید.
تو اون قسمت آبی که جستو... هست مثلا: محمد، احمد و یاعلی وارد کنیم. خود فرم به صورت خودکار فیلتر میشه و فقط ردیف‌های که توضیحات کارشناس داخلش اون اسامی هست رو میاره. مثلا: الان علی رو اون بالا بنویسید دو تا سطر میاره.
مشکلی که هست الان اگه تعداد رکوردها بالا باشه و یا همین مقدار هم باشه کاربر هر ستونی رو فیلتر کنه و از فیلتر در بیاره دیگه این جستجو کار نمیکنه.
و باید فرم دوباره بسته و باز بشه.
علتش رو میخواستم بدونم از چی هست؟؟ آيا میشه رفع کرد؟
سپاس
SAMPLE4.zip

[padide55]

سلام
کد

Me.FRMQrsynagesearchSub.Form.FilterOn = False

   DoCmd.ShowAllRecords

Me.FRMQrsynagesearchSub.Requery

برای رویدادon click فیلد جستجو گذاشتم . مشکل حل شد.
بعد از سرچ فیلتر میشه کرد . جمع هم درسته.

اگر بعد از فیلتر کردن
در فیلد ابی جستجو کلیک کنید .
تمام فیلترها رو برمیداره.

[parsa70]

سلام

یک کاری نمیشه کرد که اون ردیفی که ستون حذف داره که اطلاعاتی وارد نشده در اون اون ردیف نشون نده و فقط جاهایی که دیتا وارد شده رو نشون بده؟؟

سپاس

[padide55]

سلام
در ویرایش ساب فرم
در تب data
allow addition رو no قرار بدین

[parsa70]

سلام
در ویرایش ساب فرم
در تب data
allow addition رو no قرار بدین

میخوام بشه دیتا وارد کرد ولی تا زمانیکه اون سطر دیتا وارد نشده کنارش ستون حذف نباشه.
فکر کنم باید با iif بشه همچین کاری کرد.

[padide55]

میخوام بشه دیتا وارد کرد ولی تا زمانیکه اون سطر دیتا وارد نشده کنارش ستون حذف نباشه.
فکر کنم باید با iif بشه همچین کاری کرد.

کد زیر رو در رویداد current فرم استفاده کنیدو یا mouse over باتن حذف
و یا کلیک باتن حذف که اجرا نشه. و..
فکر کنم حل بشه

If Me.NewRecord then

  'do this

else

  'do that

end if

me.hazf.visible=false

[parsa70]

کد زیر رو در رویداد current فرم استفاده کنیدو یا mouse over باتن حذف
و یا کلیک باتن حذف که اجرا نشه. و..
فکر کنم حل بشه

If Me.NewRecord then

  'do this

else

  'do that

end if

me.hazf.visible=false

میگه که you cant hide a control that has the focus ارور ۲۱۶۵

[padide55]

me.hazf.enabled=falseغیر فعالش کنید .

[parsa70]

امکانش هست نمونه بزارید من هرکاری کردم نمیشه

[padide55]

کد دابل کلیک حذف رو به این صورت تغییر بدهید
در رکورد جدید عمل نکند

Private Sub txtdelet_DblClick(Cancel As Integer)

If Me.NewRecord Then

MsgBox "رکورد خالي قابل حذف نمي باشد"

Else

DoCmd.OpenForm "frmMsgDelete"

With Form_frmMsgDelete

.Label1.Caption = "آياحذف شود؟"

.Label2.Caption = "در صورت حذف غير قابل برگشت است."

.Label2.ForeColor = vbRed

.Caption = "حذف رکورد"

End With

End If

End Sub

[parsa70]

کد دابل کلیک حذف رو به این صورت تغییر بدهید
در رکورد جدید عمل نکند

Private Sub txtdelet_DblClick(Cancel As Integer)

If Me.NewRecord Then

MsgBox "رکورد خالي قابل حذف نمي باشد"

Else

DoCmd.OpenForm "frmMsgDelete"

With Form_frmMsgDelete

.Label1.Caption = "آياحذف شود؟"

.Label2.Caption = "در صورت حذف غير قابل برگشت است."

.Label2.ForeColor = vbRed

.Caption = "حذف رکورد"

End With

End If

End Sub

سلام
مهندس من خوب توضیح ندادم میخوام دیگه اصلا «حذف» رو توی اون ردیف نشون نده «یعنی کلا هیچ دیتایی تو اون ردیف نباشه نه اینکه حذف رنگش تغییری کنه یا هیدن بشه ها»
یعنی اینجوری باشه

[padide55]

سلام
مهندس من خوب توضیح ندادم میخوام دیگه اصلا «حذف» رو توی اون ردیف نشون نده «یعنی کلا هیچ دیتایی تو اون ردیف نباشه نه اینکه حذف رنگش تغییری کنه یا هیدن بشه ها»
یعنی اینجوری باشه

سلامdefault="حذف"
را بردارید

بجاش

datasorce

=iif(fieldcode>=۰;"حذف";" ")

بجای fieldcode
نام یکی از فیلدها که همواره پر باشه رو بگذارید.

[parsa70]

سلامdefault="حذف"
را بردارید

بجاش

datasorce

=iif(fieldcode>=۰;"حذف";" ")

بجای fieldcode
نام یکی از فیلدها که همواره پر باشه رو بگذارید.

ممنون کارم راه افتاد.