I have a text box and use vbCrLF to insert a blank line. It does not work instead it iserts two this black lines a bit like ||. Here is the code, any ideas
While Not rsResults.EOF
txtResults = txtResults & vbCrLf & IIf(IsNull(rsResults("ID"
), "", rsResults("ID"
) _
& IIf(IsNull(rsResults("DocID"
), "", rsResults("DocID"
) _
& IIf(IsNull(rsResults("Description"
), "", rsResults("Description"
) _
& IIf(IsNull(rsResults("DiaryDate"
), "", rsResults("DiaryDate"
) _
& IIf(IsNull(rsResults("Status"
), "", rsResults("Status"
) _
& IIf(IsNull(rsResults("CloseDate"
), "", rsResults("CloseDate"
) _
& IIf(IsNull(rsResults("TS"
), "", rsResults("TS"
) & vbCrLf
rsResults.MoveNext
Wend
While Not rsResults.EOF
txtResults = txtResults & vbCrLf & IIf(IsNull(rsResults("ID"
& IIf(IsNull(rsResults("DocID"
& IIf(IsNull(rsResults("Description"
& IIf(IsNull(rsResults("DiaryDate"
& IIf(IsNull(rsResults("Status"
& IIf(IsNull(rsResults("CloseDate"
& IIf(IsNull(rsResults("TS"
rsResults.MoveNext
Wend