จากรูปผมโยนค่าจากตาราง1 ไปตาราง2ครับ
แต่มันติดเงื่อนไขอยู่ที่ว่า

1.หาก Record ไหนที่Teble1 ฟิวส์A1 เป็นค่าว่างให้เอาค่าของRecord ก่อนหน้ามาใส่แทนครับ จากรูปTeble1 ฟิวส์A1 บันทัดที่3ไม่มีค่าให้เอาค่าจากบันทัดที่2มาใส่แทนก็จะได้ 22222222

2.หากค่าที่ได้ยาวเกิน3ตัวอักษรให้ตัดเอาแค่3ตัวอักษรทางซ้ายมัวครับคือ3ตัวหน้าครับ แล้วให้ไปลงที่ตาราง2ครับ ผมจะเขียนยังไงดีครับรบกวนด้วยครับ

Code ที่ผมใช้ตามอาจารย์เคยแนะนำการโยนค่าดังนี้ครับ

Private Sub CMD1_Click()
       
On Error GoTo Err_CMD1__Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "Main_Table2"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

CurrentDb.Execute "insert into Table2(B1, B2, B3, B4, B5) select A1, A2, A3,A4,A5 from Table1 ", dbFailOnError

Exit_CMD1__Click:
    Exit Sub

Err_CMD1__Click:
    MsgBox Err.Description
    Resume Exit_CMD1__Click

End Sub

ขอบคุณครับ