想学第一个VBA程序

renyucai1963

请大家教我一个最简单的程序，第一次用。
请帮个忙!
谢谢。

renyucai1963

roych 发表于 2011-9-7 20:26
Sub Test()
Msgbox"这是一个最简单的程序"
End Sub

程序运行的非常好，谢谢版主。
请版主帮助看看，这段代码如何用：
假设Field1是数值字段
Field2是文本字段
for i=1 to 1000000
cnn.execute "Insert into aTable (Field1,Field2) VALUES(cstr(i),'项目" & cstr(i) & "')"
next
是把这段代码放在模块里，还是什么地方？请教一教。
谢谢。

renyucai1963

非常感谢版主。

renyucai1963

Sub REN_A()
For i = 1 To 10
cnn.Execute "Insert into 表1 (字段1) VALUES(cstr(i))"
Next
End Sub
版主，请帮助在看看，出现上面的提示，是那里出了问题，请帮助改一改。

renyucai1963

roych 发表于 2011-9-10 18:05
要把变量分离开来写。
Sub REN_A()
For i = 1 To 10

版主，问题还是提示“要求对象”。
请问那里出了问题。

renyucai1963

roych 发表于 2011-9-11 18:38
哦，不好意思，之前复制你的代码时没仔细看。你没有定义数据连接对象。
Sub REN_A()
Dim cnn As New ADOD ...

Option Compare Database

Sub REN_A()
Dim cnn As New ADODB.Connection
Dim i As Long
For i = 1 To 10
cnn.Execute "Insert into 表1 (序号) VALUES('" & i & "')"
Next
End Sub

版主，在帮助看看，出现上面对话框，是那里有问题，我上传了附件，如可以的话，帮助修改一下。
谢谢。

renyucai1963

roych 发表于 2011-9-12 13:43
噢。大概是没有执行命令的缘故吧。此外，你的附件中序号为数值型，因此需要在原先的基础上去掉单引号。用Do ...

版主，你好。
请问ACCESS里面可有求平均差的函数（STDEV)或者有其他的方法？请讲一讲。

renyucai1963

roych 发表于 2011-9-14 16:15
Excel里的部分统计函数，在Access里都有相应的SQL聚合函数，例如标准方差是：StDev ()或者StDevP，详细请在 ...

谢谢版主的回答。

renyucai1963

roych 发表于 2011-9-14 16:15
Excel里的部分统计函数，在Access里都有相应的SQL聚合函数，例如标准方差是：StDev ()或者StDevP，详细请在 ...

版主，标准差按列可以求出。我想按行求出，我是这样设置的。
运行出现对话框：标准表达式数据类型不匹配。
我把标准差的数据类型：单精度，双精度，按个设置也不行，请帮助看看。谢谢。

renyucai1963

这是附件