| |
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
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...):
* 아래줄에 질문을 작성하세요 >>
처음에는 간단하게 시작하다가 점점더 사무실에서 더 많은것을 요구하네요..
이번에는 이미지를 연결 하라고 합니다ㅠ.ㅠ
이미지 폴더는 만들어 놓았고요.
레코드 검색시 연관이 있는 이미지가 있으면 출력 되게 하고 싶습니다.
처음 생각으로는 레코드에 연관된 이미지의 경로만 저장 되어 있으면
간단할 거라 생각이 되었는데 그 경로 지정이 쉽지는 않네요.
처음 저장할 이미지 선택 후 저장을 하면 자동으로 이미지 폴더에 저장이 되고, 해당 레코드의 NO를 파일명으로 하여 검색 폼에서 해당 레코드 검색시 No.를 이용하여 그림 파일도 같이 출력되게 하는 방법이 없을까요?
조언 및 간단한 예제있으시면 부탁드립니다.
==============[초보자님 글에 대한 답변입니다]==============
이렇게 빠른 답변이 올라 올줄이야~~ 답변 감사합니다!
그런데 최초 입력폼에서 체크 박스에 체크가 되면 저장할 이미지를 찾아서 이미지폴더에 저장을 해야 하는데 어떻게 하면 이 경로창을 출력하고 Rename하여 저장을 할수있는지요?
DB를 공유해서 쓰고 있습니다.
==============[초보자님 글에 대한 답변입니다]==============
일단.. 파일선택대화상자를 오픈하는 것은.. 검색해 보십시요.. 버젼별로 다를 수 있고 API를 사용하느냐 CommonDialog ActiveX를 사용하느냐를 초보자님 사무실 환경에 맞게 선택해야 하니까요.. 엑셀 다이알로그를 사용해도 되고..
이렇게 해서 얻은 Souce파일의 경로로.. 아래와 같이 코딩을..
dim strSrc as string
strSrc=getFileName()'<--파일대화상자를 여는 함수..
fileCopy strsrc, "\\서버\폴더\" & me!NO & right(strsrc,4)
'jpg, gif, bmp 등 여러 종류의 파일이 있을 수 있으므로..
'right()로 파일 확장자를 따옵니다.
그림을 불러 올때는..
if dir("\\서버\폴더\" & me!NO & ".jpg")<>"" then
me.그림.picture="\\서버\폴더\" & me!NO & ".jpg"
elseif dir("\\서버\폴더\" & me!NO & ".gif")="" then
me.그림.picture="\\서버\폴더\" & me!NO & ".gif"
elseif
...
머.. 대충 이런식으로 확인해 보고 불러 오던지..
파일이름이나 확장자를 테이블에 저장해 두던지 하면 되겠지요..
확인하는 방식으로 하려면 파일형식을 제한해야 할 겁니다.
"jpg와 gif만 가능합니다. 변환해서 입력해 주세요" 이렇게 알리십시요. |
|
액세스에 대한 질문과
답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
