อยากให้โปรแกรมเติมข้อมูลที่อ้างด้วยเอกสาร

[nawahovvp]

อยากให้โปรแกรม เติมข้อมูลตาราง LV ช่องว่างตาม IDNumber เช่น IDNumber 1 เป็น โค๊ก LV a ก็อยากให้  IDNumber 1 ที่เป็น แป๊ปซี่ ให้ LV เป็น a ด้วย  ตามตาราง B

[PNR]

สมมุติตาราง A ชื่อ Mytable
1.สร้างคิวรี่ใส่ SQL เข้าไป ตั้งชื่อ Q1
SELECT Idnumber, LV  FROM MyTable GROUP BY Idnumber, LV HAVING ((Not (LV) Is Null));

2.สร้างปุ่มขึ้นมา 1 ปุ่ม
ใส่โค้ดนี้เข้าไป
Private Sub Command0_Click()
Dim rst As DAO.Recordset
    Set rst = CurrentDb.OpenRecordset("Mytable", dbOpenDynaset)
   
    rst.MoveFirst
    Do Until rst.EOF
    If IsNull(rst!LV) Or rst!LV = "" Then
    rst.Edit
    rst!LV = DLookup("LV", "Q1", "Idnumber =" & rst!Idnumber & "")
    rst.Update
    End If
       rst.MoveNext
    Loop
   
    rst.Close: Set rst = Nothing
End Sub

[nawahovvp]

ไฟล์ที่พี่ส่งมาผมใช้ Access 2007 แล้วมันไม่มีข้อมูลครับ ผมลองสร้างปุ่มที่ฟอร์ม แล้วมัน Error ครับ หรือผมน่าจะทำอะไรผิดไป ยังไงขอบคุณมากครับ

[PNR]

ผมลองสร้างปุ่มที่ฟอร์ม แล้วมัน Error ครับ หรือผมน่าจะทำอะไรผิดไป ยังไงขอบคุณมากครับ

คุณข้ามขั้นตอนที่ 1 ไปหรือเปล่าครับคือการสร้างคิวรี่แล้วเอา SQL ที่ให้ไว้วางลงไปแล้วเซฟชื่อ Q1

[nawahovvp]

ได้แล้วครับขอบคุณมากครับ