G Guest Feb 7, 2005 #1 I've converted an Access2000 database to Access2003. I have several queries calling Get Property that no longer work.
I've converted an Access2000 database to Access2003. I have several queries calling Get Property that no longer work.
M Michel Walsh Feb 8, 2005 #2 Hi, You have a simple example of the syntax you use? Hoping it may help, Vanderghast, Access MVP
G Guest Feb 8, 2005 #3 VBA code behind form: Public Property Get CustWO() As Long #If Not CC_DEBUG Then On Error GoTo ErrProc #End If CustWO = Me.sfrWorkOrder.Form!WorkOrderID ExitProc: Exit Property ErrProc: ErrMsg Err.Number, Err.Description, "CustWO" Resume ExitProc End Property SQL for query : SELECT tblWorkOrder.* FROM tblWorkOrder WHERE (((tblWorkOrder.WorkOrderID)=[Forms]![frmCustomer].[CustWO]));
VBA code behind form: Public Property Get CustWO() As Long #If Not CC_DEBUG Then On Error GoTo ErrProc #End If CustWO = Me.sfrWorkOrder.Form!WorkOrderID ExitProc: Exit Property ErrProc: ErrMsg Err.Number, Err.Description, "CustWO" Resume ExitProc End Property SQL for query : SELECT tblWorkOrder.* FROM tblWorkOrder WHERE (((tblWorkOrder.WorkOrderID)=[Forms]![frmCustomer].[CustWO]));
M Michel Walsh Feb 8, 2005 #4 Hi, Sounds broken. A way around is to make a public function in a standard module, that returns that property, and, in the query, to call the function. '= in a module ============= Public Function Fxyz() As Double Fxyz = Forms!Form26.xyz End Function -======================== '== in the query ============ .... WHERE fieldname = Fxyz() '======================= Hoping it may help, Vanderghast, Access MVP
Hi, Sounds broken. A way around is to make a public function in a standard module, that returns that property, and, in the query, to call the function. '= in a module ============= Public Function Fxyz() As Double Fxyz = Forms!Form26.xyz End Function -======================== '== in the query ============ .... WHERE fieldname = Fxyz() '======================= Hoping it may help, Vanderghast, Access MVP