|
안녕하세요. 항상 많은 도움 받고 있는 초보자입니다.
한개의 레코드에 다음과 같은 정보를 담고 있습니다.
★현재상태: 1번레코드 = 홍길동 / 남자 / 서울초교 / 서울중 / 서울고
학교와 관련된 정보만을 각각 분리하여 아래처럼 하고자 하는데 간단한 방법이 있을까요
★희망하는 상태: 1번레코드 = 홍길동 / 남자 / 서울초교
2번레코드 = 홍길동 / 남자 / 서울중
3번레코드 = 홍길동 / 남자 / 서울고
너무 초보적인 질문일수도 있지만 잘 부탁드립니다.
==============[바보님 글에 대한 답변입니다]==============
조건1. 분리될 내용이 첫번째 성명,두번째 성별, 이후 학교
조건2. 각항목의 분리자가 " / " 로 동일할것.
Dim rst As DAO.Recordset
Dim strSQL As String
Set rst = CurrentDb().OpenRecordset("기존테이블이름")
DoCmd.SetWarnings False
Do While Not rst.EOF
Dim splArr() As String
Dim j As Integer
splArr = Split(rst.Fields("필드이름"), " / ")
For i = 2 To UBound(splArr)
strSQL = "INSERT INTO 새테이블이름(필드이름) VALUES(""" & splArr(0) & " / " & splArr(1) & " / " & splArr(i) & """)"
DoCmd.RunSQL (strSQL)
Next
rst.MoveNext
j = j + 1
Loop
MsgBox j & "개의 레코드 분리됨"
DoCmd.SetWarnings True |
|