Got the following error : "cannot map to a read-only property". I don't understand this error.
This is the code which I use:
This is the code which I use:
Code:
Private Sub Form_Load()
Dim sqlBron As String
Dim sqlTransform As String
sqlBron = "SELECT tblPatientenLijst.PTN_ID, tblPatientenLijst.PTN_Naam, tblPatientenLijst.PTN_Voornaam, tblKenmerk.K_Naam, " & _
"tblBloedAnalyse.BLA_Datum, Format(Format([BLA_Datum],""ddmmyyyy""),""00\/00\/0000"") AS Datum, tblWaarden.W_Waarde, tblMinMaxeenheid.MME_Min, tblMinMaxeenheid.MME_Max " & _
"FROM tblPatientenLijst INNER JOIN ((tblBloedAnalyse INNER JOIN (tblKenmerk INNER JOIN tblWaarden ON tblKenmerk.K_iD = tblWaarden.K_ID) ON " & _
"tblBloedAnalyse.BLA_ID = tblWaarden.BLA_ID) INNER JOIN tblMinMaxeenheid ON tblKenmerk.K_iD = tblMinMaxeenheid.K_ID) ON tblPatientenLijst.PTN_ID = tblBloedAnalyse.PTN_ID " & _
"WHERE (((tblPatientenLijst.PTN_ID) = " & TempVars.Item("Patient_ID") & ") And ((tblWaarden.K_ID) = " & TempVars.Item("BloedKenmerk") & ")) " & _
"ORDER BY tblBloedAnalyse.BLA_Datum;"
sqlTransform = "SELECT qryBloedkenmerken.[Datum], qryBloedkenmerken.[W_Waarde], qryBloedkenmerken.[MME_Min], qryBloedkenmerken.[MME_Max] " & _
"FROM qryBloedkenmerken;"
With Me
.txtPatientNaam = TempVars.Item("Patien_Naam") & " " & TempVars.Item("Patent_Voornaam")
.txtPatientNaam.BackStyle = 0
.txtPatientNaam.BorderStyle = 0
.txtPatientNaam.Locked = True
.txtPatientNaam.Enabled = False
With .grfBloedKenmerk
.HasTitle = True
.ChartTitle = TempVars.Item("GrafiekTitel")
.RowSource = sqlBron
.TransformedRowSource = sqlTransform <<<<<<<<<<<<<<<<<<<<<<<<<<
End With
End With
End Sub