جستجو کردن در سابفرم با استفاده از FindFirst

نرگس محمدی، پاداش پا گذاشتن روی احساسات مادرانه و اقدامات ضدایرانی‌اش را گرفت و برنده جایزه نوبل ۲۰۲۳ شد.

جستجوی عبارت گرفته شده در باکسی از فرم در زیرفرم آن (subFrmEmp)

تعریف متغیر شرطی

تنظیم یک شئ به یک متغیر

استفاده از متد FindFirst

sCriteria = "LastName = '" & Me.txtLastName & "'"

Set rstEmp= Me.subFrmEmp.Form.RecordsetClone

'Find the first occurrence

With rstEmp

     .FindFirst sCriteria

              If .NoMatch Then

                    MsgBox "No match found"

             Else

                   MsgBox "first match found"

            End If

End With

استفاده از ویژگی RecordSetClone برای پیمایش یا انجام عملی روی رکوردهای فرمی مستقل از خود فرم ، مثلا استفاده از متد Dao Find که با فرم نمی تواند بکار برده شود.

You use the RecordsetClone property to navigate or operate on a form's records independent of the form itself. For example, you can use the RecordsetClone property when you want to use a method, such as the DAO Find method, that can't be used with forms.

.Index = "CompanyName" 

.Seek ("T")

.Index = "PrimaryKey"
' Seek record.
.Seek "=", intID

مهر ۱۴۰۲ : افت فشار ،  بیهوش شدن و ضربه پشت سر به لبه سکو

ابهام دیگر درخصوص انتقال آرمیتا گراوند به بیمارستان فجر است، اساساً چرا باید آرمیتا را از ایستگاه متروی شهدا به بیمارستان فجر وابسته به دانشگاه علوم پزشکی ارتش در خیابان پیروزی ببرند درحالی که دو بیمارستان معیری و شفایحیاییان در نزدیکی میدان شهدا قرار دارد؟

اطلاعات ما از مراکز درمانی نشان می‌دهد که دو بیمارستان معیری و شفایحیاییان بیمارستان تخصصی ارتوپدی هستند ( مزخرف ترین بیمارستان های علوم پزشکی ) اما بیمارستان تخصصی و فوق تخصصی فجر دارای بخش‌های جراحی عمومی، جراحی مغز و اعصاب،درمانگاه داخلی، درمانگاه قلب، درمانگاه ریه  و ... است.

۱۳مهر ۱۴۰۲ : ضبط گذرنامه محمود احمدی نژاد بدلیل عدم تامین امنیت در گواتمالا

مخالفت با سفر رئیس جمهور اسبق به گواتمالا

برخی خبرهای غیر رسمی حاکیست با سفرمحمود احمدی نژاد رئیس جمهور اسبق به کشور گواتمالا بدلیل ملاحظات حفاظتی مخالفت شده است.

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

 آخرین خبر نوشت: احمدی نژاد بر انجام این سفر اصرار دارد و توصیه های دستگاه‌های ذیربط راد نپذیرفته است.

۱۷ مهر ۱۴۰۲ : ( در پی عملیات طوفان الاقصی )

پاسخ ایران به تهدیدات اسرائیل و آمریکا/ اگر می توانستید از خود در برابر فلسطین دفاع می کردید

Concatenate Column

مثال در سایت زیر دقیق بخوانید و اجرا کنید ( هر آنچه نمی دانید را در google سرچ کرده و با یادگیری از اکسس لذت ببرید

Concatenate-Column-Values-from-Multiple-Rows-into-a-Single-Column-with-Access

مثالی دیگر 

Public Function ConcatRelated(strField As String, _ strTable As String, _ Optional strWhere As String, _ Optional strOrderBy As String, _ Optional strSeparator = ", ") As Variant

Dim rs As DAO.Recordset

Dim rsMV As DAO.Recordset

'Multi-valued field recordset

Dim strSql As String

SQL statement'

Dim strOut As String

Output string to concatenate to'

Dim lngLen As Long

Length of string'

Dim bIsMultiValue As Boolean

Flag if strField is a multi-valued field'

Initialize to Null'

ConcatRelated = Null 

(Set rs = DBEngine(0)(0).OpenRecordset(strSql, dbOpenDynaset

(Determine if the requested field is multi-valued (Type is above 100'

(bIsMultiValue = (rs(0).Type > 100

Do While Not rs.EOF

If bIsMultiValue Then 

For multi-valued field, loop through the values'

Set rsMV = rs(0).Value

Do While Not rsMV.EOF

If Not IsNull(rsMV(0)) Then

strOut = strOut & rsMV(0) & strSeparator

End If

rsMV.MoveNext

Loop

Set rsMV = Nothing

ElseIf Not IsNull(rs(0)) Then

strOut = strOut & rs(0) & strSeparator

End If

rs.MoveNext

Loop

rs.Close

Clean up'

Set rsMV = Nothing

Set rs = Nothing

Exit Function 

For the example above, you could set the  ControlSource of a text box to

=

"ConcatRelated("OrderDate", "tblOrders","CompanyID

[CompanyID] & 

or in a query:

"SELECT CompanyName, ConcatRelated("OrderDate

([tblOrders", "CompanyID = " & [CompanyID",

FROM tblCompany