Access総合相談所其の21 【桐にしとけ】

Access総合相談所其の21 【桐にしとけ】 at BSOFT

1:名無しさん＠そうだ選挙にいこう
09/04/22 18:35:46
ACCESSに関する質問はこちらへ！

▼━ 質問のしかた ━━━━━━━━━━
★ OS、ACCESSのバージョンを明記してください。
★ 質問内容は具体的に書いてください。
　　・何がしたいのか
　　・どんな処理を試したか
　　・動作状況など駄目な理由
　　テーブル/フォームの構成、クエリ、VBAの内容など差し支えない
　範囲で詳しく書くと、早く回答が得られるかもしれません。
　　図解があれば尚良し。
　　聞き返さなくても詳細が把握できる質問が望ましいです。
★ 事前にヘルプ・Google等で調べられる範囲は調べてください。
　　大概の疑問は検索することで解決します。
★ アドバイスを貰ったら、必ず経過・結果の報告をして下さい。
　　ギブアンドテイクで情報を共有しましょう。

▼━質問テンプレ (出来れば使ってね) ━━━━━━
【システム環境　 . 】 Windows**, Access**
【 VBAが使えるか .】はい･いいえ
【 VBAでの回答　　】可･否
【検索キーワード　】 Googleやヘルプでの検索キーワード

前スレ
Access総合相談所其の20 【桐にしとけ】
ｽﾚﾘﾝｸ(bsoft板)l50

桐はこちら↓
管理工学研究所「桐」【４】
ｽﾚﾘﾝｸ(bsoft板)

2:名無しさん＠そうだ選挙にいこう
09/04/22 18:39:34
ACCESS2000総合相談所
URLﾘﾝｸ(pc.2ch.net)
ACCESS総合相談所その２
URLﾘﾝｸ(pc.2ch.net)
ACCESS総合相談所その３
URLﾘﾝｸ(pc.2ch.net)
ACCESS総合相談所その４
URLﾘﾝｸ(pc.2ch.net)
ACCESS総合相談所その５
URLﾘﾝｸ(pc.2ch.net)
ACCESS総合相談所その６
URLﾘﾝｸ(pc2.2ch.net)
ACCESS総合相談所その７
URLﾘﾝｸ(pc2.2ch.net)
ACCESS総合相談所その８(消息不明です)
URLﾘﾝｸ(pc2.2ch.net)
ACCESS総合相談所その９(消息不明です)
ｽﾚﾘﾝｸ(bsoft板)
ACCESS総合相談所その１０
ｽﾚﾘﾝｸ(bsoft板)
ACCESS総合相談所その１１
ｽﾚﾘﾝｸ(bsoft板)
ACCESS総合相談所その１２
ｽﾚﾘﾝｸ(bsoft板)
ACCESS総合相談所　その１３　【桐にしとけ】
ｽﾚﾘﾝｸ(bsoft板)
ACCESS総合相談所　その１４　【桐にしとけ】
ｽﾚﾘﾝｸ(bsoft板)
ACCESS総合相談所　その１５
ｽﾚﾘﾝｸ(bsoft板)
ACCESS総合相談所その１６【桐にしとけ】
ｽﾚﾘﾝｸ(bsoft板)

3:名無しさん＠そうだ選挙にいこう
09/04/22 18:40:35
ACCESS総合相談所その１７【桐にしとけ】
ｽﾚﾘﾝｸ(bsoft板)
ACCESS総合相談所その１８【桐にしとけ】
ｽﾚﾘﾝｸ(bsoft板)
Access総合相談所其の19 【桐にしとけ】
ｽﾚﾘﾝｸ(bsoft板)

4:名無しさん＠そうだ選挙にいこう
09/04/22 20:08:16
FAQ
Q1) Access で累計や残高を計算するのにはどうすれば良いですか？
A1) 桐にしとけ。Accessでは、9500レコードまでならばDAOrecordset作って先頭から逐次計算していけば出来ます。

5:名無しさん＠そうだ選挙にいこう
09/04/22 21:36:29
>>1
乙

6:名無しさん＠そうだ選挙にいこう
09/04/22 23:02:13
いいかげんスレタイの「桐にしとけ」は消せよ。
もうとっくにオワってる旧世代ソフトなんだからさ。ｗ

7:名無しさん＠そうだ選挙にいこう
09/04/22 23:27:39
いや、「桐にしとけ」が無くなったら
エクセルの感覚で質問してくる人に、どう答えるのさ？

8:名無しさん＠そうだ選挙にいこう
09/04/23 01:32:59
Oracleの買収により突如脚光を浴びるOOo Base

9:名無しさん＠そうだ選挙にいこう
09/04/23 06:52:16
宛名ラベル印刷がうまくいきません。
access上に型番の登録のない用紙（上下左右の余白がなし）を使用しています。
どのような設定にしたらよいのでしょうか。

10:名無しさん＠そうだ選挙にいこう
09/04/23 13:24:47
余白いっさいなしの印刷なんてできたっけ?

とかいう問題ではないんだろうな
とりあえずテーブルかクエリを元にレポートつくってあとは自力でデザインだろ

11:名無しさん＠そうだ選挙にいこう
09/04/23 13:44:08
ふちなし印刷できるプリンタ・プリンタドライバ使ってるなら
普通に余白ゼロに設定できないか？

12:名無しさん＠そうだ選挙にいこう
09/04/23 15:31:18
ピボットグラフでグラフに値を表示する方法ってありませんか？

13:名無しさん＠そうだ選挙にいこう
09/04/24 10:39:50
おい、オマイラ、ここ見てみて

URLﾘﾝｸ(www.accessclub.jp)

14:名無しさん＠そうだ選挙にいこう
09/04/24 11:02:39
前スレ993です。

＞＞前スレ996さん
サブクエリ内をシングルクォーテーションにしても無理ですね･･･。
｢サブクエリ'名前'のメモ型またはOLEオブジェクト型のデータが正しくありません。｣
と怒られてしまいます。

スレが変わってしまったので、再度質問を掲載します。
OS:WindowsXP SP3
Access:2000

ID　　　　　　名前　　　　　　　　　　住所
"I001"　　　　""　　　　　　　　　　　""
""　　　　　"某株式会社"　　　　　""
""　　　　　　　""　　　　　　　　"某県某市某所"

こんな風に値が斜めに入っているテーブルがあります。
""は空白の事です。
各列は、値以外は全て空白となっています。
名前の値を一番上のレコードにUPDATEしようとしたら無理でした（Oracleだと出来るみたい）。
SQL文は以下で、サブクエリのところでエラーになってしまいます。
名前と住所の値を最上行に移動させたいのですが何か良い方法ありますでしょうか。
2000が、サブクエリの値をSET出来ない仕様だったらダメポって事ですかね･･･。

UPDATE tbl_01
　　SET 名前 =
　　　　(SELECT 名前
　　　　FROM tbl_01
　　　　WHERE 名前 <> '' )
　　　　　　WHERE ID like 'I*';

15:名無しさん＠そうだ選挙にいこう
09/04/24 12:50:48
>>14
クエリ一発では無理。構文だけ見たらサブクエリの結果が１件とは限らないし。
一度、IDと名前をワークテーブルに書き出して、1対1で更新するのはどうかな？

16:名無しさん＠そうだ選挙にいこう
09/04/24 13:10:25
質問

Access VBAから　Windowsの環境変数 (Path等)を取得するにはどうすればよいですか？

17:名無しさん＠そうだ選挙にいこう
09/04/24 13:23:54
自己解決しました。

environ関数があったんだ。

18:名無しさん＠そうだ選挙にいこう
09/04/24 14:56:14
>>16

Application.CurrentProject.Path

19:名無しさん＠そうだ選挙にいこう
09/04/24 16:33:08
>>15
ありがとうございます、やっぱり無理ですか･･･。
ご指摘の通りにIDと名前を、それぞれ個別のワークテーブル（tbl_03,tbl_04）に保存して
改めてUPDATE文を実行してみました。

UPDATE tbl_03
SET 名前 = wrktbl_04.名前
WHERE tbl_03.ID like 'I*';

やっぱりダメポ･･･。

20:名無しさん＠そうだ選挙にいこう
09/04/24 16:39:03
素直にDAO使ったら？

21:名無しさん＠そうだ選挙にいこう
09/04/24 17:37:31
>>19
基本的に勘違いされているようですが、SET [フィールド] = xxxxxの部分で
xxxxxが一意である事が保証されていないとアップデートできませんよ。
（wrktbl_04.名前は複数レコードかもしれないでしょう？）

要は、次のようなクエリを考えてから・・・
ID，名前（コピー先），名前（コピー元）
I001，""，"某株式会社"

これをUPDATE文に書き換えることを考えましょう。

>>20
自分もDAOを使うと思う・・・

22:名無しさん＠そうだ選挙にいこう
09/04/24 18:09:50
>>14
これじゃダメ？

UPDATE tbl_01
SET 名前 = (SELECT MAX(名前) FROM tbl_01)
WHERE ID like 'I*';

23:名無しさん＠そうだ選挙にいこう
09/04/24 18:43:07
>>22
たぶん駄目です。
SET [フィールド] = (サブクエリ)　の形式は恐らく全部跳ねられるかと。

UPDATE (サブクエリ) AS Sub
SET Sub.[フィールド1] = Sub.[フィールド2]　という構文にすべきなんですよ。

24:名無しさん＠そうだ選挙にいこう
09/04/24 19:06:09
>>13
yahoo!に飛ばされるんだが

25:名無しさん＠そうだ選挙にいこう
09/04/25 01:33:04
Accessってなんであんなに使いにくいんだ？
桐を見習え

26:名無しさん＠そうだ選挙にいこう
09/04/25 01:58:06
桐タンス

27:名無しさん＠そうだ選挙にいこう
09/04/25 11:20:00
桐きり舞

28:名無しさん＠そうだ選挙にいこう
09/04/25 11:25:29
バックアップに記述をして
翌日にあけようとしたら
権限がないと出て困ったことがあります

何が原因なんでしょう

29:名無しさん＠そうだ選挙にいこう
09/04/25 13:01:16
>>13
私もyahoo!に飛ばされる。
ハッキングされたのかそれともDNSキャッシュポイズニングの巻き添えを食ったか？

30:名無しさん＠そうだ選挙にいこう
09/04/25 13:49:42
ここのソフト安いよ
URLﾘﾝｸ(www.hhyyhh22.co.nr)

31:名無しさん＠そうだ選挙にいこう
09/04/25 13:59:46
The Office Sustained Engineering team has announced the official ship date. Highlights for Access include:
? The ability to export reports to Excel has been added.
? Fixes for issues with the import data wizards, report printing and previewing, macros, Excel integration, and date filters.
? Updates to Access Developer Extensions and runtime (including as a patch) are now included in SP2.
We will have a complete list of fixes available on the 28th.

32:名無しさん＠そうだ選挙にいこう
09/04/25 14:38:20
テーブル設計についてなんですが、
主に検索や抽出に使用するフィールドは、
そのほかの主に表示するだけのフィールドとはテーブルを分けておいたほうが、
データ量が増えたとき、検索スピードが速くなったりするのでしょうか？
でもそうするとクエリで結合させる必要が出ますよね。
だったら最初からひとつのテーブルにまとめてしまったほうが処理は早いのでしょうか？

33:名無しさん＠そうだ選挙にいこう
09/04/25 17:22:24
> 最初からひとつのテーブルにまとめてしまったほうが処理は早いのでしょうか？
確かに結合なしで一つの表で管理すれば、表を開くスピードは速いですが、それではデータ管理上問題が出てきます
そのために、テーブルを正規化にしたがってテーブル分けするし、マスターテーブルには必ず主キーを設定するんだよ

主キーには自動的に固有インデックスがついているので、結合する表同士では多対１の関係となっている
ようになっているので、（クエリ単体での利用であれば）ACCESSで扱う程度のレコード数であればほとんど
結合にかかる時間は気にならないはず

それでも１つの表で管理したいのであればわざわざACCESSを利用しなくても、Excelや桐で扱ったほうがむしろ楽かもしれないですね

34:名無しさん＠そうだ選挙にいこう
09/04/25 17:48:27
レスどうも。
＞そのために、テーブルを正規化にしたがってテーブル分けするし
テーブル分けにも正規化ってあるのか・・・よくわからないや。
入門書程度しか見てないからかな。
分かりやすい参考書とかあります？

35:名無しさん＠そうだ選挙にいこう
09/04/25 18:30:53
>>32
検索や抽出に使用するフィールドを分けるって、んなバカな…
何のためにインデックスがあるのかと

36:名無しさん＠そうだ選挙にいこう
09/04/25 18:35:44
それ以前に
データーは細切れにしといたほうがいいんですよね
でっかいシートとかはエクセルの話で

37:名無し変更議論中＠詳しくは自治スレへ
09/04/25 18:44:23
え。みんなそんな理由で分けたりするのか？
検索や抽出に使用するならインデックス張ればいいだけじゃね？

正規化するなら、ちゃんとデータ管理が分散・冗長化していないか
の観点からしたほうがいい気がする。
検索キーかどうかを基準にテーブルを分けて、それを正規化と
言い放ったﾔｼにはいまだかつて会ったことないんだが。。。
それって第何正規形？

38:名無し変更議論中＠詳しくは自治スレへ
09/04/25 19:03:34
第13正規形。
童貞守って30過ぎると使えるようになるらしい。

39:名無しさん＠そうだ選挙にいこう
09/04/25 19:11:59
>>29
Access Clubが閉鎖されるのかな・・・・

木曜日ころから飛ばされるようになっていたから、どうなんだろ

ただ、仮にも閉鎖ならばその旨表示すべきだし、yahooに飛ばすなんて
正直ちょっと馬鹿げているから、ハックの可能性は高いとは思うが

40:32
09/04/25 19:12:47
ども。質問元ですが。
単純に検索とか抽出するときってテーブルをメモリーに読み込んで処理してるんだろうから、
テーブルが小さいほうがＣＰＵも付加が少ないだろうなと考えたもんで。
検索を多用するフィールドにはインデックスを着ければ、処理が早くなるんですか？
インデックスは主キーにしかしてませんです。（オートナンバー）
だから検索には全然有効じゃない状態なんですね？
てことで、無理に小さいテーブル細分化する必要はないということですかね？

41:名無しさん＠そうだ選挙にいこう
09/04/25 21:09:08
OPEN(Cancel As Integer)
の「(Cancel As Integer)」
ってどういう意味ですか？頻繁に目にしますが、
図書館で借りた本に記載されていません。

42:名無しさん＠そうだ選挙にいこう
09/04/25 21:10:46
>>41
URLﾘﾝｸ(msdn.microsoft.com)

43:名無しさん＠そうだ選挙にいこう
09/04/25 22:05:00
コピペ？

44:名無し変更議論中＠詳しくは自治スレへ
09/04/26 00:12:05
>>40
グダグダいってないで、まずはインデックスを張れ。
話はそれから。

45:32
09/04/26 06:47:13
┐('～`；)┌

46:名無しさん＠そうだ選挙にいこう
09/04/26 08:48:07
ColumnWidthに関する質問です。

Me.Form.[サブフォームの項目１].ColumnWidth = Me.Form.[サブフォームの項目２].ColumnWidth

というプログラムを作って「サブフォームの項目１」の列幅を「サブフォームの項目２」と同じになるように
したいのですが、実行すると

『オブジェクトは、このプロパティまたはメソッドをサポートしていません。』

という
エラーメッセージが表示されます。

どうすれば正しく表示されるのでしょうか？

47:名無しさん＠そうだ選挙にいこう
09/04/26 11:23:50
Me.埋め込み0.Form.[サブフォームの項目１].ColumnWidth

48:46
09/04/26 14:00:56
>>47
「埋め込み0」メインフォームで設定したサブフォームの名前のことですか？
それともソースオブジェクトのことですか？

私はその２つを同じ名前にしてしまったのですが･･･

49:名無しさん＠そうだ選挙にいこう
09/04/26 14:33:58
①「Docmd」
② dim
は、通常何て呼ばれているのですか？
デュコムド、ディム
とかですか？

50:名無しさん＠そうだ選挙にいこう
09/04/26 14:44:49
①Do Command
②Dimension

51:名無しさん＠そうだ選挙にいこう
09/04/26 14:51:38
①ドゥーコマンド
②ディメンション

52:名無しさん＠そうだ選挙にいこう
09/04/26 15:09:24
私も初学者ですが
エンジニアの方の間では「ディム」と省略されて呼ばれていると思っていました。

53:名無しさん＠そうだ選挙にいこう
09/04/26 16:44:16
>>52
VBで仕事してるけど会社の人との会話ではDimという言葉が出てくることはないね。
（「ここで２次元配列を宣言して・・・」とかそういう風にしか言わない）
でも自分の中では「ディム」って呼んでる。だってそのまま読めばそうなるし。ｗ
ちなみにDimに関してはこんな↓情報もあったよ。参考にしてね。

URLﾘﾝｸ(q.hatena.ne.jp)

54:名無し変更議論中＠詳しくは自治スレへ
09/04/26 16:54:47
自分は「ディム」と呼んでる。
が、正直どっちでも気にならない。

それよりも、「Delete」を「ディレート」とか、
「Resume」を「レジメ」の方が引っかかるなぁ。

55:46
09/04/26 17:04:17
>>47
の方法を試してみたら、今度は

「コンパイルエラー　メソッドまたはデータメンバが見つかりません」

と出ました。

サブフォームの名前とソースオブジェクトを同じにしても別々にしても
同じ結果が返ってきました。

これを解決するにはどうすればよいのでしょうか？

56:名無しさん＠そうだ選挙にいこう
09/04/26 20:48:36
フォームとサブフォーム、どっちのモジュールに書いてるの？

57:46
09/04/26 22:00:49
>>56
サブフォーム側に書いてます

58:名無しさん＠そうだ選挙にいこう
09/04/26 22:34:16
>>56 じゃないけど ColumnWidth ってことはリストか？
だったらこんな感じで良かったかな
リスト.Column[1].ColumnWidth = リスト.Column[2].ColumnWidth

59:名無しさん＠そうだ選挙にいこう
09/04/26 22:48:00
サブフォームのopenイベントに書いてるのか
だったら普通に
Me.[サブフォームの項目１].ColumnWidth = Me.[サブフォームの項目２].ColumnWidth

データシートのフィールド表示幅でしょ？

60:名無しさん＠そうだ選挙にいこう
09/04/26 23:10:19
VBとbasicを勉強するように言われた
(-_-;)。
しんどいよね
(-_-;)。

61:名無し変更議論中＠詳しくは自治スレへ
09/04/26 23:17:54
VB.NETなら、勉強しておいても別にいいんじゃね。
N88とか言われたらモチベーション的にツライけど。

62:46
09/04/26 23:29:23
>>59の方法を試したら上手くいきました！
ありがとうございました！！

サブフォーム内の処理ですから特にフォーム名を設定する必要はなかったんですね･･･

･･･ところで「Me.」と「Me!」の違いって何なんでしょうか？

63:名無しさん＠そうだ選挙にいこう
09/04/26 23:33:57
>>61
VBとVB.netとはちがいがあるのでしょうか…。

64:61
09/04/26 23:49:36
>>63
むしろ藻舞さんがどういうつもりで「VBとbasic」って分けて
書いたのか、こっちがそのココロをききたい感じだけど。

VBはMSの製品で、VB.NETはその最新バージョン。
旧バージョンはVB6.0とかありましたけど。
ちなみに現行のVBA6.0は、VB6.0のサブセット。

BASICとだけ書かれると、腐るほど実装系があるから
なんともいえない。ActiveBasicユーザもけっこういるし。

で、Accessスレで何を語りたいわけ？

65:名無しさん＠そうだ選挙にいこう
09/04/27 00:15:04

>>29
>>39
Access Clubよ
早く復活してくれ！！

66:名無しさん＠そうだ選挙にいこう
09/04/27 00:58:25
一昨日までは見れてたような

67:名無しさん＠そうだ選挙にいこう
09/04/27 13:34:28
2007のフォームで右クリックで出るショートッカットメニューを
追加編集したいんだけど

マクロで一から作る方法は解かったが、デフォルトの規定ショートッカットメニューが秀逸で良いので、それに機能追加したい
どうやったら良い？

68:名無しさん＠そうだ選挙にいこう
09/04/27 19:05:05
最近【激安PCソフト】の事がよく載って、消されてるけど
ここで買っても大丈夫？
買ったことある人教えてください

69:名無しさん＠そうだ選挙にいこう
09/04/27 20:14:18
>>61
俺はうれしいかも。ｗ
昔よくダンジョンゲーム作ったなあ・・・。
ちなみにベーマガが教科書でした。ｗｗｗ

70:名無しさん＠そうだ選挙にいこう
09/04/27 22:23:59
マクロでActiveControlの値を取得できる？

71:名無しさん＠そうだ選挙にいこう
09/04/28 00:29:14
フォームウィザードの表形式とデータシートの違いは何？

上司に突然質問されて全く答えられなかった･･･（Ｔ∀Ｔ）

72:名無しさん＠そうだ選挙にいこう
09/04/28 01:07:41
その場で作ってみればわかるんでないの

73:名無しさん＠そうだ選挙にいこう
09/04/28 10:09:56
>>71 わかりませんでよし！その程度、自分で調べて貰わなければ困ります。

74:名無しさん＠そうだ選挙にいこう
09/04/28 14:52:56
質問です、フォームで書き込み用のテーブルを呼び出してそのテーブルにデータを入力。
そして、そのテーブルに新しい名前をつけて保存。という事ってできますか？

75:名無しさん＠そうだ選挙にいこう
09/04/28 16:43:08
create table ありそうだからできるんじゃない？
create table as 使えれば楽なんだけどね

76:名無しさん＠そうだ選挙にいこう
09/04/28 18:14:55
>>21
マクロだと色々不便なようなので、とりあえずDAOでやってみました。
拙いですがコードさらします。クローズとかは省略しています。

Sub UpdateWrktblDAO()
　　Dim db As DAO.Database
　　Dim rs1 As DAO.Recordset
　　Dim rs2 As DAO.Recordset
　　Dim strSQL As String
　　Set db = CurrentDb
　　Set rs1 = db.OpenRecordset("tbl_02", dbOpenDynaset)
　　strSQL = "SELECT 名前 FROM tbl_02 " _
　　& "WHERE 名前 <> ''"
　　Set rs2 = db.OpenRecordset(strSQL, dbOpenDynaset)
　　rs1.Edit
　　rs1.Fields("名前").Value = rs2
　　rs1.Update

rs1.Fields("名前").Value = ""←ここに名前の抽出結果を入れて一行目のレコードに入れたい
rs1.Fields("住所").Value = ""←ここに住所の抽出結果を入れた一行目のレコードに入れたい
↑こんな風に出来れば理想なんですが、私にはこれが限界です･･･orz
WHERE条件の条件式のところは、値以外は全て空白なのですが、
この条件式だと値の一意性は保たれないのでしょうか。

77:名無しさん＠そうだ選挙にいこう
09/04/28 19:25:14
>>74
DoCmd.CopyObject "", "新しい名前", acTable, "テーブルの名前"

78:名無しさん＠そうだ選挙にいこう
09/04/28 21:46:32
>>76
実際のデータはこんな形なのでしょうか？
コピー元とコピー先の関係には、何か決まった規則があるのでしょうか？

"ID", "名前", "住所"
"I001", "", ""
"", "名前1", ""
"", "", "住所1"
"I002", "", ""
"", "名前2", ""
"", "", "住所2"
"I003", "", ""
"", "名前3", ""
"", "", "住所3"

それが明確にならないと問題は解決しません。
上から３行ずつを１セットとして考えたら良いのでしょうか？・・・

79:名無し変更議論中＠詳しくは自治スレへ
09/04/28 23:16:12
>>76
order byつけてないけど、順序は大丈夫なのかそれ？
連番ついてたらupdate一撃だけどな。

80:名無しさん＠そうだ選挙にいこう
09/04/29 09:54:41
ACCESS 2007でVBAを使ってクエリからデータを読み取って、
散布図と近似曲線・近似式を書きたいのですが、どうやったらいいですかね。

Excelだとサンプルも多いし割と簡単にできたんだけど、ACCESSだと勝手が違うみたいで。

81:名無しさん＠そうだ選挙にいこう
09/04/29 11:21:04
そういうのは、AccessからExcelを呼び出して処理させるけどね。

82:majires
09/04/29 16:06:40
Access Club復活してよかった

83:majires
09/04/29 16:09:07
>>80
散布図ってことはグラフですよね？

Excelとの違いは、グラフの素データ　つまりクエリを使う　ということで、
グラフオブジェクトはっつけたら、そいつのデータとして、そのクエリを指定
していやることになります。

ただ、Excelとちがって、クエリなので取っつきにくいかもしれませんね。

84:名無しさん＠そうだ選挙にいこう
09/04/29 16:15:01
>>82
つか、原因はなんだったんだ?　何の釈明もなかったし……って、
情報発信とかサイトへの要望（だったっけか?）とかがなくなっているし。

85:名無しさん＠そうだ選挙にいこう
09/04/29 17:04:01
>>80
Access単体で問題解決をしようと思わないで、素直にExcelでやるのがよろしいかと
そもそもOfficeはソフト間で横断的にデータをやりとりして、一連の作業を行うこと
で作業効率を図れる利用形態こそが、昔のソフトの決定的な違いでしょうからね

ただ最近はバージョンアップによって、一つのソフト内でも色々な機能が追加されてきているので
Officeが出始めた頃のマ○クロソフトの言い分とちょっと逆行している感もありますけど

86:majires
09/04/29 18:41:25
>>84
いくつか、リンクがなくなっているのは確かだね。

結構長い間、yahooに飛ばされていたから、ちょっと心配やね。
一言くらい欲しい。

ただまぁ、閉鎖とかじゃなくてよかった。
過去ログとか結構重宝してたから

87:名無しさん＠そうだ選挙にいこう
09/04/29 19:42:58
フォームの表題：caption に現在日付を表示したいのですが、

88:名無しさん＠そうだ選挙にいこう
09/04/29 19:51:22
どうぞ、ご自由にやってください。

89:majires
09/04/29 20:13:51
>>87
URLﾘﾝｸ(www.tsware.jp)

"AppTitle"の部分を now()とかにすればいい。で、これをautoexecというマクロで
起動時に叩く。このVBA自体、標準モジュールにでも書いて於いて、マクロは、
プロシージャを実行でも選んで、そのsubプロシージャの名前を選ぶ。

れこで

90:名無しさん＠そうだ選挙にいこう
09/04/29 20:27:21
>>89
ありが㌧

91:名無しさん＠そうだ選挙にいこう
09/04/30 08:46:23
>>76
DAO 使うって、そういう意味じゃないのだが…

先頭レコードがら最終レコートまでループ処理
""だったら前レコードの値入れるとか

92:SP2-1/4
09/04/30 09:35:10
Access "#Error" is displayed in the output when you print a report that has an expression in Design View.
Access A Click event on a form reports the wrong record until the event ends.
Access A licensed ActiveX control cannot open in Access 2007 when the .lic file is renamed or does not exist. The .lic file is only required to insert the control and does not need to be present on the machines that the database is deployed to.
Access A passthough query is executed twice when the query is saved.
Access A run-time error occurs when you set any position property (top, left, height, or width) of a control in the OnFormat event.
Access A StopMacro action in a macro that is looping through the use of the repeat expression argument in the RunMacro action will cause all pending iterations of the macro to end.
Access A user can only see the first 4,750 tables of an SQL database in the ODBC import dialog box.
Access A user cannot add, edit, or delete records to a subform in an ADP that is based on a multi-table view or stored procedure unless the user specified the unique table property for each table.
Access A user creates a query, and then saves it in SQL view. When the user opens a form with the query in a subform, the user finds that the query has been deleted.
Access Access crashes when a parent form sets its child's source on its own current event after the parent's source is set in the Open event.
Access After a user opens a Filter drop-down list in a subform datasheet, an error message occurs because of invalid bracketing.
Access After you try to insert a record on the one side of a many-to-one relationship in Datasheet view, the table on the one side may get into a state where records can no longer be added.
Access An empty control source in a form causes the open form command button wizard to display an empty list box for filtering.

93:SP2-2/4
09/04/30 09:36:57
Access An error prompt appears when a user runs the ApplyFilter command with a non-existent object specified.
Access Applying Microsoft Security Bulletin MS08-028 may cause a benign corruption error in multi-user databases.
Access Customized Quick Access Toolbar (QAT) buttons do not appear unless you open the database through the Most Recently Used list (MRU) in Getting Started.
Access Dates without a delimiter (yyyymmdd) are not converted correctly when you import text.
Access Exporting to PDF/XPS or SNP fails when executing code that is referenced in another database.
Access If you use the data collection feature to update a row that does not exist when the data collection reply is processed, the first row is updated, and you do not receive an error message.
Access In Internet Explorer 8, you cannot use a mouse to select multiple cells in Microsoft Office Access Web Datasheet.
Access In some edge cases, a casual exploration of the Getting Started experience can lead to the Getting Started experience no longer displaying a list of templates.
Access Macros that use the SetProperty action to run in context in subforms or subreports cannot be authored.
Access Memo fields are not included in the available fields for the Mailing Label Wizard.
Access Numbers and dates are displayed as "####" for vertical text boxes in Report Print Preview.
Access On a computer that uses Windows XP theming, a check box that uses the Tristate property does not function correctly and seems to be unselected.
Access OpenForm does not apply filter criteria if the form is already open.
Access Records in nested subforms cannot be deleted.
Access Relinking a table fails if the table contains an AppendOnly memo field.
Access Templates created with complex data (multivalue fields or attachments) instantiate with failures.
Access The "More Smart Tags" button opens the incorrect URL for non-English versions of Access.

94:SP2-3/4
09/04/30 09:38:15
Access The Keep Together property is ignored when a user has a report with an invisible detail section and group headers that have the Repeat property set to true.
Access The Next Week, This Week, and Last Week date filters are broken in non-English versions of Office.
Access The wizard that generates the where condition of an open form macro does not put '=' in front of an expression.
Access Unsafe function names in expressions are not translated into local languages and are displayed in English.
Access When a user deletes a column in a Design Master and then tries to synchronize with a replica, the synchronization fails.
Access When a user deletes a record and then chooses to undo the change in the Run view of the form, the user is prompted to save the form.
Access When a user exports a query that needs Name Fixup performed, the query is permanently replaced with an empty query, and the export fails.
Access When a user exports to the RTF format, the export is much slower than O11 for linked data sources.
Access When a user imports a text file that has fewer columns than the table it will be added to, the default value is not applied.
Access When a user imports a text file with delimited text, the import fails if the file is bigger than 32 KB.
Access When a user selects the fixed width setting and then modifies the column widths to export the text, the customized width setting is ignored, and the default width is used.
Access When an ApplyFilter action is on the Open event, Access crashes when you switch from Design view to Report view or Layout view for a report.
Access When subform records are deleted by using code and warnings are suppressed, Access hangs when it tries to commit a JET transaction that has not been opened.
Access When the OnError action runs as part of an AutoKeys macro and the AutoKeys key sequence is pressed, the Access Runtime crashes.

95:SP2-4/4
09/04/30 09:39:38
Access When using Ace OLEDB to execute a parameterized query and pass in different parameter values, the Execute method will use the same parameter length as the first parameter.
Access When you add a record in Access JPN for continuous forms, the first character is lost.
Access When you add a total at a subReport with a datasource pointing to a field in the parent report, the control source is used for the name that contains the expression (data source) instead of the valid name.
Access When you change the record source of a form in Browse View, unbound controls may lose their data.
Access When you create a table with a primary key that is not called “PrimaryKey” and you enter data in the star column or in a newly inserted column in a row other than the first row, you may receive an error,
and the data will not be entered in the correct row.
Access When you open a linked table from Outlook, Access crashes.
Access When you open a report using Visual Basic and then try to export the report, Access crashes.
Access When you quick create a form with a hyperlink field, the hyperlink property is not set.
Access When you start the Query Builder from the property sheet for a form or report, the property sheet closes while the Query Builder is open, and changes to the query are lost.
Access When you try to import an .xlsx or .xlsx file by using the SQL Server 2005 Import Wizard, the ACE OLEDB provider hangs.
Access When you try to save a form or a report after you change a textbox to a label, Access crashes.
Access You cannot run Domain Aggregate functions against linked text files by using the "/cmd" switch.

96:名無しさん＠そうだ選挙にいこう
09/04/30 11:48:12
>>78
　ID　　　　　　名前　　　　　　　　　　住所
"I001"　　　　""　　　　　　　　　　　""
""　　　　　"某株式会社"　　　　　""
""　　　　　　　""　　　　　　　　"某県某市某所"

言葉足らずですいません。
データは上の形で、一列に一つのみ必要な値が入っていて、他は空白です。
値が一レコードに一つずつなので、それを最上レコードに一行に纏めたいのです。
ID・名前・住所がフィールド名となっています。

>>79
値は、各列に一つだけなので列内での順序は無いです。

>>91
Do Until rs.EOF　のような感じでｻｯｸﾘとループ処理出来ると思うんですけど･･･。

97:79
09/04/30 14:42:41
>>96
（ﾟдﾟ）ﾎﾟｶｰﾝ

一抜け

98:91
09/04/30 15:03:14
>>96
（ﾟдﾟ）ﾎﾟｶｰﾝ

二抜け

99:名無しさん＠そうだ選挙にいこう
09/04/30 15:09:35
えーと･･･何でﾎﾟｶｰﾝなのかが分かんないんですけど･･･。

100:78
09/04/30 15:29:43
>>99
しつこいようですが、そのテーブルには３レコードしか無いのですか？
それであれば手作業で修正した方が早いと思うんです。
それとも私が勝手に想像したように、先頭から３レコードずつが１セットになっていて、
これが延々と繰り返されていて、全体では何百とレコードあるということなのでしょうかね？
（さっぱり分からんのです…）

あとですね、「一番上の」と言ったレコードの順序に関してですが、
Accessに限らずデータベースでは順序の基準（キー）が必要です。
キーが無い場合、貴方の意図する順序となる保証がありません。
運が良ければ意図する順序になるかもしれませんが・・・

そんな訳で私を含めた多くの方がアドバイスできずにいるのだと思いますよ。

101:名無しさん＠そうだ選挙にいこう
09/04/30 17:06:04
>>100
質問の際に長くなるので省いたのですが、実際は15レコードです。
>>78のようなテーブル構造ではないのです。
一番上、というのは、ID（主キー）の行に別フィールドの全ての値を移動させたい、という事です。
分かりにくくてすいません。
確かに3レコードなら手作業で修正するべきですね･･･マヌケでした。

　ID　　　名前　　　住所　　　担当者　　郵便番号　　　電話番号　　メールアドレス　　URL
"I001"　　""　　　　"" 　　　　　""　　　　　""　　　　　　　""　　　　　　　　""　　　　　　　""
""　　　"某会社"　"" 　　　　　""　　　　　""　　　　　　　""　　　　　　　　""　　　　　　　""
""　　　　""　　　　"某所"　　　""　　　　　""　　　　　　　""　　　　　　　　""　　　　　　　""
""　　　　""　　　　　""　　　　"某氏"　　　""　　　　　　　""　　　　　　　　""　　　　　　　""
""　　　　""　　　　　""　　　　　""　　"000-0000"　　　　""　　　　　　　　""　　　　　　　""
""　　　　""　　　　　""　　　　　""　　　　　""　　　　"000-00-000"　　　　""　　　　　　　""
""　　　　""　　　　　""　　　　　""　　　　　""　　　　　　　""　　　　　　"a@yahoo.jp"　　　""
""　　　　""　　　　　""　　　　　""　　　　　""　　　　　　　""　　　　　　　　""　　　　　　"http(ry"

　　　　　　　　　　　　　　　　　　　　　　　　　　↓

　ID　　　　名前　　　住所　　　担当者　　郵便番号　　　　電話番号　　　メールアドレス　　URL
"I001"　"某会社"　"某所"　"某氏"　　"000-0000"　"000-00-000"　"a@yahoo.jp"　　"http(ry"

ズレるので8列まで書きましたが、こんな風に一レコードに纏めたいんです。
15レコードでも手作業で、と言われてしまえば確かにそうなんでしょうけど、
自動化しろと言われてるので･･･。

102:名無しさん＠そうだ選挙にいこう
09/04/30 17:12:35
>>101
（ﾟдﾟ）ﾎﾟｶｰﾝ

三抜け

103:名無しさん＠そうだ選挙にいこう
09/04/30 17:21:39
斜めの時点では主キーではなくて、整列時の一レコードに纏めた時点で
IDを主キーにしたいって事です。
斜めに値が入ってる形で主キーはありえないですね･･･
何度もすいません･･･(‘д’;;;)

104:名無しさん＠そうだ選挙にいこう
09/04/30 17:52:22
>>103
これはDBのデータ？
この順で取得できることは、保障できないんだが？
＃order by しなくてもこの順序どおり？　その前提が謎
VBA(なんでもいいんだけど)で書きこんだほうが早いと思うが
この状態でExcelにはけるなら、VBA使ってもう終わってると思う

105:名無しさん＠そうだ選挙にいこう
09/04/30 18:11:02
>>103
斜めにデータが入ってるテーブル（既存）→ Table1
整形したデータを出力するテーブル（New）→ Table2
あらかじめ既存のTable1と同じフィールドの並び順でTable2を作成しておくこと。

'以下コード---------------
Dim DB As DAO.Database
Dim RSi As DAO.Recordset
Dim RSo As DAO.Recordset
Dim i As Integer
Set DB = CurrentDb
Set RSi = DB.OpenRecordset("Table1", dbOpenForwardOnly)
Set RSo = DB.OpenRecordset("Table2", dbOpenDynaset)
RSo.AddNew
Do While Not (RSi.EOF)
For i = 1 To RSi.Fields.Count
If RSi.Fields(i - 1) <> "" Then
RSo.Fields(i - 1) = RSi.Fields(i - 1)
End If
Next i
RSi.MoveNext
Loop
RSi.Close
RSo.Update
RSo.Close
DB.Execute "DELETE FROM Table1"
DB.Close
Set DB = Nothing
Set RS = Nothing
'-------------------（以上です）

106:名無しさん＠そうだ選挙にいこう
09/04/30 18:13:12
最終行訂正
ｘ　Set RS = Nothing

o Set RSi = Nothing
o Set RSo = Nothing

107:名無しさん＠そうだ選挙にいこう
09/04/30 18:16:06
>>101
二重ループでいけるんじゃねーの?
つーか、固定長データの切り位置間違えたようなデータだね。
とりあえずレコード順が必要だから、最後尾にオートナンバー（便宜上ID1）入れろや。
それで並び順が変わるようならインポートしなおし。
で、整形前のデータが入っているテーブルをT1、
整形後データを格納するテーブルをT2とすると、（つづく）

108:名無しさん＠そうだ選挙にいこう
09/04/30 18:16:47
Dim I As Long
Dim dum As String

Set cn = CurrentProject.Connection
rs1.Open "SELECT * FROM T1 ORDER BY ID1", cn, adOpenStatic, adLockReadOnly
rs2.Open "T2", cn, adOpenKeyset, adLockPessimistic

Do Until T1.EOF
If Isnull(rs1!ID) Then dum = rs1!ID
rs2.Add New
For i = 0 to rs1.Fields.Count - 2
If IsNull(rs1(i)) Then rs2(i) = rs1(i)
Next i
rs2.Update
rs1.NextRecord
Loop

こんな感じじゃねーか? あ、ちなみにADOね。
あと規制くらってるから、そうそうレスできんから。

109:名無しさん＠そうだ選挙にいこう
09/04/30 18:48:54
>>101
DAO 使う場合ね、項目数が４だと、
-------------
Sub omanuke()

Dim i As Integer, itizi(3) As String, rs As Recordset
Set rs = CurrentDb.OpenRecordset("test")
Do Until rs.EOF
For i = 0 To 3
itizi(i) = rs.Fields(i) & itizi(i)
Next i
rs.MoveNext
Loop

rs.MoveFirst
rs.Edit
For i = o To 3
rs.Fields(i) = itizi(i)
Next i
rs.Update
Set rs = Nothing

End Sub

110:名無しさん＠そうだ選挙にいこう
09/04/30 22:58:31
単純に考えて、集計クエリで行かないですかね
（↓こんな感じで）
select max(ID),max(名前),max(住所),max(担当者),max(郵便番号),max(電話番号),max(メールアドレス),max(URL) from TBL名

よければ別名定義でちゃんとした項目名をつけてみてね

111:名無しさん＠そうだ選挙にいこう
09/04/30 23:02:44
（補足）
上記方法でうまくいったら、テーブル作成クエリに変更して新規テーブルを作成するか。
あるいは追加クエリにして、正規登録テーブルへ追加するかしてみてください

112:名無しさん＠そうだ選挙にいこう
09/05/01 08:21:17
確かに無理にUPDATEする必要はないよな。
結果が得られればいいだけなら毎回>>110のクエリでいいんじゃね？

113:名無しさん＠そうだ選挙にいこう
09/05/01 11:34:20
>>104
Accessのテーブルのデータです。
私のスキルだと、テキストを一旦ExcelVBAでCSV形式に整形した後に、
そのCSVファイルをAccessの正規テーブルに直接インポートする方が良いみたいですね。
ExcelVBAならセル番地指定で楽なんですけど、言われるまで気付きませんでした･･･。

>>105
>>107
>>109
ありがとうございます。
私のスキルだとコード読むだけで一杯一杯で、まだ把握し切れてないですが･･･
動作確認してみたら動きました。
レコードが大量だと、処理をコード化する方が良さそうですね･･･。
ちなみに元のテキストは

ID：I001
名前：某会社
住所：某所
長いので以下略

こんな感じです。
勉強不足ですね･･･精進します。

>>110
ありがとうございます。
MAX関数にこういう使い方があるとは･･･数の比較だけだと思っていました。
やっと逝けました･･･まさに目から鱗でした。

114:名無しさん＠そうだ選挙にいこう
09/05/01 13:43:28
>>113
> ちなみに元のテキストは
>
> ID：I001
> 名前：某会社
> 住所：某所
> 長いので以下略
>
> こんな感じです。

おい！　初めに書けよ

十抜け

115:名無しさん＠そうだ選挙にいこう
09/05/01 14:06:08
>>114
あ･･･すいません　OTL

お騒がせしました、勉強して出直します。
答えて下さった方々、ありがとう。

116:名無しさん＠そうだ選挙にいこう
09/05/01 19:33:07
クライアントからランタイムだけでデータベース開けるようにするためにはデータベースにどういう操作を加えてやれば良いですか？

117:majires
09/05/01 19:39:54
>>116
特に必要ない。

クライアントマシンにランタイムを入れれば、Accessで作ったソフトはなにもせずとも
動く。mdbだろうと、accdbだろうと、mdeだろうとね。

うちの場合、開発用マシンにだけAccess2007を入れて、クライアントはランタイムのみ。
といっても、面倒くさいので、mdbのファイルをクライアントに設置しているだけだけれど。
ただ、データはMySQLに蓄積しているので、クライアント側にデータが溜まることはない
ってな感じ。

118:名無しさん＠そうだ選挙にいこう
09/05/01 20:42:08
ところがですねー、やってみたらウィンドウのわくが出たところでとまっちゃうんですよね。
Runtimeのバージョンが違うのかと2000と2003と2007それぞれ試しましたがだめです。
2007でやったときだけなんかOCXファイルを探していますって言うメッセージが出てるんで、
mdbの中にこのOCXファイルを埋め込んでコンパイルみたいなことをやらなくっちゃだめなのかなと？

119:名無しさん＠そうだ選挙にいこう
09/05/01 21:04:33
既定のフォームって言うのを設定してやったらその画面だけ出てきました。
なるほどテーブルとか直接編集できるものは表示されないってことですね。
レポート印刷させるのもフォームにボタンかなんかつけねばだめだな、これは。
テーブルに直接入力とかやってましたがそれではだめですね。
ちょっと分かってきました。

120:名無しさん＠そうだ選挙にいこう
09/05/01 21:57:21
なにを当たり前なことを

121:名無しさん＠そうだ選挙にいこう
09/05/01 23:00:29
>>115
テキスト->Accessのサンプルっていっぱい転がってるはずだから
探してチャレンジしてみなよ　簡単だから
今後の業務内容によると思うけど、マクロよりもVBAでやったほうが
何かと楽だと思うよ(あとあとの事考えるとね)

122:名無しさん＠そうだ選挙にいこう
09/05/02 08:17:58
>>117
信頼できる場所の設定、どーすんの？

123:名無しさん＠そうだ選挙にいこう
09/05/02 13:17:57
Access2007 Runtimeの信頼できる場所の設定はRegstryを修正するのが一番簡単

URLﾘﾝｸ(macoto.blog.so-net.ne.jp)

124:名無しさん＠そうだ選挙にいこう
09/05/02 13:31:16
素直にパッケージソリューション

125:名無しさん＠そうだ選挙にいこう
09/05/05 20:05:38
またAccess Clubがおかしいな。

126:名無しさん＠そうだ選挙にいこう
09/05/05 20:52:56
>>125
普通に見られるのだが。

127:名無しさん＠そうだ選挙にいこう
09/05/06 21:01:17
Windows 7 RC版にAccess 2003インストールした者はいるか？

128:名無しさん＠そうだ選挙にいこう
09/05/06 22:00:38
両方持っていない

129:名無しさん＠そうだ選挙にいこう
09/05/08 22:43:32
この連番ロジックの解説を・・・
URLﾘﾝｸ(detail.chiebukuro.yahoo.co.jp)

130:名無しさん＠そうだ選挙にいこう
09/05/08 22:58:51
>>129
フィールド値が自分自身のフィールド値以下であるレコード数をカウントしてる

131:名無しさん＠そうだ選挙にいこう
09/05/08 23:02:26
>>129
ACCESS2000についてご質問です。項目名「データ順」「コード」「郵便番号」「氏名...gbsg9405さん

ACCESS2000についてご質問です。
項目名「データ順」「コード」「郵便番号」「氏名」というデータがございます。
このデータを「コード」順の「郵便番号」順に並び替えて、5桁の連番を付ける事は可能でしょうか？

追記です。
「データ順」の連番はオートナンバーで設定しております。最終的に「連番」という項目名を増やして5桁の連番を付け加えたいです。
ご説明が分かりづらかったら申し訳ありません。宜しくお願いします。

質問日時： 2009/5/6 23:57:46

（2件中1～2件）並べ替え：回答日時の新しい順｜古い順
tkyk_halさん

1つ条件が足りませんよ。コードと郵便番号が同じデータであった場合に、どちらに若い連番を割り当てるかです。
幸いオートナンバー型のデータ順がありますので、この若い数に若い連番を当てることにします。こういう場合にユニークな値(他と重ならない一意な値)の大切さが分かりますね。

新しいクエリを作成し、右クリック>SQLビューに下記を貼りつけて下さい。
その際、テーブル名の所はお手元のシステムのものに書き換えて下さい。

SELECT *,Format((SELECT COUNT(*)
FROM テーブル名 AS T2
WHERE T2.コード<T1.コード OR
(T2.コード=T1.コード AND T2.郵便番号<T1.郵便番号) OR
(T2.コード=T1.コード AND T2.郵便番号=T1.郵便番号 AND
T2.データ順<=T1.データ順)),"00000") AS 連番
FROM テーブル名 AS T1;

回答日時：2009/5/7 20:51:01

132:129
09/05/09 00:01:01
うむむ・・・
みなさんも、こういうのがスラスラ書けるんですか？
どれぐらいの修行が必要なんでしょ？

133:名無しさん＠そうだ選挙にいこう
09/05/09 00:10:14
>>129
自分の説明に対して、「ご説明」とかバカじゃないの？

134:名無しさん＠そうだ選挙にいこう
09/05/09 15:47:06
わたしも日本語を覚えたての頃は、重箱の隅をつついて
したり顔をしていた時期がありました。懐かしい思い出です。

135:名無しさん＠そうだ選挙にいこう
09/05/09 20:25:21
accessは融通利かないものね

136:名無しさん＠そうだ選挙にいこう
09/05/10 06:21:00
Runtime2007でClearTypeをオフにすることは可能でしょうか？

会社で自分のPC（WindowsXP）だけAccess2003（Office 2003 Professional）が入ってて、
この2003で作ったmdbを、所内の全PC（WindowsXP）にて2007Runtimeで使ってるんですが、
欧文フォントだけがClearTypeで表示されてしまいます。

おそらくExcelやWordも「2007」が入ってれば、
そちらで「常にClearTypeを使用する」をオフにすればRuntimeでもオフになるんでしょうけど、
どのPCもOfficeは「2003 Personal」のため、この設定ができません。

レジストリでも結構ですので、何か方法はないものでしょうか？
よろしくお願いいたします。

次ページ