大家好，欢迎来到IT知识分享网。
在Access数据库窗体上实现两个文本框的内容联动一般通过DLOOKUP函数可以快速实现，首先我们看数据库里的一张“手册料件”表如下：
手册料件表
我们新建一个窗体，窗体上插入两个文本框，如下图：
Access窗体
我们要实现的是料件序号文本框内容变更后，料件料号文本框内容也随之变更。实现这个功能有多种方法，第一种办法就是直接使用DLOOKUP函数实现。代码如下：
Private Sub 料件序号_AfterUpdate()
Me.料件料号 = DLookup(“料件料号”, “手册料件”, “料件序号 = ‘” & Me.料件序号 & “‘”)
End Sub
这种方法在VB中无法使用，所以就只能用第二种方法实现了，代码如下：
Private Sub 料件序号_AfterUpdate()
Dim rs0 As New ADODB.Recordset
rs0.Open “select 料件序号,料件料号 from 手册料件 where 料件序号 = ‘” & Me.料件序号 & “‘”, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Me.料件料号 = rs0(“料件料号”)
End Sub
当然在VB中，代码还需要稍微变化一下，首先在VB工程中新建一个FORM1,插入两个文本框TEXT2和TEXT3。
VB窗体
代码如下：
Private Sub Text2_Change()
Call OpenConn
Dim rs0 As New ADODB.Recordset
rs0.Open “select 料件序号,料件料号 from 手册料件 where 料件序号 = ‘” & Me.Text2.Text & “‘”, cn, adOpenKeyset, adLockOptimistic
Me.Text3.Text = rs0.Fields(“料件料号”)
Me.Text3.Refresh
rs0.Close
Set rs0 = Nothing
End Sub
免责声明：本站所有文章内容,图片，视频等均是来源于用户投稿和互联网及文摘转载整编而成，不代表本站观点，不承担相关法律责任。其著作权各归其原作者或其出版社所有。如发现本站有涉嫌抄袭侵权/违法违规的内容,侵犯到您的权益，请在线联系站长,一经查实,本站将立刻删除。 本文来自网络,若有侵权，请联系删除，如若转载，请注明出处：https://yundeesoft.com/160834.html
