find

[siana_k1980]

میخوام با استفاده از find مشخص کنم که آیا محتوای فیلدی از جدول با textbox برابر است یا مییشه برام با مثال بنویسین؟

[mojtabamalaekeh]

اگه با شیء Data کار می کنی این مثال به دردت میخوره.

کد:

Dim Criteria As String
Criteria = "Family='" & Text1.Text & "'"
Data1.Recordset.FindFirst Criteria
If Data1.Recordet.NoMatch then
   MsgBox "Record not found!"
Else
   MsgBox "Record found."
End If

مثال بالا تمام مقدار فیلد رو چک می کنه ولی میتونی با عملگر Like قسمتی از فیلد رو چک بکنی.
مثلا کلمه علی برابر علیرضا نیست ولی با عملگر Like میشه علی رو توی علیرضا جستجو کرد.

کد:

1. Criteria = "Family Like '*" & Text1.Text & "*'"
2. Criteria = "Family Like '*" & Text1.Text & "'"
3. Criteria = "Family Like '" & Text1.Text & "*'"

1ـ مطابقت کلمه با قسمتی از فیلد.
2ـ مطابقت کلمه با انتهای فیلد.
3ـ مطابقت کلمه با ابتدای فیلد.
ستاره (*) یعنی باشه یا نباشه مهم نیست.
NoMatch یعنی پیدا نشد.
اگه NoMatch برابر False بشه یعنی جستجو موفقیت آمیز بوده و رکورد پیدا شده.
تو این مثال از فیلدی به نام Family استفاده شده.
با فرض اینکه این فیلد از نوع رشته باشه باید مقدار مورد جستجو رو توی Single Quote یا همون کاراکتر ' قرار بدی.