sql中的变量设置：请帮助

bulesky

Private Sub Form_Load()
DoCmd.Maximize
Dim strsql As String
Dim kmm, jflj, dflj, ye As String
Dim nian, yue As String
nian = Form_余额表查询对话框.年份
yue = Form_余额表查询对话框.月份开始
kmm = nian & "科目码"
jflj = yue & "月份借方累计"
dflj = yue & "月份贷方累计"
ye = yue & "月份余额"

strsql = "SELECT 科目码排序, 科目名称, 方向, [1月份借方累计], [1月份贷方累计], [1月份余额]"
strsql = strsql & "FROM " & kmm

Me.RecordSource = strsql

End Sub
如何使用jflj dflj ye 等变量 替换 [1月份借方累计], [1月份贷方累计], [1月份余额]的内容，以用来显示不同月份的数据。

yuab

据我所知，在VBA中写SQL语句好象不能这样加变量的。

bulesky

strsql = "SELECT 科目码排序, 科目名称, 方向, " & "[" & jflj & "]," & "[" & dflj & "]," & "[" & ye & "]"
strsql = strsql & "FROM " & kmm
我试出来了，整整费了我一下午功夫。

xinbao

其实只要知道""的用法和字符串的连接就简单了
如果字段里没有空格，应该不用"[" 和 "] "也可以吧

bulesky

不是没有空格，而是如果没有数字也可以