如何将access数据表的其中一个记录一个字段的傎赋值给另一个数据表的一个字段

王庆云　发表于：2013-01-18 23:32:04 　

'-----从窗体中输入一个项目名称后,从数据表经开区土地出让表中该项目名称记录的征地批文号字段的值传递给替换表的替换内容字段
Sub findstr(tb1 As String)
   Dim rst As ADODB.Recordset
   Set rst = New ADODB.Recordset
   Dim strsql As String
   Dim lg As Long
   rst.ActiveConnection = CurrentProject.Connection
   rst.CursorType = adOpenDynamic
   rst.LockType = adLockOptimistic
   rst.Open ("select 征地批文号 from 经开区土地出让表" & "where 项目名称 = Me.文档ID.Value")
   strsql = "征地批文号"
lg = "insert into 替换表 (替换内容) values(strsql)"
    CurrentDb.Execute lg
End Sub

Top

王庆云发表于：2013-01-19 16:13:08

恳请高人指点啊

Top

煮江品茶发表于：2013-01-19 17:53:10

十分狗血的代码，前后都不搭界。

简单的玩法可写成如下：

dim ssql as string
dim str as string
str=Dlookup("征地批文号","经开区土地出让表","项目ID=" & me.文档ID.value)
ssql="insert into 替换表 (替换内容) values ('" & str & "')"
CurrentDb.Execute ssql

Top

王庆云发表于：2013-01-19 22:54:46

感谢感谢

Top

王庆云发表于：2013-01-19 23:34:47