e*****a
发帖数: 321 | 1 做了一个form，有些text box, combo box什么的，想做个按钮，一click就能把上面的
那些值作为一个新record输入到一个table中去，看上去很简单的样子，然而。。。
给按钮写了个macro，用SetValue命令，死活run不了；又给按钮写了个SQL，用INSERT
INTO... VALUES( )，也不行，因为不知道怎么把form里的东西放进VALUES后面的括号
里去, FT to death...
请指教. |
j******w
发帖数: 4429 | 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*****a
发帖数: 321 | 3 How to convert macro into function? Thanks.
【在 j******w 的大作中提到】
: 把macro转成function就行了
:
: INSERT
|
j******w
发帖数: 4429 | 4 把macro换成function,
macro里面的内容不变
我就是这样让button工作的
【在 e*****a 的大作中提到】
: How to convert macro into function? Thanks.
|
e*****a
发帖数: 321 | 5 怎么换啊，能具体说一下么？俺的Macro copy不到VB编辑器里去*&$%$*^#
Duo Xie La...
【在 j******w 的大作中提到】
: 把macro换成function,
: macro里面的内容不变
: 我就是这样让button工作的
|
j******w
发帖数: 4429 | 6 仔细看了一下 你和我的还不太一样
你的大概要用到ADO, connection
之类的，
因为你的数据有me.text0.value这样的
我的都是openquery，直接就可以把
macro换成click事件了
你找本access VBA得书看看
有空我也试一下
【在 e*****a 的大作中提到】
: 怎么换啊，能具体说一下么？俺的Macro copy不到VB编辑器里去*&$%$*^#
: Duo Xie La...
|
e*****a
发帖数: 321 | 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******w
发帖数: 4429 | 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 & ")"
|
w*******e
发帖数: 1622 | 9 他的是在"INSERT INTO xxxx"的table "xxxx"后没具体指明column name
【在 j******w 的大作中提到】
: 我试了一下
: 可以的
: Private Sub Command2_Click()
: Dim str As String
:
: str = Me.Text0.Value
:
: Dim strtext As String
:
:
|
