OfficeTutor 365

액세스에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.

"000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.

[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !

[필독] 저작권법 개정에 따른 이용안내

작성자:    스타119 (star119) 추천:  0 파일:     질문사항(4).png (170.6KB) 조회:  1809 제목:   목록상자에서 텍스트 상자로 보내기를 하는데 잘 안되네요..
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.  - 액세스 버전(95,97,2000,xp,2003,2007): * 아래줄에 질문을 작성하세요 >>   안녕하세요?   액세스에 대해 공부좀 하다보니 잘 안되는 부분들이 있어서 질문 드립니다.   목록상자에서 텍스트 박스로 각각 텍스트 박스로는 들어가는 텍스트박스 하나에 쉼표 스타일로 구분하여 들어가지는 않네요 ㅠㅠ   방법을 잘 모르겠습니다.  알고계신 고수분들 답변글좀 부탁 드립니다.   Private Sub List1_AfterUpdate()     Dim vitem As Variant     Dim i As Integer          For i = 1 To 10     Me.Controls("text" & i) = Null     Next          i = 0          For Each vitem In List1.ItemsSelected     i = i + 1     Me.Controls("text" & i) = List1.ItemData(vitem)     Next End Sub 텍스트 박스 하나에 피자1,피자2,피자3 이런식으로 넣고 싶은데 어떻게 해야 할까요?  　 [불량 게시물 신고]
황동준 "목록상자에서 텍스트 박스로 각각 텍스트 박스로는 들어가는 텍스트박스 하나에 쉼표 스타일로 구분하여" 질문내용이 무슨 말씀인지 잘 이해가 안갑니다. 첨부 이미지 처럼은 아래와 같습니다. Dim i, j j = Me.List1.ListCount For i = 1 To 10     Me("text" & i) = Null Next i If j < 1 Then Exit Sub If j > 10 Then j = 10 For i = 1 To j     Me.List1.Selected(i - 1) = True     Me("text" & i) = Me.List1 Next i 10-29 (08:12) ⓧ삭제 ■신고 스타119 아... 제가 두서 없이 글을 썼군요~ 이미지에 보면 각각 텍스트 박스로 바운드를 시키는 것을 하나의 텍스트 박스에 피자1,피자2,피자3 이렇게 나열하는 방법을 알고 싶어서 올린 글이었습니다. 혹시 다시 이 글 보시면 답급 주시면 감사하겠습니다. 부탁 드려요 ^^ ㅠㅠ 10-30 (22:12) ⓧ삭제 ■신고 황동준 Dim i, j     '리스트박스의 값 개수     j = Me.List1.ListCount          '리스트박스에 값이 없을때 빠져나가기     If j < 1 Then Exit Sub     '텍스트상자 초기화     Me.Text1 = ""          '값넣기     For i = 1 To j         Me.List1.Selected(i - 1) = True         Me.Text1 = Me.Text1 & Me.List1 & ","     Next i     '마지막 쉼표 제거     Me.Text1 = Left(Me.Text1, Len(Me.Text1) - 1) 11-01 (08:30) ⓧ삭제 ■신고 스타119 황동준님, 알려주신대로 해봤는데 자꾸 헛돌기만 하고 잘 안되네요 ㅠㅠ 11-02 (23:53) ⓧ삭제 ■신고 스타119 감사합니다. 해결했습니다. 도움주셔서 감사합니다. 11-03 (22:48) ⓧ삭제 ■신고
작성일 : 2021-10-26(22:50) 최종수정일 : 2021-10-26(22:50)