在access中创建vb窗体，使文本框中内容填写到access表中解决办法

2012-01-20

在access中创建vb窗体，使文本框中内容填写到access表中现在在窗体下编译到rst.open sql就出错，一直没弄明

在access中创建vb窗体，使文本框中内容填写到access表中
现在在窗体下编译到rst.open sql就出错，一直没弄明白错在哪，请各位大侠指教，谢谢

Private Sub 确定_Click()
Dim sql As String
Dim rst As ADODB.Recordset
Dim number As Integer
sql = "select * from 商品信息 where"
sql = sql & " [货号]=" & Me![货号列表]
Set rst = New ADODB.Recordset

rst.ActiveConnection = CurrentProject.Connection
rst.CursorType = adOpenDynamic
rst.LockType = adLockOptimistic
rst.Open sql
…………………

[解决办法]
Me![货号列表]改为 Me.货号列表.text 试试
控件名要改用英文，中文不习惯
[解决办法]
Ctrl+G可以调出立即窗口。在立即窗口敲下面然后回车：

?sql

然后把回车之后出现的文字拷到这里来给大家晒晒:)
[解决办法]
1. [货号]可能是字符型字段
2. Me![货号列表] 的值为空

Private Sub 确定_Click()
Dim sql As String
Dim rst As ADODB.Recordset
Dim number As Integer
sql = "select * from 商品信息 where"
sql = sql & " [货号]=" & Me![货号列表]

msgbox sql

Set rst = New ADODB.Recordset

rst.ActiveConnection = CurrentProject.Connection
rst.CursorType = adOpenDynamic
rst.LockType = adLockOptimistic
rst.Open sql
…………………
[解决办法]
Me![货号列表]改为 Me.货号列表

这样就不需要焦点了
[解决办法]
改成这样试试：

VB code

    Dim strSql As String '最好不要用保留字做变量名'    strSql = "select * from 商品信息 where"    strSql = strSql & " [货号]='" & Me.货号列表 & "'"    '如果你确定[货号]字段是文本类型的话，应该前后加单引号'    'Me.货号列表 表示的是你的窗体里名为“货号列表”的控件的当前值'    '而Me![货号列表]有可能会引用到你的窗体的绑定字段'
[解决办法]
strSql = "select * from 商品信息 where"
strSql = strSql & " [货号]='" & Me.货号列表 & "'"
文本类型必須"'"

热点排行