Office中国论坛/Access中国论坛

标题: [求助]如何实现文本的自动补填[在线等] [打印本页]

作者: alexfucn 时间: 2005-6-12 22:36
标题: [求助]如何实现文本的自动补填[在线等]
代码如下

Option Compare Database

Option Explicit

Public Sub 补填会计科目()

Dim cnn As ADODB.Connection, cat As New ADOX.Catalog

Dim rs As New ADODB.Recordset, Accno As String

Dim General_joural As String

Set cnn = CurrentProject.Connection

Set cat.ActiveConnection = cnn

Set rs.ActiveConnection = cnn

General_joural = "作品集"

rs.Open General_joural, , adOpenKeyset, adLockOptimistic, adCmdTable

Do Until rs.EOF

Accno = rs!作者

rs("画家简介") = DLookup("[简介]", "简介", "[作者]=" & Accno)

rs.Update

rs.MoveNext

Loop

rs.Close

Set rs = Nothing

cnn.Close

End Sub

其中这一段由于"作者"及"accno"的内容和格式为文本不是数据而不能运行。请问有什么办法可以解决这个问题。或者有什么其它的命令可以通过文本的比较来完成文本的自动补填。

作者: 海狸先生 时间: 2005-6-12 22:49
rs("画家简介") = DLookup("[简介]", "简介", "[作者]='" & Accno &"'")

作者: alexfucn 时间: 2005-6-12 23:19
搞好了。

感谢ing

[此贴子已经被作者于2005-6-12 15:31:53编辑过]

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