Private Sub Command添加_Click()
On Error GoTo 添加失败错误
If 记录编号 = "" Or IsNull(记录编号) = True Then
MsgBox "记录编号值为空！"
Exit Sub
End If
If 类型 = "" Or IsNull(类型) = True Then
MsgBox "类型值为空！"
Exit Sub
End If
If 金额 = "" Or IsNull(金额) = True Then
MsgBox "金额值为空！"
Exit Sub
End If
If 客户 = "" Or IsNull(客户) = True Then
MsgBox "客户值为空！"
Exit Sub
End If
If 日期 = "" Or IsNull(日期) = True Then
MsgBox "日期值为空！"
Exit Sub
End If
Dim add_rs As DAO.Recordset
Set add_rs = CurrentDb.OpenRecordset("销售数据表", dbOpenTable)
With add_rs
.AddNew
!记录编号.Value = 记录编号.Value
!类型.Value = 类型.Value
!金额.Value = 金额.Value
!客户.Value = 客户.Value
!日期.Value = 日期.Value
!备注.Value = 备注.Value
.Update
.Close
End With
Set add_rs = Nothing
Me.数据表子窗体.Requery
Exit Sub
添加失败错误:
MsgBox "添加失败！"
MsgBox Err.Description
End Sub
---------------------------------------------------------------------
Function 生成自定义编号(ByVal numdate As Date, ByVal numtype As String) As String
On Error GoTo 错误
Dim search_num As String
If numtype = "销售" Then
search_num = "XS-" & Format(numdate, "YYYYMMDD")
Else
search_num = "TH-" & Format(numdate, "YYYYMMDD")
End If
Dim num_count As Long
num_count = Nz(DCount("记录编号", "销售数据表", "记录编号 like '*" & search_num & "*'"), 0) + 1
生成自定义编号 = search_num & "-" & Format(num_count, "000")
Exit Function
错误:
生成自定义编号 = ""
End Function
---------------------------------------------------------------------
Private Sub 记录编号_DblClick(Cancel As Integer)
If 类型 = "" Or IsNull(类型) = True Then
MsgBox "类型值为空！"
Exit Sub
End If
If 日期 = "" Or IsNull(日期) = True Then
MsgBox "日期值为空！"
Exit Sub
End If
Me.记录编号 = 生成自定义编号(Me.日期, Me.类型)
End Sub
