SQL problem

[sven2]

Hello,

who can help me with the following problem:

when I open a form with a subform I get an error (number 2455).

WhenI take a look to the code the error is in the following SQL:

Private Sub BronSubformulier1()

Dim strSQL As String

strSQL = " SELECT dbo.TblKwaliteitswaarde.Moederrolnummer, dbo.TblKwaliteitgegevens.Kwaliteitsnaam, dbo.TblKwaliteitswaarde.Kwaliteitswaarde, dbo.TblKwaliteitgegevens.Eenheid , dbo.TblKwaliteitgegevens.FrequentieID, dbo.TblKwaliteitgegevens.MachineID " & _
" FROM dbo.TblKwaliteitgegevens INNER JOIN dbo.TblKwaliteitswaarde ON dbo.TblKwaliteitgegevens.KwaliteitID = dbo.TblKwaliteitswaarde.KwaliteitID " & _
" WHERE (dbo.TblKwaliteitgegevens.FrequentieID = 1) AND (dbo.TblKwaliteitgegevens.MachineID = " & [Forms]![frmingaveparameters]![txtmac] & ") AND (dbo.TblKwaliteitswaarde.Moederrolnummer = " & [Forms]![frmingaveparameters]![txtMoederrol] & ")"

Me.Subformulierfreq1.Form.RecordSource = strSQL

End Sub

I can't find out what is wrong?

Thanks in advance,
Sven.

 

[neileg]

Try replacing the Me shorthand with the full object name in the last line of the code.

 

[ajetrumpet]

Try to change some of the code to the red:

Dim strSQL As String

strSQL = " SELECT dbo.TblKwaliteitswaarde.Moederrolnummer, dbo.TblKwaliteitgegevens.Kwaliteitsnaam, dbo.TblKwaliteitswaarde.Kwaliteitswaarde, dbo.TblKwaliteitgegevens.Eenheid , dbo.TblKwaliteitgegevens.FrequentieID, dbo.TblKwaliteitgegevens.MachineID " & _
Get rid of the space after the quote here-----> "FROM dbo.TblKwaliteitgegevens INNER JOIN dbo.TblKwaliteitswaarde ON dbo.TblKwaliteitgegevens.KwaliteitID = dbo.TblKwaliteitswaarde.KwaliteitID " & _
Get rid of the space after the quote here-----> "WHERE (dbo.TblKwaliteitgegevens.FrequentieID = 1) AND (dbo.TblKwaliteitgegevens.MachineID = '" & [Forms]![frmingaveparameters]![txtmac] & "'") AND (dbo.TblKwaliteitswaarde.Moederrolnummer = '" & [Forms]![frmingaveparameters]![txtMoederrol] & "'")"