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

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

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

نقل قول:

---

نوشته شده توسط padide55

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

---

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

نقل قول:

---

نوشته شده توسط padide55

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

---

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

نقل قول:

---

نوشته شده توسط parsa70

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

---

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

me.forms!subformname.requery
Me.Requery

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

ضمیمه 152419

نقل قول:

---

نوشته شده توسط padide55

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

me.forms!subformname.requery
Me.Requery

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

---

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

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

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

Private Sub Status_AfterUpdate()



     [Forms]![FRMQrsynagesearch].Refresh

End Sub

نقل قول:

---

نوشته شده توسط padide55

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

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

Private Sub Status_AfterUpdate()



     [Forms]![FRMQrsynagesearch].Refresh

End Sub

---

دستتون درد نکنه :قلب:

نقل قول:

---

نوشته شده توسط padide55

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

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

Private Sub Status_AfterUpdate()



     [Forms]![FRMQrsynagesearch].Refresh

End Sub

---

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

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

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

نقل قول:

---

نوشته شده توسط padide55

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

---

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

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

سلام
کد

Me.FRMQrsynagesearchSub.Form.FilterOn = False

   DoCmd.ShowAllRecords

Me.FRMQrsynagesearchSub.Requery

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

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

سلام

یک کاری نمیشه کرد که اون ردیفی که ستون حذف داره که اطلاعاتی وارد نشده در اون اون ردیف نشون نده و فقط جاهایی که دیتا وارد شده رو نشون بده؟؟
https://uupload.ir/files/xqlk_untitled_thumb.png
سپاس

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

نقل قول:

---

نوشته شده توسط padide55

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

---

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

نقل قول:

---

نوشته شده توسط parsa70

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

---

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

If Me.NewRecord then

  'do this

else

  'do that

end if

me.hazf.visible=false

نقل قول:

---

نوشته شده توسط padide55

کد زیر رو در رویداد 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 ارور ۲۱۶۵

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

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

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

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

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

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

---

سلام
مهندس من خوب توضیح ندادم میخوام دیگه اصلا «حذف» رو توی اون ردیف نشون نده «یعنی کلا هیچ دیتایی تو اون ردیف نباشه نه اینکه حذف رنگش تغییری کنه یا هیدن بشه ها»
یعنی اینجوری باشه
https://uupload.ir/files/d3te_untitled_thumb.png

نقل قول:

---

نوشته شده توسط parsa70

سلام
مهندس من خوب توضیح ندادم میخوام دیگه اصلا «حذف» رو توی اون ردیف نشون نده «یعنی کلا هیچ دیتایی تو اون ردیف نباشه نه اینکه حذف رنگش تغییری کنه یا هیدن بشه ها»
یعنی اینجوری باشه
https://uupload.ir/files/d3te_untitled_thumb.png

---

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

بجاش

datasorce

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

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

نقل قول:

---

نوشته شده توسط padide55

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

بجاش

datasorce

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

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

---

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