Access - 여러 테이블에 같은 값 한번에 입력하기

엑세스(Access) 목차로 돌아가기

여러 테이블에 한번에 입력하기

여러테이블에 같은 기본키를 맺어놓고 일일히 입력하려면 귀찮습니다 -ㅁ-...

그래서 고민하다가 찾아낸 방법입니다.

입력하고 클릭하면 모든 테이블에 주르륵 들어가니 전 이게편하네요 

고수님들의 다른방법이 있을거라 생각합니다. 혹시 아시면 뎃글좀 부탁드려요^^;

잡설은 그만하고 설명하겠습니다.

1. 아무 폼을 만든다. 

2. 텍스트 상자, 버튼을 만든다.

3. 텍스트 상자 이름을 txt1으로 만든다.

4. 버튼의 이벤트속성에서 on Click -> 코드작성기 클릭

5. 아래 소스를 이해하고 끼워넣읏시면 됩니다.

   Dim SQL As String <- 변수선언 하기

     

   SQL = "insert into [테이블이름(속성명)] values (" & 텍스트상자이름 & ")"       <--SQL문을 작성

    

   DoCmd.RunSQL SQL <-- SQL문을 적용시킴

2번째 줄과 3번재 줄 반복하면됨.    

아래는 예제입니다.

   Dim SQL As String

     

   SQL = "insert into [1_기초정보(주민번호)] values ('" & Me.txtpnum & "')"

    

   DoCmd.RunSQL SQL

    

   SQL = "insert into [2_프로그램(주민번호)] values ('" & Me.txtpnum & "')"

    

   DoCmd.RunSQL SQL

6. 그리고 폼으로 돌아와서 넣을 값 입력하고 클릭!

이해 안되시는분은 간략히 찍은 동영상 첨부하니 참고.

7. 그래도 이해 못하시겠다 하시는분은 뎃글문의 하시길.