Office中国论坛/Access中国论坛

标题: [求助]字段名如何使用变量 [打印本页]

作者: lupo 时间: 2006-8-1 20:15
标题: [求助]字段名如何使用变量
变量cl和sj由窗体上的文本框得到。初次在access中写vba，我不知道在sql查询中如何将字段名用变量表示。系统提示：运行时错误，语法错误，操作符丢失。

请前辈指点，谢谢。

代码如下：

Private Sub 还车时间_AfterUpdate()
Dim sj As String
Dim cl As String

cl = Me.车类.Value

Select Case Me.使用时间.Value
      Case Is <= 2
      sj = "2小时价格"
      Case 2.1 To 4
      sj = "4小时价格"
      Case 4.1 To 23.9
      sj = "8小时价格"
      Case 24 To 719.9
      sj = "24小时价格"
      Case Else
      sj = "30天价格"
End Select

Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = CurrentDb()
Set rs = db.OpenRecordset("select  " & sj & " from 价格 where 车类 ='" & cl & "'")

rs!sj = Me.使用费用.Value
rs.Close

Set db = Nothing
End Sub

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

作者: xlonger 时间: 2006-8-1 20:51
用DEBUG.PRINT 看"select " & sj & " from 价格 where 车类 ='" & cl & "'"

作者: fan0217 时间: 2006-8-2 00:10
看看where子句的单引号的使用是否符合要求。

作者: lupo 时间: 2006-8-2 03:46
谢谢各位的回复。在屡次试验不得要领之后，我重新构建了表的结构，将变量改为字段条件。目前问题解决。但还是希望知道字段名如何使用变量。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)