[求助]chrw() function

zhaoh · 发表于 2006-7-5 12:24

你们好，

谁能帮我解释下这段程序的含义。谢谢！

Private Sub Command2_Click()
On Error GoTo Err_Command2_Click

Dim stDocName As String

stDocName = ChrW(21592) & ChrW(24037) & ChrW(-29739) & ChrW(29992) & ChrW(-30616) & ChrW(26597) & ChrW(-29726)
DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Command2_Click:
Exit Sub

Err_Command2_Click:
    MsgBox err.Description
    Resume Exit_Command2_Click

End Sub

主要是红色区域

sgrshh29 · 发表于 2006-7-5 12:43

ChrW(21592) & ChrW(24037) & ChrW(-29739) & ChrW(29992) & ChrW(-30616) & ChrW(26597) & ChrW(-29726) ======"员工试用表查询"

DoCmd.OpenQuery stDocName, acNormal, acEdit======DoCmd.OpenQuery "员工试用表查询", acNormal, acEdit

zhaoh · 发表于 2006-7-5 12:52

很高兴，能得到你的回复！请问，你怎么翻译这个几个unicode?你怎么知道chrw(21592)就是员字？

ChrW(21592) & ChrW(24037) & ChrW(-29739) & ChrW(29992) & ChrW(-30616) & ChrW(26597) & ChrW(-29726) ======"员工试用表查询"

DoCmd.OpenQuery stDocName, acNormal, acEdit======DoCmd.OpenQuery "员工试用表查询", acNormal, acEdit

zhaoh · 发表于 2006-7-5 13:00

请教：

Dim stDocName As String

stDocName = ChrW(21592) & ChrW(24037) & ChrW(-29739) & ChrW(29992) & ChrW(-30616) & ChrW(26597) & ChrW(-29726)
DoCmd.OpenQuery stDocName, acNormal, acEdit

请教，我能把stDocName = ChrW(21592) & ChrW(24037) & ChrW(-29739) & ChrW(29992) & ChrW(-30616) & ChrW(26597) & ChrW(-29726)换成stdocname=员工试用表查询

DoCmd.OpenQuery 员工试用表查询, acNormal, acEdit

sgrshh29 · 发表于 2006-7-5 13:11

stDocName = "员工试用表查询"

DoCmd.OpenQuery stDocName, acNormal, acEdit

或者直接

DoCmd.OpenQuery "员工试用表查询"

		自动登录	找回密码
密码			免费注册