MS Access：レポートで文字数に応じてフォントの大きさを変える 別法
以前書いた MS Access：レポートで文字数に応じてフォントの大きさを変える で、手法を変えればエクセルと同じ書式設定が使えます。 どうするか。 帳票をエクセルで作って、必要なセルの書式設定を行い、これも過去記事の MS Access：エクセルシートに書込む の方法でAccess からこのエクセルシートにデーターだけを書き込んでやります。 つまり、Access のレポートを諦めます。 データーを書き込むルーチンがちょっと...
MS Access：レポートで文字数に応じてフォントの大きさを変える
以前書いた記事の修正版 決められた横幅のレポートのテキストボックスで、エクセルの書式設定の様に縮小して全体を表示するという設定と似たような処理をしたいときには・・・・・ NET上で検索すれば最適な手法はヒットしますが・・・・ こんな方法もあるという例を。 等幅フォントの場合、 まず表示する文字数を数えますが、アクセスは文字数で全角半角の区別をしないので 半角を１、全角を２とした時の...
MsAccess ファイルへのアクセスでエラー・・・・・・
MsAccess で作った業務処理でエラーが出まして × 印で終了クリックする以外はVBA イベントの全てが正常動作しなくてエラー画面で止まってしまいます。この Access の業務処理は一番最初にメニューのフォームを表示させて、そこには色んな処理ボタンや終了ボタンを作ってます。終了ボタンのクリックイベントにはquitしか書いてません。これすらも動かなくなってしまいました。メニューフォーム上のボタンをクリックすると、全てのイ...
MS Access：エクセル（Excel）シートに書込む
書式ができあがっているエクセルの帳票にAccess のデータを書込んで次々印刷する。 会社とかで、どこかの部署とか、自分で作ってたエクセルの帳票に、 Access で作ったデーターを書込んで印刷する。 そんなことが現実にでてきて、印刷したい書類は90数枚で、それぞれ内容が違うもの。 で、データーはAccess に入力済み。 エクセルで色んな帳票を作るのは日常茶飯事で、罫線を多用したり、特に合計や引き算足...
MS Access：Font 雑感 その2
Font を指定することの意味は 当然ながらその装飾性を意識して使用するという事です。 私の卑近な出来事での Font の話ではっきりと印象に残っているのは、 ビルには部屋名とかエレベータの番号とか 階段N とかいった風に扉等にそんな文字が書かれていますが、 その文字を確か、ダビンチ！とか話されていたことを覚えています。 ビルの装飾にも文字のフォントが意識されていたことが、 おおっ！やっぱりそうなのだと云う...
MS Access：Font 雑感 その1
Font の横幅のはなし 仕事上で使用される集計表で、一番気を使うのはA4用紙にどうやって納めるかということです。 出来ればA3にはしたくないし、何しろ閉じたりするのが面倒です。 ちなみにこの用紙のサイズですが、昔は官庁関係はBサイズのB5，B4が殆どでした。 今は、Bサイズは書籍関係以外殆ど使われませんねぇ。 A4サイズで集計表にすると、多分横使用になると思います。 縦位置で使用すると、左側にとじ...
MS Access：Font 雑感 その0
以前Font のこと書いてますがAccess に限らずFont をどうするかと云うことは色々悩ましい問題です。私が作成した様々なパソコン上の製作物では、時々、そのFont を意識して作る時があります。0）．Font の一般性私の個人使用で、私的な印刷物に使用する場合は、お気に入りのFont を使用することは自由です。標準でPCにインストされるもの以外で、ディズニーのファンタスティックなフォントもフリーでアップロードされてるし、特に...
MS Access：Visible = True で表示されないラベル
非表示ラベルを作っておいて、そこに“処理中です。しばらくお待ちください。”とか書いておいて、処理に時間のかかるルーチンでMe.処理中ですラベル.Visible = Trueとやってメッセージを表示させるのですが、以降の処理によっては表示されないときがあります。こんな簡単なことが実行されなくて悩みまくったことがありまして、そんなときは、先の行の下にMe.Repaintと書いてやります。...
MS Access：リストボックス表示時に特定の行に飛びたい
リストボックスの名前をmyListBox とする。 リストボックスの1列目は重複のない、主キーが設定できるフィールドであることが必要。 この列は非表示でもよいし、また、このキーでソートされていなくてもよい。 TargetListBoxNum とかを、パブリック変数で長整数に定義し、 このリストボックスを含むフォームのアクティブ時イベントに下記のように記入する。 （このフィールドが文字列の場合の検証はしていない。...
MS Access：四捨五入
AccessVBA には四捨五入の関数がありません。そこで、四捨五入の関数。Function 四捨五入(数値#) As Long Dim tmp_num As Long tmp_num = Int(数値#) 数値# = 数値# - tmp_num If 数値# >= 0.5 Then 四捨五入 = tmp_num + 1 Else ...
MS Access：入力文字数を制限する（半角：１，全角：２で）
テキストボックスに入力された文字数を半角＝1Byte，全角＝2Byte と計算して指定Byte数を超えた文字列を削除する。関数として定義。Function LimitedString(inString As String, LenMax As Byte) As String''' テキストボックスに入力された文字列の，文字数を制限する。' 全角文字を２，半角文字を１と計算する。' 全角文字の 2byte 中最後の 1byte が、文字数制限を超えたときは，' 最後の全角文字を削除する。' 引...
MS Access：DAOの明示的な宣言
DAOを使用する時は明示的に宣言する。Private Sub DataInput_Click() Dim MyDB As DAO.Database Dim MyRS As DAO.Recordset Dim MyQD As DAO.QueryDefAccess のVBA の参照設定で、Microsoft DAO 3.6 Object Libraryを登録するが、Private Sub DataInput_Click() Dim MyDB As Database Dim MyRS As Recordset Dim My...