While running next script, I always get an error. I cannot find a solution. Someone?
Option Compare Database
Private Sub Details_Format(Cancel As Integer, FormatCount As Integer)
Me.txtContactPersoon = NaamContactPersoon
End Sub
Private Sub Report_Open(Cancel As Integer)
Dim rstContactPersoon As New ADODB.Recordset
rstContactPersoon.Open "SELECT tbl_Stagebedrijven.Stb_ID, tblWerkpostFiches.WerkpostFicheId, tbl_Stagebedrijven.StB_Naam, tbl_Contacten.Cp_Familienaam, tbl_Contacten.Cp_Voornaam, tbl_Contacten.Hcp " _
& "FROM (tbl_Stagebedrijven INNER JOIN tblWerkpostFiches ON tbl_Stagebedrijven.Stb_ID = tblWerkpostFiches.StageBedrijfId) INNER JOIN tbl_Contacten ON tbl_Stagebedrijven.Stb_ID = tbl_Contacten.Stb_ID" _
& "WHERE (((tbl_Stagebedrijven.Stb_ID)=" & [Forms]![frmWerkpostFisches]![txtStb_ID] & ") AND (( tblWerkpostFiches.WerkpostFicheId)=" & [Forms]![frmWerkpostFisches]![subFrmWerkpostFiche].[Form]![txtWerkpostFicheId] & ") AND ((tbl_Contacten.Hcp) = True));", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
'rstContactPersoon.Open "SELECT tbl_Stagebedrijven.Stb_ID, tblWerkpostFiches.WerkpostFicheId, tbl_Stagebedrijven.StB_Naam, tbl_Contacten.Cp_Familienaam, tbl_Contacten.Cp_Voornaam " _
' & "FROM (tbl_Stagebedrijven INNER JOIN tblWerkpostFiches ON tbl_Stagebedrijven.Stb_ID = tblWerkpostFiches.StageBedrijfId) INNER JOIN tbl_Contacten ON tbl_Stagebedrijven.Stb_ID = tbl_Contacten.Stb_ID " _
' & "WHERE (((tbl_Stagebedrijven.Stb_ID)=" & [Forms]![frmWerkpostFisches]![txtStb_ID] & ") AND ((tblWerkpostFiches.WerkpostFicheId)=" & [Forms]![frmWerkpostFisches]![subFrmWerkpostFiche].[Form]![txtWerkpostFicheId] & "));", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
NaamContactPersoon = rstContactPersoon(3) & " " & rstContactPersoon(4)
End Sub
Thanks