いつもお世話になっております。

ACCESSアクセスのクエリ作成方法をご教示願います。
現在、バックアップ用として、毎日テーブルクエリ作成でテーブルを作成しています。

毎日毎日、その日の日付の入ったバックアップを作っているのですが、ワンクリックで、その日の日付の入ったクエリを作成することは可能でしょうか。

ex)本日4/25であれば、ワンクリック→【バックアップ_110425】TBL作成完了

こうしたことがACCESSで可能かどうか、可能であれば、やり方をご教示頂けないでしょうか。

VBAを記載し添削頂きたいところですが、さっぱり見当がつかないため、VBA表記できませんが、それでも良ければご回答いただけますと有難いです。

このQ&Aに関連する最新のQ&A

A 回答 (2件)

この質問はテーブル名のことですか。


>その日の日付の入ったクエリを作成することは可能でしょうか、とは。
モジュールに
Sub test014()
Dim SQL As String
tb = "テーブル" & Format(Date, "yymmdd")
SQL = "SELECT * INTO " & tb & " FROM 社員4; "
DoCmd.RunSQL SQL
End Sub
ーー
別に
アクセスのSQLビューで
SELECT * into テーブル1 from 社員4;ならうまく行くがFormat(date,"yymmdd")をくっつけるとうまく行かなかった。
私の記述が悪いのかも知れないが。
    • good
    • 0
この回答へのお礼

imogasi殿 いつもありがとうございます。完璧な回答でした。。

お礼日時:2011/04/26 21:22

http://www.accessclub.jp/bbs3/0053/superbeg20789 …

こちらを参考にしてください。
    • good
    • 0
この回答へのお礼

ありがとうございました。参考にさせて頂きました。

お礼日時:2011/04/26 21:23

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qテーブル構造を支える脚の材料と太さの計算方法

テーブル構造を支える脚の材料と太さの計算方法

こんにちは。テーブル構造を支える脚の材料と太さの計算方法と材料を教えて頂きたいです。

条件は:
条件1中央の脚一本でテーブル板を支える
条件2テーブル板の重量は決定済み、M=6kg
条件3脚の下の固定は別途設計するので、倒れることは考えなくても良い
条件4脚とテーブル板の固定は別途設計するので、倒れることは考えなくても良い
条件5テーブルは携帯式なので、脚を出来るだけ細くできればよい
と考えています。

質問1十分な強度を得られ、しかも軽量な材質は何でしょうか?
質問2そのときの脚の太さの計算方法は?

条件3と4で述べたとおり固定方法も考える必要もあるのですが、とりあえず脚が決まってからの方が良いと思いましたので、質問させていただいている次第です。

ご教授ありがとうございます。

Aベストアンサー

計算式
(耐荷重+固定荷重)÷木材の許容圧縮応力度÷脚本数=必要断面積(cm2)
上記計算式でテーブル脚をルート断面積で正方形の脚の寸法が求められます。
耐荷重とは、貴方がテーブルに上げる最大重量です。(kg又はN)
木材の許容圧縮応力度は、材料強度です。
建築基準法同施行令に参考になる材料強度表が書かれています。
材種を決めて計算する事が大事です。
ご参考まで

Qアクセス フィールド名変更と別テーブル作成 access2010です。 既存テーブル名:AAA 既存

アクセス フィールド名変更と別テーブル作成



access2010です。

既存テーブル名:AAA
既存フィールド名:あああ

これをレコード内容、型式を変えずに別の新テーブルに新フィールド名で作りたいです。

新テーブル名:BBB
新フィールド名:かかか

よろしくお願いします。

Aベストアンサー

テーブルを構造とデータを含めてコピーして、フィールド名を変えればよいのでは?

QDIYテーブルの折りたたみ脚について

天版を蝶番で付けて真ん中を繰り抜き、七輪テーブルを作成しました。
現状は、余っているキャンプ用テーブルの脚をガムテープで固定しています。
ユニフレームの焚き火テーブルと同じ高さの折りたたみ脚を付けたいと思ってますが良いアイデアもしくは脚の販売先はありますでしょうか?
焚き火テーブルの高さは37cm、七輪テーブルの天版の厚さは約1.5cmなので、最低でも35cmの脚が必要になるかと思います。30cmの脚は結構見かけるのですが・・・。

Aベストアンサー

市販品にこだわらず、木などで作れば高さ自由ですよ。

1)別板を2枚クロスさせて天板を置く
2)蝶番つけて折りたたみ足にする
3)ナット埋めてねじ込みにする
4)テーブルを箱型にして、七輪+火種のケースとしてもそのまま使う

↑これらは高さの微調整にはアジャスタフットなりが必要ですが、
こういうの↓はアジャスタ機能もってますね

5)パイプの入れ子構造にして、内パイプは外パイプとねじ止めする。
 または外側の先端に割りをいれておいてクランプやホースバンドなどで締めて内パイプを固定する
6)天板の下にハの字形に広がるように左右脚をつけて、間をロープでつないで開き具合を調節する


ま、私なら4か6にしますね。
6のみ、簡単に絵にしておきます。

Qaccess2013 人物ごとにテーブルにあるデータを横並びにしたい いつもお世話になっておりま

access2013 人物ごとにテーブルにあるデータを横並びにしたい
 
いつもお世話になっております。
 
テーブルのデータ
ID | 日付 |実施内容(択一選択式)
1 |2016/4/1 |入社
2 |2016/4/1 |入社
1 |2016/5/1 |面談
2 |2016/4/13|面談
1 |2016/3/2 |受診
・・・・
 
このようなデータを下記のようにフィールド名を変えて並び替えたいのです
ID |入社  |面談  |受診
1 |2016/4/1 |2016/5/1 |2016/3/2
2 |2016/4/1 |2016/4/13|
・・・・
 
 
このようなことをAccessですることは可能でしょうか?
 
不勉強で申し訳ありませんがご教示ください。

Aベストアンサー

No.1です。
一応クロス集計クエリでできました。
失礼しました。

Qテーブルの脚を取り換えたい

ローテーブルの脚を取り換えて、脚の長いダイニングテーブルにしたいです。
幕板付きなので幕板はそのままで、脚だけを取り換えようと思ってます。

テーブルの画像を添付しました。
左画像はテーブルの正面から右側の脚にかけて、右画像は同じ部分をテーブル裏側から撮影してます。

1本の脚付近には、3本のネジがあります。
そのうち2本(銀色のネジ)は、幕板を天板にとりつける為のものだと思います。
あとの1本が脚と幕板を固定してるものだと思います。

このテーブルを組み立てた時の様子は忘れたのですが
ホゾ(?)みたいに凹凸で組まれていてネジは補強なのだと思います。
でも私にはそんな技術はありませんので
ネジで幕板と脚を固定するつもりです。

幕板は飾りとして
脚と天板の接する部分にそれぞれ金物をつけて取り付ける。

これで大丈夫でしょうか?
結構な重量のあるテーブルですので
高さのある脚にした時の強度が心配です。
他に何かよい方法はありますか?

また、家具のリメイクをしてるお店に頼む場合、
今ある幕板の凹凸に合わせて脚をつくってもらってホゾ組にしてもらうとしたら
どれくらいの値段がするのでしょう?
1万円で済むなら頼んだ方が良いと思ってますが
そんなお安くないですよね?
運送費だけでも相当な事になりそうで、現実的ではない気はしてるのですが・・・

ローテーブルの脚を取り換えて、脚の長いダイニングテーブルにしたいです。
幕板付きなので幕板はそのままで、脚だけを取り換えようと思ってます。

テーブルの画像を添付しました。
左画像はテーブルの正面から右側の脚にかけて、右画像は同じ部分をテーブル裏側から撮影してます。

1本の脚付近には、3本のネジがあります。
そのうち2本(銀色のネジ)は、幕板を天板にとりつける為のものだと思います。
あとの1本が脚と幕板を固定してるものだと思います。

このテーブルを組み立てた時の様子は忘れたので...続きを読む

Aベストアンサー

プロに依頼は 費用的に 全く無理ですから

ご自身で ホ-ムセンタ-で角脚も 丸い脚も

座金も 販売されていますので

取り付けられれば 1万で済むでしょう。

写真の幕板は無視することに成ります。

幕板を利用して脚を固定する方法は 様々ありますが

隅木 又は 隅金具でボルト締めが簡単です。

プロに依頼は其れなりの費用が掛かります。

QACCESS アクセス 最適化 テーブル'TempMSysAccessObjects'は既に存在しています

 マイクロソフトのアクセスACCESS 2002を使っています。最適化/修復を定期的に実施しているのですが、あるmdbファイルについてのみ、「テーブル'TempMSysAccessObjects'は既に存在しています」と表示されて、最適化できなくなってしまいました。その表示のヘルプによると、

 テーブル <テーブル名> は既に存在しています。(Error 3010)
このデータベースに既に存在しているテーブル名を使用してテーブルを作成しようとしたか、または既存のテーブル名に変更をしようとしました。ほかのテーブル名を使用してください。
 …

 とのことですが、思い当たる節がありません。
 どのように対処すればよろしいでしょうか。ご教示いただければとても助かります。よろしくお願い申し上げます。

Aベストアンサー

こちらを参考にして下さい。

http://pasofaq.jp/office/access/tempmsysaccessobjects.htm

Q無垢テーブル固定のねじが使用半年で折れ落ちたり、脚がとれたりするものですか?

無垢のダイニングテーブルを半年前に購入しました。素材はナラだったと思います。3日前にいすの上に折れたねじがあり、よく見るとテーブルのねじが折れて落ちたものでした。購入店に連絡すると、このようにねじが折れ落ちることはよくあるといわれました。修理にこられ、折れた場所の斜めにねじ固定されました。よく見るとほかのねじも数本抜けていました。修理のときにテーブルの脚も緩んでいたのでしめてもらいましたが、翌日テーブルと脚に隙間がある事に気づき再度締めようとしたら脚がとれました。再度修理してもらいましたが、このように半年でねじが折れたり、ぬけおちたり、脚が取れたりするものでしょうか?

Aベストアンサー

購入から半年では ねじが折れ落ちることは通常ありません。

よくあるなんていうのは 言い逃れです。

欠陥品ですね。商品の取替え交渉です。

QACCESSで日付ごとに自動連番(日付+連番)する方法

ACCESSで日付ごとに自動連番(日付+連番)する方法

ACCESSとvba、共に初心者です。

ACCESS2003を使用しています。日付ごとに自動連番する方法が知りたくいろいろ調べていたところ過去ログ(http://oshiete.goo.ne.jp/qa/726921.html)のベストアンサーさんの回答にたどりつきました。
とりあえず勉強と思い紹介されている通りにテーブル作成からフォームのレコード移動時へのコード貼り付けまで一通り行ってみましたが、自動連番とならず同じ番号のままとなってしまいます。(日付はパソコンの日付更新時にちゃんと反映されています。)
自動連番されないのは何が原因なのでしょうか。どなたかご教授の程よろしくお願いします。


例)DATEが5月5日の場合のIDへの記載値
 0505001
 0505001←ここが001のまま0505002にしたい。
 0506001←日付が変われば0506(5月6日)に変わる。

以上、よろしくお願いいたします。

Aベストアンサー

No4 です。

すみません。もう1カ所、テキスト型の書き方に変えなければいけないところがありました。

> If IsNull(MaxID) Then
>   Me.ID.DefaultValue = AutoID & "001"
> Else
>   Me.ID.DefaultValue = AutoID & Format(Right(MaxID, 3) + 1, "000")
> End If

If IsNull(MaxID) Then
  Me.ID.DefaultValue = "'" & AutoID & "001" & "'"
Else
  Me.ID.DefaultValue = "'" & AutoID & Format(Right(MaxID, 3) + 1, "000") & "'"
End If

既定値に数値型で書き込んでいますから
結局、頭のゼロが失われています。

なお、No2 さんへの補足で

> 6.[自動採番月日TBLF]の[ID]プロパティの書式に0000000を記入(一桁月の場合、頭の0が消えて6桁表示となるため。)

とありますが、
書式は、見せる形だけで、実際の値は変わりません。
書式は削除してください。
問題を分かりにくくするだけです。

No4 です。

すみません。もう1カ所、テキスト型の書き方に変えなければいけないところがありました。

> If IsNull(MaxID) Then
>   Me.ID.DefaultValue = AutoID & "001"
> Else
>   Me.ID.DefaultValue = AutoID & Format(Right(MaxID, 3) + 1, "000")
> End If

If IsNull(MaxID) Then
  Me.ID.DefaultValue = "'" & AutoID & "001" & "'"
Else
  Me.ID.DefaultValue = "'" & AutoID & Format(Right(MaxID, 3) + 1, "000") & "'"
End If

既定値に数値型で書き込んでいますから
結局、頭のゼロ...続きを読む

Qテーブルの別売りの脚について

もうじき引っ越す予定です。
現在は脚の短いテーブルで座布団での生活ですが、
新しい場所がフローリングのLDKのためダイニング
のセット(椅子とテーブル)にしようかな、と
考えました。

しかし、現在のテーブルも捨てがたく、できれば
このテーブルの脚だけ長いものに交換できないか
と考えています。(脚にはネジが、テーブルには
ネジ穴があるタイプです。)

どこかで、テーブルの脚を別売りしてくれるお店
などありませんでしょうか?

ネットでもリアルでもかまいませんが、リアルの
場合、首都圏で紹介していただけると助かります。

よろしくお願いします。

Aベストアンサー

東急ハンズ渋谷店、
http://shibuya.tokyu-hands.co.jp/guideonfloor_back.html

4Aの家具 組立家具で各種取り揃えていますよ。

Qaccess2010 フィールド名変更し別テーブル作成 教えてください。 既存テーブル:AAA 既存

access2010 フィールド名変更し別テーブル作成








教えてください。
既存テーブル:AAA
既存フィールド:あああ

新規テーブル:BBB
新規フィールド名:かかか

AAAのレコードを変えずにテーブル名、フィールド名を変え、別テーブルとし作成するクエリが作りたいです。

SQLの文をベタに教えて頂けるとありがたいです。よろしくお願いします。

Aベストアンサー

こちらの続きということで。
https://oshiete.goo.ne.jp/qa/9534989.html

テーブル作成クエリができているなら

フィールド名「あああ」のところを
「かかか: あああ」に変えれば OK。
フィールドを「*」にしていたらできない(と思う)。


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング