The 4th line of the sql part doesn't want to oblige. [I know it's Fate. It always is when I'm in a hurry.] Be very pleased if the error can be seen.
[How can it be wrong when it's been filched from the QBE department where it works well!]
Cheers, masters.
Private Sub cmdSubmittedTable_Click()
Dim strSQL As String
Dim strFilter As String
strSQL = ""
strSQL = strSQL & "SELECT tblAll.MinOfID, tblAll.OldBusArea, tblAll.ShortUrl, tblAll.SumOfSumOfHits, tblAll.Live, tblAll.Status, tblAll.Memo, tblAll.NEWBusArea, tblAll.TheDate, tblAll.Approved "
strSQL = strSQL & "INTO tblLinksSUBMITTED "
strSQL = strSQL & "FROM tblAll "
strSQL = strSQL & "WHERE ((([tblAll].[Status])=1) And (([tblAll].[Approved])="yes")) Or ((([tblAll].[Status])="0")) "
End Sub
[How can it be wrong when it's been filched from the QBE department where it works well!]
Cheers, masters.
Private Sub cmdSubmittedTable_Click()
Dim strSQL As String
Dim strFilter As String
strSQL = ""
strSQL = strSQL & "SELECT tblAll.MinOfID, tblAll.OldBusArea, tblAll.ShortUrl, tblAll.SumOfSumOfHits, tblAll.Live, tblAll.Status, tblAll.Memo, tblAll.NEWBusArea, tblAll.TheDate, tblAll.Approved "
strSQL = strSQL & "INTO tblLinksSUBMITTED "
strSQL = strSQL & "FROM tblAll "
strSQL = strSQL & "WHERE ((([tblAll].[Status])=1) And (([tblAll].[Approved])="yes")) Or ((([tblAll].[Status])="0")) "
End Sub