바코2://#9. 기초 코딩, 버튼에 코딩삽입(1) - 저장

드디어! 테이블에 쓰기를 할 차례 입니다.

새로운 레코드의 추가는 두가지 방법을 다뤄 보려고 합니다.
우선 코드를 작성하고 설명을 덧붙이겠습니다.

폼의 디자인 보기 > 저장/수정 버튼 클릭 > 속성시트의 ... 버튼 클릭 > 코드 작성기 선택 > 확인 => VBA창이 열립니다.

Private Sub 버저장_Click() 
If Nz(ID, 0) = 0 Then 'ID가 없으면 새로운 레코드 입력하는 코드 
CurrentDb.Execute "insert into 고객(사업자등록번호,업체명,대표이름,전화번호,팩스번호 " & _
", 주소, 업종, 업태, 부가세이메일) values ('" & 사업자등록번호 & "', '" & 업체명 & "', '" & 대표이름 & "', " & _ 
"'" & 전화번호 & "', '" & 팩스번호 & "', '" & 주소 & "', '" & 업종 & "', '" & 업태 & "', '" & 부가세이메일 & "')", dbSeeChanges 

Else 
'ID가 있으면 수정하는 코드 
End If 
End Sub

위 저장버튼에 사용한 코드에 대한 설명

* 아래의 코드는 모르고 그냥 가져다가 붙여도 프로그램이 완성될 예정이니 코드 모른다고 진도를 못나가는 일은 없습니다. 그냥 따라오세요.
** 대신 검색어를 몰라서 공부를 못하는 경우들이 있습니다. 공부해야 될것들은 나눠서 표시 해드렸으니 공부를 해보시기 바랍니다.

1. IF 함수

https://support.microsoft.com/ko-kr/office/if-%ED%95%A8%EC%88%98-69aed7c9-4e8a-4755-a9bc-aa8bbff73be2

IF 함수

2. nz 함수

https://support.microsoft.com/ko-kr/office/nz-%ED%95%A8%EC%88%98-8ef85549-cc9c-438b-860a-7fd9f4c69b6c

Nz 함수

3. currentdb.execute "아래 1),2),3)중에 하나"

현재 DB에서 실행하라.

1) 새 데이터 추가: insert into 테이블(필드명) values (값)
2) 수정: update 테이블 set 필드명 = 값
3) 삭제: delete * from 테이블

4. 값 부분에 들어가는 부호들

숫자형 "& 숫자 &"
문자형 '"& 문자 & "'
날짜형 #"& 날짜 &"#

5. dbseechanages (추후 SQL server에 이용할때 필요한 구문: sql 서버에서도 작동하게 코딩중입니다.)

위의 코드는 '저장' 만 되는 코드 입니다. 어떻게 저장이 됐는지 한번 봐야겠지요?

위 필드에 ID를 제외한 입력값들을 넣고 저장 버튼을 눌러보겠습니다. 그리고 테이블을 열면 입력한대로 테이블에 저장이 된것을 볼 수 있습니다.

다음 편에서는 수정과 수정에 필요한 내용으로 진행하겠습니다.

혹여나 이쯤까지 눈팅으로 버티신분들이 계시다면, 다음 내용부터 따라가시기 힘들수도 있습니다. 1편부터 제가 하는 작성하는 표나 테이블이나 코드는 전부 경험해보시면 뭔가 머릿속에 남는다고 말씀드리겠습니다.

[이전 글]: 바코2://#8. FE와 BE의 연결 작업, 코딩 시작! Null
[다음 글]: 바코2://#10. 기초 코딩, 버튼에 코딩삽입(2) - 검색