劳驾,哪位高手给看看下面这些代码!对于VBA不是很懂

dz2100

我想在我的"障碍编号"这个文本框里,实现以每天日期为准自动进行编号:如2004年9月10日的第一个障碍就编成040910-1,一天完了以后就重新开始!但代码执行到粗体部分就提示错误!我不知道错在啦里!帮忙看一下,这样可不可以实现!

Private Sub 障碍编号_BeforeInsert(Cancel As Integer)

d = DLookup("innum", "障碍编号", "date=#" & Format(Date, "yyyy/mm/dd") & "#")

If IsNull(d) Then

Set d1 = CurrentDb.OpenRecordset("障碍编号")

d1("date") = Date

d1("innum") = 0

d1.Update

d = 0

End If

障碍申告表![障碍编号] = Format(Date, "yymmdd") & "-" & Format(d + 1, "00")

End Sub

Private Sub 障碍编号_BeforeUpdate(Cancel As Integer)

If 障碍编号.NewRecord = True Then

Set b = CurrentDb.OpenRecordset("select * from　障碍编号　where date = #" & Format(Date, "yyyy/mm/dd") & "#")

x = Right(障碍申告表![障碍编号], 2)

b.Edit

b("inum") = CInt(x)

b.Update

End If

End Sub

djt

date 为系统保留字，不能作为字段名