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.

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

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] & "'")"