ผมลองเปิดตารางเพื่อใส่ค่าใน เท็กซ์บ๊อก ชื่อว่า remark จากตาราง tbl_tmp_m จากฟิลด์ list_duty
ตรวจสอบทุกอย่างถูกต้องแต่ทำไม Error no. 13
ผมเอาโค๊ดมาจาก http://agserver.kku.ac.th/basiceng/webboard/question.asp?GID=872

Dim dbs As Database, rstmp As Recordset
Dim I As Integer
Set dbs = CurrentDb
Set rstmp = dbs.OpenRecordset("tbl_tmp_m") ' บรรทัดนี้ครับ Error No. 13 Type miss mate.
If Not rstmp.EOF Then
rstmp.MoveLast
rstmp.MoveFirst
For I = 1 To 5
Me("remark" & I) = rstmp("list_duty")
rstmp.MoveNext
Next I
End If
rstmp.Close
dbs.Close
Set rstmp = Nothing
Set dbs = Nothing


รบกวนวิเคราะห์ให้หน่อยครับ