>=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
Public Sub SetFlag()
Dim rs As DAO.Recordset
Dim strSQL As String
Dim pre社員No
CurrentDb.Execute "UPDATE Mtbl_所属歴 SET flg削除 = False WHERE flg削除 = =True;"
strSQL = "SELECT * FROM Mtbl_所属歴 ORDER BY 社員No, 開始日, 終了日;"
Set rs = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset, dbFailOnError)
Do Until rs.EOF
If pre社員No <> rs!社員No Then
pre社員No = rs!社員No
rs.Edit
rs!flg削除 = True
rs.Update
rs.MovePrevious
rs.Edit
rs!flg削除 = True
rs.Update
rs.MoveNext
ElseIf 特定の名称が含まれる Then
rs.Edit
rs!flg削除 = True
rs.Update
End If
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
MsgBox "完了"
End Sub
ありがとうございます！
思った通りに動かせるようになりました。
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レコード前に戻るというのもできるのですね。
考えつきもしませんでした、勉強になりました。
何かを参照する場合は、「コードの実行場所」と「コードの実行場所から見た操作したい相手の場所」を常に意識することが大事です。
すべて無視して、ACCESS本体から見た「
Forms!～」という記述も可能ですが、hatenaさん指摘のように、「コードの実行場所自身=>Me」や、「サブフォームからみた親フォーム=>Me.Parent」、「親フォームから見たサブフォーム=>Me![サブフォーム名].Form」等の参照方法を覚えるとコードが簡素に記述できますまた、参照に用いる場合の
[]使い方も覚えましょう。これは、基本的に「名前」を指定するときに用いる記号です。ACCESS本体が持つ機能（キーワード）に使うことはできませんたとえば、「天候」を保存するために用意したフィールド「
suitei_tenko」を指定する場合に、[suitei_tenko]等記述します。「フォームに読み込んだそれを参照する」ならのようになります
通常「
Me」とは、コードを実行したオブジェクトを参照するキーワードで何かの名前ではありません。[Me]と記述した場合、「Me」と名前を付けた何か（フィールドとか、テキストボックスとか）を参照する記述となります。そのような「何か」が無ければ参照先が見つからないというエラーが発生しますまた、
[]は省略可能な記述で、ACCESS上（フォームやレポート等）で記述すると自動で付加されますが、VBAで記述する場合は、なるべく省略したほうがコードがすっきりします「省略できない場合」もあるので、より深い知識が必要になったら調べてみると良いでしょう
あぁ、コードがめちゃくちゃでしたね。ごめんなさい
hatenaさんが正しいコード例を提示してくださっているのでそちらを参考にしてください
クエリを使うか、レコードセットを操作するかについては、フォームに読み込んだレコードを操作するのであれば、圧倒的にDAOによるレコードセットの操作のほうが楽だと思います
開いたフォームがすでにレコードセットを開いているので、よくあるレコードセットを扱うための魔法の言葉が不要で、
Withステートメントの活用により余計な変数も不要になるのでフォームのレコードセットを操作する方法はいくつかあります。（hirotonの回答がめちゃくちゃなのも、これらを適当に組み合わせてしまっているからです）
DoCmdによるフォームの操作ACCESSの機能を使ってフォームを見たまま操作する例です。見たまま、レコードを移動させながら操作するので、
suitei_tenkoもMeからの参照で現在のカレントレコードのフィールドの値を修正しますレコードセットの操作と異なり、レコードが無い場合の操作を行うとエラーが発生するので、それようの対策が必要です
「マクロ」で作る場合の理論をそのままVBAでコードにするとこんな感じでしょう
Me.Recordsetを操作表示しているフォームそのもののレコードを扱います。レコードセットのレコードを移動させると、フォーム上のレコードも移動するので、レコードの移動だけレコードセットを操作して、レコードの編集はフォーム上のコントロールを操作するとかいう訳の分からないコードを組むこともできます。（コードが短くなるだけで大したメリットはない）
Me.RecordsetCloneを操作フォームに読み込まれているレコードセットを直接操作します。ただし、表示中のレコードは移動しません。Meによる参照と、レコードセットからの参照で、参照しているレコードを別々に持つことになります
Me.Recordset.Cloneを操作(コードは省略)
全く同じレコードセットを新しく生成します
新規でレコードセットが生成されるので、常にレコードセットの先頭にカーソルがある状態のレコードセットになります。（
DoCmd.GoToRecordやMoveFirstのような、全件を操作するための準備がいらない）新規でレコードセットを生成しているので、閉じる処理（
Close）が必要フォームとは関係ないレコードセットを操作するので、フォームに反映させる処理（
recalc/refresh/requery）が必要データベースなので履歴データは基本は削除しない運用が望ましいですね。
ワークテーブルを使うのなら、上記の集計クエリを含むクエリを追加クエリにして追加すればすみます。
フラグフィールドを追加してそれを更新するなら、EXISTSサブクエリを使用した更新クエリにすることになりますが、
自分がするなら、前回の質問でも回答しましたが、VBAでレコードセットを回して更新する方法をとります。
SQLでいくか、VBAでいくかは、得意不得意があると思いますので、好みでいいと思います。