Dim rst As Object
Dim strSQL As String
If Me.贷款品种 = "抵质押额度" Then
MsgBox "贷款品种:不能为抵质押额度!"
Me.贷款品种 = Null
Me.贷款品种.SetFocus
Exit Sub
Else
MsgBox "是否确认保存!", vbInformation, "消息"
strSQL = "select * from 总表"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
rst.AddNew
rst!操作日期 = Me.操作日期
rst!贷款品种 = Me.贷款品种
rst!所属支行 = Me.所属支行
rst!所属柜员 = Me.所属柜员
rst!借款人 = Me.借款人
rst!借款金额 = Me.借款金额
rst!借款期限 = Me.借款期限
'rst!开发商 = Me.开发商
rst!押品面积 = Me.押品面积
rst!交易总价 = Me.交易总价
rst.Update
rst.Close
Set rst = Nothing
Me.贷款品种 = "抵质押额度"
strSQL = "select * from 总表"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
rst.AddNew
rst!操作日期 = Me.操作日期
rst!贷款品种 = "抵质押用款"
rst!所属支行 = Me.所属支行
rst!所属柜员 = Me.所属柜员
rst!借款人 = Me.借款人
rst!借款金额 = Me.借款金额
rst!借款期限 = Me.借款期限
' rst!开发商 = Me.开发商
rst!押品面积 = Me.押品面积
rst!交易总价 = Me.交易总价
rst.Update
rst.Close
Set rst = Nothing
MsgBox "已同时为您新增一笔用款!", vbInformation, "消息"
Me.操作日期 = Null
Me.贷款品种 = Null
Me.所属支行 = Null
Me.所属柜员 = Null
Me.借款人 = Null
Me.借款金额 = Null
Me.借款期限 = Null
' Me.开发商 = Null
Me.押品面积 = Null
Me.交易总价 = Null
MsgBox "您录入的数据保存已成功!", vbInformation, "消息"
End If
Me.Refresh