การบันทึกข้อมูลลง Database ด้วย VBA

[satha]

การ เขียน code หรือวิธีการ ในการที่ผมต้องการกรอกข้อมูล โดยใช้ Drop Down List เพื่อการกรอกคะแนนประมิน Supplier ด้านการจัดส่ง และด้านคุณภาพ แล้วให้ผลรวมของคะแนน ไปบันทึกใน sheet ถัดไป เพื่อการก็บข้อมูล และภายหลังที่มีการ Clear Form แล้ว จะทำการเลือกรหัสลูกค้า จาก Drop down list ข้อมูลใหม่ มา input ข้อมูล และให้ไปบันทึกตามรหัสของ Supplier ID ครับ

[puriwutpokin]

ลองปรับเป็น

Code: Select all

Sub RecordData()
    With Sheets("Database")
        Set r = .Range("a" & .Rows.Count).End(xlUp).Offset(1, 0)
r.Value = Range("a4")
r.Offset(0, 1).Value = Range("c10")
r.Offset(0, 2).Value = Range("c17")
        End With
End Sub

[satha]

ขอบคุณครับ คุณ puriwutpokin นำไปใช้ได้ครับ แต่หากว่าการบันทึก จะถูกบันทึกใหม่ (เพิ้่มเเถวเข้ามา) อยากเรียนถามครับว่า เราสามารถสร้างรหัส Supplierไว้ใน Database แล้วโดยให้ข้อมูลที่เรากรอก (ลงฟอร์ม) โดยให้ข้อความไป match กับรหัสใน Database ได้ไหมครับผม

[puriwutpokin]

ในความหมายนี้หรือเปล่าครับ

Code: Select all

Sub RecordData()
Dim r, rAll As Range
    With Sheets("Database")
        Set rAll = .Range("a4", .Range("a" & .Rows.Count).End(xlUp))
For Each r In rAll
If Range("a4") = r.Value Then
r.Offset(0, 1).Value = Range("c10")
r.Offset(0, 2).Value = Range("c17")
End If
Next r
        End With
End Sub