Office中国论坛/Access中国论坛

标题: [已解决]如何让模块代码更简洁? [打印本页]

作者: liuyuanfu168 时间: 2007-12-4 20:32
标题: [已解决]如何让模块代码更简洁?
你的标题不对呢,我修改了一下,cuxun

请问一下，我没有用ADO来进行添加，但是我这个是可以做到添加的，这个有没有什么问题？
Private Sub Cmd_Save_Click()
On Error GoTo Err_Cmd_Save_Click
Dim i As Integer
Dim STemp As String
      '判断“公司简称”等文本框是否为空
      If IsNull(Me![公司简称]) = True Then '公司简称不能为空
         MsgBox "请输入“公司简称”！", vbOKOnly, "注意"
         Me![公司简称].SetFocus
         Exit Sub
      ElseIf IsNull(Me![公司名称]) = True Then '公司简称不能为空
         MsgBox "请输入“公司名称”！", vbOKOnly, "注意"
         Me![公司名称].SetFocus
         Exit Sub
      ElseIf IsNull(Me![电话]) = True Then
         MsgBox "请输入“公司电话”！", vbOKOnly, "注意"
         Me![电话].SetFocus
         Exit Sub
      ElseIf IsNull(Me![地址]) = True Then
         MsgBox "请输入“公司地址”！", vbOKOnly, "注意"
         Me![地址].SetFocus
         Exit Sub
      ElseIf IsNull(Me![联系人]) = True Then
         MsgBox "请输入“联系人”！", vbOKOnly, "注意"
         Me![联系人].SetFocus
         Exit Sub
      ElseIf IsNull(Me![部门]) = True Then
         MsgBox "请输入“部门”！", vbOKOnly, "注意"
         Me![部门].SetFocus
         Exit Sub
      ElseIf IsNull(Me![职务]) = True Then
         MsgBox "请输入“职务”！", vbOKOnly, "注意"
         Me![职务].SetFocus
         Exit Sub
      ElseIf IsNull(Me![客户区域]) = True Then
         MsgBox "请输入“客户区域”！", vbOKOnly, "注意"
         Me![客户区域].SetFocus
         Exit Sub
      ElseIf IsNull(Me![客户类型]) = True Then
         MsgBox "请输入“客户类型”！", vbOKOnly, "注意"
         Me![客户类型].SetFocus
         Exit Sub
      ElseIf IsNull(Me![客户状态]) = True Then
         MsgBox "请输入“客户状态”！", vbOKOnly, "注意"
         Me![客户状态].SetFocus
         Exit Sub
      ElseIf IsNull(Me![客户行业]) = True Then
         MsgBox "请输入“客户行业”！", vbOKOnly, "注意"
         Me![客户行业].SetFocus
         Exit Sub
      ElseIf IsNull(Me![签约日期]) = True Then
         MsgBox "请输入“签约日期”！", vbOKOnly, "注意"
         Me![签约日期].SetFocus
         Exit Sub
      ElseIf IsNull(Me![收款周期]) = True Then
         MsgBox "请输入“收款周期”！", vbOKOnly, "注意"
         Me![收款周期].SetFocus
         Exit Sub
      ElseIf IsNull(Me![收款方式]) = True Then
         MsgBox "请输入“收款方式”！", vbOKOnly, "注意"
         Me![收款方式].SetFocus
         Exit Sub
      ElseIf IsNull(Me![租赁金额]) = True Then
         MsgBox "请输入“租赁金额”！", vbOKOnly, "注意"
         Me![租赁金额].SetFocus
         Exit Sub
      ElseIf IsNull(Me![养护周期]) = True Then
         MsgBox "请输入“养护周期”！", vbOKOnly, "注意"
         Me![养护周期].SetFocus
         Exit Sub
      ElseIf IsNull(Me![业务人员]) = True Then
         MsgBox "请输入“业务人员”！", vbOKOnly, "注意"
         Me![业务人员].SetFocus
         Exit Sub
      ElseIf IsNull(Me![养护人员]) = True Then
         MsgBox "请输入“养护人员”！", vbOKOnly, "注意"
         Me![养护人员].SetFocus
         Exit Sub
      Else
         STemp = "INSERT INTO 客户信息"
         STemp = STemp & "(公司id,公司简称,公司名称,电话,分机,传真,邮箱,地址,邮编,联系人,手机,部门,职务,生日,客户区域,客户类型,客户状态,客户行业,签约日期,续约日期,收款周期,收款方式,租赁金额,养护周期,业务人员,养护人员,开户银行,银行账号,附注)"
         STemp = STemp & "VALUES ('" & Me![公司ID] & "','" & Me![公司简称] & "',"
         STemp = STemp & "'" & Me![公司名称] & "','" & Me![电话] & "',"
         STemp = STemp & "'" & Me![分机] & "','" & Me![传真] & "',"
         STemp = STemp & "'" & Me![邮箱] & "','" & Me![地址] & "',"
         STemp = STemp & "'" & Me![邮编] & "','" & Me![联系人] & "',"
         STemp = STemp & "'" & Me![手机] & "','" & Me![部门] & "',"
         STemp = STemp & "'" & Me![职务] & "','" & Me![生日] & "',"
         STemp = STemp & "'" & Me![客户区域] & "','" & Me![客户类型] & "',"
         STemp = STemp & "'" & Me![客户状态] & "','" & Me![客户行业] & "',"
         STemp = STemp & "'" & Me![签约日期] & "','" & Me![续约日期] & "',"
         STemp = STemp & "'" & Me![收款周期] & "','" & Me![收款方式] & "',"
         STemp = STemp & "'" & Me![租赁金额] & "','" & Me![养护周期] & "',"
         STemp = STemp & "'" & Me![业务人员] & "','" & Me![养护人员] & "',"
         STemp = STemp & "'" & Me![开户银行] & "','" & Me![银行账号] & "',"
         STemp = STemp & "'" & Me![附注] & "')"

         '使用DoCmd对象的RunSQL方法执行查询
         DoCmd.RunSQL STemp

            Me![公司ID] = "KH" & Format(Val(Right(Nz(DMax("[公司ID]", "客户信息", ""), 0), 3)) + 1, "000")
            Me![公司简称] = Null
            Me![公司名称] = Null
            Me![电话] = Null
            Me![分机] = Null
            Me![传真] = Null
            Me![邮箱] = Null
            Me![地址] = Null
            Me![邮编] = Null
            Me![联系人] = Null
            Me![手机] = Null
            Me![部门] = Null
            Me![职务] = Null
            Me![生日] = Null
            Me![客户区域] = Null
            Me![客户类型] = Null
            Me![客户状态] = Null
            Me![客户行业] = Null
            Me![签约日期] = Null
            Me![续约日期] = Null
            Me![收款周期] = Null
            Me![收款方式] = Null
            Me![租赁金额] = Null
            Me![养护周期] = Null
            Me![业务人员] = Null
            Me![养护人员] = Null
            Me![开户银行] = Null
            Me![银行账号] = Null
            Me![附注] = Null
            Me![公司简称].SetFocus

            Forms![主页]![Cmb_Text].Requery

      End If
Exit_Cmd_Save_Click:
Set Rs = Nothing
Exit Sub
Err_Cmd_Save_Click:
MsgBox Err.Description
Resume Exit_Cmd_Save_Click
End Sub

[ 本帖最后由 cuxun 于 2007-12-5 19:47 编辑 ]

[ 本帖最后由 cuxun 于 2007-12-12 07:35 编辑 ]

作者: Victor_Duane 时间: 2007-12-4 20:43
只要能达到目的就行了

作者: tz-chf 时间: 2007-12-4 20:45
哇噻！这么复杂！
代码完全可以写得简单点（用循环）

作者: liuyuanfu168 时间: 2007-12-4 20:49
因为我不太懂的，所以没有办法只能这样了，呵呵

作者: cyber-bobo 时间: 2007-12-5 09:04
我也需要这样的例子，哪位大哥能做个简单的例子上传啊，万分感激！

作者: liuyuanfu168 时间: 2007-12-5 19:05
版主：

我把例子发上来了，你帮我看看，谢谢你了哦

作者: liuyuanfu168 时间: 2007-12-5 19:58
好的,谢谢你版主,让我获益不少,

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)