Access技巧接龍

vinceli

斑竹么有在首頁(yè)設(shè)置個(gè)目錄啊

qiaoyun

不錯(cuò)，支持！��！

samancheng

我來(lái)一個(gè)簡(jiǎn)單的技巧：
當(dāng)我們想避免啟動(dòng)ACCESS的宏，直接查看源文件時(shí)，通�？砂碨HIFT鍵，再雙擊系統(tǒng)文件名。
但我有幾次按SHIFT之后，系統(tǒng)文件還是照樣運(yùn)行，我無(wú)法編輯源文件。

后來(lái)，在一個(gè)未受信任的位置打開(kāi)同名文件時(shí)，系統(tǒng)不運(yùn)行，源文件可以打開(kāi)。
因?yàn)楹瓯唤�止了�?img src="static/image/smiley/default/lol.gif" smilieid="12" border="0" alt="" />

LYF18

大力支持！

ljh16280

慚愧啊，我只是個(gè)新手

jiangcskk

學(xué)習(xí)！

wxq0319

學(xué)習(xí)了

huangjingfeng88

謝謝

davidzzf

只能學(xué)習(xí)�。。�

nzdb

日期起止全方位

'1;今年;2;這個(gè)月;3;上個(gè)月;4;去年;5;所有;6;今年上半年;7;今年下半年;8;今年一季度;9;今年二季度;10;今年三季度;11;今年四季度;12;去年一季度;13;去年二季度;14;去年三季度;15;去年四季度
    Select Case Me.Combo10
    Case 1
        Me.開(kāi)始日期.ControlSource = "=DateSerial(Year(Now()), 1, 1)"
        Me.結(jié)束日期.ControlSource = "=DateSerial(Year(Now())+1, 1, 0)"
    Case 2
        Me.開(kāi)始日期.ControlSource = "=DateSerial(Year(Now()), Month(Now()), 1)"
        Me.結(jié)束日期.ControlSource = "=DateSerial(Year(Now()), Month(Now()) + 1, 0)"
    Case 3
        Me.開(kāi)始日期.ControlSource = "=DateSerial(Year(Now()), Month(Now())-1, 1)"
        Me.結(jié)束日期.ControlSource = "=DateSerial(Year(Now()), Month(Now()), 0)"
    Case 4
        Me.開(kāi)始日期.ControlSource = "=DateSerial(Year(Now())-1, 1, 1)"
        Me.結(jié)束日期.ControlSource = "=DateSerial(Year(Now())-0, 1, 0)"
    Case 5
        Me.開(kāi)始日期.ControlSource = "=DMIN('日期','明細(xì)帳務(wù)資料')"
        Me.結(jié)束日期.ControlSource = "=DMAX('日期','明細(xì)帳務(wù)資料')"
    Case 6
        Me.開(kāi)始日期.ControlSource = "=DateSerial(Year(Now()), 1, 1)"
        Me.結(jié)束日期.ControlSource = "=DateSerial(Year(Now()), 7, 0)"
    Case 7
        Me.開(kāi)始日期.ControlSource = "=DateSerial(Year(Now()), 7, 1)"
        Me.結(jié)束日期.ControlSource = "=DateSerial(Year(Now())+1, 1, 0)"
    Case 8
        Me.開(kāi)始日期.ControlSource = "=DateSerial(Year(Now()), 1, 1)"
        Me.結(jié)束日期.ControlSource = "=DateSerial(Year(Now()), 4, 0)"
    Case 9
        Me.開(kāi)始日期.ControlSource = "=DateSerial(Year(Now()), 4, 1)"
        Me.結(jié)束日期.ControlSource = "=DateSerial(Year(Now()), 7, 0)"
    Case 10
        Me.開(kāi)始日期.ControlSource = "=DateSerial(Year(Now()), 7, 1)"
        Me.結(jié)束日期.ControlSource = "=DateSerial(Year(Now()), 10, 0)"
    Case 11
        Me.開(kāi)始日期.ControlSource = "=DateSerial(Year(Now()), 10, 1)"
        Me.結(jié)束日期.ControlSource = "=DateSerial(Year(Now())+1, 1, 0)"
'12;去年一季度;13;去年二季度;14;去年三季度;15;去年四季度;16;去年上半年;17;去年下半年;
    Case 12
        Me.開(kāi)始日期.ControlSource = "=DateSerial(Year(Now())-1, 1, 1)"
        Me.結(jié)束日期.ControlSource = "=DateSerial(Year(Now())-1, 4, 0)"
    Case 13
        Me.開(kāi)始日期.ControlSource = "=DateSerial(Year(Now())-1, 4, 1)"
        Me.結(jié)束日期.ControlSource = "=DateSerial(Year(Now())-1, 7, 0)"
    Case 14
        Me.開(kāi)始日期.ControlSource = "=DateSerial(Year(Now())-1, 7, 1)"
        Me.結(jié)束日期.ControlSource = "=DateSerial(Year(Now())-1, 10, 0)"
    Case 15
        Me.開(kāi)始日期.ControlSource = "=DateSerial(Year(Now())-1, 10, 1)"
        Me.結(jié)束日期.ControlSource = "=DateSerial(Year(Now()), 1, 0)"
    Case 16
        Me.開(kāi)始日期.ControlSource = "=DateSerial(Year(Now())-1, 1, 1)"
        Me.結(jié)束日期.ControlSource = "=DateSerial(Year(Now())-1, 7, 0)"
    Case 17
        Me.開(kāi)始日期.ControlSource = "=DateSerial(Year(Now())-1, 7, 1)"
        Me.結(jié)束日期.ControlSource = "=DateSerial(Year(Now()), 1, 0)"
'20;今年1月份;21;今年2月份;22;今年3月份;23;今年4月份;24;今年5月份;25;今年6月份;26;今年7月份;27;今年8月份;28;今年9月份;29;今年10月份;30;今年11月份;31;今年12月份;
    Case 20
        Me.開(kāi)始日期.ControlSource = "=DateSerial(Year(Now()), 1, 1)"
        Me.結(jié)束日期.ControlSource = "=DateSerial(Year(Now()), 2, 0)"
    Case 21
        Me.開(kāi)始日期.ControlSource = "=DateSerial(Year(Now()), 2, 1)"
        Me.結(jié)束日期.ControlSource = "=DateSerial(Year(Now()), 3, 0)"
    Case 22
        Me.開(kāi)始日期.ControlSource = "=DateSerial(Year(Now()), 3, 1)"
        Me.結(jié)束日期.ControlSource = "=DateSerial(Year(Now()), 4, 0)"
    Case 23
        Me.開(kāi)始日期.ControlSource = "=DateSerial(Year(Now()), 4, 1)"
        Me.結(jié)束日期.ControlSource = "=DateSerial(Year(Now()), 5, 0)"
    Case 24
        Me.開(kāi)始日期.ControlSource = "=DateSerial(Year(Now()), 5, 1)"
        Me.結(jié)束日期.ControlSource = "=DateSerial(Year(Now()), 6, 0)"
    Case 25
        Me.開(kāi)始日期.ControlSource = "=DateSerial(Year(Now()), 6, 1)"
        Me.結(jié)束日期.ControlSource = "=DateSerial(Year(Now()), 7, 0)"
    Case 26
        Me.開(kāi)始日期.ControlSource = "=DateSerial(Year(Now()), 7, 1)"
        Me.結(jié)束日期.ControlSource = "=DateSerial(Year(Now()), 8, 0)"
    Case 27
        Me.開(kāi)始日期.ControlSource = "=DateSerial(Year(Now()), 8, 1)"
        Me.結(jié)束日期.ControlSource = "=DateSerial(Year(Now()), 9, 0)"
    Case 28
        Me.開(kāi)始日期.ControlSource = "=DateSerial(Year(Now()), 9, 1)"
        Me.結(jié)束日期.ControlSource = "=DateSerial(Year(Now()), 10, 0)"
    Case 29
        Me.開(kāi)始日期.ControlSource = "=DateSerial(Year(Now()), 10, 1)"
        Me.結(jié)束日期.ControlSource = "=DateSerial(Year(Now()), 11, 0)"
    Case 30
        Me.開(kāi)始日期.ControlSource = "=DateSerial(Year(Now()), 11, 1)"
        Me.結(jié)束日期.ControlSource = "=DateSerial(Year(Now()), 12, 0)"
    Case 31
        Me.開(kāi)始日期.ControlSource = "=DateSerial(Year(Now()), 12, 1)"
        Me.結(jié)束日期.ControlSource = "=DateSerial(Year(Now())+1, 1, 0)"
    End Select