Office中國(guó)論壇/Access中國(guó)論壇

 找回密碼
 注冊(cè)

QQ登錄

只需一步，快速開(kāi)始

判斷adp還是mdb 的函數(shù)

2011-8-24 21:14| 發(fā)布者: tmtony| 查看: 1639| 評(píng)論: 4|原作者: tmtony|來(lái)自: Access中國(guó)

摘要: Dim intProjType As Integer intProjType = Application.CurrentProject.ProjectType Select Case intProjType Case 0 ' acNull MsgBox ProjectType is acNull Case 1 ' acADP MsgBox ProjectTy ...
Dim intProjType As Integer

intProjType = Application.CurrentProject.ProjectType

Select Case intProjType
    Case 0 ' acNull
        MsgBox "ProjectType is acNull"
    Case 1 ' acADP
        MsgBox "ProjectType is acADP"
    Case 2 ' acMDB
        MsgBox "ProjectType is acMDB"
    Case Else
    MsgBox "不能判斷項(xiàng)目類型"
End Select
               
判斷adp還是mdb 的函數(shù)
發(fā)表評(píng)論

最新評(píng)論

引用 huangqinyong 2011-8-22 11:05
呵呵,收下了,謝謝分享,王站可能近來(lái)比較,難得看到你寫(xiě)的東西了
引用 tmtony 2011-8-22 11:13
老兄好，謝謝對(duì)論壇一直支持哦。
前段時(shí)間有用到，就順手貼上來(lái)了
引用 huangqinyong 2011-8-22 11:40
tmtony 發(fā)表于 2011-8-22 11:13
老兄好，謝謝對(duì)論壇一直支持哦。
前段時(shí)間有用到，就順手貼上來(lái)了

剛才有網(wǎng)友kobe看了王站的貼深受啟發(fā),但可能是他忘記本站的注冊(cè)名后,所以無(wú)法進(jìn)入,所以我轉(zhuǎn)發(fā)他的體會(huì),
Sub a()
    Dim i
    On Error Resume Next
    i = CurrentData.AllViews.Count
    If Err = 0 Then
        MsgBox "ADP"
    Else
        MsgBox "MDB"
    End If
End Sub
引用 tmtony 2011-8-22 11:41
好辦法，因?yàn)閙db沒(méi)有view，只有query

查看全部評(píng)論(4)

QQ|站長(zhǎng)郵箱|小黑屋|手機(jī)版|Office中國(guó)/Access中國(guó) ( 粵ICP備10043721號(hào)-1 )  

GMT+8, 2025-7-17 03:46 , Processed in 0.083414 second(s), 22 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

返回頂部