Access技巧接龙

tmtony

相信大家都玩过成语接龙，我们也来个Access的技巧接龙游戏，看看此龙能接多长。

接龙规则:

  - 只要是你认为是好的使用或开发技巧和文章,就可跟贴

  - 别人推荐给你的Access使用和开发技巧，也可跟贴

  - 国外或国内Access网站的技巧，翻译或整理的文章，也可跟贴

  - 技巧难度可以从简单、中级到高级应用。

  - 技巧内容可以任意。比如使用技巧、表操作、vba、API、ActiveX、加载项、类、打包帮助等。

  - 跟贴前请尽量看完楼上的贴，以避免重复。

  - 为了尊重源作者，请尽量写明源作者

  - 非常好的技巧贴，可被挑选放入网站首页的文章区

  - 跟贴次数不限，但尽量避免闲聊，多发技巧文章贴

此贴总置顶，让Access的网友都来发挥自己的一份热量，来了Office中国永不沉落的贴子。

Excel、Word、sharepint等随后也将增加相应的接龙贴。

xjliyuehua

以下是引用laoyeche在2006-11-24 23:11:00的发言：


请教:有条件自动编码

如:42001XX0000

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

给你一个连接：

http://www.office-cn.net/forum.php?mod=viewthread&tid=51406&replyID=&skin=1

yangzn

我来支持一下，最近我写人事管理，中间要插入员工图片,acees自带的图片功能好像很弱（罗斯文里也太简单了点吧)（大家不要笑我，用了几年的Acess，这是我第一次使用图片) 这个是我花时间在网上找的如果用ole字段存取jpg图片，而且用image控件显示

作者是叫 Stephen Lebans

真佩服国外的高手!!!

[此贴子已经被作者于2004-11-28 18:02:38编辑过]

test2000

也来一个: 打开属性窗体,单击任一工具集中的控件,设置此控件的默认属性. 十方便

Trynew

HZPY（String）:返回汉字拼音首字母函数：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 = "吖八嚓咑妸发旮铪讥讥咔垃呣拿讴趴七呥仨他哇哇哇夕丫匝咗"

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图片有错:出现提示找不到:ijl15.dll文件.

zhengjialon

以下是引用yodong在2004-12-1 13:39:38的发言：

yangzn朋友的

用ole字段存取jpg图片有错:

出现提示找不到:ijl15.dll文件.

ijl15.dll文件要先放到系统目录下如2000中在C:\WINNT\system32就行了.

[此贴子已经被作者于2004-12-2 8:13:15编辑过]

skylark

  我用的不在列表中的代码，较为方便，用于不同的字段只要改一下表名即可。控件属性中标记为控件名也是表中字段名称，必须统一。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://www.office-cn.net/Tools/ActiveXAddin/ActiveX/200412/108.asp

chuting

哈哈,学习

Trynew

自动编号。实现对字符型编号自动加1。

?auto_number('北京001‘)

显示为：北京002

?auto_number('001‘)

显示为：002

程序虽只有两行，但用到了好几个内置的字符串函数，还有前导0的处理：

StrReverse：字符串取反

Val：字符串转数值，取字符串左边数字，包括空格

Left：取字符串左边指定个数的子字符串，对应的还有Right,Mid

Len：返回字符串长度

Format：格式化字符串，这里是返回带前导0的数值

String：返回重复指定个数的字符的字符串，类似的有Space函数

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

[此贴子已经被作者于2005-1-20 11:46:51编辑过]