Hi Guys,
My function is not returning anything. what am I doing wrong here?
My function is not returning anything. what am I doing wrong here?
Code:
Private Sub Form_Load()
Dim strSQLLst1 As String
' strSQLLst1 = "SELECT LastOrdered,OrderNo,OrderedBy,SupplyCateg,VendorName,ItemNo,[Brand],[Color],[Size],MaxQt,MinQt "
' strSQLLst1 = strSQLLst1 & "FROM QryTransactions ORDER BY LastOrdered"
strSQLLst1 = SelectFromQryTransaction()
Me.lstTransact1.RowSource = strSQLLst1
Me.lstTransact1.Requery
End Sub
Private Function SelectFromQryTransaction() As String
Dim strSQLLstRowSource As String
strSQLLstRowSource = "SELECT LastOrdered,OrderNo,OrderedBy,SupplyCateg,VendorName,ItemNo,[Brand],[Color],[Size],MaxQt,MinQt "
strSQLLstRowSource = strSQLLst1 & "FROM QryTransactions ORDER BY LastOrdered"
SelectFromQryTransaction = strSQLLstRowSource
End Function