Access技巧接龍

tmtony

相信大家都玩過成語接龍，我們也來個Access的技巧接龍游戲，看看此龍能接多長。

接龍規(guī)則:

  - 只要是你認為是好的使用或開發(fā)技巧和文章,就可跟貼

  - 別人推薦給你的Access使用和開發(fā)技巧，也可跟貼

  - 國外或國內(nèi)Access網(wǎng)站的技巧，翻譯或整理的文章，也可跟貼

  - 技巧難度可以從簡單、中級到高級應(yīng)用。

  - 技巧內(nèi)容可以任意。比如使用技巧、表操作、vba、API、ActiveX、加載項、類、打包幫助等。

  - 跟貼前請盡量看完樓上的貼，以避免重復(fù)。

  - 為了尊重源作者，請盡量寫明源作者

  - 非常好的技巧貼，可被挑選放入網(wǎng)站首頁的文章區(qū)

  - 跟貼次數(shù)不限，但盡量避免閑聊，多發(fā)技巧文章貼

此貼總置頂，讓Access的網(wǎng)友都來發(fā)揮自己的一份熱量，來了Office中國永不沉落的貼子。

Excel、Word、sharepint等隨后也將增加相應(yīng)的接龍貼。

xjliyuehua

以下是引用laoyeche在2006-11-24 23:11:00的發(fā)言：


請教:有條件自動編碼

如:42001XX0000

其中XX隨年份而改變,例如2005年,XX=05;2006年XX=06

給你一個連接：

http://ctxi.cn/forum.php?mod=viewthread&tid=51406&replyID=&skin=1

yangzn

我來支持一下，最近我寫人事管理，中間要插入員工圖片,acees自帶的圖片功能好像很弱（羅斯文里也太簡單了點吧)（大家不要笑我，用了幾年的Acess，這是我第一次使用圖片) 這個是我花時間在網(wǎng)上找的如果用ole字段存取jpg圖片，而且用image控件顯示

作者是叫 Stephen Lebans

真佩服國外的高手!!!

[此貼子已經(jīng)被作者于2004-11-28 18:02:38編輯過]

test2000

也來一個: 打開屬性窗體,單擊任一工具集中的控件,設(shè)置此控件的默認屬性. 十方便

Trynew

HZPY（String）:返回漢字拼音首字母函數(shù)：Function HZPY(hzstr As String) As String

Dim p0 As String, C As String, STR As String

Dim i As Integer, j As Integer

p0 = "吖八嚓咑妸發(fā)旮鉿譏譏咔垃呣拿謳趴七呥仨他哇哇哇夕丫匝咗"

For i = 1 To Len(hzstr)

    C = "z"

    STR = Mid(hzstr, i, 1)

    If Asc(STR) > 0 Then

        C = STR

    Else

        For j = 1 To 26

            If Mid(p0, j, 1) > STR Then

                C = Chr(95 + j)

                Exit For

            End If

        Next

    End If

    HZPY= HZPY+ C

Next

End Function

yodong

yangzn朋友的用ole字段存取jpg圖片有錯:出現(xiàn)提示找不到:ijl15.dll文件.

zhengjialon

以下是引用yodong在2004-12-1 13:39:38的發(fā)言：

yangzn朋友的

用ole字段存取jpg圖片有錯:

出現(xiàn)提示找不到:ijl15.dll文件.

ijl15.dll文件要先放到系統(tǒng)目錄下如2000中在C:\WINNT\system32就行了.

[此貼子已經(jīng)被作者于2004-12-2 8:13:15編輯過]

skylark

  我用的不在列表中的代碼，較為方便，用于不同的字段只要改一下表名即可�？丶�屬性中標(biāo)記為控件名也是表中字段名稱，必須統(tǒng)一。Private Sub 材料_NotInList(NewData As String, Response As Integer)

  Dim Rst As DAO.Recordset

  Dim strName As String

  Dim strMsg As String

  strName = Me.ActiveControl.Tag

    strMsg = "'" & NewData & "' is not an available '" & strName & "'"

    strMsg = strMsg & "Do you want to associate the new Name to the current DLSAF?"

    strMsg = strMsg & " Click Yes to link or No to re-type it."

        

  Response = acDataErrContinue

  If MsgBox(strMsg, vbQuestion + vbYesNo, "Add new name?") = vbYes Then

    Set Rst = CurrentDb.OpenRecordset("材料表")

    Rst.AddNew

    Rst(strName) = NewData

    Rst.Update

    Rst.Close

    Set Rst = Nothing

    Me.Controls.Item(strName) = NewData

    Me.Controls.Item(strName).Requery

  Else

    Me.Controls.Item(strName).Undo

  End If

End Sub

tmtony

也來介紹一個工具,非常不錯,主要用來處理過濾與通用查找的. 下載請到:

http://ctxi.cn/Tools/ActiveXAddin/ActiveX/200412/108.asp

chuting

哈哈,學(xué)習(xí)

Trynew

自動編號。實現(xiàn)對字符型編號自動加1。

?auto_number('北京001‘)

顯示為：北京002

?auto_number('001‘)

顯示為：002

程序雖只有兩行，但用到了好幾個內(nèi)置的字符串函數(shù)，還有前導(dǎo)0的處理：

StrReverse：字符串取反

Val：字符串轉(zhuǎn)數(shù)值，取字符串左邊數(shù)字，包括空格

Left：取字符串左邊指定個數(shù)的子字符串，對應(yīng)的還有Right,Mid

Len：返回字符串長度

Format：格式化字符串，這里是返回帶前導(dǎo)0的數(shù)值

String：返回重復(fù)指定個數(shù)的字符的字符串，類似的有Space函數(shù)

Function AutoNum(strNum As String) As String

    If Right(strNum, 1) = "0" Then

        AutoNum = Left(strNum, Len(strNum) - 1) & "1"

    Else

        AutoNum = StrReverse(Val(StrReverse(strNum)))

        AutoNum = Left(strNum, Len(strNum) - Len(AutoNum)) & Format((AutoNum + 1), String(Len(AutoNum), "0"))

    End If

End Function

[此貼子已經(jīng)被作者于2005-1-20 11:46:51編輯過]