スポンサーサイト

一定期間更新がないため広告を表示しています

access VBA  OpenForm からの抽出 フィルタ処理を解除

Private Sub 詳細ボタン_Click()
DoCmd.OpenForm "F_顧客情報", , , "顧客ID=" & 顧客ID
DoCmd.RunCommand acCmdRemoveAllFilters
End Sub

顧客管理一覧から顧客を抽出したあとのレコード移動できない

<原因>

フィルター処理されている状態でフォームを開いているため

<対策>
フィルター解除

Access プレビュー画面の倍率・位置とサイズを指定する


構文 Docmd.MoveSize(Right, Down, Width, Height)


Right    ウィンドウの左上隅の水平位置を数式で指定
Down    ウィンドウの左上隅の垂直位置を数式で指定
Width    ウィンドウの幅を数式で指定
Height   ウィンドウの高さを数式で指定


●サンプル●
Sub WindowSizeSample()
    '[社員名簿]レポートを開く
    DoCmd.OpenReport "レポート名", acViewPreview
    'プレビュー画面の倍率を50%にする
    DoCmd.RunCommand acCmdZoom50
    'ウィンドウの位置、サイズを指定する
  '7371/567=13cmの画面サイズ
    DoCmd.MoveSize 567, 567, 7371
End Sub

●補足●
1理論cm=567twipです。AccessVBAでは、twipを長さの基本単位としています。
1理論cmとは、画面上ではなく、印刷したときに1cmになる長さのことです。
1