怎样根据字段给出材料编码

1、写一个编号的自定义函数，请注意函数中的窗体名称和字段名称要按实际修改

function 自动编号()
dim str as string
str=dmax("材料编码","材料名称表","mid(材料编号,1,2)='" & me.类别编码.value & "' and 材料名称='" & me.材料名称.value & "'")
str=mid(str,1,5) & format(val(mid(str,6))+1,"000")
me.子窗体名称.form.controls("材料编号").DefaultValue=str
end function

2、在窗体的加载事件和滚轮事件中调用该函数