จากตัวอย่างที่ 8-9 หนูใช้วิธีตาม ฟอร์ม frmPersonalData ค่ะ
สิ่งที่ต้องการเพิ่มเติม คือ อยากจะให้รูปที่แสดงขึ้นมาได้หลายนามสกุลอ่ะค่ะ
เพราะตัวอย่างได้แค่ *.jpg ค่ะ
ไม่ทราบว่าต้องเพิ่มเติมในส่วนไหนค่ะ

Private Sub Form_Current()
On Error Resume Next
If Me.NicName = "" Or IsNull(Me.NicName) Then
Me.PicName = ""
Me.Pict.Picture = ""
Else
Me.PicName = ap_AppDir & Me.NicName & ".JPG"
Me.Pict.Picture = Me.PicName
End If
End Sub

ก้อย อีกแล้วค่ะ (เกรงใจอ.มาก ๆ เลยค่ะ ที่ถามบ่อย อย่าเพิ่งรำคาญน่ะค่ะ)