自动编号出现类型不匹配？

jsf2008

Private Sub Form_Load() PH.Locked = True End Sub Private Sub PH_GotFocus() Dim a As Long Dim b As Long a = Format(Date, "yyyymmdd") b = Left(DMax("PH", "商品资料"), 12) If Me![PH] <> "" Then Exit Sub End If If b >= a Then Me![PH] = DMax("PH", "商品资料") + 1 Else Me![PH] = Format(Date, "yyyymmdd") & 0 & 0 & 0 + 1 End If PH.Locked = True End Sub Private Sub PH_LostFocus() PH.Locked = False End Sub

PH字段为文本类型，请问自动编号出现类型不匹配？

jsf2008

Option Compare Database
Private Sub Form_Load()
PH.Locked = True
End Sub



Private Sub PH_GotFocus()
Dim a As Long
Dim b As Long
a = Format(Date, "yyyymmdd")
b = Left(DMax("PH", "商品资料"), 50)
If Me![PH] <> "" Then
   Exit Sub
End If
If b >= a Then
       Me![PH] = DMax("PH", "商品资料") + 1
Else
  Me![PH] = Format(Date, "yyyymmdd") & 0 & 0 & 0 + 1
End If
PH.Locked = True
End Sub

Private Sub PH_LostFocus()
PH.Locked = False
End Sub

jsf2008

b = Left(DMax("PH", "商品资料"), 50)           ？？请问我PH为文本，是不是定义错了》请帮帮忙

jsf2008

????没有人帮忙呀

jsf2008

请看附件

kangking

你的 B 定义为长整型，应该用下句
b = Val(Left(DMax("PH", "商品资料"), 50))

jsf2008

按你的意思没有出错了，是不能自动编号了

kangking

看了你的代码，不知道你要什么样的编号，是nak001,nak002这样一直编下去吗？请详细说明你的编号原则。

jsf2008

按日期例如：20091031，想编成:091031001----091031002----091101001-----按系统日期递增001---009--010。012。013----------

kangking

示例