>=IIf([Forms]![F_納品書出力依頼]![txb_納期検索1]="","000000",[Forms]![F_納品書出力依頼]![txb_納期検索1]) And <=IIf([Forms]![F_納品書出力依頼]![txb_納期検索2]="","999999",[Forms]![F_納品書出力依頼]![txb_納期検索2])
>=IIf(Nz([Forms]![F_納品書出力依頼]![txb_納期検索1],"")="","000000",[Forms]![F_納品書出力依頼]![txb_納期検索1]) AND IIf(Nz([Forms]![F_納品書出力依頼]![txb_納期検索2],"")="","999999",[Forms]![F_納品書出力依頼]![txb_納期検索2])
Private Sub Form_Current()
If Me.NewRecord = True Then '新規レコードの場合はテキストボックスを操作不可にする
[btn_次レコード].Enabled = False
Else
[btn_次レコード].Enabled = True
End If
End Sub
Private Sub Form_Current()
If Me.NewRecord Then
Me.txb_何件中何件目.Value = Me.CurrentRecord & "/" & Me.Recordset.RecordCount + 1
Else
Me.txb_何件中何件目.Value = Me.CurrentRecord & "/" & Me.Recordset.RecordCount
End If
End Sub
ならばデータ例もそうのように提示すべきですね。
全角数字のあとにアルファベットがくるのですか。
であるなら、前回の回答の最初のクエリでいいでしょう。
商品コード的なもので、数字＋アルファベット という書式のものなら、
数字部分とアルファベット部分にわけて、それぞれ数値型、テキスト型フィールドにするという設計もあります。
というようなこともあるので、どのような書式になるのか、データ例もあげて、仕様を明確に提示してください。
同じフィールドにアルファベットが入る可能性があるので数値型に出来ません。
全角数字はVal関数では数値と判断されずに０になります。
StrConv関数で半角に変換してVal関数で数値化すればいいでしょう。
StrConv 関数 (Visual Basic for Applications) | Microsoft Learn
そもそも論ですが、数値順にならべたいフィールドを、テキスト型で全角数字にする意味が不明です。
素直に数値型のフィールドにしておけば無駄なことをせずにすみます。
StrConvやValで囲むことで無駄な処理が増えて、かつインデックスが無効になるので重くなります。
もし、表示上、全角にしたいのなら、フィールドのデータ型は数値型にしておいて、表示するときに全角に変換すればいいでしょう。
ありがとうございます！
思った通りに動かせるようになりました。
cmb_2の値集合ソースのクエリ(SQL)をcmb_1の値で絞り込んだものにします。
これだけだとcmb_1を変更してもリストが更新されないので、フォーカス取得時に再クエリします。
フィールドの書式設定を「固定」にすれば指数表示にはなりません。
倍精度浮動小数点型に変更するだけで、メモリ不足とは考えにくいですね。何か他に問題がありそうです。とりあえず下記の作業を上から順に不具合が解消するまで実行してみてください。
テーブルを新規に作成しなおす。
「最適化と修復」を実行する。
新規データベースファイルを作成して、そこに現状のデータベース内のオブジェクトをすべてインポートする。
ちなみに、小数点以下桁数が2桁までいいのなら、通貨型の方がいいですね。浮動小数点数は演算誤差が発生しますが、通貨型なら誤差が発生しません。
数値型でフィールドサイズを「十進型」にしてもいいですが、あまり一般的ではありません。
テキスト形式でエクスポートしているのでしょうか。
テーブルからクエリを作成して、クエリでFormat関数で書式を設定すればいいでしょう。
小数点以下桁数が2桁なら、
何をしたいのか不明瞭です。
まずは、下記を提示してください。
テーブルのサンプルデータ
上記データのクエリでの希望の出力結果
現状のクエリのSQL
あ、フィルターです。失礼致しました。
提示頂いた抽出条件を参考に、こちらで想定通りにフィルターされるようになりました！
ありがとうございます。
ソートは並び替えという意味ですが、ご希望のことは抽出(フィルター)ということですよね。
抽出条件を下記のように設定すればいいでしょう。
短いテキスト型です。
納期（フィールド）のデータ型はなんですか？
有難うございます。
単票フォームを作りたかったので、教えて頂いたサイトを参考に作成してみます。
いつも回答ありがとうございます。
Hatenaさんのサンプルと同じく左から右への印刷方向です。
提示して頂いた方法で希望通りのレイアウトになりました！
毎度ながら、テーブル構成・クエリ・フォーム・レポート、どんな質問に対しても精通していらっしゃって感服です、、、ありがとうございました。
サンプルを作成して確認してみたら、「左から右へ」に設定してあるときに、質問の症状が発生しました。
ご希望のことは、最後のグループフッターの後に、全体の集計を表示させたいということでしょうか。
レポートフッターでは無理のようですので、全体を一つのグループとするグループフッターを作成してそこに全体の集計を表示させるようにすればどうでしょう。
具体的な手順は、「グループ化と並べ替え」でグループを追加して、フィールドの選択で一番下の「式」をクリックします。
式ビルダーが開きますので、そこで
=1と固定値の式を設定します。これを一番上に移動して、「グループフッター付き」にします。そこに、レポートフッターにあった集計テキストボックスを移動させればいいでしょう。ページ設定のレイアウトで列数を２に設定しているということですね。
「印刷方向」の設定は、
「左から右へ」か「上から下へ」かどちらになってますか。
また、現状のデータでは、1列に何行表示されていて、実際のレコード数は何件ですか。
訪問データを入力するフォームを作成する必要がありますが、
その場合、単票フォームでもいいですか。それとも帳票フォームがご希望ですか。
帳票フォームは少し難しいので、下記のサイトで単票フォームの場合の作成法を研究して、まずは単票フォームを作成してみてください。
ACCESS コンボボックスの絞り込みをする方法 - たすけてACCESS
それができてから、帳票フォームに取り組むのがいいと思います。
回答ありがとうございます、自己解決できました。
T_出力の各フィールドのNullをNzで""にしたらクエリを実行しても警告がでなくなりました。
回答ありがとうございます。
テーブルのルックアップでは無理なんですね。
ルックアップ設定は以下になります。
顧客テーブルの企業ID
値集合ソース
SELECT [T_企業マスタ].[企業ID], [T_企業マスタ].[企業名] FROM T_企業マスタ ORDER BY [企業名];
連結列
1
列数
2
列幅
0cm;2.54cm
訪問テーブルの企業ID
値集合ソース
SELECT [T_企業マスタ].[企業ID], [T_企業マスタ].[企業名] FROM T_企業マスタ ORDER BY [企業名];
連結列
1
列数
2
列幅
0cm;4.604cm
テーブルのルックアップ機能では無理ですね。
テーブルからフォームを作成して、
VBAでコンボボックスのリストのデータを制御することになります。
どちらにしても、Accessでは入力作業は、テーブルでするものではなく、フォームでするのが基本です。
フォームならいろいろな制御ができるので、安全かつ高機能なUIを構築できます。
まずは、現状のテーブルのルックアップの下記の設定を教えてもらえますか。
値集合ソース
連結列
列数
列幅
「ウィザード」機能は、初心者にとっては、質問に答えていくだけで、それなりの結果を得られるので、便利なんですが、設定の意味を理解しなくてもできるので、スキルアップの障害になりかねないですね。
また、今回のように想定外のことが起こったり、一部修正しようとしたときに、何をしたらよいかわからないということになります。
ある程度スキルがあるのなら、とりあえず「ウィザード」でひな形をさっと作成して、あとはお好みで修正しながら仕上げるという使い方ができますけどね。
そんな機能あるんですねぇ。そして、運用を考えたら今回の問題が起こるような使い難い機能だと・・・
クエリの設定がお書きいただいた様に「日でグループ化: Format$…」となっていました。
最終的は表示場所の設定でＯＫなんですね。それぞれ指定をしていました。とても勉強になりました。
詳しく説明いただきありがとうございました。
ぱっと見ですが、
「T_住所1分割」の「住所1前半」「住所1後半」フィールドの値要求プロパティと空文字の許可プロパティはどうなっていますか？
これに対して、
これらの計算結果はどのような結果が取られますか？
各プロパティの設定によって、そのフィールドに「Nullは使えない」「空文字（
""）は使えない」のような制限がかかります。それらのフィールドに使えない値を入れようとすると問題の警告が表示されます書式は最終的な表示の仕方を決めるものです。最終的な表示場所（今回の場合はレポート）で設定すれば十分です
ただ、同じデータをフォームで表示したい・レポートで表示したいなど複数用いることもあります。その場合、デフォルトの書式としてレコードソースの書式を用いるので、テーブルで書式を設定しておけば、基本的にその書式で表示する（後から変更もできる）という使い方もできます
既に指摘していますが、「書式をyyyy年mm月dd日として」いて、「『2024年3月1日』と表示されているのはおかしい」です。どこかで書式を使った何かが間違っています
画像から見える限りでは、一枚目の画像のクエリの最初のフィールド「入金日を日付でグルー…」が怪しいです
ここまで記述してたら回答付いたので以下略
おそらくクエリをウィザードで作成したのですね。
そのときに、「日付をグループ化する単位を選択してください。」で「日」を選択したのでしょう。
そうすると、日付は下記のような演算フィールドになります。
Format関数で標準の日付書式にしてますので、テーブルでの書式は無視されますね。
Format関数の返り値は文字列ですので、文字列としての並び順になりますのでそのような結果になります。
このフィールドの式を削除して、「開始日」にすれば日付順になるでしょう。
私としては、レポートの並び順は、レポートの方で「並べ替え」プロパティ、「グループ化と並べ替え」を設定してなければ、レコードソースの並び順になると認識してました。
優先度の高い順
「グループ化と並べ替え」
「並べ替え」プロパティ
レコードソースの並び順
（クエリの並び替え設定、テーブルのインデックス設定）
しかし、レポートの方で「並べ替え」なり、「グループ化と並べ替え」で並び順を指定した方が確実ですね。
新しくクエリを作り直してみたのですが、日付順に並びました。
色々と教えていただき、ありがとうございました。
テーブルのデザインです。 テーブルだと2024年03月01日となっています。
もともとはExcelデータをインポートしてテーブルにしていて、「入金日」を列に加えて
「日付」データを参照して入力をして使っています。
（「日付」を使いたいのですが、データ型を「日付/時刻型」にするとデータを消えてしまったので、
新たに列を作りました。）
書式の指定は必要ないのでしょうか。
「レポートでも」というよりは「レポートの指定のみ」が反映されます。レポート上で並び順を指定しなかった場合の並びは不定です
クエリ上での確認は、単にレポート上で並び順を指定した場合に、求めた並び順になるかどうかの確認です
画像を見る限りそうではないようですね
データが正しく日付型データで保存されているのであれば日付順に正しく並びます
型を指定しているだけで、正しいデータが保存されていないか、書式の設定の仕方が間違っています
特に「書式をyyyy年mm月dd日」と設定しているのにも関わらず「2024年3月1日」と表示されているのはおかしいですね。「mm」や「dd」としているので、0を詰めて2桁で表示（2024年03月01日）されていないとおかしいです
書式が適用できず、元のデータをそのまま表示しているのでしょう
大元のテーブルのフィールドは「日付/時刻型」になっていますか？また、そのフィールドの書式を変更する（書式なしにする）と、きちんと望んだ日付のデータが保存されていますか？
クエリでの指定とその結果になります。
レポートで並び替えたい場合は、レポートでも日付のところで昇順の指定をしないといけないという事でしょうか。
そのクエリを直接表示した場合は指定の並び順になっていますか？
また、レポートでの並びは、レポート上で並び順の指定が必要です
レポートの既定の並べ替え順序を定義する
ご回答ありがとうございます。
データ型を「日付/時刻型」に設定し、書式をyyyy年mm月dd日としています。
日付フィールドでの並び替えはクエリで「昇順」に設定していますが、1日から並びませんでした。
設定方法など間違っているでしょうか。 宜しくお願いいたします。
日付フィールドのデータ型は日付/時刻型になってますか。
日付フィールドで並び替えを設定していますか。
原因究明は地道にやるしかないのですね・・・
Recalc、Refresh等を追記したところ、正常に表示されるようになりました！
ありがとうございます。
私の作成したサンプルにそのコードを追加しても、問題なく動作します。
問題のフォームと同じテーブルをレコードソースとするシンプルなフォームを作成して、
質問のテキストボックスとコマンドボタンを配置して、症状がでるか確認してみてください。
そこから、問題のフォームと同じになるように一つずつプロパティ設定やコードを追加していって、その都度、動作確認して、症状が発生する直前に変更、追加したものが、原因ということになります。
面倒ですが、原因追及するにはそのぐらいしかないでしょう。
ちなみに、前回の回答で提案した方法は２つとも効果がありませんでしたか。
回答ありがとうございます。
私も簡素なサンプルを作成してみましたが、正常に値を表示できました。
フォームのレコード移動時イベントで、新規レコードなら次レコードボタン(＋いくつかのテキストボックス 下記コードでは省略）を使用不可にするコードを書いています。
これが何かしらCurrentRecordの値取得に影響を及ぼしている可能性はありますか？
当方でシンプルなサンプルを作成して確認してましたが、症状は確認できませんでした。
コマンドボタンで移動するごとに正しいレコード番号か表示されます。
コントロールの再計算のタイミングがずれている感じですね。
下記のように移動後に再計算させるとで改善されないですか。
あるいは、コントロールソースは空欄にしておいて、レコード移動時で代入するとか。
画像の解像度が低いので詳細が読み取れないので推測ですが、ご希望のことは下記のようなことでしょうか。
画像の左は集計クエリで縦に並んでいる。
それをクロス集計クエリで画像の右のように横に展開するようにする。
年月フィールドが毎年変わるので、それをレポートにする場合、作り直しになるのを、なんとかしたい。
だとしたら、下記のリンク先が参考になると思います。フォームになってますが、レポートでもそのまま応用できます。
列名が変化するクロス集計クエリと連結するフォーム - hatena chips
このような大雑把な説明では、回答しづらいです。
まず、勤怠システムから出力されるCSVのフォーマットを説明してください。
数行のサンプルを提示してもらえるとなおいいです。氏名などの情報はマスキングしておいてください。
それをアクセスのテーブルに取り込むことになると思いますが、現状のテーブルのフィールド構成を提示してください。
「翌月には新しいフィールドが追加されるので、」とのことですが、データベースではこのような設計にはしないので、テーブル設計から変更する必要があると思われます。
「その月の時間が入力される」とは具体的にどのようなことでしょうか。
条件はどこから取得するのかとか、どのようなデータをどこに入力するのかとか、あいまいすぎてイメージが湧きません。
まずは、CSVデータと、現状のテーブル設計の説明をお願いします。
すみません、自己解決できました。
ですね。
SQLで大分改善はしました。が、ちょっと待ち時間がストレスに感じるくらいです。
hatenaさまにいただいた、DAOでループ処理する方法でゆきたいと思います。
コードを一見して動きは理解できました。
rs.MovePreviousで1レコード前に戻るというのもできるのですね。
考えつきもしませんでした、勉強になりました。