ผมจะใช้ Text Box อีกอันหนึ่ง โดยการเขียนโค้ดให้ไปตรวจดูว่ามีข้อมูลใน Text Box เป้าหมายทั้ง 3 หรือไม่ แล้วนำมาเรียงกัน โดยใช้ vbCrLf หรือการขึ้นบันทัดใหม่ช่วย แล้วย่อ Text Box เป้าหมายให้เล็กลง แล้วกำหนดสีพื้น สีตัวหนังสือ และเส้นขอบ ให้เป็นหรือขาว หรือโปร่งใส เพื่อซ่อนไม่ให้เห็น

ตัวอย่างแค่เงื่อนไขเดียวนะครับ

=IIf(Not IsNull([TextBox1]) And Not IsNull([TextBox2]),[TextBox1] & vbCrLf & [TextBox2],
IIf(Not IsNull([TextBox1]) And IsNull([TextBox2]),
[Textbox1],
IIf(IsNull([TextBox1]) And Not IsNull([TextBox2]),
[Textbox2],"")
)
)

ถ้า 3 เงื่อนไข ก็จะยาวขึ้น ลองดู logic ข้างบนประกอบนะครับ

ถ้าเขียนโค้ดข้างหลัง Report กับเหตุการณ์ OnFormat ก็จะทำให้เข้าใจ logic ได้มากและง่ายขึ้นครับ

Dim strText As String

strText = ""

If Me.TextBox1 <> "" Or Not IsNull(Me.TextBox1) Then
strText = Me.TextBox1
End If

If Me.TextBox2 <> "" Or Not IsNull(Me.TextBox2) Then
If strText = "" Or IsNull(strText) Then
strText = Me.TextBox2
Else
strText = strText & vbCrLf & Me.TextBox2
End If
End If

If Me.TextBox3 <> "" Or Not IsNull(Me.TextBox3) Then
If strText = "" Or IsNull(strText) Then
strText = Me.TextBox3
Else
strText = strText & vbCrLf & Me.TextBox3
End If
End If

Me.TextBox4 = strText

ต้องขอขอบคุณอาจารย์สุภาพมาก แต่ผมยังไม่ค่อยเข้าใจในส่วนของการเขียนโค้ดข้างหลัง Report กับเหตุการณ์ OnFormat อาจารย์พอจะมีตัวอย่างให้ DownLoad ไว้เป็นกรณีศึกษาบ้างไหมครับ... ขอขอบคุณล่วงหน้าจริงๆๆๆ