ik heb volgende code:
Brief_patho1 en Brief_patho2 zijn beide velden in de tabel "correspondentie"
de waarden strSQL zijn niet leeg en toch staan ze niet in het corresponderende veld
Wat is hier fout?
Merci
JP
Code:
Dim strSQL As String
Dim itm As Variant
Dim sql As String
Dim toer As Integer
Dim TB As Recordset
Set db = CurrentDb()
toer = 1
DoCmd.RunSQL "DELETE correspondentie.* FROM correspondentie;"
Set db = CurrentDb()
Set TB = db.OpenRecordset("correspondentie", dbOpenDynaset)
TB.AddNew
For Each itm In Me.Patholgieën.ItemsSelected
If toer = 1 Then
strSQL = Me.Patholgieën.Column(5) & " van " & Me.Patholgieën.Column(3) & " op datum: " & Me.Patholgieën.Column(2)
Brief_patho1 = strSQL
toer = toer + 1
Else
strSQL = strSQL & vbCrLf & Me.Patholgieën.Column(5) & " van " & Me.Patholgieën.Column(3) & " op datum: " & Me.Patholgieën.Column(2)
Brief_patho2 = strSQL
End If
Next itm
TB.Update
Brief_patho1 en Brief_patho2 zijn beide velden in de tabel "correspondentie"
de waarden strSQL zijn niet leeg en toch staan ze niet in het corresponderende veld
Wat is hier fout?
Merci
JP