********************************************************************************

ตารางชื่อ tbTable
ฟิลด์วันที่ชื่อ fdDate    เป็นข้อมูลชนิด Date/Time
ตัวแปรวันที่เริ่มต้น ชือ bgDate    เป็นข้อมูลชนิด Date/Time
ตัวแปรวันที่เริ่มต้น ชือ fnDate    เป็นข้อมูลชนิด Date/Time
ฟิลด์รหัสทันตแพทย์ชื่อ fdPscode เป็นข้อมูลชนิด text
ตัวแปรรหัสแพทย์ ชื่อ vPscode เป็นข้อมูล String

********* ข้อสมมติ เหล่านี้ ทำไมต้องให้ผู้ตอบเป็นผู้สมมติเองนะ *********
*********   มันเป็นความลับมากไหมนะ แค่ชื่อ object เนี่ย ******************


dim sq as string
dim wDate as string
dim wPs as string

wDate =""
wPs=""

sq = "SELECT * FROM tbTable"

IF not isnull(bgDate) and not isnull(fnDate) Then wDate = "(fdDate Between #" & bgDate & "# AND #" & fnDate & "#)"
IF not isnull(vPscode) or vPscode<>"" Then wPs = "(fdPsCode = '" & vPsCode & "')"

IF wDate<>"" Then
sq = sq & " Where " & wDate
IF wPs<>"" Then sq = sq & " AND " & wPs
Elseif wPs<>"" Then
sq = sq & " WHERE " & wPS
End IF


ถึงตรงนี้ คุณจะได้ SQL Statement ที่จะนำไปออกรายงานได้แล้วครับ มันอยู่ในตัวแปรชื่อ sq