[VBA ] 輸入編號後 另一欄自動帶入對應值
版本:office 2003
在2nd請購單內，有以下資料
請購單單號 物料編號
aa 11
bb 22
問題：
表單在執行程式的時候
輸入aa之後 物料編號全部顯示11
aa 11
bb 11
輸入bb之後 物料編號全部顯示22
aa 22
bb 22
要如何更改 變成
aa 11
bb 22
Private Sub 請購單單號_AfterUpdate()
Dim strsql As String
strsql = "select 物料編號 from 2nd請購單 where 請購單單號 = '" & Me![請購單單
號] & "'"
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
rst.Open strsql, CurrentProject.Connection
If Not rst.BOF Then
Me![物料編號] = rst.GetString
End If
rst.Close
Set rst = Nothing
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 125.232.75.179
→
03/12 13:03, , 1F
03/12 13:03, 1F