การเพิ่มข้อมูลที่ละ Record จากข้อมูลที่เป็นชุดข้อมูล

[nawahovvp]

รบกวนสอบถาม ผมมีข้อมูลชุด อยากจะเพิ่มข้อมูลทีล่ะ Record ในฟิลข้อมูล จนครบข้อมูลชุด
input เป็นชุดข้อมูลเดียวคือ  001,002,003,004,005,006,007,008,009
เมื่อเรากด Updata แล้วข้อมูลเพิ่มที่ละ Record จนครบได้ไหมครับ
001
002
003
004
005
006
007
008
009

[PNR]

ที่ botton ใส่โค้ดแบบนี้ดูนะครับว่าได้ไหม

โค๊ด: [Select]

Dim strString As String
Dim strArray() As String
Dim intCounter As Integer

strString = Me.Text4
strArray = Split(strString, ",")

For intCounter = 0 To UBound(strArray)
 Me.ข้อมูล = strArray(intCounter)
 DoCmd.GoToRecord , , acNext
Next intCounter



[nawahovvp]

ขอบคุณมากครับ

[PNR]

ขอบคุณมากครับ

แก้ไขโค้ดนิดนึงนะครับ