A
Associates
Hi,
i have a problem to ask.
I have the following codes in the form
Private Sub Form_Load()
strSQL = "SELECT [Jobs].JobID, [SubJobs].IndustryNo, [SubJobs].ClientNo,
[SubJobs].JobNo, [SubJobs].SubJobNo, IIf(Not IsNull([SubJobName]) Or
[SubJobName]<>"",[SubJobName],[JobName]) AS Expr1, [SubJobs].Status"
strSQL = strSQL & " FROM [SubJobs] INNER JOIN [Jobs] ON ([SubJobs].JobNo
= [Jobs].JobNo) AND ([SubJobs].ClientNo = [Jobs].ClientNo) AND
([SubJobs].IndustryNo = [Jobs].IndustryNo)"
strSQL = strSQL & " WHERE ((([SubJobs].Status) = -1))"
Me!ListBox_Jobs.RowSource = strSQL
Me!ListBox_Jobs.Requery
Me.Refresh
End Sub
The list-box is empty when the form is loaded. I must've done something
wrong here. Could anyone help me out?
Thank you in advance
i have a problem to ask.
I have the following codes in the form
Private Sub Form_Load()
strSQL = "SELECT [Jobs].JobID, [SubJobs].IndustryNo, [SubJobs].ClientNo,
[SubJobs].JobNo, [SubJobs].SubJobNo, IIf(Not IsNull([SubJobName]) Or
[SubJobName]<>"",[SubJobName],[JobName]) AS Expr1, [SubJobs].Status"
strSQL = strSQL & " FROM [SubJobs] INNER JOIN [Jobs] ON ([SubJobs].JobNo
= [Jobs].JobNo) AND ([SubJobs].ClientNo = [Jobs].ClientNo) AND
([SubJobs].IndustryNo = [Jobs].IndustryNo)"
strSQL = strSQL & " WHERE ((([SubJobs].Status) = -1))"
Me!ListBox_Jobs.RowSource = strSQL
Me!ListBox_Jobs.Requery
Me.Refresh
End Sub
The list-box is empty when the form is loaded. I must've done something
wrong here. Could anyone help me out?
Thank you in advance