こんにちは質問させていただきます。
フォームに3連コンボボックスを作成しました。(以下の画像です)
この3連コンボボックスで製品を
製品大分類
製品名
製品型番
といった形で
最終的に製品型番を求めるために使用します。
そして、その製品型番に紐づいている製品コードを求めたいと思っています。
求めたらフォームの「製品コード」テキストボックスに
自動入力したいと思っています。
理由としては、「製品コード」テキストボックスに製品コードを入力すると
リレーションシップを組んでいるので
単価
個数
etc...
が自動入力されるからです。
それを実現させるために、以下のコードを書いているのですが
思った挙動になりません。
「このフィールドを変更する前に、まずレコードを保存してください。」
といったエラーが出ます。
VBA
Private Sub 製品型番_AfterUpdate() Dim cn As ADODB.Connection 'Connectionオブジェクト Dim rs As ADODB.Recordset 'Recordsetオブジェクト Dim mySQL As String 'SQLステートメント '接続 Set cn = CurrentProject.Connection 'レコードセットを取得 Set rs = New ADODB.Recordset mySQL = "SELECT * FROM 製品マスタ " _ & "WHERE 製品型番 = '" & Me!製品型番 & "'" rs.Open mySQL, cn, adOpenKeyset, adLockOptimistic '確認 If rs.Supports(adUodate) Then MsgBox ("編集可能です") Else MsgBox ("編集できません") End If Do Until rs.EOF Me!製品コード = rs!製品コード rs.MoveNext Loop '終了 rs.Close: Set rs = Nothing cn.Close: Set cn = Nothing End Sub
補足資料です
よろしくお願いいたします。
まだ回答がついていません
会員登録して回答してみよう