ถามคำถามไม่ละเอียดครับ
พยายามรอ มาสองวันแล้ว ว่าใครเข้าใจแล้วตอบได้บ้าง
หรือว่า เจ้าของคำถามจะมาเพิ่มเติมอะไรบ้างหรือไม่
ยังไม่เห็นมีความคืบหน้าอะไรเลย

ตอบแบบทื?อๆ ก็จะประมาณว่า
-สร้างคอมโบบ็อกซ์ ชื่อ cb1 ให้ดึงข้อมูลจาก table1
-สร้างปุ่มคำสั่ง ชื่อ cmd1 เขียนโค้ด

cmd1_click()
currentproject.connection.execute "Insert into table2(....) values(cb1,...)"
end sub

ลองดูตัวอย่างนี้ครับ
เผื่อจะ นำไปใช้ได้

http://access.crtrading.net/fileDownload2009.aspx?softwareID=43

คุณ yeadram   ---- > ตอบตรงคำถามแล้วครับ โทษทีที่คำถามไม่ชัดเจน
ผมลอง ใช้คำสั่งที่แนะนำมา
currentproject.connection.execute "Insert into table2(....) values(cb1,...)"
ตรง value มันเอาคำว่า cb1 ไปเก็บครับ...
ถ้าจะให้มันเอาค่าที่ส่งมาจาก cb1 ต้องใส่ไงครับ

ขอบคุณครับ ได้แล้วครับ
'" & data & "'
อย่างนี้ถือว่าถูกรุปแบบในส่งค่าตัวแปร แล้วใช่ไหมครับ

ถ้าคำสั่ง ต่าง ๆ เช่น insert into มันยาวไปแล้วผมต้องการตัดบรรทัด ต้องใส่ยังไงครับ
Ex.

insert into table(...)
value (data1
data2
data3
)

ประมาณนี้ครับ ต้องมีสัญลักษณ์ อะไรเข้ามาบังคับมั่งครับ ถึงจะทำงานได้

การตัดต่อบรรทัด สายอักขระ ในภาษาตระกูล VB
(VB, VBA, ASP, ASP.net, VBS)

วิธีที่1 การซ้ำตัวแปร
dim sq as string
sq = "Insert into table2"
sq = sq & " Values('" & Data1 & "',"
sq = sq & "'" & data2 & "', "
sq = sq & "'" & data3 & "')"

conn.execute sq


หรือวิธีที่ 2 การใช้เครื่องหมายเข้าช่วย
dim sq as string
sq = "Insert into table2" _
& " Values('" & data1 & "'" _
& data2 & "', '" & data3 & "')"

docmd.setwarnings false
docmd.runsql sq