이번 포스팅은 매입처 관리에서 삭제 버튼에 할당되는 프로시저입니다. 삭제에는 따로 유저폼이 필요하지 않기 때문에 코드만 넣어주시면 되겠습니다. 아래와 같이 두개의 프로시저를 만들어주세요. 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
이번 포스팅은 지난 발주관리#3에서 만들어둔 수정 버튼에 프로시저를 만들어 연결하겠습니다. 역시 지난 포스팅에서 만들었던 유저관리폼과 함께 사용하게 됩니다. 우선 수정 버튼을 눌렀을때 실행될 프로시저 입니다. 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 Sub 매입처_수정() '복수셀 선택시 종료 If Selection.Count > 1 Then MsgBox "수정할 하나의 셀만 선택해 주세요!", vbCritical, "오류" Exit Sub End If 'A:C열이 아니거나 1:3행일경우 종료 If Intersect(Columns("A:C"), Selection) Is Nothing Or Not Intersect(Rows("1:..
예전에 필요해서 찾아봤던 내용인데 테이블 비우는 명령어 입니다. TRUNCATE TABLE [테이블명] 테이블의 모든 내용을 삭제하며, IDENTITY를 초기화 해줍니다 테이블 내용을 삭제하는 명령어는 DELETE 명령어도 있습니다. DELETE FROM [테이블명] DELETE의 경우에는 IDENTITY의 초기화는 시켜주지 않습니다. 예를들어 1,2,3이라는 일련번호가 있는 테이블을 삭제했을경우 DELETE로 삭제한후 새로운 데이터를 입력하면 일련번호가 4부터 시작을 합니다. (일련번호 자동증가 설정을 했을경우) TRUNCATE로 삭제했을때는 일련번호가 1번부터 다시 시작합니다.
이번 포스팅은 지난 발주관리#3에서 만들어둔 버튼에 프로시저를 만들어 연결하겠습니다. 지난 포스팅에서 만들었던 유저관리폼과 함께 사용하게 됩니다. 우선 추가버튼에 연결할 프로시저를 만듭니다. 1 2 3 4 5 6 7 8 9 10 11 '매입처등록폼 불러오기 Public Sub show_매입처등록폼() With 매입처등록폼 .StartUpPosition = 0 .Left = 400 .Top = 200 .Show '매입처등록폼 불러오기 End With End Sub Colored by Color Scripter cs 추가버튼에 매크로 연결을 해주세요. 이제 매입처등록폼에 내용을 채워줘야 합니다. 좌측 프로젝트창에서 폼>매입처등록폼을 우클릭 한뒤 코드보기를 눌러주세요. 매입처등록폼에 아래의 코드를 입력해 줍니..
이전시간에 DB에 매입처 테이블을 만들었으니 이제 매입처 테이블을 제어할 엑셀 시트를 만들겠습니다. 우선 매입처관리 시트를 만들어 주세요. 3번째 열에 A,B,C행에 각각 번호, 매입처명, 구분으로 타이틀을 적어주시구요. 위에 2개의 열을 비워둔것은 버튼을 배치하기 위함입니다. 개발도구 > 삽입 > 단추(양식 컨트롤)을 눌러 버튼을 3개 추가해주세요. 버튼의 이름을 각각 추가, 수정, 삭제로 변경합니다. 4번째 행을 선택한뒤 보기 > 틀고정 으로 틀고정을 시켜주세요. 틀고정은 굳이 안해도 상관은 없지만 매입처수가 많아지면 틀고정을 하는게 보기&관리하기 편합니다. 이걸로 기본 준비는 되었네요. 다음 포스팅에서는 DB와 연결을 시켜보도록 할께요.
번호는 일련번호이며 ID 사양을 "예"로 선택해주면 1번부터 1씩 증가하는 일련번호가 자동으로 생성됩니다. 매입처명은 단순하게 매입처 이름. 구분은 차후 출력 설정 및 정렬을 위한 구분자 입니다. 번호는 int 매입처명과 구분은 nvarchar로 설정해주세요. nvarchar뒤어 (50)은 문자형의 길이를 나타냅니다. 즉, 50자의 문자형 데이터가 됩니다. 데이터 형식에서 문자형은 nvarchar을 사용하는데 저는 유니코드(중국어, 일본어등 외국어)를 사용하기 위해서 nvarchar을 사용합니다. 일반적으로는 varchar을 사용하셔도 무방합니다. 번호열은 기본키로 설정해 주세요. 일련번호는 기본키로 설정을 해줘야 중복 없이 데이터가 저장됩니다.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Option Explicit Dim Cn As ADODB.Connection Dim rs As ADODB.Recordset Dim SQL As String Sub DataBase연결() On Error Resume Next Dim a, b, c, d As String a = "DB IP 어드레스" 'IP 어드레스 b = "DB 이름" 'DB c = "ID" 'ID d = "password" 'PW Set Cn = New ADODB.Connection Set rs = New ADODB.Recordset Cn.Open "Provider = SQLOLEDB;Data Source=" & a & ";Initial Catalog= " ..
