salehsam
یک شنبه 28 خرداد 1391, 01:26 صبح
سلام دوستان
چجوری میشه از یه لیست باکس کوئری گرفت که بشه از اون کوئری توی یه ریپورت استفاده کرد؟
اگه لیست تک انتخابی باشه با استفاده از چیلد مستر راحت انجام میشه ولی لیست مالتی سلکت این کارو انجام نمیده
یه نمونه دیدم که با استفاده از اون میشد یه فرم یا یه ریپورت رو باز کرد ولی برای ساب فرم یا ساب ریپورت نمیدونم چیکار کنم؟
Function SQL_Criteria() As String
'Build Where Condition for SQL Statement (Bound Column - Numerica data type)
Dim varItm As Variant
Dim ctl As Control
Dim strCriteria As String
Set ctl = Me.takhassosiemdad
For Each varItm In ctl.ItemsSelected
'Use the ItemData Property to select the Bound Column
'Use the Column Property to specify the Row, Column
strCriteria = strCriteria + ctl.ItemData(varItm) & ","
Next varItm
If strCriteria = "" Then
SQL_Criteria = " IDTE Like '*' "
Else
SQL_Criteria = " IDTE IN(" & Left(strCriteria, Len(strCriteria) - 1) & ")" 'Rremove last comma
End If
End Function
ممنون
چجوری میشه از یه لیست باکس کوئری گرفت که بشه از اون کوئری توی یه ریپورت استفاده کرد؟
اگه لیست تک انتخابی باشه با استفاده از چیلد مستر راحت انجام میشه ولی لیست مالتی سلکت این کارو انجام نمیده
یه نمونه دیدم که با استفاده از اون میشد یه فرم یا یه ریپورت رو باز کرد ولی برای ساب فرم یا ساب ریپورت نمیدونم چیکار کنم؟
Function SQL_Criteria() As String
'Build Where Condition for SQL Statement (Bound Column - Numerica data type)
Dim varItm As Variant
Dim ctl As Control
Dim strCriteria As String
Set ctl = Me.takhassosiemdad
For Each varItm In ctl.ItemsSelected
'Use the ItemData Property to select the Bound Column
'Use the Column Property to specify the Row, Column
strCriteria = strCriteria + ctl.ItemData(varItm) & ","
Next varItm
If strCriteria = "" Then
SQL_Criteria = " IDTE Like '*' "
Else
SQL_Criteria = " IDTE IN(" & Left(strCriteria, Len(strCriteria) - 1) & ")" 'Rremove last comma
End If
End Function
ممنون