Snasui Excel Forum

Code: Select all

Private Sub cmdDelete_Click()
    
    Dim iRow As Long
    
    If Selected_List = 0 Then
    
        MsgBox "No row is selected.", vbOKOnly + vbInformation, "Delete"
        Exit Sub
    End If
    
    Dim i As VbMsgBoxResult
    
    i = MsgBox("Do you want to delete the selected record?", vbYesNo + vbQuestion, "Confirmation")
    
    If i = vbNo Then Exit Sub
    
    iRow = Application.WorksheetFunction.Match(Me.ListBox2.List(Me.ListBox2.ListIndex, 0), _
    ThisWorkbook.Sheets("Addrequisition1").Range("A:A"), 0)
    
    ThisWorkbook.Sheets("Addrequisition1").Rows(iRow).Delete
    
    'Call ResetReturntool3
    
    MsgBox "Selected record has been deleted.", vbOKOnly + vbInformation, "Deleted"
    
End Sub

Code: Select all

Function Selected_List() As Long

    Dim i As Long
    
    Selected_List = 0
    
    For i = 0 To frmReturntool.ListBox2.ListCount - 1
        
        If frmReturntool.ListBox2.Selected(i) = True Then
        
            Selected_List = i + 1
            Exit For
        End If
        
    Next i

End Function

Code: Select all

Private Sub cmdDelete_Click()
    
    Dim iRow As Long
    
    If Selected_ListfrmBo = 0 Then
    
        MsgBox "·èÒ¹äÁèä´éàÅ×Í¡ÃÒ¡ÒÃã¹ List box.", vbOKOnly + vbInformation, "Delete"
        Exit Sub
    End If
    
    Dim i As VbMsgBoxResult
    
    i = MsgBox("·èÒ¹µéͧ¡Òà ź ÃÒ¡Ò÷Õè·èÒ¹àÅ×Í¡ ãªèËÃ×ÍäÁè ?", vbYesNo + vbQuestion, "Confirmation")
    
    If i = vbNo Then Exit Sub
    
    iRow = Application.WorksheetFunction.Match(Me.ListBox2.List(Me.ListBox2.ListIndex, 0), _
    ThisWorkbook.Sheets("Addrequisition1").Range("B:B"), 0)
    
    ThisWorkbook.Sheets("Addrequisition1").Rows(iRow).Delete
    
    Call ResetFormBorrow3
    Me.ListBox2.ListIndex = -1        'äÁèâªÇìᶺÊÕ¹éÓà§Ô¹
    MsgBox "·Ó¡Òà ź record ·Õè·èÒ¹àÅ×Í¡áÅéÇ", vbOKOnly + vbInformation, "Deleted"
    
    txtADDNumber.Text = ListBox2.ListCount
    
End Sub

Code: Select all

Function Selected_ListfrmBo() As Long

    Dim i As Long
    
    Selected_ListfrmBo = 0
    
    For i = 0 To frmBorrow.ListBox2.ListCount - 1
        
        If frmBorrow.ListBox2.Selected(i) = True Then
        
            Selected_ListfrmBo = i + 1
            Exit For
        End If
        
    Next i

End Function

Code: Select all

Private Sub cmdDelete_Click()
    
    If Selected_List = 0 Then
    
        MsgBox "No row is selected.", vbOKOnly + vbInformation, "Delete"
        Exit Sub
    End If
    
    Dim i As VbMsgBoxResult
    
    i = MsgBox("Do you want to delete the selected record?", vbYesNo + vbQuestion, "Confirmation")
    
    If i = vbNo Then Exit Sub
    
    ThisWorkbook.Sheets("Database").Rows(Selected_List + 1).Delete
    
    Call Reset
    
    MsgBox "Selected record has been deleted.", vbOKOnly + vbInformation, "Deleted"
    
    
    
End Sub

Code: Select all

Private Sub cmdDelete_Click()
    
    Dim iRow As Long
    
    If Selected_ListfrmBo = 0 Then
    
        MsgBox "ท่านไม่ได้เลือกรายการใน List box.", vbOKOnly + vbInformation, "Delete"
        Exit Sub
    End If
    
    Dim i As VbMsgBoxResult
    
    i = MsgBox("ท่านต้องการ ลบ รายการที่ท่านเลือก ใช่หรือไม่ ?", vbYesNo + vbQuestion, "Confirmation")
    
    If i = vbNo Then Exit Sub
    
    ThisWorkbook.Sheets("Addrequisition1").Rows(Selected_ListfrmBo + 1).Delete

    
'    iRow = Application.WorksheetFunction.Match(Me.ListBox2.List(Me.ListBox2.ListIndex, 0), _
'    ThisWorkbook.Sheets("Addrequisition1").Range("B:B"), 0)
'
'    ThisWorkbook.Sheets("Addrequisition1").Rows(iRow).Delete
    
    Call ResetFormBorrow3
    Me.ListBox2.ListIndex = -1        'ไม่โชว์แถบสีน้ำเงิน
    MsgBox "ทำการ ลบ record ที่ท่านเลือกแล้ว", vbOKOnly + vbInformation, "Deleted"
    
    txtADDNumber.Text = ListBox2.ListCount
    
End Sub