การดึงข้อมูล,อัพเดท Record และ Delete

[bank9597]

อาจารย์ครับ มีปัญหาอีกแล้วครับ
คือว่าเวลาผมเรียกข้อมูลมาแก้ไข พอแก้ไขเสร็จ ผมก็กดอัพเดท ปรากฏว่ามันจะล้างค่า Validation Define-name ไปหมดเลยครับ

ไม่ทราบว่า เราจะแก้ไขตรงนี้อย่างไรดีครับ

Model.xlsm

[snasui]

ลองปรับ Code ShowData ตามด้านล่างครับ

จาก

Code: Select all

Sub ShowData()
   'Other code
        .Range(.Range("B3").End(xlDown).Offset(1, 0), .Range("I" & rl)).Clear
   'Other code
End Sub

ปรับเป็น

Code: Select all

Sub ShowData()
   'Other code
        .Range(.Range("B3").End(xlDown).Offset(1, 0), .Range("I" & rl)).ClearContents
        .Range(.Range("B3").End(xlDown).Offset(1, 0), .Range("I" & rl)).ClearFormats
   'Other code
End Sub

[bank9597]

ผมหาไม่เจอครับอาจารย์
ขออภัยที่ผมไม่ได้บอกให้ชัดเจน ตอนนี้โมดูล 7และ 8 ผมไม่ได้ใช้งานครับ
ส่วนโมดูลที่เกี่ยวกับการ Update,Delete,Add อยู่ในโมดูลที่ 4 ครับ

รบกวนลองดูใหม่้อีกทีได้ไหมครับ (โค๊ดการเพิ่มข้อมูลยังใช้การไม่ได้ครับ)

[snasui]

จากไฟล์แนบ Module4 มีแค่ Code ด้านล่างซึ่งเกี่ยวกับการ Search เท่านั้น ไม่มี Update, Delete, Add ครับ

Code: Select all

Sub Button2_Click()
Dim rFind As Range, rDataAll As Range
Dim r As Range, rTarget As Range
Set rFind = Sheets("Edit").Range("D2")
If Sheets("Edit").Range("D2") = "" Then Exit Sub
With Sheets("DataStore")
    Set rDataAll = .Range("B2", .Range("B" & Rows.Count).End(xlUp))
    If .Columns("b:b").Find(rFind, LookIn:=xlValues) Is Nothing Then
        MsgBox ("äÁèÁÕàÅ¢ PO ¹Õé")
        Exit Sub
    End If
End With
For Each r In rDataAll
    If r = rFind Then
        Set rTarget = Sheets("Edit").Range("B" & Rows.Count).End(xlUp) _
            .Offset(1, 0)
        r.Resize(1, 9).Copy
        rTarget.PasteSpecial xlPasteValues
        rTarget.Offset(0, -1) = Date
    End If
Next r
Application.CutCopyMode = False
MsgBox "Get data has finished."
End Sub

[bank9597]

เซ็งเลยครับ ผมพลาดเอง ขออภัยครับ

โค๊ดที่ว่าอยู่ในโมดูลที่ 6 ครับ

Code: Select all

Sub Update()
Dim rsAll As Range, rtAll As Range
Dim rs As Range, i As Integer

Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
On Error Resume Next

With Worksheets("Edit")
    Set rsAll = .Range("B4", .Range("B" & Rows.Count).End(xlUp))
End With

With Worksheets("DataStore")
    Set rtAll = .Range("B2", .Range("B" & Rows.Count).End(xlUp))
End With

For Each rs In rsAll
    For i = rtAll.Count To 1 Step -1
        If rs = rtAll(i) And rs.Offset(0, 8) = rtAll(i).Offset(0, 8) _
        And rs.Offset(0, 9) = "Update" Then
            rs.Offset(0, -1).Resize(1, 10).Copy
            rtAll(i).Offset(0, -1).PasteSpecial xlPasteValues
        End If
    Next i
Next rs

Application.CutCopyMode = False
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub

โค๊ดนี้เป็นโค๊ด Update ข้อมูลครับ

[snasui]

เปลี่ยนการ Assign Macro ที่ปุ่ม ปรับปรุงรายการ ให้เรียกใช้ Procedure Update แทน เรียก Procedure UpdateData ครับ

สร้าง Validation เตรียมไว้ในชีท Edit ใหม่แล้วลองทดสอบ Run ดู แล้วรายงานผลมาอีกรอบครับ

เพื่อป้องกันการสับสน Code ที่ไม่ใช้หรือจะเก็บไว้ใช้กับงานอื่นให้ Save เป็นอีกไฟล์แล้วแนบเฉพาะ Code ที่ใช้งานมาถามกันจะสะดวกในการถามและตอบมากกว่าครับ

[bank9597]

ครับอาจารย์ เดี๋ยวผมจะลองเปลี่ยนดู (ไม่มั่นใจว่าจะได้แค่ไหน)

[bank9597]

ปรากฏว่ามันจะล้างค่า Validation Define-name ไปหมดเลยครับ

ผมแก้ได้แล้วครับอาจารย์

อยากให้อาจารย์ช่วยดูโค๊ดการเพิ่ม Record ใหม่ให้หน่อยครับ เพราะนอกจากจะมีการ แก้ไข,ลบ ข้อมูลแล้ว ยังมีการเพิ่มข้อมูลใหม่ลงไปอีก
ยกตัวอย่างเช่น PO 101 มีรายการสั่งซื้อ 10 รายการ ซึ่งได้ทำใบสั่งบันทึกลงในระบบแล้ว แต่บังเอิญว่าต้องการเพิ่มรายการสั่งซื้อไปอีก 2 รายการต่อจาก 10 รายการเดิม ใน Po 101 ไม่รู้ว่าต้องเขียนโคีดอย่างไรเพราะเท่าที่ทราบคือ การเพิ่มข้อมูลลงไปจำเป็นต้องมีการ Insert Record ใหม่ลงไป ต่างกับการลบและแก้ไข ที่ทำงานอยู่บนข้อมูลจำนวน Record เท่าเดิม เมื่อเป็นดังนี้ผมเลยดัดแปลงโค๊ดไม่ได้เลย (ความรู้ยังงูๆปลาๆ ครับ)

รบกวนอาจารย์ด้วยครับ

Model.xlsm

[snasui]

แต่บังเอิญว่าต้องการเพิ่มรายการสั่งซื้อไปอีก 2 รายการต่อจาก 10 รายการเดิม ใน Po 101 ไม่รู้ว่าต้องเขียนโคีดอย่างไรเพราะเท่าที่ทราบคือ การเพิ่มข้อมูลลงไปจำเป็นต้องมีการ Insert Record ใหม่ลงไป

มีเหตุผลใดที่ต้องแทรกรายการครับ ปกติการเพิ่มรายการในฐานข้อมูลเราจะนำไปต่อท้ายรายการล่าสุดครับ

[bank9597]

ครับอาจารย์ ตรงนี้แล้วแต่ครับอาจารย์ ที่กล่าวไปนั้นเป็นเพียงความคิดเห็นของผม ไม่ได้ยึดตามหลักความเป็นจริงว่าเขาทำกันอย่างไร ขออภัยด้วยครับ

[snasui]

ผมเขียนตัวอย่าง Code สำหรับการ Add รายการเพิ่มจากเดิมใน Sheet DataStore โดยนำรายการที่มีคำว่า Add ในชีท Edit ไปใช้ ตามด้านล่างครับ

Code: Select all

Sub AddData()
    Dim rAll As Range, rs As Range
    Dim rt As Range
    With Sheets("Edit")
        Set rAll = .Range("K4", .Range("K" & Rows.Count).End(xlUp))
    End With
    For Each rs In rAll
        With Sheets("DataStore")
            Set rt = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
        End With
        If rs = "Add" Then
            rs.Offset(0, -10).Resize(1, 10).Copy
            rt.PasteSpecial xlPasteValues
        End If
    Next rs
    Application.CutCopyMode = False
End Sub

[bank9597]

เยียมเลยครับ ขอบคุณมากครับ