تغییر دستور SQL یک Query

[mmbguide]

سلام به دوستان

من یک Form دارم که داخلش یک SubForm وجود داره و این SubForm به یک Query متصله. حالا طبق پارامترهایی که کاربر در Form تنظیم میکنه، میخوام دستورات SQL جدید رو در Query جایگزین کنم. البته مطابق دستور زیر انجام میدم. منتها اگر فرم باز باشه تغییرات اتفاق نمی افته حتی با Requery ولی اگر قبل از اجرای فرم این کار رو انجام بدم Query اصلاح میشه که من دقسقا میخوام در زمان باز بودن فرم این اتفاق بیوفته.


Dim SQLCommand As String
Dim qd As QueryDef
Set qd = CurrentDb.QueryDefs("qryProductListSub")

'ÊÕÍíÍ ÏÓÊæÑÇÊ ÑÓæÌæ
SQLCommand = "SELECT tblProduct.tblProductID, tblProduct.tblProductMachineTypeID, tblMachineType.tblMachineTypeTitle, tblProduct.tblProductMachineSeries, tblProduct.tblProductNamePlate, tblProduct.tblProductEndDate, tblProduct.tblProductColor, tblProduct.tblProductChassisNo, tblProduct.tblProductMotorNo, tblProduct.tblProductControllerNo, tblProduct.tblProductNumberOfBattery, tblProduct.tblProductBatteryType, tblProduct.tblProductChargerNo, tblProduct.tblProductBodyNo, tblProduct.tblProductSold, tblMachineType.tblMachineTypeVisibleInList"
SQLCommand = SQLCommand & " FROM tblMachineType INNER JOIN tblProduct ON tblMachineType.tblMachineTypeID = tblProduct.tblProductMachineTypeID"
SQLCommand = SQLCommand & " WHERE (((tblProduct.tblProductSold) = False) And ((tblMachineType.tblMachineTypeVisibleInList) = True))"
SQLCommand = SQLCommand & " ORDER BY tblProduct.tblProductID DESC;"

qd.SQL = SQLCommand
Set qd = Nothing





ممنون میشم اگر کمک کنید

[eb_343]

منتها اگر فرم باز باشه تغییرات اتفاق نمی افته حتی با Requery

سلام
آیا دستور Requery برای سابفرم هم بکار می برید؟
منظور اینکه برای ریفرش شدن سابفرم هم دستور Me.SubFormName.Requery لاز م است
در اینجا SubFormName نام سابفرم شماست .
موفق باشید

[mmbguide]

سلام. بله ساب فرم رو هم requery میکنم ولی جواب نمیگیرم