设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1792|回复: 7
打印 上一主题 下一主题

[窗体] 请教如何将一个变量的值写入表中?

[复制链接]
跳转到指定楼层
1#
发表于 2009-3-21 13:52:08 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
用X = DLookup("[字段1]", "表1")能将表1的字段1的值赋予变量“X”;
反过来如何写才能将变量“X”的值写入表的字段1中?
如果用更新查询的话,“更新到”中怎么引用变量“X”?
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2009-3-21 13:58:32 | 只看该作者
docmd.runsql "UPDATE 表1 SET 字段1=" & x
3#
 楼主| 发表于 2009-3-21 14:28:33 | 只看该作者
好像不行啊,叫输入参数!!
4#
发表于 2009-3-21 15:04:26 | 只看该作者
本帖最后由 todaynew 于 2009-3-21 15:12 编辑
好像不行啊,叫输入参数!!
SecurID 发表于 2009-3-21 14:28





Private Sub ID_AfterUpdate()
Me.原姓名.Value = DLookup("姓名", "表1", "编号=" & Val(Me.ID))
End Sub

Private Sub 更名_Click()
Dim strsql As String
Dim strname As String
strname = Me.新名字
strsql = "UPDATE 表1 SET 姓名='" & strname & "' WHERE 表1.编号=" & Val(Me.ID)
DoCmd.SetWarnings False
DoCmd.RunSQL strsql
Me.Child2.Form.Requery
End Sub

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
5#
 楼主| 发表于 2009-3-21 15:54:16 | 只看该作者
看来,应该是缺少一对引号才会提示叫输入参数!多谢了
6#
发表于 2009-3-21 16:05:00 | 只看该作者
看来,应该是缺少一对引号才会提示叫输入参数!多谢了
SecurID 发表于 2009-3-21 15:54


如果是字符型的应该加单引号,数据型的不能加。
7#
 楼主| 发表于 2009-3-21 16:07:07 | 只看该作者
多谢指点!
8#
发表于 2009-3-21 16:07:41 | 只看该作者
谢谢分享,学习了。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-9-28 09:30 , Processed in 0.087077 second(s), 33 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表