바코2://#15. 기초 코딩, 폼 다듬기 2 - 메세지 박스와 삭제

각 버튼마다 "이벤트가 발생됐는지"를 직관적으로 바로 알려줄 수 있는 기능이 메시지 박스 입니다.

https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/msgbox-function

MsgBox function (Visual Basic for Applications)

메시지 박스 함수에 대한 내용은 링크에서 확인해보시기 바랍니다. 제가 링크 드리는것들은 크롬으로 보실때 한글 번역해서 보실수도 있습니다.

https://support.google.com/chrome/answer/173424?hl=ko&co=GENIE.Platform%3DDesktop 

Chrome 언어 변경 및 웹페이지 번역하기 - 컴퓨터 - Google Chrome 고객센터

 

저장버튼의 코드에 간단한 msgbox코드를 넣었습니다. 코드의 가장 아랫부분에 넣는 이유는 모든 작업이 다 잘 마무리 된뒤에 메시지가 표시되야 하기 때문이죠.

 리스트에서 하나 선택하고 > 저장 버튼을 누르면 > 수정이 됐다고 나옵니다.

메시지 박스는 경고, 인포 등등 다양한 코딩을 추가 할 수 있습니다. 레퍼런스 참고하셔서 본인이 원하는 대로 구현해보세요. 간단하게 사용하고 싶으시면

• msgbox "말하고 싶은 메시지"   

이렇게만 사용하셔도 됩니다. 

 

삭제 버튼 코드 심기

Private Sub 버삭제_Click()
If Nz(ID, 0) = 0 Then
MsgBox "선택한 레코드없음"
Else

CurrentDb.Execute "delete * from 고객 where id = " & ID & "", dbSeeChanges
MsgBox "삭제"
End If

버초기화_Click
버검색_Click

End Sub

ID가 없으면 삭제가 안 일어나고, ID가 있으면 삭제후 메시지 박스가 나옵니다. 그 뒤로 저장에서 해줬던 초기화 및 검색 설정을 해줍니다.

 

필요에 의해 사용하는 복제 버튼이 있습니다. 이건 두셔도 되고, 안두셔도 되는데, 거의 비슷한 레코드를 가지는 품목들이 있을때가 있습니다. 하위 데이터들이 거의 비슷하고 제목만 바뀌는 그런 류의 데이터를 사용하실때는 복제해서 ID만 빼고 수정해줄거 수정해주고 추가해주면 손이 좀 덜 갑니다.

아래와 같이 새로 뭔가 추가해줄때 크기만 달라진다던가, 아이템이름만 변경된다던가 하는 그런 내용에 사용하기 위해서 복제 버튼을 만들어 사용하기도 합니다.

 

1. 아이템A: 크기 1800/ 무게 2kg/ 소재 철/ 형태 H형/공장 안산1공장.....

2. 아이템B: 크기 1820/ 무게 2kg/ 소재 철/ 형태 H형/공장 안산1공장.....

 

지금 이 버튼의 쓰임은 ID없이 레코드를 불러오고 > 레코드 수정하고 > 저장 하는 과정으로 사용되고

다른 복제의 버튼은 누르면 해당 레코드를 미리 복사해서 저장하고 > 저장된 데이터를 수정 하는 방식도 있습니다.

나중에 시간이 되고 기억이 나면 이부분도 포스팅하겠습니다.

 

 

[이전 글]: 바코2://#14. 기초 코딩, 폼 다듬기

[다음 글]: 바코2://#16. 하위 개념 사용해보기