주소 12925 경기도 하남시 미사대로 540, B동 917호 (현대지식산업센터 한강미사2차) ㈜팀데이터이십일 | 고객센터 전화번호 02-467-2998 | 대표이사 염기웅
개인정보관리책임자 염기웅 (ml_privacy@td21.com) | 사업자등록번호 120-86-79260 | 통신판매업신고번호 제 2021-경기하남-1166 호 [사업자 정보 확인]
TD21의 사전 서면 동의 없이 TD21 사이트 일체의 정보, 콘텐츠 및 UI 등을 상업적 목적으로 전시, 전송, 스크래핑 등 무단 사용할 수 없습니다.
필드 이름과 설명을 복사하고 싶다고 하셨습니다.
그것은 폼에서 할 수 있는 작업이 아닙니다.
테이블에서 해야죠.
다음 코드를 이용해 보시기 바랍니다.
Public Sub gsbListFileNameDesc(strTableName As String) Dim dbs As DAO.Database Dim tdf As DAO.TableDef Dim fld As DAO.Field Dim strDesc As String Set dbs = CurrentDb() Set tdf = dbs.TableDefs(strTableName) For Each fld In tdf.Fields Debug.Print fld.Name & vbTab & fnGetDescription(fld) Next End Sub Private Function fnGetDescription(fld As DAO.Field) As String On Error GoTo HError fnGetDescription = Nz(fld.Properties("Description"), "") Exit Function HError: fnGetDescription = "" End Function위 코드를 새 모듈을 만들고 붙여넣기 하십시오.
그 다음, '직접 실행 창'에 다음과 같이 명령을 입력합니다.
gsbListFileNameDesc "테이블이름"
그러면 다음과 비슷하게 결과가 나옵니다.
제품번호
제품명 제품의 이름
설명
저의 경우는 '제품명' 필드에만 '제품의 이름'이라는 설명이 있네요.