이전에 매입처 관리를 시트로 만들었었는데, 이번에 DB 변경하면서 유저폼으로 새로 만들기로 했습니다. 일단 유저폼 양식은 아래와 같습니다. 텍스트 박스 5개 (검색, 매입처명, 구분, 발주구분) 매입처명 위의 텍스트 박스는 일련번호용 입니다. 나중에 숨김처리할 예정입니다. 버튼 5개 (등록, 수정, 삭제, 초기화, 닫기) 로 구성했습니다. 여담이지만 사실 등록, 수정 부분을 팝업으로 유저폼을 하나 더 만들까를 많이 고민했는데, 일단 구성 요소가 3개밖에 안되서 그냥 유저폼 하나에서 처리하는 방향으로 잡았습니다. 매출처 관리쪽은 팝업 형식으로 만들 예정입니다. 데이터를 표시하는 부분은 ListView를 사용했습니다. 도구>추가 컨트롤에서 Microsoft ListView Control, version 6...
유저폼은 만들어줬는데 테이블 생성을 빼먹었네요. 간단하게 테이블 생성을 하고 갈께요. management system은 HeidiSQL을 사용했습니다. 이유는 딱히 없어요 무료라서 ㅎㅎ 다운로드 페이지는 아래와 같습니다. www.heidisql.com/download.php Download HeidiSQL Ads were blocked - no problem. But keep in mind that developing HeidiSQL, user support and hosting takes time and money. You may want to send a donation instead. Download HeidiSQL 11.2, released on 24 Jan 2021 Installer, 32/64..
지난 포스팅에서 유저폼을 만들고 코드는 따로 설명하지 않아서 이번 포스팅에서 코드에 대한 설명을 이어갈까 합니다. 이전 포스팅은 아래의 링크를 참조해 주세요. cookiexcel.tistory.com/22 로그인 만들기 #1 로그인 유저폼 만들기 이전 거래처 관리를 만들다가 말았는데 변경사항이 생겨 로그인부터 새롭게 시작합니다. 변경사항으로는 DB를 MSSQL에서 MySQL로 변경하였습니다. (회사에서는 MSSQL을 쓰는데 개인적으로는 MySQL이 cookiexcel.tistory.com 이전 포스팅에서 DB접속 모듈과 로그인 폼을 불러오는 모듈을 작성 했습니다. 이번 포스팅은 로그인 유저폼 내부의 코드입니다. 더보기 Option Explicit Sub Userform_MouseMove(ByVal But..
이전 거래처 관리를 만들다가 말았는데 변경사항이 생겨 로그인부터 새롭게 시작합니다. 변경사항으로는 DB를 MSSQL에서 MySQL로 변경하였습니다. (회사에서는 MSSQL을 쓰는데 개인적으로는 MySQL이 가격이 저렴해서 연습/공개용으로 쓰기에는 적당하다 생각되서 MySQL로 바꿔서 진행할 예정입니다.) 처음에 포스팅을 시작할때는 그냥 소스 공개정도로만 생각했는데, 이번에는 소스를 공개하면서 일정수준 프로그램이 완성되면 완성본도 함께 사용할 예정입니다. 그럼 우선 로그인폼을 만들어 보겠습니다. 먼저 유저폼을 하나 만들어주세요. 저는 이번엔 완성된 로그인 유저폼을 빌려와 적당히 수정해서 쓰기로 했습니다. 빌려온 유저폼은 "오빠두엑셀"의 로그인 폼을 약간 수정해서 사용하였습니다. TextBox 2개와 버튼 ..
mysql odbc 8.0(w) driver bad handshake이전글의 오류에서 벗어났더니 새로운 오류가 발생했습니다. cookiexcel.tistory.com/20 [microsoft][odbc 드라이버 관리자] 데이터 원본 이름이 없고 기본 드라이버를 지정하지 않았습니다. 지금까지 SQL Server(MSSQL)을 사용하다가 MySQL로 코드를 만들다보니 시작부터 벽에 부딛혔네요... DB 연결을 해보니 제목과 같은 오류가 발생합니다. [microsoft][odbc 드라이버 관리자] 데이터 원본 이름 cookiexcel.tistory.com MySQL Connecter을 설치해주었으나 mysql odbc 8.0(w) driver bad handshake 라는 새로운 오류를 만났습니다. 원인은 M..
지금까지 SQL Server(MSSQL)을 사용하다가 MySQL로 코드를 만들다보니 시작부터 벽에 부딪혔네요... DB 연결을 해보니 제목과 같은 오류가 발생합니다. [microsoft][odbc 드라이버 관리자] 데이터 원본 이름이 없고 기본 드라이버를 지정하지 않았습니다. 오류의 해결법은 MySQL Connecter를 설치해주는겁니다. 아래의 주소에서 다운 받을 수 있습니다. dev.mysql.com/downloads/connector/odbc/ MySQL :: Download Connector/ODBC Select Operating System: Select Operating System… Microsoft Windows Ubuntu Linux Debian Linux SUSE Linux Enterp..
새로운 소스를 포스팅 했습니다. 여기에서 확인해 주세요. 원본 소스는 "오빠두엑셀"에서 가져왔습니다. 원본에는 카톡 대화창이 열려 있을때만 보낼수 있게 되어있는데, 댓글을 보니 채팅창이 닫혀있을때는 안정성이 떨어진다는 이유로 업데이트를 보류하고 있다고 하네요. 해서 여기저기 찾아보고 제 나름대로 업데이트를 했습니다. 채팅창이 간혹 안열리는 경우가 있어서 sleep로 대기시간을 1초정도 넣어줘 봤습니다. 아마도 원작자분이 얘기하신 안정성 문제가 이런 부분이 아닐까 싶은데 제 능력으론 대기시간을 주는 정도로 밖에는 다른 해결책이 떠오르지 않네요. 참고해서 연구해 보실분들은 연구해 보시면 좋을것 같습니다. 더보기 시트 소스코드 입니다. Private Sub Worksheet_Change(ByVal Target..
맨위의 행으로 이동하는 명령어 ActiveWindow.ScrollRow = 1 스크롤을 아래로 내리거나 데이터 양이 많아서 검색등을 했을시에 스크롤을 처음행으로 이동시킬수 있다.
이번 포스팅은 매입처 관리에서 삭제 버튼에 할당되는 프로시저입니다. 삭제에는 따로 유저폼이 필요하지 않기 때문에 코드만 넣어주시면 되겠습니다. 아래와 같이 두개의 프로시저를 만들어주세요. 12345678910111213141516171819202122232425262728293031323334353637Sub 매입처_삭제() 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, "..
MSSQL을 처음 쓸때 이 오류 때문에 한동안 고생했던 경험이 있습니다. 테이블에 열을 추가하거나 삭제한후 저장하려고 했는데 오류가 떠서 이것때문에 고생했었죠. 아래와 같은 오류가 나왔을때의 대처방법 입니다. 메뉴의 도구>옵션을 선택해주세요. 왼쪽 탭에서 디자이너를 선택한후 테이블을 다시 만들어야 하는 변경 내용 저장 안 함(S)에 체크를 해제해 주세요. 이렇게 하면 테이블 수정후에 저장이 됩니다. 자세한 설명은 아래의 공식 페이지에서 확인하실 수 있습니다. https://support.microsoft.com/ko-kr/help/956176/error-message-when-you-try-to-save-a-table-in-sql-server-saving-change
