| |
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 액세스 버전(95,97,2000,2002):
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):
3. CPU (486,PentiumI/II/III/IV...):
4. RAM (32,64,128,256,512MB,1G...):
* 아래줄에 질문을 작성하세요 >>
폼에 입력란이 10개가 있습니다. 각 입력란에 입력된 값만을 테이블로 행으로 한껀식 저장을 하려 합니다.
VBA코딩이 필요할것 같은데요? 방법이 어떻게 되는지요 ^^;
참 덧붙여서 AB,AB00100,100,20,391,121 이라고 입력이 된다면
혹시 , 별로 구분할수 있는 방법도 좀... 부탁드립니다.~
==============[천사님 글에 대한 답변입니다]==============
분리하는것은 Split함수로 찿아보니깐 배열로 자동저장이 되더군요,분리하는방법은 검색을 하니 쉽게 찿아 해결을 했습니다. 그런데
문제는 폼에 입력란이 레코드 방식이 아닌 그냥 입력란 10개입니다
그걸 입력한 값을 하나하나 읽어서 테이블레코드에 한 입력란이 한행의 레코드가 되어 저장이 되는 식이죠! 그런데. 폼 객체를 읽어 한껀식 저장하는 방법을 모르겠습니다~ 부탁드립니다 ^^;
==============[천사님 글에 대한 답변입니다]==============
입력란 이름을 좀 알켜 주시지.. 몇개만..
음.. 입력란 이름이 무작위라고 가정하고..
입력란 이름이 A,B,C,D...K 일 때..
1)코드로 DAO사용..
'DAO 참조 하셔야겠죵? ^^
dim strTxtbox() as string
dim i as integer
dim Rs as DAO.Recordset
strtxtbox=split("a,b,c,d,e,f,g,h,i,j,k",",")
set Rs=Currentdb.openRecordset("테이블이름",dbOpenTable)
for i=0 to ubound(strtxtbox)
if "" & Trim(strTxtbox(i))<>"" then
rs.addnew
rs("필드명")=me(strTxtbox(i))
rs.update
End if
Next
2)코드로 추가쿼리 사용.. DAO 참조 안해도 되죠..
rs.addnew
rs("필드명")=me(strTxtbox(i))
rs.update
이부분을..
docmd.Excute "Insert Into 테이블(필드) Values('" & me(strTxtbox(i)) & "')"
3)추가 또는 업데이트쿼리사용
ㅎㅎ.. 이건 꿍수라서.. ㅎ |
|
액세스에 대한 질문과
답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
