ต้องการ บันทึกข้อมูล การรับจำนวนสินค้าที่มาส่งจริง จาการการออกออเดอร์

[sooksun2009]

ต้องการบันทึกจำนวนสินค้าที่คอลั่ม I อ้างอิงจาก คอลั่ม A(รหัสใบเสร็จ) และคอลั่ม B (partnumber) โดยการบันทึกจาก Userform แต่ติดปัญหา แก้ได้แต่บรรทัดบนจากการอิงคอม A (รหัสใบเสร็จ) ขอบคุณครับ

Code: Select all

Private Sub CommandButton3_Click()
   Dim FindRow1 As Long
    Dim N As Long
    Dim EndRow As Long
     EndRow = Module1.EndRow(BillDBItem, "B")
    FindRow1 = Module1.FindRow(BillDBItem, "A", ComboBox1.Text)
    For N = 2 To FindRow1
      If Val(BillDBItem.Range("A" & FindRow1).Value) = Val(ComboBox1.Text) Then
        BillDBItem.Range("I" & EndRow).Value = PQuantity.Text
        BillDBItem.Range("G" & EndRow).Value = CDate(Now)
        
        End If
    Next N
        MsgBox "á¡éä¢ÃÒ¡ÒÃÊÔ¹¤éÒàÃÕºÃéÍÂ"
        ThisWorkbook.Save
        PCode.Text = Empty
        PName.Text = Empty
        Call ClearData
        Call AddData
         Call ShowList
End Sub

[snasui]

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

[sooksun2009]

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

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

'Other code
EndRow = Module1.EndRow(BillDBItem, "B")
'    FindRow1 = Module1.FindRow(BillDBItem, "A", ComboBox1.Text)
For N = 2 To EndRow
    If Val(BillDBItem.Range("A" & N).Value) = Val(ComboBox1.Text) _
        And BillDBItem.Range("B" & N).Value = PCode.Text Then
        BillDBItem.Range("I" & N).Value = PQuantity.Text
        BillDBItem.Range("G" & N).Value = CDate(Now)
        Exit For
    End If
Next N
'Other code

[sooksun2009]

ตัวอย่างการปรับ Code ครับ

Code: Select all

'Other code
EndRow = Module1.EndRow(BillDBItem, "B")
'    FindRow1 = Module1.FindRow(BillDBItem, "A", ComboBox1.Text)
For N = 2 To EndRow
    If Val(BillDBItem.Range("A" & N).Value) = Val(ComboBox1.Text) _
        And BillDBItem.Range("B" & N).Value = PCode.Text Then
        BillDBItem.Range("I" & N).Value = PQuantity.Text
        BillDBItem.Range("G" & N).Value = CDate(Now)
        Exit For
    End If
Next N
'Other code

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