作成者別アーカイブ: miura

レコードの値を繋げる

テーブルのレコードの文字を繋げる方法です。
サンプルはほぼ遊びですが、最近関与先の経理改善で考えました。

サンプルとして、次のようなテーブルにレコードが入っています。

これを一つの文章にまとめ、違うテーブルに保存します。

こんな感じです。

これをコマンドボタンを押すことで実行します。

コマンドボタンのプロパティ、イベントタブのクリック時に次のVBAコードを入力します。

Private Sub コマンド0_Click()
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset

Dim cnn1 As ADODB.Connection
Dim rs1 As ADODB.Recordset

Set cnn = CurrentProject.Connection
Set rs = New ADODB.Recordset

Set cnn1 = CurrentProject.Connection
Set rs1 = New ADODB.Recordset

rs.Open “テーブル”, cnn, adOpenKeyset, adLockOptimistic
rs1.Open “まとめた文章”, cnn1, adOpenKeyset, adLockOptimistic

rs1.AddNew
rs.MoveFirst
Do Until rs.EOF

rs1!文章 = rs1!文章 & rs!短文
rs1.Update
rs.MoveNext
Loop

rs.Close
Set rs = Nothing
cnn.Close
Set cnn = Nothing

rs1.Close
Set rs1 = Nothing
cnn1.Close
Set cnn1 = Nothing
End Sub

これを実行するとレコードが繋がります。
支払予定表に明細を記載するときに使いました。
注意点としては、繋げる文章のレコードのデータ型は「長いテキスト」を選択してください。

===============================
本当に久しぶりの更新です。最近はコロナの助成金やら融資のお手伝いで
忙しくしています。最近はAccessでは足りず、スマホでも使える
filemakerにも挑戦しています。
Accessとの違いに悪戦苦闘しております。その辺の情報も今後アップ
できればと思います。

家庭菜園も頑張っています。最近カブトムシの幼虫が畑から出てくる
ようになりました。

子供のころから幼虫から飼って、ふ化に成功したことがないので、そのまま畑に
戻しました。無事成虫になることを祈るばかりです。

本日も最後までお読みいただきありがとうございます。

Excelで出納帳をつける際の注意点

確定申告の時期が近づき、そろそろやらないと、という方が多いと思います。

一年間貯めに貯めたレシートをどう集計するのか簡単な方法を説明します。

よくある方法は、手当たり次第に入れてしまう方法です。
この方法は手っ取り早いのですが、効率が悪いです

特に日付ごとにやらないと、という考えは捨ててください。
日付はExcelであればあとで幾らでも並べ替えできます。
でも月がまたぐと少し並べ替えが面倒になるので、できれば
月ごとに入力した方が無難です。
続きを読む

軽減税率とそれ以外の売上の表記について①

軽減税率への対応②でクエリで消費税を集計し、DLookupで参照する流れを解説
しましたが、この方法は分かりやすいのですが、フォームを開いたときの動作が
遅いという欠点があります。それを解消する方法を解説します。

今回の解説は、
著書 経理業務のための Accessマクロで作るデータベース入門のサンプルデータを元に解説します。

納品書に、
・軽減税率の売上と消費税
・軽減税率適用外の売上と消費税
を集計するフィールドを作ります。
こんな感じです。

続きを読む

宛名ラベルの印刷② 宛名位置の指定

宛名ラベルを印刷すると、かなりの高い確率で余りが出てしまいます。
特に20枚印刷で21枚となると、1枚の宛名ラベルに宛名シートが1枚必要になってしまいます。
それで余ったシートが使えなくなるのはあまりにももったいないので、
続きから印刷できるよう、印刷位置を指定して印刷出来るようにします。

最初にこのような住所録を作ります。ラベル印刷にチェックがついている人だけ
ラベルが印刷されます。

続きを読む

宛名ラベルの印刷

Accessで作った簡単な住所録を元に宛名ラベルを作れます。

最初にラべルに必要な情報をテーブルに保存します。

この情報を基にラベルを作ります。

作成タブの宛名ラベルをクリックします。

続きを読む

倫理法人会のご紹介

この度静岡市倫理法人会の会長を拝命しました。

私自身倫理法人会に入会し、7年半が経ちました。その間倫理の学びを通じて大きく成長することができました。本当に7年半前にこの静岡市倫理法人会に入会できたことは私に人生の中の大きな分岐点といっても過言ではありません。

仕事は父親と一緒に税理士事務所を営んでおります。入会前は職場と自宅の往復で、行動範囲が非常に狭く、売上はジリ貧でした。そんな中ふってわいた大型契約。起死回生かと思いきや、契約には至らず。住宅ローンも抱え、このままではまずいと思い、自分を変えるために倫理法人会に入会しました。

よく「運」とは文字通り人が運んでくるものだと思います。倫理法人会に入会し、いろいろな人と出会い、いろいろなお役を受ける中で、運が回ってきました。入会後は事務所の売上も安定し、私自身4冊の本を出版する機会を頂き、また両親・嫁・子供との関係も良くなり、公私とも充実した日々を過ごしています。

これも全て倫理の実践のお陰だと確信しております。

この度、会員の静岡中小企業集客販売研究所の藤永祐太郎さんが、倫理法人会の動画を作ってくれました。
本当に嬉しいです。会長冥利に尽きます。

是非ご覧ください。

静岡市倫理法人会のご紹介

よろしくお願いします。

納品書の10%への対応①

消費税10%に備え、私も自分で作ったデータベースを修正しています。

実際のところ、販売管理については、月末締めでない得意先についても、9月30日で
全て一旦締切る必要があります。

20日締めであれば、
9月21日から9月30日で請求書を発行
10月1日から10月20日で請求書を発行という流れで。

一枚の請求書に混ぜるより、請求書を分けてしっかり消費税の増税に対応している
ことをアピールしたほうがいいと思います。
続きを読む