下面这段代码中，字段结果j要怎么表达才对啊？

54.℡80後2oO　发表于：2012-07-23 17:55:42 　

下面这段代码中，字段结果j（如表中的“结果一”结果二等字段）要怎么表达才对啊？

Dim i, j, m

For i = 1 To 30
j = UpNumber(i, 1, False)
'm = "结果" & j
If Me!批量输入结果.Controls("选中" & j) = True Then
DoCmd.RunSQL "Update 病人资料总表 Set 结果j= '" & Me.结果 & "' Where 打印标记=true"

Else
Me!批量输入结果.Controls("选中" & j) = False

Me![批量输入结果].Requery
Me.批量输入子窗体.Requery
Me.批量输入结果子窗体.Requery

'DoCmd.RunSQL "Update 病人资料总表 Set 打印标记 = False"

End If

Top

煮江品茶发表于：2012-07-24 11:33:55

DoCmd.RunSQL "Update 病人资料总表 Set 结果" & j & "= '" & Me.结果 & "' Where 打印标记=true"

Top

54.℡80後2oO 发表于：2012-07-24 20:15:54

DoCmd.RunSQL "Update 病人资料总表 Set " & m & "= '" & Me.结果 & "' Where 打印标记=true"
上午没看到，后来自己再搜索+摸索，写出上面的代码，解决；晚上回来看到，又试了下仁兄的，效果也一样，谢谢了！

这让我相信，坛里果然是有高手，呵呵

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

下面这段代码中，字段结果j要怎么表达才对啊？