Access技巧接龙

baije

判别OFFICE版本的代码

'需引用mso.dll      micrsoft office 10.0 object library
Private Sub 命令0_Click()
         MsgBox "你使用的是" & CHKAccessVer & ChkLanguage & "版" & vbCrLf & "Office安装路径为" & vbCrLf & Application.SysCmd(acSysCmdAccessDir)
End Sub


Function ChkLanguage()
    Select Case Application.LanguageSettings.LanguageID(msoLanguageIDUI)
        Case 1028: lgg = "繁体"
        Case 2052: lgg = "简体"
        Case Else: lgg = "未知" & Application.LanguageSettings.LanguageID(msoLanguageIDUI)
    End Select
   ChkLanguage = lgg
End Function


Function CHKAccessVer()
Select Case Application.SysCmd(acSysCmdAccessVer)
        Case 9
        CHKAccessVer = "ACCESS 2000"
        Case 10
        CHKAccessVer = "ACCESS XP (2002)"
        Case 11
        CHKAccessVer = "ACCESS 2003"
        Case Else
        CHKAccessVer = "未知版本" & Application.SysCmd(acSysCmdAccessVer)
        End Select
End Function

laoyeche

请教:有条件自动编码

如:42001XX0000

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

阡陌斜阳

谢谢了，我正在为此犯愁呢。

ycx007

多多学习

binuochao

有个建议,如果做以MDB为数据库,MDB或MDE为前端的网络型应用,在窗体或查询中最好少用"域聚合函数",因为"域聚合函数"会要调用域中所有的数据进行,使网络流量明显增加,最好是使用单独查询来计算可大提高效率!

scbzwv

good!

红尘如烟

在VBA中使用SQL语句，一般都是分段写的。如果语句太长，很容易出错，而VBA提供的错误提示经常让人不知所以，如果出错可以将SQL语句用MsgBox对话框显示出来，这样就会是一个连贯的语句，再根据VBA的出错提示就很容易找出错在哪里了。

zyz218

以下是引用baije在2006-11-20 21:21:00的发言：


取得日期是一年中的第几周的函数

Public Function cweek(xx_date As Date)
    Dim newyear As Date
        newyear = Format(Year(xx_date) & "-01-01", "yyyy-mm-dd")
        cweek = Int((xx_date + Weekday(newyear) - newyear - 1) / 7) + 1
End Function

format(日期字段，"yyyy-ww")

结果为：2006-XX  其中XX为第多少周，不需要年的话可以这样：format(日期字段，"ww")

youngmeme

以下是引用yangzn在2004-11-28 18:00:00的发言：


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

真佩服国外的高手!!!

VB我不懂，请问这个工具怎么应用到我自己做的access数据库中？

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