Microsoft Access 掲示板

Microsoft Access 掲示板

フォームのopenコマンドでのopenargs / 7

11 コメント
views
4 フォロー
7
hatena 2021/02/27 (土) 12:43:05 修正

フォームのプロパティを下記のように設定します。

プロパティ設定値
フィルター商品コード=Forms!F05_更新削除!商品コード検索
読み込み時にフィルターを適用はい
データ入力用いいえ
フィルターの使用いいえ
　
「商品コード検索」の更新後処理で再クエリするようにします。VBAなら、下記のコードで。
 
Private Sub 商品コード検索_AfterUpdate()
    Me.Requery
End Sub

さらに開く時にコンボボックスを検索値に設定しておくいいでしょう。

Private Sub Form_Open(Cancel As Integer)
    If Me.OpenArgs <> "" Then
      me.商品コード検索.Value = Me.OpenArgs
    End If
End Sub

検索フォームからこのフォームを呼び出すときは、下記のように OpenArgs を設定しておきます。

    Dim args As String
    args = Me.商品コード
    DoCmd.OpenForm "氏名テーブル", acNormal, , "氏名ID=" & args & "", , acDialog, args
通報 ...