请教VBA代码问题

enimo

请问一下，小弟的这条语句有什么不对的地方，难道是Docmd不能这样赋值给文本框，还有什么更好的方法吗，谢谢！

案号 = DoCmd.RunSQL "select 案号 from dbo_SCB_业务信息 where dbo_SCB_业务信息.担保函号 = '" & Me.担保函号 & "'"

tz-chf

dim var

var=dlookup("案号","dbo_SCB_业务信息","担保函号 = '" & Me.担保函号 & "'")

if not isnull(var) then

案号=var

else

msgbox "没找到"

end if

enimo

多谢大哥指点，小弟去试试

feihua317

恩，tz-chf不错啊！

DoCmd.RunSQL "select 案号 from dbo_SCB_业务信息 where dbo_SCB_业务信息.担保函号 = '" & Me.担保函号 & "'"

这句话返回的是Recordset的一条记录，不能直接赋值到文本框，除非你把它边成Recordset记录以后，再赋值到这个文本框就可以了。