「fFolderPicker」フォームを作成します
ActiveXコントロールから
・「Microsoft TreeView Control, version 6.0」：TreeView
・「Microsoft Forms 2.0 TextBox」：TextBox
を配置します
「TextBox」はWordWrapプロパティを「いいえ」にします
'//標準モジュール：MyFolderPicker
Option Compare Database
Option Explicit
Const defaultPath = "C:"
Public returnString As String
Function folderPicker(Optional folderPath As String)
If folderPath = "" Or Dir(folderPath, vbDirectory) = "" Then folderPath = defaultPath
returnString = ""
DoCmd.OpenForm "fFolderPicker", , , , , acDialog, folderPath
folderPicker = returnString
End Function
'//フォーム：fFolderPicker
Option Compare Database
Option Explicit
Dim fso As Object
Private Sub Form_Close()
Set fso = Nothing
MyFolderPicker.returnString = TreeView.SelectedItem.Key
End Sub
Private Sub Form_Load()
Dim folderPath As String
Dim folderName As String
folderPath = OpenArgs
folderName = Mid(OpenArgs, InStrRev(OpenArgs, "\") + 1)
Set fso = CreateObject("Scripting.FileSystemObject")
TreeView.Nodes.Add , , folderPath, folderName
TreeView_NodeClick TreeView.Nodes(1)
End Sub
Private Sub TreeView_NodeClick(ByVal Node As Object)
Dim files As String
Dim file As Object
For Each file In fso.GetFolder(Node.Key).files
files = files & file.Name & vbCrLf
Next
Me.TextBox.Value = files
If Node.Tag = "Done" Then Exit Sub
Dim folder As Object
For Each folder In fso.GetFolder(Node.Key).SubFolders
TreeView.Nodes.Add Node.Key, tvwChild, folder.path, folder.Name
Next
Node.Tag = "Done"
Node.Expanded = True
End Sub
https://www.kingjim.co.jp/download/tepra/labeleditor.html
https://www.kingjim.co.jp/download/tepra/spc10_api/
公認か非公認か、グレーゾーンか否は、私にはわかりません。
Accessの印刷プリンタの設定画面を開いて、印刷可能なプリンタ一覧に入っていれば、KING JIM SR5900P-NWで印刷する事もあっさり叶うかもしれません。
グレーゾーンだったんですね。
すみません。知識不足でした。
公認な機能でできるものだとばっかり思っておりました。
大変失礼しました。
普通は、出来ないんじゃないでしょうか。関連フォルダを眺めて、手探りで試行錯誤しているうちに出来ちゃう事もなきにしもあらずですが。そういう事がやりたいなら、最初から最後までひとりで頑張ろう。
当たり障りのない部分は自由に質問していいけれど、非公認かもしれないグレーな部分は、それとわからないように。
ご返信いただきありがとうございます。
できれば、ソフトを使って流し込み印刷するのではなく、Accessから直接テプラに印刷したいのですが、可能だったりしますか？
可能です。公式ソフトに流し込んで下さい。
標準の機能ではないので、ユーザー定義関数を作成することになります。
過去に公開してくれてる方がみえますので、それを使用すればコピーするだけで使えます。
DJoin 関数 - リスト文字列を取得する方法 | YU-TANG's MS-Access Discovery
出力先がレポートなら、下記で紹介している方法が簡単です。
グループ内のデータを横連結する - hatena chips
コメントありがとうございます。
Accessのフォームで、AccessVBAコード;レコードのループ処理:変数に該当フィールドの値を＋＝みたいな感じでどうですか？
ただ、脱Excel脳に切り替えないと駄目ですね。同様のことをしたいという発想を捨てないと、いつまで経っても中途半端、結局、Accessでジェンガジェンガする事に。
ありがとうございます。
聞きたいことが正しくこの場で聞けるように、
再度運用を確認して設計をしてみます！
それぞれ会社毎に、特殊な運用実態があることなので、ここの掲示板では言葉だけでのやりとりでは実態を把握するのは困難です。
確実な設計をするとなると、そちらの現状、使用されている書類、運用実態の聞き取り、などの作業も必要になりますので、このような掲示板でのボランティアでの対応では難しいでしょう。
実際に業務運用している人が一番、業務内容を理解しているはずなので、紹介したリンク先を参考にまずはご自身で、設計してみて、その結果、うまく行かない部分、分からない部分が出てきたらピンポイントで質問されたら、具体的に回答が付きやすいと思います。
ご指摘ありがとうございます。
もう一度、共通する項目とそうじゃない項目を見直してみます。
参照リンクなどいろいろとお気遣い頂いて本当にありがとうございます。
班というのは、工事請負会社の依頼で仕事を受けた下請け業者のことです。
実際現場ではこの班の方々とお仕事をします。
なので、その日毎に代わっていく項目にはなります。
できればもっと効率的なDBを作って会社のお役に立ちたいです。
なので、なにか非効率的なところや修正したほうがいいと
感じたところなどあれば教えていただけると非常にうれしいです。
いつも本当にありがとうございます！
ご指摘ありがとうございます。
頂いた内容をもとにもう一度正規化をしてみます。
共通する項目とそうじゃない項目の分け方がちゃんと出来ていないので、
そこから見直します！ありがとうございます！
hirotonさん
ユーザーの要望が強い場合は、実装させていただきます。
ご回答ありがとうございました！
ありがとうございます。
DROP COLUMNを使うことにしました。
一応、20 の投稿のリレーションシップの設定で、
フォームウィザードでT_警備報告書DBとT_担当警備員DBから必要なフィールドを追加して、進めていけば、担当警備員データをサブフォームに複数登録できるメイン/サブフォーム形式のフォームは作成できると思います。わからなければ下記を参考にやってみてください。
Accessのフォームのメイン/サブフォームとは | できるネット
ただ、それでいいのかはちょっと疑問に思います。
そちらの業務実態が分からないので、あくまで一般的な想像からですが。
現場には複数の警備員、車両を配置するのだと思いますが、走行距離、始業時間、・・・実働時間は共通でいいのか。(現状は共通にしかできない。)
会社名というのが工事請負会社なら、会社名、現場所在地は、工事情報テーブルの方に入れた方がいいのでは。
あと、「班」というのが、どのようなものなのか。
警備員がものなのか。継続的なものなのか、工事現場やその日ごとに作成されるものなのか。
それらの状況や運用しだいでもっと効率的な設計がありそうな気もします。
それが一番簡単そうです。
列削除は、SQLの DROP COLUMN で簡単に削除できます。
【SQL学習入門】5回目:Accessテーブルの構成を編集できるデータ定義クエリ
あるいは、エクセルデータはリンクテーブルにしておいて、そこから、フィールドCを除いた追加クエリ(またはテーブル作成クエリ)を作成して、それを実行するという方法もあります。
警備報告書見出しテーブル:
🔑{伝票No},会社名,工事名
警備報告書明細テーブル:
🔑{伝票明細No},伝票ID,日付,担当班,走行距離,高速道路、始業時間…,担当警備員,社用車
こんなのを想定していたのですが、、、
皆様、お世話になっております。困り眉です。
進捗をご報告いたします。
現在、正規化を行うために新しくT＿担当警備員DBを作成しリレーションシップを見直してみました。
内容は以下の通りです。ご指摘いただけると嬉しいです！よろしくお願いいたします。
有難うございます！引用符で囲みましたら希望通りの動作をしてくれました。
とても助かりました！
抽出条件の対象フィールドがテキスト型の場合は、条件値を引用符(
')で囲む必要があります。コントロールにはCaptionがあるもの(Label, CommandButton等)とないもの(TextBox, ComboBoxなど)がありますので、Controlだとないものがあるプロパティは出てこないですね。
１種類のコントロールを対象にするなら、そのコントロール種で宣言する方がいいですね。
回答ありがとうございます。
自動メンバー表示が出なかったうえ、何らかのエラーが出たために、captionのところでエラーが出ていると勘違いしてしまいました。現在は、エラーを修正して使えています。
Labelで宣言すれば、自動メンバー表示に出るのですね。
自動メンバー表示のヒントがないと、私には不便で不安になってしまいます。今回のように、ラベル用の時はLabelで変数宣言するようにします。
ありがとうございました。
回答ありがとうございます。
自動メンバー表示が出なかったうえ、何らかのエラーが出たために、captionのところでエラーが出ていると勘違いしてしまいました。現在は、エラーを修正して使えています。
そのコードで問題なく動作すると思いますが、
コード入力中に自動メンバー表示のリストに出てこないという話だったら、
ctlをControlではなくLabelで宣言すればいいでしょう。
こう判断したのはなぜ？
なるほど、工事現場と日付が決まると、担当警備員が決まったり、社用車が決まったりするのですね。
毎日都度変更する可能性がある項目を集めた明細テーブルとかちっと決まっている項目を集めた見出しテーブル(時間軸に影響されない項目、会社名や工事名)を作って、例えば、親子関係のリレーションシップを結んでみるとかどうでしょう？正規化にチャレンジしてみて下さい。
担当警備員はたんなる工事現場の担当警備員になります。毎日つど担当警備員は変更するので、かちっと決まっているわけではありません。社用車も同様です。
ありがとうございます！
出来次第こちらでご報告いたします。
https://www.google.com/search?q=ACCESS treeview
https://www.google.com/search?q=ACCESS+treeviewあぁ、URL貼り付けるときはわざわざリンクの表記する必要なかったってだけですね
>リレーションシップ
担当警備員ですが、XX業者付きの担当警備員、それとも、YY業者1班付きの担当警備員、それとも単なる工事現場の担当警備員、明示できますか？車種(社用車)も同様に明示できますか？
面白そうなネタだったのでちょっとやってみました
「fFolderPicker」フォームを作成します
ActiveXコントロールから
・「Microsoft TreeView Control, version 6.0」：TreeView
・「Microsoft Forms 2.0 TextBox」：TextBox
を配置します
「TextBox」はWordWrapプロパティを「いいえ」にします
手を抜けそうなところは抜きつつ、ですが、このあと、ダイアログとしての体裁を整えるのにさらに苦労することはまた別の話
まずは、データベース設計の基本である「正規化」というものについて学習しましょう。
「正規化」でWEB検索すると解説ページが山ほど見つかります。
突き詰めると結構深いので、とりあえずなんとなくでもいいので概要を理解するようにしましょう。
Accessに関するものだと、下記あたりを参考にするといいでしょう。
わかる！Access学習４ 理解を深めるデータベースの正規化 | 簡単！！Access作成方法の紹介
アクセスデータベース設計の基本(正規化)
正規化 カテゴリーの記事一覧 - もう一度学ぶMS-Access
「正規化」されていないと、「個人別で給与計算等行う」などの集計作業が非常に困難になります。
上記のリンク先などを参考に、とりあえず「正規化」にチャレンジしてみてください。
できたら、どのような形になったか報告してください。
正規化ができたら、リレーションシップの設定をします。
そうすれば、hirotonさんも提案されたメインサブフォーム形式のフォームがウィザードでも作成できます。
ご指摘ありがとうございます。
リレーションシップは以下の通りです。
リレーションシップの画面のスクショを提示して下さい。リレーションシップの設定が出来なければ諦めましょう。
その上で、操作画面のスクショを提示して下さい。別スレのようにならないために。
hirotonさん、ご回答ありがとうございます。参考にさせていただきます。
おっしゃる通り、「一つの警備案件に複数人が従事するから従事した人数分だけデータ登録したい」ということで合っています。12枠作成しているのは、1つの警備案件で最大12人稼働する可能性があるためです。
このデータは、担当警備員別でデータを溜めて、最終的には個人別で給与計算等行うためのDBになります。なので、仕組みとしては「伝票番号1つで複数商品登録できる注文書/請求書を作りたい」と同じ形になると思います。
もう少しひねった考えをするなら「とにかく12人分登録できればいいが、登録情報から登録したいのでコンボボックスを使いたい」のようなことは考えられます
レコード更新時にマクロ（VBA）でコンボボックスの内容を連結して登録してあげればいいですかね
ただ、このような想定は
のイメージからかけ離れてしまうのでやはり、「やりたいことはこれではないだろう」となります
なんとなくですけど、「本当にやりたいこと」が「質問に反映できていない」のだと思うんですよね
本題は「一つの警備案件に複数人が従事するから従事した人数分だけデータ登録したい」ということではないですか？
バックグラウンドがないので質問に真っ直ぐ答えようとしてそのままあらぬ方向に飛んで行ってしまっている気がします
常に12人固定で登録する必要があるのなら、
担当警備員フィールドを増やせばいいでしょう。12枠なので「A～L」とか「1～12」とか「01～12」とか適当に添え字をつければいいですこれ、マクロを使わなければなんて思うようなことじゃないですよね？だとすれば・・・となるわけで
「一つの警備案件に複数人が従事するから従事した人数分だけデータ登録したい」
のだろうと思えば、これならよくある「伝票番号1つで複数商品登録できる注文書/請求書を作りたい」と同等の問題になります