我将代码传上便于老师们查看,有什么办法在【产品名称】输入多少字,在编号内都能显示并正常。
还有产品名称与数字之间加“-”号怎么实现。谢谢
Private Sub 产品名称_AfterUpdate()
Me.产品编号.Enabled = True
Set n = CurrentDb.OpenRecordset("SELECT Max(CInt(Right([产品编号],Len([产品编号])-1))) AS LASTID FROM 产品")
Me![产品编号] = Me.产品名称 & Format(Nz(n("Lastid"), 0) + 1, "0000") '设定主索引
' Me.产品编号.Enabled = False
End Sub
这是要实现结果的代码。“有问题”
是有问题,我试了一下只有使用一位字母,使用多位字母或汉字第一次可以其次就不成了。愿因??我也不知道请大师们告知。
Private Sub 产品名称_AfterUpdate()
Me.产品编号.Enabled = True
If DCount("产品编号", "产品") = 0 Then
Me.产品编号 = "" & Me.产品名称 & "" & "-" & "0001"
Else
Dim strbh1 As String, strbh2 As Integer
strbh1 = CurrentProject.Connection.Execute("SELECT Max(Val(Right([产品编号],4))) AS 产品编号1 FROM 产品").GetString
strbh2 = Val(strbh1) + 1
Me.产品编号 = "" & Me.产品名称 & "" & "-" & Format(strbh2, "0000")
End If
Me.产品编号.Enabled = False
End Sub