발주관리#8 매입처 삭제

이번 포스팅은 매입처 관리에서 삭제 버튼에 할당되는 프로시저입니다.

삭제에는 따로 유저폼이 필요하지 않기 때문에 코드만 넣어주시면 되겠습니다.

 

아래와 같이 두개의 프로시저를 만들어주세요.

 

Sub 매입처_삭제()
 
    Dim rngclmB As Range              '붙여넣은 영역의 B열을 담아둘 변수
 
    If Intersect(Columns("A"), Selection) Is Nothing Or Not Intersect(Rows("1:3"), Selection) Is Nothing Then    'A열이 아니거나 1:3행일 경우 sub 종료
        MsgBox "삭제할 번호셀을 선택해 주세요!", vbCritical, "삭제오류"
        Exit Sub
    End If
    
    '복수셀 선택시 종료
    If Selection.Count > 1 Then
        MsgBox "수정할 하나의 셀만 선택해 주세요!", vbCritical, "오류"
        Exit Sub
    End If
    
    Set rngclmB = Intersect(Columns("A"), Selection)      '선택한 영역의 A열을 Range 변수에 넣기
 
    If MsgBox("선택하신 매입처 [" & rngclmB.Offset(, 1).Value & "](을)를 삭제하시겠습니까?", vbOKCancel, "매입처 삭제") = vbOK Then
        Call 매입처_선택삭제(rngclmB)
    End If
    
    Call 매입처DB불러오기
    
End Sub
 
Private Sub 매입처_선택삭제(Target As Range)
 
    On Error Resume Next
    Call DataBase연결
    
    SQL = "DELETE FROM 매입처 WHERE 번호 = '" & Target.Value & "'"
    
    rs.Open SQL, Cn
    rs.Close
    Cn.Close
 
End Sub

 

이제 만들어준 프로시저를 삭제 버튼에 연결해주면 끝입니다.

 

이번 포스팅은 간단하네요.

이로서 매입처관리 부분의 포스팅은 마무리가 되었습니다.

 

다음 포스팅은 매출처관리를 만들도록 하겠습니다.