₪ . آموزش ساخت فانکشنQuery Command . ₪

[.yalda.]

این مقاله نحوه ایجاد قابلیتی را می آموزد که ; ضوابط فیلتر کردن را از طریق یک فرم جدولی اکسس ۲۰۰۰ وارد کنید و دکمه ای بنام Query داشته باشید تا فیلتر اعمال شود.
این فیلتر ۴ تکست باکس دارد بنام های txtFirstName, txtMiddleInitial, txtLastName, و txtSSN .جدول دیتابیس member نام دارد و فیلد هایی بنام های First, Mi,Last, و SSN دارد .
فانکشن Attach And برای ساخت جمله فیلتر کننده SQL استفاده میشود .
“First=’David’ and Last=’Nishimoto’”.

ساخت فانکشن :
Option Compare Database
Dim ssql
1- کاربر دکمه query را فشار داد
۲-یا اینکه شما میتوانید یک دکمه برای رویداد exit قرار دهید.
Private Sub cmdQuery_Click()
BuildQueryCommand
End Sub
3- فانکشن BuildQueryCommand یک فیلتر با ضوابطی که از تکست باکس ها دریافت کرده میسازد
۴ – قوانین فیلتر اعمال شد .

Private Function BuildQueryCommand()

sSQL = “”

Call AttachAnd(“First”, “‘” & txtFirstName & “‘”)

Call AttachAnd(“Mi”, “‘” & txtMiddleInitial & “‘”)

Call AttachAnd(“Last”, “‘” & txtLastName & “‘”)

Call AttachAnd(“SSN”, “‘” & txtSSN & “‘”)

Filter = sSQL

FilterOn = True

End Function

ضوابط چندگانه یا تکی را بررسی کنید
Single: “first=’David’”

Multiple:”First=’David’ and Last=’Nishimoto’”

Private Function AttachAnd(sField, sValue)

If sValue = “”” Or sValue = “” Then

Exit Function

End If

If Occurances(sSQL, “=”) = 0 Then
sSQL = sSQL & sField & “=” & sValue
Else
sSQL = sSQL & ” and ” & sField & “=” & sValue
End If
End Function
رخدادهای یک طرح را در عبارت sql بشمارید
Private Function Occurances(sSQL, sOperator)
Dim offset
Dim iCount
offset = 1
While offset <> 0
offset = InStr(offset + 1, sSQL, sOperator)
If offset > 1 Then
iCount = iCount + 1
End If
Wend
Occurances = iCount
End Function