Access Excel Word 日付の表示とフィールドの移動

質問

元のデータがExcel形式でS2412と言う形式で日付を持っています。
これをAccessがインポートします。インポート先のデータは
定型入力で「?##\年##\月;0;_」のようなデータの持ち方をしています。（テキスト型）
しかし実際の印刷の表示（Wordでの印刷）では昭和24年12月と表示します。
インポートしただけではAccessの元データがS24年12月とならないので
（表示はS24年12月となりますが、フィールドの保存形式が0でもAccessからExcelにエクスポートするとS2412と表示されます。）
その更新？の方法が知りたいです。
もし無理なようでしたら、Excel関数を使うだけですが・・・。
年号の表記に関しては置き換えで変更しようと思ってます。

Accessでの日付で15年6月、16年6月、17年6月と連番で続いているデータが多いので、
関数を使い17年から引いて表示させています。
しかし、極まれに年が飛び月が変わる場合があります。
その場合は手で直す必要があるのですが、フォームで直した場合のみ
指定したフィールドに入力され、その入力内容が
表示されるようにしたいです。
Accessの作りからして無理な気がしますができるのでしょうか？
日付（フォーム）
15/6（関数で表示している）
16/6（関数で表示している）
17/6

Accessでフィールドを自動的に移動させたいのですが、
VBAをまったく勉強していないのでもし出来るようでしたらお願いします。
ボタンをクリックした場合、任意のフィールドデータが全て消え
（もしくは別の名前の新しいフィールドに移動）
その右側のフィールドデータを左側のフィールドに移し
さらにその右側のデータを左側へ移し3個目のフィールドデータを
空の状態にしたいのですが可能でしょうか？

回答No.5

CHRONOS_0 · ベストアンサー

>あまりスマートとは言えないです。
前年度との差を求めたりするのならこのやり方でもいいんじゃないですか

一覧だけ表示すればいいのならクロス集計クエリです

SUMIFもどきを使う手もありますけどね

17年6月合計:Sum(IIf(日付 between #H17/06/01# and #H17/06/30#,数値,0))

お礼

ありがとうございます。
また別の疑問が出てきたので他で質問するかもしれませんが
そのときはお願いします。

回答No.4

CHRONOS_0

>日付だろうが決算期だろうが縦もちでID割り振ってやらないと
>だめなんですね。
データベースの基本はテーブルです
テーブル設計についてはそれだけを書いた本も存在するぐらいですが
どの入門書にも初めのほうに必ず基本知識だけは書かれています

ただ初心のうちはその重要性がわからず流してしまうんですよね

もう一度入門書の(持っていなければ買って)テーブルの作り方のところを読んでください

補足

ありがとうございます。
書き込んだあとに思い出したのですが設計当初
縦で設計しようとしていました。
手直ししてみましたが、当初と同じく計算に悩んでいます。

前の年のデータと今の年のデータを使い計算するので
クエリで横列に直さないといけないです。
会社に本を置いてきてしまったので
今は詳しくお聞きすることができないのですが
何か良い方法はあるのでしょうか？
同じクエリを複数個（横列に分ける分だけ）用意し
それを一つのクエリにいれて抽出条件で各年度を指定。
このときIDコードを繋げる。
このようなやり方をしましたが、あまりスマートとは言えないです。
クロス集計等使えばできそうな気もしますが。

回答No.3

CHRONOS_0

>一年立つ毎に前々年度、前年度、今年度フィールドのデータのみをずらす必要があるのです。
>多分？フィールド名を変えればいいと言うだけの話ですよね。
そんなやり方をしているのですか?
それだと話は大事になります。年度ごとにテーブル構造をいじらなければならない
なんてのはデータベース設計としては落第です

年度ごとのデータを横方向に展開するというのが正規化規則にもろ違反しています
データベースの考え方でなくExcelのような表計算の考え方ですね

それで前半の質問の意味も分かりました
答えはひとつ
「データベースではそのようなやり方はしません。テーブルを作り変えましょう」
ですね

データは日付をつけて新しいレコードとしてどんどん付け加えていきます
Excelのイメージで言うと新しい行として追加していくのです

この作り変えをしないとAccess(データベース)を利用するメリットはぜんぜんでてきませんよ

補足

今さら気づきました。
Accessといいますかデータベースさえやっていなかったので・・・。
ほかのデータはExcelのよな持ち方をさせているんですが
これに関しては気づきませんでした。
日付だろうが決算期だろうが縦もちでID割り振ってやらないと
だめなんですね。

回答No.2

CHRONOS_0

質問の前半は何がしたいのかよく分かりません
後半の
>Accessでフィールドを自動的に移動させたいのですが、
考え方がExcelですね
空のフィールドを追加したいだけでしたらテーブルデザインビューでフィールドを追加するだけです
追加したフィールドの位置もデザインビューで自由に変えられます
（データベースではフィールドの位置はあまり意味ありませんけどね）

補足

やはり手動で行うのが一番はやいのですかね。
一年ごとに最も古いフィールドデータを破棄し、
その次に古いフィールドデータを最も古いフィールドに移し、
今年度フィールドに新しいデータを入れる。
この作業をするので、一年立つ毎に前々年度、前年度、今年度フィールドのデータのみをずらす必要があるのです。
多分？フィールド名を変えればいいと言うだけの話ですよね。

>質問の前半は何がしたいのかよく分かりません
一つのレコードデータで３年度分の日付データがあります。
この日付は17/6 16/6 15/6の用に同じ月で一年違うだけの
場合が多いので16/6 15/6に関してはテーブルにデータを
持たず17/6のデータから関数で表しています。
しかし、極まれにそうならない場合があります。
そうならない場合のみテーブルデータを使い変更可能な状態にしたいのです。（フィールド上で）

二つ目の質問を改めて書きましたが分かるでしょうか？
今考えればクエリはデータを持たないので、関数で表示した
年月日（16/6、15/6）をテーブルデータに直す方法しかない様な気がします。

一つ目の質問ですが、例えばあるフィールドの規定値を「熊」とした場合、
規定値を設定する前のデータは「熊」が入らず、設定後のデータは「熊」と表示されます。
しかし、ExcelからAccessにデータを入れた場合、設定済みでも「熊」とは表示されません。
これと同様にフィールドの定型入力の保存形式を「0」に指定しておいてもExcelからAccessにデータを入れた場合、
リテラル文字が入っていない状態で保存されます。
フィールドプロパティと違う形式で入ってしまっている物をプロパティに合わせたいのです。

回答No.1

imogasi

＞Excel形式でS2412と言う形式で
日付にエクセル形式というのは無いと思います。
日付のセルの値は
（１）日付シリアル値
　　　そして表示形式の設定
（２）文字列
のどちらかしかないと思います。エクセルの日付シリアル値という（考え方）のは知ってますか。
その辺（上記の（１）か（２）か）かからこの質問は明確にしないと
議論がおかしくなると思います。
エクセルでは（１）が標準なので、（１）の日付に直して（（２）に対し関数を使えば（１）に直せる）、テストを始められることをお勧めします。
あくまで参考ですが
http://www.accessclub.jp/bbs/0003/beginers1267.html

補足

>日付にエクセル形式というのは無いと思います。
勘違いするような書き方をしてしまいました。
「エクセルファイルでS2412という文字列でデータを持っている。」
という事です。
データの流れ
（元データ）Excel→Access→（Excel→）Word（印刷）