是这样的,有两个表,A表为销售单据输入,B表为客户列表,A表与B表都有"客户ID"和"客户名称"字段,我已为B表输入了客户资料,我想为A表设计一个窗体,当在窗体中输入客户ID时能自动显示出客户名称.
比如说,B表中已有客户名称"北京大学",客户ID为"112",我想在"销售单据输入"窗体中输入客户ID"112"即可在"客户名称"中自动输入"北京大学".
(说的相当罗嗦)
Access的东西真是忘的差不多了,试了下面的代码是可行的,仅供参考:
首先设计一个窗体,添加两个文本框text0和text1,然后在text0上面写keydown事件代码,判断回车键。LZ是直接绑定表了,这个没有,你参考下就是了。
Private Sub Text0_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
Dim rst As New ADODB。 Recordset
Dim strSQL As String
strSQL = "select 客户名称 from B wh...全部
Access的东西真是忘的差不多了,试了下面的代码是可行的,仅供参考:
首先设计一个窗体,添加两个文本框text0和text1,然后在text0上面写keydown事件代码,判断回车键。LZ是直接绑定表了,这个没有,你参考下就是了。
Private Sub Text0_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
Dim rst As New ADODB。
Recordset
Dim strSQL As String
strSQL = "select 客户名称 from B where 客户ID = " & Text0。
Text
rst。Open strSQL, CurrentProject。Connection, adOpenKeyset, adLockOptimistic
Text1。
SetFocus
Text1。Text = rst("客户名称")
rst。Close
Set rst = Nothing
End If
End Sub
PS:附件中是一个实际例子,LZ可以直接打开参考一下!实际上,OFFICE中嵌入的语言都是VBA,是VB语法的子集。
若想写代码,必须要懂一点VB才好!。收起