前辈帮忙

小江阴 · 发表于 2013-5-20 15:19

求教：
如何在窗体录入中输入客户代码后，自动录入客户名称与地址？请告知代码，窗体录入后保存到表中比直接在表中录入方便。

小江阴 · 发表于 2013-5-20 15:36

求教：
如何在窗体录入中输入客户代码后，自动录入客户名称与地址？请告知代码，窗体录入后保存到表中比直接在表中录入方便。

qy1219no2 · 发表于 2013-5-20 15:56

假设数据源在sheet1表，代码在A列，单位在B列，地址在C列，则代码：

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
cDm = TextBox1.Text
If cDm <> "" Then
With Sheet1
Set nRow = .[a:a].Find(cDm)
If Not nRow Is Nothing Then
TextBox2 = .Cells(nRow.Row, 2) '单位
TextBox3 = .Cells(nRow.Row, 3) '地址
Else
MsgBox "输入的编号错误！", vbCritical, "提示"
Cancel = True
End If
End With
End If
End Sub

复制代码

小江阴 · 发表于 2013-5-20 16:29

qy1219no2 发表于 2013-5-20 15:56
假设数据源在sheet1表，代码在A列，单位在B列，地址在C列，则代码：

前辈，我刚学ACCESS，如上图我的代码，客户单位，客户地址都在一列啊？

qy1219no2 · 发表于 2013-5-20 17:19

Access的不明白！！不好意思，这是EXCEL的代码

小江阴 · 发表于 2013-5-20 18:25

qy1219no2 发表于 2013-5-20 17:19
Access的不明白！！不好意思，这是EXCEL的代码

没关系，还是谢谢你！

ly · 发表于 2013-5-20 21:21

小江阴发表于 2013-5-20 15:36
求教：
如何在窗体录入中输入客户代码后，自动录入客户名称与地址？请告知代码，窗体录入后保存到表中比直 ...

1、请不要重复发帖！
2、窗体上的数据是否绑定了
3、请上个附件
谢谢了！

竹笛 · 发表于 2013-5-21 14:11

你这个功能至少要有张表用来存放客户信息的，这样才可能做到自动填充的功能，不然你只能是一个个输入

小江阴 · 发表于 2013-5-21 16:38

竹笛发表于 2013-5-21 14:11
你这个功能至少要有张表用来存放客户信息的，这样才可能做到自动填充的功能，不然你只能是一个个输入

您的意是我要建一张客户信息表，然后用DLOOKUP？
那我已经用了售后服务表里面有客户信息，但我用DLOOKUP成功自动导入数据后，导入的数据不能在售后服务表里显示，因为数据源不是售后服务表，点保存后，其他信息都保存到售后服务表中了，唯有刚才自动显示的客户代码、客户单位、客户名称三项不能保存到售后服务表中。

竹笛 · 发表于 2013-5-22 14:27

小江阴发表于 2013-5-21 16:38
您的意是我要建一张客户信息表，然后用DLOOKUP？
那我已经用了售后服务表里面有客户信息，但我用DLOOKUP ...

干嘛要用Dlookup这么麻烦呢，直接用组合框不就可以了

		自动登录	找回密码
密码			免费注册