Access SQL

John Kou　发表于：2011-09-17 14:10:27 　

我在 BeforeUpdate 事件內有代碼：
Option Compare Database

Private Sub Form_BeforeInsert(Cancel As Integer)
    Dim MyDb As Database
    Dim MyDs As Recordset
    Set MyDb = CurrentDb
    Set MyDs = MyDb.OpenRecordset("SELECT Prefix, Current FROM Sequence WHERE Table='Register'")
    Dim prefix As String
    Dim current As Integer
    Set current = current + 1
    Dim ID As String
    Set ID = prefix + Format(current, "00000000")
    MsgBox (ID)
End Sub

但我在表單新增記錄時就出現了
Compile Error:

Expected user-defined type, not project

是否不允許我在表單 BeforeInsert 內有SQL??
有什麼方式解決??

Top

zoutians 发表于：2011-09-17 15:33:31

把Set current = current + 1 换成 current = MyDs.Fields(1) + 1 试试

Set ID = prefix + Format(current, "00000000") 换成 ID = MyDs.Fields(0) + Format(current, "00000000")

Top

羽扇子君发表于：2011-09-17 18:44:43

BeforUpdate 事件中，不允许有数据更改，除非Undo。

Top

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

Access交流中心

Access SQL