[已解决]“录入”按钮不起作用呢是什么原因？

lh442246

为什么“录入”按钮不起作用呢，谁能帮帮我，谢谢大家！ 工作簿1 - 副本.zip (12.17 KB, 下载次数: 11)

2014-5-4 17:22 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

xdragon

2014-5-4 17:55

已经更改好了，看看行不。。。

跳转到最佳答案楼层

yuan1987

Private Sub CommandButton1_Click()
On Error Resume Next
If TextBox1.Value = "" Or TextBox2.Value = "" Or TextBox3.Value = "" Or TextBox4.Value = "" Or TextBox5.Value = "" Or TextBox6.Value = "" Or TextBox7.Value = "" Or TextBox8.Value = "" Or TextBox9.Value = "" Then
  MsgBox "请输入完整数据"
  TextBox1.Value = ""
  TextBox2.Value = ""
  TextBox3.Value = ""
  TextBox4.Value = ""
  TextBox5.Value = ""
  TextBox6.Value = ""
  TextBox7.Value = ""
  TextBox8.Value = ""
  TextBox9.Value = ""
  End If
  Dim myluru As Long
  myluru = [a65536].End(xlUp).Row + 1
  Cells(myluru, 1).Value = TextBox1.Value
  Cells(myluru, 2).Value = TextBox2.Value
  Cells(myluru, 3).Value = TextBox3.Value
  Cells(myluru, 3).Value = TextBox4.Value
  Cells(myluru, 3).Value = TextBox5.Value
  Cells(myluru, 3).Value = TextBox6.Value
  Cells(myluru, 3).Value = TextBox7.Value
  Cells(myluru, 3).Value = TextBox8.Value
  Cells(myluru, 3).Value = TextBox9.Value
  Cells(myluru, 3).Value = TextBox10.Value
  TextBox1.Value = ""
  TextBox2.Value = ""
  TextBox3.Value = ""
  TextBox4.Value = ""
  TextBox5.Value = ""
  TextBox6.Value = ""
  TextBox7.Value = ""
  TextBox8.Value = ""
  TextBox9.Value = ""
End Sub
大概是这样改，一个一个比对就行了

youfang

代码应该写在Private Sub CommandButton1_Click()过程里，
而不是Private Sub 录入数据_Click()这个过程

合同编号.Value = "" Or 客户姓名.Value = "" Or 借款日期.Value = "" Or 到期日期.Value = "" Or 借款金额.Value = "" Or 借款利率.Value = "" Or 担保物品.Value = "" Or 担保人.Value = "" Or 联系方式.Value = ""  或者关系这样写也有错

个人觉得这窗体跟在工作表直接录入数据没多大区别

su45

你看你 TextBox1 名字都没改，哪儿来的“ 合同编号.Value ”？先按上面的动画修改下吧！

xdragon

已经更改好了，看看行不。。。

水上漂123

都是高手啊

lh442246

xdragon 发表于 2014-5-4 17:55
已经更改好了，看看行不。。。

行，很好，谢谢！

lh442246

yuan1987 发表于 2014-5-4 17:36
Private Sub CommandButton1_Click()
On Error Resume Next
If TextBox1.Value = "" Or TextBox2.Value ...

也能可以了，谢谢！