希望在报表中的代码上

滨海之城　发表于：2008-12-16 16:47:05 　

希望在报表中的代码上,每次打开报表,追加新值到表中,(当自动编号被重新赋值后,自动将新值追加到编号表中.我用了INSERT命令,可是无法实现.)

代码如下:

Private Sub 页面页眉_Format(Cancel As Integer, FormatCount As Integer)

Dim a, b

a = DMax("[自动编号]", "编号表") + 1

b = Format(Date, "yyyymmdd") & 0

If a < b Then

Me.NO = "N" & a

MsgBox "a大"

Else:

Me.NO = "N" & b + 1

MsgBox "B大"

End If

Me.金额合计 = 0

End Sub

钱玉炜发表于：2008-12-16 18:49:21

从你的代码里看不出来你要追加到哪个表，也看不出你要追加什么内容，希望可以把问题说清楚点

游滨发表于：2008-12-16 19:11:16

我要将a和B的值,追加到编号表中.如何做?谢谢,这段代码是写在报表中的.

黎红军发表于：2008-12-16 22:31:47

钱玉炜发表于：2008-12-17 13:38:07

追加数据这些操作最好在打开报表之前就做好

黎红军发表于：2008-12-20 00:17:30

郁闷，写了的东西竟然是空的，啥也没有。

你看看ado的addnew，update的方法即例程。可以借助它们来完成你的需要。

总记录：5篇页次：1/1 9 1 :

Access交流中心