ادغام چند with در یک with

[mahmooddavoodi]

سلام . میخوام این چند with در هم ادغام بشه و یک with بشه که همه این کارها روهم بکنه ... ممنون از راهنمایی هاتون
With Me![subformAkhbarAfrad].Form

If .RecordsetClone.RecordCount = 0 Then

.Visible = False
Else
.Visible = True
End If
End With
With Me![subformAkhbarEdarat].Form
If .RecordsetClone.RecordCount = 0 Then

.Visible = False
Else
.Visible = True
End If
End With
With Me![subformShekayatAfrad].Form
If .RecordsetClone.RecordCount = 0 Then

.Visible = False
Else
.Visible = True
End If
End With
With Me![subformShekayatEdarat].Form
If .RecordsetClone.RecordCount = 0 Then

.Visible = False
Else
.Visible = True
End If
End With

[mahmooddavoodi]

کسی نیست جواب بده؟؟pleese help me

[mohammadsaleh]

چرا از select case استفاده نمی کنی؟

[mahmooddavoodi]

چرا از select case استفاده نمی کنی؟
ممنون میشم اگه دستور بالا رو در یک select case بنویسی

[mahmooddavoodi]

کسی دلش نمیخواد کمک کنه؟؟

[mohammadsaleh]

نمونه بگذارید. اینطوری که نمیشه.

[mahmooddavoodi]

نمونه بگذارید. اینطوری که نمیشه.
بفرمایید نمونه..تشکر

[mohammadsaleh]

فایلتون رو دیدم. هدفتون رو متوجه نشدم.
ضمنا برای یک ای دی که یک شناسه واحد در اینجا در نظر گرفته اید لازم نیست چند جدول داشته باشید.

[mahmooddavoodi]

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