カテゴリー別アーカイブ: 申告

レコードの値を繋げる

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

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

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

こんな感じです。

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

コマンドボタンのプロパティ、イベントタブのクリック時に次の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との違いに悪戦苦闘しております。その辺の情報も今後アップ
できればと思います。

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

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

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

宛名ラベルの印刷

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

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

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

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

続きを読む

納品書の10%への対応①

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

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

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

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

4冊目を出版します!

私が最初に執筆した、「経理業務のためのAccess実践講座」がポツポツ売れ続け、
在庫がなくなったので、改訂版を出すこととなりました。

前作はAmazonで「難しい、初心者向けではない」というコメントを多々頂きました。
その理由にサンプルファイルがないのと、VBAを多用したためだと思います。

今回はサンプルファイル付きで、しかもVBAは一切使わず全てマクロでデータベース
を作りました。

全くの初心者には無理かもしれませんが、一通りAccessを勉強したことがある方なら
十分理解できる内容になっていると思います。

発売は9月21日土曜日を予定しています。

書店で手に取ってみて頂ければ幸いです。

よろしくお願いします。

Excelの仕訳を変換する 研修内容①

先日ICSユーザー向けにExcelの仕訳取込の研修を行いました。

内容はExcelの出納帳やネットバンキングのデータをどうやって
ソフトにインポートするか?という内容でした。

時間は2時間だったので、理屈を言ってもすぐに時間になってしまい
なにも参加者のお役にたてないと思い、結局は私が使っている
ツールの操作方法を説明し、それを事務所に持って帰ってもらい
実際にやってもらう、そんな内容のセミナーを開催しました。
続きを読む

ダウンロードファイルランキング!

このブログをはじめてもう5年以上経ちました。

ダウンロードページにオリジナルのファイルが自由にダウンロードできるようになっている
のですが、今までのダウンロードのランキングです。
1位 Excel現金出納帳  4643回
2位 現金出納帳Access  2994回
3位 給与計算      1893回
4位 見積請求書作成   1684回
5位 Excelで工事台帳  1270回
6位 工事台帳~完成版  1178回
7位 販売管理      1069回
8位 業務管理データベース  836回
9位 Accessで作る領収書 770回
10位 工事原価管理    755回
11位 Accessで残高計算  721回
(平成31年3月24日現在)
続きを読む

講話をします!

4月21日の土曜日に静岡市倫理法人会にて講話を
務めさせていただきます。

ご興味のある方はぜひ静岡駅前のホテルアソシア静岡
までお越しください。

静岡市チラシ

よろしくお願いします。

AIに奪われる仕事

AIに仕事を奪われる業種に税務申告代理人が書かれています。
税理士ではなく税務申告代理人です。

確かにこの言い方は言いえて妙だと思います。

私的には税理士の仕事がなくなるとは思っていません。
ただ税務申告代理人の仕事はなくなるかもしれません。
続きを読む