액세스 VBA를 배우며 업무에 적용하고 있습니다. 물론 ‘직장인을 위한 실무 액세스’도 몇번 읽어보고 공부하고 있습니다. 며칠 동안 자력으로 풀어보려고 노력했으나 답을 못 구해서 도움을 요청 드립니다.

테이블과 폼을 바운드하면 저절로 해결되나 언바운드 폼(서브폼이 포함된 일대다 폼) 으로는 되지 않습니다.

f출고등록 폼에서 ‘출고번호’에 ‘201230S10’ 값을 입력한 다음 ‘읽기’ 단추를 클릭하면 ‘출고등록’ 테이블에서 레코드를 제대로 불러와 f출고등록 폼에 표시되는데, 서브폼에는 ‘출고’ 테이블의 출고번호(201230S10)에 해당하는 레코드가 5개이나 마지막 1개만이 표시될 뿐입니다. 여러 방법을 모색하여도 해결되지 않는데, 서브폼에 모든 레코드를 표시할 방법을 조언해주시면 감사하겠습니다.

읽기 버튼의 프로시저는 아래와 같습니다.

Private Sub cmd읽기_Click()

    If IsNull(Me.txt출고번호.Value) Then Exit Sub

    Dim db As DAO.Database

    Set db = CurrentDb

    Dim rs As DAO.Recordset

    Dim vSQL As String

    '일측 레코드의 읽기

    vSQL = "SELECT 출고일자, 판매처코드, 유무상 FROM 출고등록 "

    vSQL = vSQL & "WHERE 출고번호 = '" & Me.txt출고번호.Value & "';"

    Set rs = db.OpenRecordset(vSQL)

    If rs.BOF And rs.EOF Then

        MsgBox "대상 레코드가 없습니다.", vbInformation, "확인"

        GoTo Finally

    End If

    Me.txt출고일자.Value = rs!출고일자

    Me.txt판매처코드.Value = rs!판매처코드

    Me.txt유무상.Value = rs!유무상

    rs.Close

    '다측 레코드의 읽기

    Dim i As Integer

    vSQL = "SELECT 상품코드, 출고수량, 참고 FROM 출고 "

    vSQL = vSQL & "WHERE 출고번호 = '" & Me.txt출고번호.Value & "';"

    Set rs = db.OpenRecordset(vSQL)

    rs.MoveFirst

    Do While Not rs.EOF

        Me.f출고.Form.txt상품코드 = rs!상품코드

        Me.f출고.Form.txt출고수량 = rs!출고수량

        Me.f출고.Form.txt참고 = rs!참고

        rs.MoveNext

    Loop

Finally:

    If Not rs Is Nothing Then

        rs.Close

        Set rs = Nothing

    End If

    If Not db Is Nothing Then

        db.Close

        Set db = Nothing

    End If

End Sub