MS Access Tips/Sample and VBA and Blog customize etc...

グループの最後のページのフッタにだけ表示する

レポートでグループ化してグループフッターで改ページしています。一グループは複数ページにわたる場合もあります。グループの最後のページのフッターにだけ、グループ名やグループ計を表示したいのですが、どうしたらよいでしょうか。VBAは苦手なので、VBAを使わずにできるといいのですが。 下記で紹介したVBAを使えば、グループ毎のページ数を取得できるので可能なのですが、 グループ毎に Page/Pages 形式のページ数を表...

複数項目のNullチェックをする場合の小技

テキスト型の複数項目がすべて入力必須なので、一つでもNullがあったら警告したい、逆に、複数項目で一つ以上は入力する必要があるので、すべてNullの場合は警告したい、などという要件はわりとあると思います。 素直に、コーディングすると、下記のようになります。 '一つでもNullがあったら警告 If IsNull(Me.txt1) Or IsNull(Me.txt2) Or IsNull(Me.txt3) Then MsgBox "txt1, txt2, txt3 はすべて入力必須です" ...

カテゴリ内前後記事移動スクリプト

関連記事リスト自動表示スクリプトの改良版 の記事に下記のようなコメントがつきました。 こちらのものを カテゴリー内でエントリーの前後の記事を表示するようにしたいのですが スプリクトコードを変更すれば可能でしょうか。 この、カテゴリ内前後移動は結構、希望が多い機能のようです。FCリクエストにも、ノベルテンプレさんが要望を出していて、賛成も非常に多いです。 同一カテゴリ前後ページへのナビゲーション...

タイマ時イベントで時刻判断するときの注意点

指定した時刻になると処理を行うというコードで下記のようなコードを見かけることがあります。 Sub Form_Load() Me.TimerInterval = 1000 End Sub Sub Form_Timer() If time = #10:00:00 AM# Then '行う処理 End If End Sub これで良さそうに思えますが、実は、このコードには落とし穴があります。 難易度:...

レポートでグループ毎に上位N件まで表示する

レポートでグループ化しています。グループ毎の件数が多いので、グループ毎の上位5件のみ表示したいです。クエリを使うと、複雑で重くなるので、シンプルな方法はないでしょうか。 レポートのレコードソースのクエリでグループ毎の順位を求めて、順位5位以上を抽出するようにすれば可能です。が、質問でもあるように、DCountやサブクエリで順位を求めることになりますが、結構複雑な式になりますし、件数が多くなるにつれて幾...

関連記事リスト自動表示スクリプトの改良版

以前の記事で ブログに関連記事リストを自動表示するスクリプト を紹介しましたが、果たして、使ってくださっている方はいるのでしょうか。精度と速度には自信がありますが、手間のかかるかなりマニアックな仕様ですので。。。 それはともかく、このスクリプト、いくつか不満点があったので改良してみました。 難易度:...

AC2007, 2010 の Split, InStr関数のバグ?

VBA の Split() で「文字列領域が不足しています。」のエラーになります。 Windows7 64bit, Office2010β版 の環境で、 Dim rec As String Dim a() As String rec = "7202.T,いすゞ自動車(株),4/30,303," a = Split(rec, ",", , vbTextCompare) というようなコードで再現できます。 というような質問がMoug掲示板でありました。 (改編してます。オリジナルは、 Split 関数でエラー「文字列領域が不足して...
該当の記事は見つかりませんでした。