Private Sub cmd検索_Click()
dat商品.RecordSource = _
"SELECT * FROM T_商品 where 商品コード = " _
& Val(txt商品コード.Text)
dat商品.Refresh
If dat商品.Recordset.RecordCount < 1 Then
SearchFault
Else
dat在庫.RecordSource = _
"SELECT 商品コード,商品名,前月繰越,当月入庫," _
& "当月出庫,当日入庫,当日出庫,在庫数 " _
& " FROM Q_在庫問合 where 商品コード = " & Val(txt商品コード)
SetDataFields
dat在庫.Refresh
End If
txt商品コード.SetFocus
End Sub |