Public Function atIsitMDE() As Byte. Q& a; Q! x$ m
On Error Resume Next2 \. q7 k W7 |. w
Dim dbs As Object : S1 Q! X- F3 M: `) K& J Dim strMDE As String ! x3 P7 t k6 K: l+ j5 Q5 W8 t w If Application.CurrentProject.ProjectType = acADP Then 4 l& a7 I! r# Y4 S- T3 D3 T5 a Set dbs = Application.CurrentProject) a# K0 e5 i( j
Else1 [5 x6 G; \5 e3 M
Set dbs = CurrentDb()* j0 f9 ?6 A& V u: O( r, e4 f" r
End If1 _) X/ e: I/ g/ F1 r1 R
strMDE = dbs.Properties("MDE")5 q4 x. V8 @8 ]( @( P m4 j# v
If Err = 0 And strMDE = "T" Then" @1 _( P8 X }" H& H
atIsitMDE = 1 & M1 B/ i" }5 b7 E/ U6 y Else ( X( v& Z% N6 r* _& e atIsitMDE = 0 * Z4 g+ _ v* d/ m End If; k( E1 T2 |/ w- l: |- F4 C
Set dbs = Nothing/ ]2 M: N. Q9 C; @
End Function
发表于 2012-7-31 22:26:35
