바코2://#24. 아이템, 재고 관련 (3-2) 공급주문 폼

 

이번 포스트는 공급주문 폼 작성내용입니다. 

폼을 만들기에 앞서 공급주문에 사용할 테이블의 데이터 정리를 해주겠습니다.

 

곧 데이터가 많아야 되는 부분들을 진행할거라, 주제를 정하고 진입해야 할 것 같습니다.

바보처럼 코딩하기 유튜브에서 사용했던 문구점을 다시 예를 들어 진행해보겠습니다.

내 회사의 이름: 우리문구

취급 아이템: 가위(노랑,파랑)(구매 500원, 구매 1000원), 색연필(빨강, 초록)(구매 400원, 800원)

이 정도면 되겠네요 ㅎㅎ.

 

공급자는 위의 그림과 같이 정리했고, 우리문구는 자사확인에 1을 적어뒀습니다.

 

음....저장을 안하고, 또 브라우져를 닫았네요 ㅎㅎㅎ

테이블로 보여드리고, 코드 에러 났던것 하나 올리고 진행하겠습니다.

 

아이템등록 폼의 저장 버튼에서 (아래의 코드는 수정이 완료됐으니 가져다 붙이셔도 됩니다.)

update 아이템 set  이 부분을 수정했습니다. 원래는 update set 아이템 으로 잘못 적어놨었습니다.

Private Sub 버저장_Click()
If Nz(ID, 0) = 0 Then
CurrentDb.Execute "insert into 아이템 (아이템명,색상명,모델코드,공급자ID,공급업체명,공급단가,판매단가) " & _
"values('" & 아이템명 & "','" & 색상명 & "','" & 모델코드 & "'," & 공급업체명 & ",'" & 공급업체명.Column(1) & "'," & 공급단가 & "," & 판매단가 & ")", dbSeeChanges


MsgBox "저장"
Else


CurrentDb.Execute "update 아이템 set 아이템명='" & 아이템명 & "',색상명= '" & 색상명 & "',모델코드 = '" & 모델코드 & "', " & _
"공급자ID =" & 공급업체명 & ",공급업체명='" & 공급업체명.Column(1) & "',공급단가=" & 공급단가 & ",판매단가=" & 판매단가 & " where ID = " & ID & "", dbSeeChanges
MsgBox "수정"
End If

버초기화_Click
End Sub

아이템 등록 폼을 이용해서 위의 테이블을 입력해주세요. 모델 코드는 랜덤하게 자기 취향껏 작성해주시면 됩니다.

공급 담당자 폼을 이용해서 위의 데이터 같이 각 업체당 담당자 1명씩 넣어주세요.

Private Sub 고객ID_AfterUpdate()
Dim strSQL As String
strSQL = "select * from 공급담당자 where 공급자ID = " & 고객ID & ""
담당자리스트.RowSource = strSQL
담당자리스트.Requery

ID = Null
담당자명 = Null
담당자전화 = Null
End Sub

공급 담당자 폼에서  고객 ID_afterupdate에 아래에 위치한 null이 있는 3줄을 추가해주시거나 코드를 붙여넣기 해서 바꿔주세요.

 

이제 공급주문 폼을 만들겠습니다.

같은 패턴으로 만듭니다.

1) 마음에 드는 폼 하나 복사해서

2) 코드 지워주고,

3) 코드 삽입을 해줍니다.

 

(헤메실 분들을 위해서, 어떤걸 복사, 붙여넣기 하셔도 관계없지만, 저는 고객등록 폼을 복사해서 사용중입니다.

레이블의 고객등록을 --> 공급 주문 으로 변경해줬습니다.

어떤 필드를 사용할지 필드를 살펴봅니다. 공급주문장이라는 테이블을 하나 더 만들어야 겠습니다.

폼 복사하듯이 테이블도 ctrl+c, ctrl+v로 복사가 가능합니다.

구조만 가져오겠습니다.

- 공급주문장, 공급주문 테이블 필드 수정

 

공급 주문장과 공급주문 테이블의 필드를 수정해줍니다.

공급 주문 폼의 코드들을 깨끗하게 비워주고, 오브젝트들을 변경시켜주겠습니다. 테이블을 자세히 보시면 아시겠지만, 상위 개념과 하위개념으로 데이터를 구분해서 저장할 예정입니다.

 

이 포스트는 여기까지 진행하고 다음편에서는 앞서 운동화의 예를 들어서 얘기했던 시리얼 넘버 생성(주문 번호)생성 방법에 대해서 얘기를 하고 넘어가야 과정에 잘 맞을 것 같습니다. 

 

 

[이전 글]: 바코2://#23. 아이템, 재고 관련 (3-1) feat. 내게 필요한 필드 찾기

[다음 글]: 바코2://#25. 아이템, 재고 관련 (4) 공급주문 폼 - 주문 번호 생성하기