Access门外汉问题求教 - 未名空间MITBBS历史存档

国际科技财经博客移民网络热点娱乐民生时事公众号

Redian新闻

>未名空间

>Database - 数据库

Access门外汉问题求教

Access门外汉问题求教# Database - 数据库

e*a2007-07-17 07:07

1 楼

做了一个form，有些text box, combo box什么的，想做个按钮，一click就能把上面的
那些值作为一个新record输入到一个table中去，看上去很简单的样子，然而。。。
给按钮写了个macro，用SetValue命令，死活run不了；又给按钮写了个SQL，用INSERT
INTO... VALUES( )，也不行，因为不知道怎么把form里的东西放进VALUES后面的括号
里去, FT to death...
请指教.

j*w2007-07-17 07:07

2 楼

把macro转成function就行了

INSERT

【在 e*****a 的大作中提到】

: 做了一个form，有些text box, combo box什么的，想做个按钮，一click就能把上面的
: 那些值作为一个新record输入到一个table中去，看上去很简单的样子，然而。。。
: 给按钮写了个macro，用SetValue命令，死活run不了；又给按钮写了个SQL，用INSERT
: INTO... VALUES( )，也不行，因为不知道怎么把form里的东西放进VALUES后面的括号
: 里去, FT to death...
: 请指教.

e*a2007-07-17 07:07

3 楼

How to convert macro into function? Thanks.

【在 j******w 的大作中提到】

: 把macro转成function就行了
:
: INSERT

j*w2007-07-17 07:07

4 楼

把macro换成function,
macro里面的内容不变
我就是这样让button工作的

【在 e*****a 的大作中提到】

: How to convert macro into function? Thanks.

e*a2007-07-17 07:07

5 楼

怎么换啊，能具体说一下么？俺的Macro copy不到VB编辑器里去*&$%$*^#
Duo Xie La...

【在 j******w 的大作中提到】

: 把macro换成function,
: macro里面的内容不变
: 我就是这样让button工作的

j*w2007-07-17 07:07

6 楼

仔细看了一下你和我的还不太一样
你的大概要用到ADO, connection
之类的，
因为你的数据有me.text0.value这样的
我的都是openquery，直接就可以把
macro换成click事件了
你找本access VBA得书看看
有空我也试一下

【在 e*****a 的大作中提到】

: 怎么换啊，能具体说一下么？俺的Macro copy不到VB编辑器里去*&$%$*^#
: Duo Xie La...

e*a2007-07-17 07:07

7 楼

你在click事件中是用doCmd.OpenQuery()还是用doCmd.RunSQL()？
用doCmd.OpenQuery()是可以执行现成的Query, 效果跟macro里的open query一样，估
计你就是用的这个，但是这个的缺点就是不能把form里填空填进去的那些值作为参数传
递到SQL statement里去，因为括号里只能填一个现成的query的名字，没有做手脚的空
间；
用doCmd.RunSQL()貌似可以，因为括号里需要一个字符串格式的SQL Statement，俺企
图的就是搞类似于这样的办法：
Dim strValue As String
strValue = me.text0.value
strSQL = "INSERT INTO xxxx VALUES(" & strValue & ")"
doCmd.RunSQL(strSQL)
自己觉得从道理上没有问题，结果还是不行。。。算了，郁闷了，买书去了。。。

【在 j******w 的大作中提到】

: 仔细看了一下你和我的还不太一样
: 你的大概要用到ADO, connection
: 之类的，
: 因为你的数据有me.text0.value这样的
: 我的都是openquery，直接就可以把
: macro换成click事件了
: 你找本access VBA得书看看
: 有空我也试一下

j*w2007-07-17 07:07

8 楼

我试了一下
可以的
Private Sub Command2_Click()
Dim str As String

str = Me.Text0.Value

Dim strtext As String

DoCmd.RunSQL "insert into test (id) values ('" & str & "');"

End Sub
我的str 写上zhang, wwang等都加到表test上了
你大概strSQL地引号不对

【在 e*****a 的大作中提到】

: 你在click事件中是用doCmd.OpenQuery()还是用doCmd.RunSQL()？
: 用doCmd.OpenQuery()是可以执行现成的Query, 效果跟macro里的open query一样，估
: 计你就是用的这个，但是这个的缺点就是不能把form里填空填进去的那些值作为参数传
: 递到SQL statement里去，因为括号里只能填一个现成的query的名字，没有做手脚的空
: 间；
: 用doCmd.RunSQL()貌似可以，因为括号里需要一个字符串格式的SQL Statement，俺企
: 图的就是搞类似于这样的办法：
: Dim strValue As String
: strValue = me.text0.value
: strSQL = "INSERT INTO xxxx VALUES(" & strValue & ")"