รบกวนสอบถามวิธีแก้ไขคำสั่งค้นหา แก้ไข ลบบนฟอร์มไม่ทำงาน

[9KiTTi]

รบกวนสอบถามวิธีแก้ไขคำสั่งค้นหา แก้ไข ลบบนฟอร์มไม่ทำงาน ในฟอร์มหน้าทะเบียนหนังสือส่ง

ขออนุญาตอ้างจากกระทู้เก่าครับ viewtopic.php?t=18635 ผมนำมาปรับเพิ่มเติมในส่วนทะเบียนหนังสือส่ง สามารถบันทึกเข้า sheet ได้ แต่เวลาค้นหาจะเกิด error ได้ debug ตามที่อาจารย์แนะนำ เจอ error ตามภาพครับ และไม่สามารถแก้ไขหรือลบข้อมูลได้ครับ รบกวนแนะนำผมด้วยครับ

code ปุ่มค้นหา

Code: Select all

Sub SearchData_recives()

    Application.ScreenUpdating = False
    
    Dim shDatabase As Worksheet ' Database sheet
    Dim shSearchData As Worksheet 'SearchData sheet
    
    Dim iColumn As Integer 'To hold the selected column number in Database sheet
    Dim iDatabaseRow As Long 'To store the last non-blank row number available in Database sheet
    Dim iSearchRow As Long 'To hold the last non-blank row number available in SearachData sheet
    
    Dim sColumn As String 'To store the column selection
    Dim sValue As String 'To hold the search text value
    
    Set shDatabase = ThisWorkbook.Sheets("DatabaseOUT")
    Set shSearchData = ThisWorkbook.Sheets("SearchDataOUT")
    
    iDatabaseRow = ThisWorkbook.Sheets("DatabaseOUT").Range("A" & Application.Rows.Count).End(xlUp).Row
    
    sColumn = frmRecives.cmbrecivesSearchColumn.value
    
    sValue = frmRecives.recivestxtSearch.value
    
    iColumn = Application.WorksheetFunction.Match(sColumn, shDatabase.Range("A1:L1"), 0)
    
    'Remove filter from Database worksheet
    
    If shDatabase.FilterMode Then
    shDatabase.AutoFilterMode = False
    'shDatabase.ShowAllData
    shDatabase.ListObjects("Table3").AutoFilter.ShowAllData
End If

    'Apply filter on Database worksheet
    
    If frmRecives.cmbrecivesSearchColumn.value = "เลขทะเบียนส่ง" Then

        shDatabase.Range("A1:L" & iDatabaseRow).AutoFilter Field:=iColumn, Criteria1:=sValue
    
    Else
    
        shDatabase.Range("A1:L" & iDatabaseRow).AutoFilter Field:=iColumn, Criteria1:="*" & sValue & "*"
    
    End If
    
    If Application.WorksheetFunction.Subtotal(3, shDatabase.Columns(iColumn)) >= 2 Then
    
        'Code to remove the previous data from SearchData worksheet
        
        shSearchData.Cells.Clear
        
        shDatabase.UsedRange.Copy shSearchData.Range("A1")
        
        Application.CutCopyMode = False
        
        iSearchRow = shSearchData.Range("A" & Application.Rows.Count).End(xlUp).Row
        
        frmRecives.recDatabase.ColumnCount = 12
        
        frmRecives.recDatabase.ColumnWidths = "40,70,75,75,75,80,70,70,70,350,70,70"
        
        If iSearchRow > 1 Then
        
            frmRecives.recDatabase.RowSource = "SearchDataOUT!A2:L" & iSearchRow
            
            MsgBox "พบข้อมูลที่ค้นหา!!!"
        
        End If
        
    Else
    
       MsgBox "ไม่พบข้อมูลที่ค้นหา"
    
    End If

    shDatabase.AutoFilterMode = False
    Application.ScreenUpdating = True

End Sub

code ปุ่มแก้ไข

Code: Select all

Private Sub cmdEditrecives_Click()
    
    If Selected_List = 0 Then
    
        MsgBox "ไม่ได้เลือกข้อมูล", vbOKOnly + vbInformation, "แก้ไข"
        
        Exit Sub
    
    End If
    
    'Code to update the value to respective controls
    
    Me.recivestxtRowNumber.value = Selected_List + 1
    
    Me.recivestxtID.value = Me.recDatabase.List(Me.recDatabase.ListIndex, 1)
    
    Me.recivestxtName.value = Me.recDatabase.List(Me.recDatabase.ListIndex, 2)
    
    Me.recivestxtDate.value = Me.recDatabase.List(Me.recDatabase.ListIndex, 3)
    
    Me.cmbrecivesfrom.value = Me.recDatabase.List(Me.recDatabase.ListIndex, 4)
    
    Me.cmbrecivesto.value = Me.recDatabase.List(Me.recDatabase.ListIndex, 5)
    
    Me.cmbrecivesclass.value = Me.recDatabase.List(Me.recDatabase.ListIndex, 6)
    
    Me.cmbrecivesspeed.value = Me.recDatabase.List(Me.recDatabase.ListIndex, 7)
    
    Me.cmbrecivessecurity.value = Me.recDatabase.List(Me.recDatabase.ListIndex, 8)
    
    Me.recivestxtSubj.value = Me.recDatabase.List(Me.recDatabase.ListIndex, 9)
    
    Me.recivestxtJobn.value = Me.recDatabase.List(Me.recDatabase.ListIndex, 10)
    
    Me.recivestxtN.value = Me.recDatabase.List(Me.recDatabase.ListIndex, 11)
    
    MsgBox "หลังจากแก้ไขข้อมูลเสร็จสิ้น ให้กดปุ่มบันทึกข้อมูล!!!", vbOKOnly + vbInformation, "แก้ไข"
    
End Sub

code ปุ่มลบ

Code: Select all

Private Sub cmdDeleteRecives_Click()
    
    If Selected_List = 0 Then
    
        MsgBox "No row is selected.", vbOKOnly + vbInformation, "ลบ"
        Exit Sub
    End If
    
    Dim i As VbMsgBoxResult
    
    i = MsgBox("คุณมั่นใจที่จะลบหรือไม่?", vbYesNo + vbQuestion, "Confirmation")
    
    If i = vbNo Then Exit Sub
    
    ThisWorkbook.Sheets("DatabaseOUT").Rows(Selected_List + 1).Delete
    
    Call Resetrecives
    
    MsgBox "เลือกข้อมูลที่ต้องการลบ", vbOKOnly + vbInformation, "ลบแล้ว!!!"
    
End Sub

ขอบพระคุณครับ

[snasui]

กรุณาแจ้งลำดับการทดสอบ เช่น คลิกปุ่มไหน ที่ชีตไหน ค่าที่ใช้ในการทดสอบเพื่อให้เกิด Error ดังกล่าว ต้องกรอกที่ใด ด้วยค่าใด จะได้เข้าถึงปัญหาโดยไวครับ

[9KiTTi]

กรุณาแจ้งลำดับการทดสอบ เช่น คลิกปุ่มไหน ที่ชีตไหน ค่าที่ใช้ในการทดสอบเพื่อให้เกิด Error ดังกล่าว ต้องกรอกที่ใด ด้วยค่าใด จะได้เข้าถึงปัญหาโดยไวครับ

กดปุ่ม "ทะเบียนหนังสือส่ง" ที่ sheet Home จะเปิดฟอร์มทะเบียนหนังสือส่ง หลังจากลงรายละเอียดหนังสือส่งที่เฟรม "หนังสือส่ง" แล้วกด save จะบันทึกข้อมูลไปที่ sheet "DatabaseOUT" หลังจากนั้นที่เฟรม "รายละเอียดหนังสือ" จะมีปุ่มค้นหาโดยมี combobox และ textbox ที่ใช้สำหรับกำหนดเงื่อนไขค้นหา โดย commandbutttom ที่ให้เรียก moldule สำหรับค้นหา โดยที่ sheet "SearchDataOUT" จะใช้เก็บข้อมูลที่ค้นจาก sheet "DatabaseOUT " เพื่อมาแสดงผล

สำหรับปุ่มแก้ไขและลบข้อมูล ก็จะลบข้อมูลที่ "DatabaseOUT" ครับ

ขอความช่วยเหลือด้วยครับ ขอบพระคุณครับ

[snasui]

ขอค่าที่ใช้ในการทดสอบครับ

บอก Object ที่ต้องคลิกมาตามลำดับ ค่าทดสอบที่ต้องกรอก และ Error ที่จะแสดง ควรแจ้งสิ่งเหล่านี้มาเสมอ แก้ให้ผ่านไปทีละเรื่องครับ

[9KiTTi]

ขอค่าที่ใช้ในการทดสอบครับ

บอก Object ที่ต้องคลิกมาตามลำดับ ค่าทดสอบที่ต้องกรอก และ Error ที่จะแสดง ควรแจ้งสิ่งเหล่านี้มาเสมอ แก้ให้ผ่านไปทีละเรื่องครับ

เนื่องจากผมไม่ค่อยมีความรู้เรื่อง VBA เท่าไหร่ ผมขออนุญาตอธิบายตามความสามารถที่มีนะครับ คือ ที่หน้าฟอร์ม "ลงทะเบียนหนังสือรับ" จะเลือกประเภทของหมวดหมู่ที่ต้องการค้นหา หลังจากนั้นให้ใส่ข้อความในช่อง "สิ่งที่ต้องการค้นหา" หลังจากนั้นกดปุ่ม "search" จะไปเรียก macro ที่ฟอร์ม "frmRecives"

Code: Select all

Private Sub cmdSearchrecives_Click()

    If Me.recivestxtSearch.value = "" Then
    
        MsgBox "ãÊè¢éͤÇÒÁ·Õèµéͧ¡Òäé¹ËÒ", vbOKOnly + vbInformation, "¤é¹ËÒ"
        Exit Sub
    
    End If
    
    Call SearchData_recives
     
End Sub

module

Code: Select all

Private Sub cmdSearchrecives_Click()

    If Me.recivestxtSearch.value = "" Then
    
        MsgBox "ใส่ข้อความที่ต้องการค้นหา", vbOKOnly + vbInformation, "ตกลง"
        Exit Sub
    
    End If
    
    Call SearchData_recives
     
End Sub

หลังนั้นจะเกิด error ที่ module4 >>> error ตามภาพครับ

ขออภัยด้วยครับที่อธิบายไม่เป็นไปตามหลักการเขียนโปรแกรมครับ

[snasui]

ค่อย ๆ ถามตอบกันไปครับ

ที่หน้าฟอร์ม "ลงทะเบียนหนังสือรับ" จะเลือกประเภทของหมวดหมู่ที่ต้องการค้นหา

เลือกหมวดไหน โปรดระบุครับ

หลังจากนั้นให้ใส่ข้อความในช่อง "สิ่งที่ต้องการค้นหา"

ใส่ข้อความใดโปรดระบุครับ

[9KiTTi]

ค่อย ๆ ถามตอบกันไปครับ

ที่หน้าฟอร์ม "ลงทะเบียนหนังสือรับ" จะเลือกประเภทของหมวดหมู่ที่ต้องการค้นหา

เลือกหมวดไหน โปรดระบุครับ

หลังจากนั้นให้ใส่ข้อความในช่อง "สิ่งที่ต้องการค้นหา"

ใส่ข้อความใดโปรดระบุครับ

ประเภทหนังสือเลือกโดยดึงจาก sheet "list"

ข้อความที่ใส่เป็นรายละเอียดหนังสือที่บันทึกลง sheet "DatabaseOUT" ที่ดึงมาแสดงใน frame "รายละเอียดหนังสือ" ครับ

ขอบพระคุณครับ

[snasui]

ค่อย ๆ ถามตอบกันไปครับ

ที่หน้าฟอร์ม "ลงทะเบียนหนังสือรับ" จะเลือกประเภทของหมวดหมู่ที่ต้องการค้นหา

เลือกหมวดไหน โปรดระบุครับ

หลังจากนั้นให้ใส่ข้อความในช่อง "สิ่งที่ต้องการค้นหา"

ใส่ข้อความใดโปรดระบุครับ

คำถามนี้ไม่ได้อยากทราบว่าข้อมูลที่นำมาแสดงใน ComboBox เอามาจากไหนแต่อย่างใดครับ

แต่อยากทราบว่าก่อนคลิกเลข 3 ในภาพ

1. หมายเลข 1 ในภาพ เป็นค่าอะไร
2. หมายเลข 2 ในภาพ เป็นค่าอะไร

ทั้งหมายเลข 1 และหมายเลข 2 ต้องแจ้งค่าที่คลิกหมายเลข 3 แล้วเกิด Error ไม่ใช่แจ้งค่าใด ๆ ที่ไม่ก่อให้เกิด Error ครับ

[9KiTTi]

ค่อย ๆ ถามตอบกันไปครับ

ที่หน้าฟอร์ม "ลงทะเบียนหนังสือรับ" จะเลือกประเภทของหมวดหมู่ที่ต้องการค้นหา

เลือกหมวดไหน โปรดระบุครับ

หลังจากนั้นให้ใส่ข้อความในช่อง "สิ่งที่ต้องการค้นหา"

ใส่ข้อความใดโปรดระบุครับ

คำถามนี้ไม่ได้อยากทราบว่าข้อมูลที่นำมาแสดงใน ComboBox เอามาจากไหนแต่อย่างใดครับ

แต่อยากทราบว่าก่อนคลิกเลข 3 ในภาพ

1. หมายเลข 1 ในภาพ เป็นค่าอะไร
2. หมายเลข 2 ในภาพ เป็นค่าอะไร

ทั้งหมายเลข 1 และหมายเลข 2 ต้องแจ้งค่าที่คลิกหมายเลข 3 แล้วเกิด Error ไม่ใช่แจ้งค่าใด ๆ ที่ไม่ก่อให้เกิด Error ครับ

ต้องขออภัยอาจารย์ครับ ผมไม่มีความรู้เรื่องการเขียนโปรแกรมครับ ผมเลยไม่เข้าใจความหมายของค่าที่อาจารย์ต้องการทราบจริงๆ ขออภัยด้วยครับ