이번 포스팅에서는 매출처 관리 유저폼을 만들어 보겠습니다. 기본 레이아웃은 아래의 그림과 같습니다. 검색은 텍스트 박스, 우측 상단에 텍스트 박스는 리스트뷰 선택시 선택한 idx를 넣어둘 텍스트 박스입니다. 매입처 관리 유저폼과 마찬가지로 리스트뷰를 사용했습니다. 아래의 등록, 수정, 삭제, 닫기의 4개 버튼은 레이블 컨트롤을 사용합니다. 다음은 유저폼 코드입니다. 먼저 유저폼이 실행되었을때 처리되는 코드 입니다. Option Explicit '폼 열릴때 실행 Private Sub UserForm_Initialize() Call SetColumnHeaders Call Connect_DB Call Load_Client_DB Cn.Close Me.txtSearch.SetFocus End Sub 리스트뷰의 헤..
이번 포스팅은 5개의 버튼 각각의 코드입니다. 버튼은 등록, 수정, 삭제, 초기화, 닫기 이렇게 5개입니다. 우선 등록 버튼은 매입처명, 구분, 발주구분을 입력한뒤 클릭시 DB에 저장(INSERT)하는 코드입니다. '등록 Private Sub btnRegister_Click() If txtPurchase.Value = "" Then MsgBox "매입처명을 입력해 주세요.", vbCritical, "입력오류" Exit Sub End If Call Connect_DB '중복 매입처 체크 SQL = "SELECT * FROM purchase WHERE purchaseName LIKE '" & txtPurchase.Value & "'" rs.CursorLocation = adUseClient '★★★★★★★★..
이번 포스팅에서는 매입처 관리폼에 만든 Listview에 데이터를 넣는 코드를 작성해 보겠습니다. 먼저 폼이 열릴때 실행되는 코드 입니다. '폼 열릴때 실행 Private Sub UserForm_Initialize() Call SetColumnHeaders Call Load_Purchase_DB Me.txtSearch.SetFocus End Sub Listview의 헤더를 설정해주고, 데이터를 불러온뒤 검색창으로 포커스를 맞춰줍니다. SetColumnHeaders는 Listview의 헤더를 설정해 주는 모듈입니다. 코드는 아래와 같습니다. '리스트뷰 헤더 설정 Private Sub SetColumnHeaders() With Me.ListProduct.ColumnHeaders .Add Text:="번호",..
이전에 매입처 관리를 시트로 만들었었는데, 이번에 DB 변경하면서 유저폼으로 새로 만들기로 했습니다. 일단 유저폼 양식은 아래와 같습니다. 텍스트 박스 5개 (검색, 매입처명, 구분, 발주구분) 매입처명 위의 텍스트 박스는 일련번호용 입니다. 나중에 숨김처리할 예정입니다. 버튼 5개 (등록, 수정, 삭제, 초기화, 닫기) 로 구성했습니다. 여담이지만 사실 등록, 수정 부분을 팝업으로 유저폼을 하나 더 만들까를 많이 고민했는데, 일단 구성 요소가 3개밖에 안되서 그냥 유저폼 하나에서 처리하는 방향으로 잡았습니다. 매출처 관리쪽은 팝업 형식으로 만들 예정입니다. 데이터를 표시하는 부분은 ListView를 사용했습니다. 도구>추가 컨트롤에서 Microsoft ListView Control, version 6...
