スポンサーサイト

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

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になる長さのことです。

access フォーム チェックボックスがオンのみ合計

 テキストボックス 

コントロールソースに

=Sum(IIf([入金済]=Yes,[受講料金],0))

で、チェックボックスがオンのみ合計できる。

EPSON PX-B750F 背面 はがき 用紙サイズ

エプソン PX-B750F 背面トレイ はがき印刷で「用紙サイズが異なる・・・」 メッセージが表示される場合の対処法 1.プリンターのプロパティ 2.環境設定 3.プリンター設定 4.背面MPトレイを「その他のサイズ」

Excel・AccessVBAのヘルプが表示されない

 Excel・AccessVBAのヘルプが表示されない

対策>
[F1]キーを押す

画面右下、正しく表示されない場合は「office.comに接続」と表示されている

ので、そこをクリック

「このコンピュータ上のコンテンツのみを表示」にチェック