tbox select

[ryan.fitzpatrick3]

I have this sql on a list box, can this work for a textbox in vba?

Private Sub Text98_AfterUpdate()

SELECT ([Forms]![frmlFreight]![FreightTotalDelCosts]/[Forms]!
[frmlFreight]![TruckWeightFull])*[Forms]![Component]![CaseWeight] AS
Total, tblFreight.ComponentID, tblFreight.DivisionID FROM tblFreight
WHERE (((tblFreight.ComponentID)=[tblFreight]![ComponentID]) AND
((tblFreight.DivisionID)=1));

End Sub

 

[ruralguy via AccessMonster.com]

Not the way you have it. What are you trying to achieve?

I have this sql on a list box, can this work for a textbox in vba?

Private Sub Text98_AfterUpdate()

SELECT ([Forms]![frmlFreight]![FreightTotalDelCosts]/[Forms]!
[frmlFreight]![TruckWeightFull])*[Forms]![Component]![CaseWeight] AS
Total, tblFreight.ComponentID, tblFreight.DivisionID FROM tblFreight
WHERE (((tblFreight.ComponentID)=[tblFreight]![ComponentID]) AND
((tblFreight.DivisionID)=1));

End Sub