[求助]我在用Access编程时遇到的几个问题，苦恼ing

兔子罗杰

一、为什么我的代码在XP下正常而在98下出错？（[B]此问题已解决[/B]）
　　我最近用Access做了一个软件，我是在WinXP下做的一切正常，但拿到Win98下运行却报“编译错误：找不到工程或库”，但是我只是用了一个Trim函数，改为Replace函数就正常了。另外，还有Mid、LCase等函数也报错，我重装了Win98和Office2000也安装了VB6运行库和最新的Windows Script 5.6，问题依然存在，小弟我百思不得其解，请各位老大多多帮忙！

[此贴子已经被作者于2003-8-13 12:58:21编辑过]

兔子罗杰

二、如何取得新插入的记录的自动编号字段的值？
　　如何取得新插入的记录的自动编号字段的值？我记得以前在哪儿看见过，但是现在想不起来了，如果哪位老大知道烦请告诉我。

三、如何限制文本框中输入的内容的长度？
　　比如我想使某个文本框最多输入10个字符该如何实现？

兔子罗杰

四、为什么我的Insert和Update语句总是报错，而在另一个窗体中却正常？
　　错误信息：

运行时错误 '-2147217900 (80040e14)':
INSERT INTO 语句的语法错误。

运行时错误 '-2147217900 (80040e14)':
UPDATE 语句的语法错误。

　　[B]代码见第6楼[/B]

[此贴子已经被作者于2003-8-13 15:23:42编辑过]

Airin

我回答第三個問題：
在表－＞設計（選擇相應的表）－＞字段的長段（這是大致意思）

兔子罗杰

Airin，谢谢你的回复，不过我说的是如何限制窗体中的文本框输入的内容长度。

另外，我还有两个问题比较长（附有源代码）总是发送失败是怎么回事？本来我想把五个问题发在一个帖子里的，但总是发送失败，所以才分开发的。还有我上传文件也总是不成功。

[此贴子已经被作者于2003-8-12 15:33:16编辑过]

兔子罗杰

续四：
　　代码如下：其中Users表存放用户帐号信息，包含UserID，UserName，PassWord，Permission四个字段，其中UserID字段为自动编号字段且设为主键，UserName和PassWord字段为字符型字段，Permission为数字型字段，存放权限代码；Me.UserName和Me.PassWord为窗体中的两个文本框，用来输入用户名和密码；PwdEncrypt为密码加密函数；UserPermission为计算出来的权限代码。

[此贴子已经被作者于2003-8-13 15:24:24编辑过]

兔子罗杰

续四：

    CurrentProject.Connection.Execute "INSERT INTO Users (UserName,PassWord,Permission) VALUES ('" & Trim(Me.UserName.Value) & "','" & PwdEncrypt(Me.PassWord.Value) & "'," & UserPermission & ");"
    CurrentProject.Connection.Execute "UPDATE Users SET UserName = '" & Trim(Me.UserName.Value) & "',PassWord = '" & PwdEncrypt(Me.PassWord.Value) & "',Permission = " & UserPermission & " WHERE UserID = " & UserID & ";"

[此贴子已经被作者于2003-8-13 15:24:48编辑过]

兔子罗杰

续四：
　　用如下代码取得生成后的SQL语句，粘贴到查询里执行却很正常。

    InputBox "", "", "INSERT INTO Users (UserName,PassWord,Permission) VALUES ('" & Trim(Me.UserName.Value) & "','" & PwdEncrypt(Me.PassWord.Value) & "'," & UserPermission & ");"
    InputBox "", "", "UPDATE Users SET UserName = '" & Trim(Me.UserName.Value) & "',PassWord = '" & PwdEncrypt(Me.PassWord.Value) & "',Permission = " & UserPermission & " WHERE UserID = " & UserID & ";"

[此贴子已经被作者于2003-8-13 15:25:18编辑过]

兔子罗杰

续四：
　　用如下代码取得生成后的SQL语句，粘贴到查询里执行却很正常。

    InputBox "", "", "INSERT INTO Users (UserName,PassWord,Permission) VALUES ('" & Trim(Me.UserName.Value) & "','" & PwdEncrypt(Me.PassWord.Value) & "'," & UserPermission & ");"
    InputBox "", "", "UPDATE Users SET UserName = '" & Trim(Me.UserName.Value) & "',PassWord = '" & PwdEncrypt(Me.PassWord.Value) & "',Permission = " & UserPermission & " WHERE UserID = " & UserID & ";"

[此贴子已经被作者于2003-8-13 15:25:43编辑过]

兔子罗杰

五、我在一个窗体的Resize事件中写入了一些改变控件大小及位置的代码，但在执行时出错。
　　错误信息：

运行时错误 '2100':
控件或子窗体控件放置在这个位置太大了。

　　事件代码：
Private Sub Form_Resize()
    'On Error Resume Next
    If Form.InsideWidth < 6915 Or Form.InsideHeight < 7350 Then
        Form.InsideWidth = 6915
        Form.InsideHeight = 7350
        Exit Sub
    End If
    Dim FormWidth, FormHeight, ButtonWidth, ButtonHeight, ButtonSpace
    FormWidth = Form.InsideWidth
    FormHeight = Form.InsideHeight
    ButtonWidth = Me.PrevArticle.Width
    ButtonHeight = Me.PrevArticle.Height
    If (Form.InsideWidth - ButtonWidth * 5) > 0 Then
        ButtonSpace = (FormWidth - ButtonWidth * 5) / 6
    Else
        ButtonSpace = 0
    End If

[此贴子已经被作者于2003-8-12 15:54:37编辑过]