2011-09-26 3 views

답변

4

일부 노트.

Dim db As DAO.Database 
Dim tdf As TableDef 

Set db = CurrentDb 
Set tdf = db.TableDefs("Table1") 

On Error Resume Next 
tdf.Properties("Description") = "Link" 

If Err.Number = 3270 Then 
    Set prp = tdf.CreateProperty("Description", _ 
     dbText, "Link") 
    tdf.Properties.Append prp 
End If 
+0

와우! 굉장 ..! 그것은 매력처럼 작동했습니다. 고마워요 .. 이미 내가 해치려는 중이었고 거기에 해결책이 없어야한다고 생각했다. 다시 감사드립니다 ... – SmrutiRanjan

+0

하지만 "테이블 속성"창에서 링크 테이블을 표시하더라도 왜이 속성 값을 만들어야하는지 설명해 주시겠습니까? 당신이 할 수있는 경우에 대한 설명은 보여주는 텍스트가 의미하는 경우가 .. :-) – SmrutiRanjan

+0

@SmrutiRanjan 좋은 것, 그것은 생성하지 않으며 위의 코드를 작성하지 않습니다. 표시되는 텍스트가 없으면보고있는 테이블에는 텍스트가 존재하지 않지만 다른 테이블에는있을 수 있습니다. – Fionnuala

관련 문제