استخراج نام سابفرم های تو در تو

دختر لخت علوم و تحقیقات آبان ۱۴۰۳

چگونه می توان نام سابفرم های تو در تو در یک سابفرم  را استخراج کرد ؟

مثال : MainForm با نام frmMain ، سابفرم با نام Sub1 ، درون Sub1 یک سابفرم با نام Sub2 ، درون Sub2 یک سابفرم با نام Sub3 ایجاد کنید.

کد مربوطه را در نظرات بنویسید

از پراپرتی controlType در Vba میشود استفاده کرد ؟

You can use the ControlType property in Visual Basic to determine the type of a control on a form or report. Read/write Byte.

Parent Property Returns the parent object for the specified object. Read-only.

عملیات وعده صادق 3 در صورت وقوع ابعاد غیر قابل تصور خواهد داشت

عملیات-وعده-صادق-... ‹ news ‹ nournews.ir

۹ ساعت پیش · عملیات وعده صادق 3 در صورت وقوع ابعاد غیر قابل تصور خواهد داشت ... رژیم اسرائیل و امریکا پس از عملیات وعده صادق 2، با حملات شدید به لبنان، غزه، سوریه و یمن و 

ورود بمب‌افکن‌های «بی-۵۲» آمریکا به منطقه همزمان با گزارش رسانه عربی از ...

جهان ‹ اخبار ‹ ... ‹ parsi.euronews.com

۲۸ دقیقه پیش · اعزام این بمب‌افکن‌ها به منطقه هشدار به ایران محسوب می‌شود که بنا به برخی از گزارش‌ها برای واکنش به حمله اخیر اسرائیل به مراکز نظامی خود آماده

کدهای رهگیری جنگنده های امریکایی F-۳۵ در اختیار ایران - دیپلماسی ایرانی

کدهای-رهگیری-ج... ‹ news ‹ irdiplomacy.ir

۱ مهر ۱۴۰۲ · بسیاری بر این باورند که ایران رمز محرمانه جنگنده های F-35 را رهگیری کرده است و اکنون، می تواند پروازهای این نوع هواپیماها را کنترل کند

آبان ۱۴۰۳ دانشگاه آزاد

دختر علوم تحقیقات با نام احتمالی آهو دریایی^[۲] دانشجوی دختر دانشگاه آزاد اسلامی واحد علوم و تحقیقات تهران است. موضوع دخالت مأموران حراست دانشگاه در نحوه‌ی پوشش فردیِ وی و اعتراضِ وی به این موضوع، موجب واکنش مردم به این رخداد و موضوع حجاب اجباری در سطح جامعه شد. در تاریخ ۱۲ آبان ۱۴۰۳ در دانشگاه آزاد اسلامی واحد علوم و تحقیقات تهران مأموران حراست و بسیج دانشگاه با زور قصد داشتند این دختر دانشجو را به بهانه حجاب و نداشتن مقنعه به داخل اتاقک حراست ببرند اما با مقاومت و اعتراض او، لباسش (هودی مانند) از تنش کنده شد و زیر هودی چیزی جز لباس زیر بر تن او نبود؛ به همین علت مأموران حراست شوکه شده و رهایش کردند^[۳]. پس از این ماجرا و نیمه برهنه شدنِ بالاتنه‌اش در طی درگیری، دختر از فرط عصبانیت شلوارش را هم درآورد و به سمت مأموران پرتاب کرد و نیمه برهنه شد و همین موضوع باعث دستگیری خشونت‌آمیز وی شد.^{[۴][۵][۶][۷][۸][۹]} در جریان دستگیری، این دانشجو مورد ضرب‌وشتم و خون‌ریزی قرار گرفت و به مکانی نامعلوم منتقل شد.^[۸][۱۰] مسئولان دانشگاه با تکذیب برخورد فیزیکی با این دانشجو، مدعی اختلال روانی وی شدند.^[۱۱]

KeyUp

If Len(txtNameFilter.Text) > 0 Then 

filterText = txtNameFilter.Text

Me.Form.Filter = "[Contacts]![first_name] LIKE '*" & filterText & "*' OR [Contacts]![last_name] LIKE '*" & filterText & "*'"

Me.FilterOn = True

txtNameFilter.Text = filterText txtNameFilter.SelStart=Len(txtNameFilter.Text)

Else

Me.Filter = ""

Me.FilterOn = False

txtNameFilter.SetFocus

End If

Dynamic search filter

استفاده از FilterOn و رویداد KeyUp برای فیلتر در FirstName یا LastName هر کدام بود فیلترشود

در کد زیر که از سایت خارجی استخراج شده و در رویداد KeyUp استفاده شده نتیجه آن در شکل بعد از کد نمایان گردیده  بطوریکه با فشردن هر کلید چنانچه در یکی از فیلدهای First یا Last بود دیتا گرید فیلتر میشود ، در شکل Tom تایپ شده و نهایتا هر رشته ای از این دو فیلد که در آن Tom دارد فیلتر شده بطور خودکار کار میکند یعنی وقتی T تایپ شود تمام رشته هایی در این دو فیلد که شامل T میشوند خواه در اول باشد یا آخر یا وسط فیلترمیشود بعد از تایپ o تمام رشته هایی که To دارند فیلتر میشوند و الی آخر 

If Len(txtNameFilter.Text) > 0 Then
   filterText = txtNameFilter.Text
   Me.Form.Filter = "[Contacts]![first_name] LIKE  
 filterText]  & "*' OR [Contacts]![last_name] & "*'
  "'*" & LIKE '*" & filterText 
   Me.FilterOn = True
  Retain filter text in search box after refresh'
   txtNameFilter.Text = filterText
   (txtNameFilter.SelStart = Len(txtNameFilter.Text 
Else
   Remove filter'
"" =  Me.Filter 
   Me.FilterOn = False
   txtNameFilter.SetFocus
End If