accessvba编程,accessVBA代码

Access里VBA的一段编程 求1到N的阶乘的和

Private Sub Command2_Click()

Dim i As Integer, N 'N要定义为变体变量

Dim sum As Double, m As Double

N = InputBox("请输入N的值")

If Not IsNumeric(N) Then '判断N是否为数字

MsgBox "N的值必须为数字"

Exit Sub

End If

sum = 0

For i = 1 To N

m = 1 '赋值阶乘初值

For j = 1 To i

m = m * j '每个数的阶乘值

Next

sum = sum + m '阶乘值的和

Next

MsgBox "1到" N "阶乘和的值为" sum, vbOKOnly, "阶乘和"

End Sub

access用VBA编程出现实时错误‘91’ 对象变量或with块变量未设置

那你点调试，看它到底停在哪儿？

没有完整的ACCESS文件，只看你的程序是看不出什么问题的，

在ACCESS的VBA编程中，经常遇到:“缺少：语句结束！”，好纳闷，请高手详解指点指点。不胜感激的哦。

从百度上很难看出问题，我把整个从 if 到end if 的块语句复制到access中，发现了问题。如下：

第一个 elseif 你把第五个字母 i 写成了 l 。

第二个 elseif 中 Me! txtAge30 在 ! 和 t 之间留了个空格。

access中一道用vba编程的题，执行宏对象，求帮忙

代码如下：

Private?Sub?btnp_Click()

???With?DoCmd

???????.RunMacro?"mEmp"

???????.OpenReport?"rEmp",?acViewPreview

???????.PrintOut

???????.Close?acForm,?"fEmp"

???End?With

End?Sub