|
Access 是用VBA 实现的,当然也可不用代码,考虑用Iif函数 ,有心的Access网友可去试一下
不过我是VBA控,没有办法
1. 代码是在窗体中先做2个自定函数
'取单号函数
Private Function GetBillNo() As String
Dim strArea As String
Dim strDate As String
Dim strNo As String
Dim strSeqNo As String
strArea = Nz(区域) '字头
strDate = Format(Nz(日期), "YYYYMMDD")
strSeqNo = Format(Val(Right(Nz(DMax("单号", "销售表", "单号 like '" & strArea & strDate & "*'"), 0), 3)) + 1, "000")
strNo = strArea & strDate & strSeqNo
单号 = strNo
End Function
'取金额函数
Private Function GetAmt() As String
金额 = Nz(数量) * Nz(单价)
End Function
2. 然后在窗体的属性中设置一下
注意是用shift 同时选择2个控件,可批量设置属性
金额也类似
单号禁用在Access里很简单,就是选择这个控件,属性窗体 数据选卡 里 “可用” 设置为 否
源文件在这里
希望大家跟贴上传更好的方法
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|