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

ACCESSに関する質問はこちらへ！

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

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

前スレ
Access総合相談所 其の20 【桐にしとけ】
http://pc11.2ch.net/test/read.cgi/bsoft/1230971374/l50

桐はこちら↓
管理工学研究所「桐」【４】
http://pc11.2ch.net/test/read.cgi/bsoft/1100708378/

ACCESS2000総合相談所
http://pc.2ch.net/bsoft/kako/965/965614164.html
ACCESS総合相談所 その２
http://pc.2ch.net/bsoft/kako/1007/10079/1007987001.html
ACCESS総合相談所 その３
http://pc.2ch.net/bsoft/kako/1019/10190/1019087338.html
ACCESS総合相談所 その４
http://pc.2ch.net/bsoft/kako/1027/10274/1027491281.html
ACCESS総合相談所 その５
http://pc.2ch.net/bsoft/kako/1033/10331/1033182163.html
ACCESS総合相談所 その６
http://pc2.2ch.net/bsoft/kako/1037/10378/1037856185.html
ACCESS総合相談所 その７
http://pc2.2ch.net/bsoft/kako/1043/10439/1043996834.html
ACCESS総合相談所 その８(消息不明です)
http://pc2.2ch.net/bsoft/kako/1051/10516/1051630268.html
ACCESS総合相談所 その９(消息不明です)
http://pc2.2ch.net/test/read.cgi/bsoft/1061828549
ACCESS総合相談所 その１０
http://pc5.2ch.net/test/read.cgi/bsoft/1075378966/
ACCESS総合相談所 その１１
http://pc5.2ch.net/test/read.cgi/bsoft/1089812359/
ACCESS総合相談所 その１２
http://pc8.2ch.net/test/read.cgi/bsoft/1106963038/
ACCESS総合相談所　その１３　【桐にしとけ】
http://pc8.2ch.net/test/read.cgi/bsoft/1121055646/
ACCESS総合相談所　その１４　【桐にしとけ】
http://pc8.2ch.net/test/read.cgi/bsoft/1128486351/
ACCESS総合相談所　その１５
http://pc8.2ch.net/test/read.cgi/bsoft/1142586697/
ACCESS総合相談所 その１６ 【桐にしとけ】
http://pc11.2ch.net/test/read.cgi/bsoft/1157195290/

ACCESS総合相談所 その１７ 【桐にしとけ】
http://pc11.2ch.net/test/read.cgi/bsoft/1175943813/
ACCESS総合相談所 その１８ 【桐にしとけ】
http://pc11.2ch.net/test/read.cgi/bsoft/1198885955/
Access総合相談所 其の19 【桐にしとけ】
http://pc11.2ch.net/test/read.cgi/bsoft/1216293538/

FAQ
Q1) Access で累計や残高を計算するのにはどうすれば良いですか？
A1) 桐にしとけ。Accessでは、9500レコードまでならばDAOrecordset作って先頭から逐次計算していけば出来ます。

>>1
乙

いいかげんスレタイの「桐にしとけ」は消せよ。
もうとっくにオワってる旧世代ソフトなんだからさ。ｗ

いや、「桐にしとけ」が無くなったら
エクセルの感覚で質問してくる人に、どう答えるのさ？

Oracleの買収により突如脚光を浴びるOOo Base

宛名ラベル印刷がうまくいきません。
access上に型番の登録のない用紙（上下左右の余白がなし）を使用しています。
どのような設定にしたらよいのでしょうか。

余白いっさいなしの印刷なんてできたっけ?

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

ふちなし印刷できるプリンタ・プリンタドライバ使ってるなら
普通に余白ゼロに設定できないか？

ピボットグラフでグラフに値を表示する方法ってありませんか？

おい、オマイラ、ここ見てみて

http://www.accessclub.jp/

前スレ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*';

>>14
クエリ一発では無理。構文だけ見たらサブクエリの結果が１件とは限らないし。
一度、IDと名前をワークテーブルに書き出して、1対1で更新するのはどうかな？

質問

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

自己解決しました。

environ関数があったんだ。

>>16

Application.CurrentProject.Path

>>15
ありがとうございます、やっぱり無理ですか･･･。
ご指摘の通りにIDと名前を、それぞれ個別のワークテーブル（tbl_03,tbl_04）に保存して
改めてUPDATE文を実行してみました。

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

やっぱりダメポ･･･。

素直にDAO使ったら？

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

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

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

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

>>14
これじゃダメ？

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

>>22
たぶん駄目です。
SET [フィールド] = (サブクエリ)　の形式は恐らく全部跳ねられるかと。

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

>>13
yahoo!に飛ばされるんだが

Accessってなんであんなに使いにくいんだ？
桐を見習え

桐タンス

桐きり舞

バックアップに記述をして
翌日にあけようとしたら
権限がないと出て困ったことがあります

何が原因なんでしょう

>>13
私もyahoo!に飛ばされる。
ハッキングされたのかそれともDNSキャッシュポイズニングの巻き添えを食ったか？

ここのソフト安いよ
http://www.hhyyhh22.co.nr

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.

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

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

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

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

レスどうも。
＞そのために、テーブルを正規化にしたがってテーブル分けするし
テーブル分けにも正規化ってあるのか・・・よくわからないや。
入門書程度しか見てないからかな。
分かりやすい参考書とかあります？

>>32
検索や抽出に使用するフィールドを分けるって、んなバカな…
何のためにインデックスがあるのかと

それ以前に
データーは細切れにしといたほうがいいんですよね
でっかいシートとかはエクセルの話で

え。みんなそんな理由で分けたりするのか？
検索や抽出に使用するならインデックス張ればいいだけじゃね？

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

第13正規形。
童貞守って30過ぎると使えるようになるらしい。

>>29
Access Clubが閉鎖されるのかな・・・・

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

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

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

OPEN(Cancel As Integer)
の「(Cancel As Integer)」
ってどういう意味ですか？頻繁に目にしますが、
図書館で借りた本に記載されていません。

>>41
http://msdn.microsoft.com/ja-jp/library/dd590694.aspx

コピペ？

>>40
グダグダいってないで、まずはインデックスを張れ。
話はそれから。

┐('〜`；)┌

ColumnWidthに関する質問です。

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

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

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

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

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

Me.埋め込み0.Form.[サブフォームの項目１].ColumnWidth

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

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

�@「Docmd」
�A dim
は、通常何て呼ばれているのですか？
デュコムド、ディム
とかですか？

�@Do Command
�ADimension

�@ドゥーコマンド
�Aディメンション

私も初学者ですが
エンジニアの方の間では「ディム」と省略されて呼ばれていると思っていました。

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

http://q.hatena.ne.jp/1137742273

自分は「ディム」と呼んでる。
が、正直どっちでも気にならない。

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

>>47
の方法を試してみたら、今度は

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

と出ました。

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

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

フォームとサブフォーム、どっちのモジュールに書いてるの？

>>56
サブフォーム側に書いてます

>>56 じゃないけど ColumnWidth ってことはリストか？
だったらこんな感じで良かったかな
リスト.Column[1].ColumnWidth = リスト.Column[2].ColumnWidth

サブフォームのopenイベントに書いてるのか
だったら普通に
Me.[サブフォームの項目１].ColumnWidth = Me.[サブフォームの項目２].ColumnWidth

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

VBとbasicを勉強するように言われた
(-_-;)。
しんどいよね
(-_-;)。

VB.NETなら、勉強しておいても別にいいんじゃね。
N88とか言われたらモチベーション的にツライけど。

>>59の方法を試したら上手くいきました！
ありがとうございました！！

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

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

>>61
VBとVB.netとはちがいがあるのでしょうか…。

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

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

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

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

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

一昨日までは見れてたような

2007のフォームで右クリックで出るショートッカットメニューを
追加編集したいんだけど

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

最近【激安PCソフト】の事がよく載って、消されてるけど
ここで買っても大丈夫？
買ったことある人教えてください

>>61
俺はうれしいかも。ｗ
昔よくダンジョンゲーム作ったなあ・・・。
ちなみにベーマガが教科書でした。ｗｗｗ

マクロでActiveControlの値を取得できる？

フォームウィザードの表形式とデータシートの違いは何？

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

その場で作ってみればわかるんでないの

>>71 わかりませんでよし！その程度、自分で調べて貰わなければ困ります。

質問です、フォームで書き込み用のテーブルを呼び出してそのテーブルにデータを入力。
そして、そのテーブルに新しい名前をつけて保存。という事ってできますか？

create table ありそうだからできるんじゃない？
create table as 使えれば楽なんだけどね

>>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条件の条件式のところは、値以外は全て空白なのですが、
この条件式だと値の一意性は保たれないのでしょうか。

>>74
DoCmd.CopyObject "", "新しい名前", acTable, "テーブルの名前"

>>76
実際のデータはこんな形なのでしょうか？
コピー元とコピー先の関係には、何か決まった規則があるのでしょうか？

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

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

>>76
order byつけてないけど、順序は大丈夫なのかそれ？
連番ついてたらupdate一撃だけどな。

ACCESS 2007でVBAを使ってクエリからデータを読み取って、
散布図と近似曲線・近似式を書きたいのですが、どうやったらいいですかね。

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

そういうのは、AccessからExcelを呼び出して処理させるけどね。

Access Club復活してよかった

>>80
散布図ってことはグラフですよね？

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

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

>>82
つか、原因はなんだったんだ?　何の釈明もなかったし……って、
情報発信とかサイトへの要望（だったっけか?）とかがなくなっているし。

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

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

>>84
いくつか、リンクがなくなっているのは確かだね。

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

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

フォームの表題：caption に現在日付を表示したいのですが、

どうぞ、ご自由にやってください。

>>87
http://www.tsware.jp/tips/tips_138.htm

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

れこで

>>89
ありが�d

>>76
DAO 使うって、そういう意味じゃないのだが…

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

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.

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.

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.

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.

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

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

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

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

>>96
（ ﾟдﾟ）ﾎﾟｶｰﾝ

一抜け

>>96
（ ﾟдﾟ）ﾎﾟｶｰﾝ

二抜け

えーと･･･何でﾎﾟｶｰﾝなのかが分かんないんですけど･･･。

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

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

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

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

　ID　　　名前　　　住所　　　担当者　　郵便番号　　　電話番号　　メールアドレス　　URL
"I001"　　""　　　　"" 　　　　　""　　　　　""　　　　　　　""　　　　　　　　""　　　　　　　""
""　　　"某会社"　"" 　　　　　""　　　　　""　　　　　　　""　　　　　　　　""　　　　　　　""
""　　　　""　　　　"某所"　　　""　　　　　""　　　　　　　""　　　　　　　　""　　　　　　　""
""　　　　""　　　　　""　　　　"某氏"　　　""　　　　　　　""　　　　　　　　""　　　　　　　""
""　　　　""　　　　　""　　　　　""　　"000-0000"　　　　""　　　　　　　　""　　　　　　　""
""　　　　""　　　　　""　　　　　""　　　　　""　　　　"000-00-000"　　　　""　　　　　　　""
""　　　　""　　　　　""　　　　　""　　　　　""　　　　　　　""　　　　　　"[email protected]"　　　""
""　　　　""　　　　　""　　　　　""　　　　　""　　　　　　　""　　　　　　　　""　　　　　　"http(ry"

　　　　　　　　　　　　　　　　　　　　　　　　　　↓

　ID　　　　名前　　　住所　　　担当者　　郵便番号　　　　電話番号　　　メールアドレス　　URL
"I001"　"某会社"　"某所"　"某氏"　　"000-0000"　"000-00-000"　"[email protected]"　　"http(ry"


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

>>101
（ ﾟдﾟ）ﾎﾟｶｰﾝ

三抜け

斜めの時点では主キーではなくて、整列時の一レコードに纏めた時点で
IDを主キーにしたいって事です。
斜めに値が入ってる形で主キーはありえないですね･･･
何度もすいません･･･(‘д’;;;)

>>103
これはDBのデータ？
この順で取得できることは、保障できないんだが？
＃order by しなくてもこの順序どおり？　その前提が謎
VBA(なんでもいいんだけど)で書きこんだほうが早いと思うが
この状態でExcelにはけるなら、VBA使ってもう終わってると思う

>>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
'-------------------（以上です）

最終行訂正
ｘ　Set RS = Nothing

o Set RSi = Nothing
o Set RSo = Nothing

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

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ね。
あと規制くらってるから、そうそうレスできんから。

>>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

単純に考えて、集計クエリで行かないですかね
（↓こんな感じで）
select max(ID),max(名前),max(住所),max(担当者),max(郵便番号),max(電話番号),max(メールアドレス),max(URL) from TBL名

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

（補足）
上記方法でうまくいったら、テーブル作成クエリに変更して新規テーブルを作成するか。
あるいは追加クエリにして、正規登録テーブルへ追加するかしてみてください

確かに無理にUPDATEする必要はないよな。
結果が得られればいいだけなら毎回>>110のクエリでいいんじゃね？

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

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

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

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

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

>>113
> ちなみに元のテキストは
>
> ID：I001
> 名前：某会社
> 住所：某所
> 長いので以下略
>
> こんな感じです。

おい！　初めに書けよ

十抜け

>>114
あ･･･すいません　OTL

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

クライアントからランタイムだけでデータベース開けるようにするためにはデータベースにどういう操作を加えてやれば良いですか？

>>116
特に必要ない。

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

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

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

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

なにを当たり前なことを

>>115
テキスト->Accessのサンプルっていっぱい転がってるはずだから
探してチャレンジしてみなよ　簡単だから
今後の業務内容によると思うけど、マクロよりもVBAでやったほうが
何かと楽だと思うよ(あとあとの事考えるとね)

>>117
信頼できる場所の設定、どーすんの？

Access2007 Runtimeの信頼できる場所の設定はRegstryを修正するのが一番簡単

http://macoto.blog.so-net.ne.jp/2009-03-21

素直にパッケージソリューション

またAccess Clubがおかしいな。

>>125
普通に見られるのだが。

Windows 7 RC版にAccess 2003インストールした者はいるか？

両方持っていない

この連番ロジックの解説を・・・
ttp://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1325923008

>>129
フィールド値が自分自身のフィールド値以下であるレコード数をカウントしてる

>>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

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

>>129
自分の説明に対して、「ご説明」とかバカじゃないの？

わたしも日本語を覚えたての頃は、重箱の隅をつついて
したり顔をしていた時期がありました。懐かしい思い出です。

accessは融通利かないものね

Runtime2007でClearTypeをオフにすることは可能でしょうか？

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

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

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

>>136
ttp://geekswithblogs.net/glozano/archive/2006/11/14/97082.aspx

>>137
ありがとうございます。
今自宅のPC（WindowsXP、Office2003、Runtime2007）でやってみたところ、
無事オフに出来ました。

向こうでもClearTypeを好まない人って結構いるんですね。
"No more ClearType" とか書き込まれてて笑えました。

今ググってたらようやくMSDNで
「Application.Options.AlwaysUseClearType = False」ってのを見つけたんで
明日会社行ったら早速やってみようと思ってましたが、
>>137の方が全然ラクですね。

本当にありがとうございました。

【設定】
　メインフォームにサブフォームを張り付けた状態。
　メインフォーム、サブフォームに各々テキストあり。
【やりたいこと】
　メインフォームのテキストにデータを入力したら、サブフォームの
　テキスト・データが更新されるようにしたい。
＊とりあえず、メインフォームはテーブル連結という設定で…

Access初心者に近いので、具体的ご教示いただけるとうれしいです。

具体的ご質問してくださるとうれしいです。

Accessで↓のような管理データベースを製作したいと思い、
テーブル作成までは完了しました。

車両データテーブル
所有者情報テーブル
使用者情報テーブル
エンジン関係部品テーブル
ブレーキ関係部品テーブル
その他部品テーブル
（↑部品はひとつのテーブルでまとめた方が良いのかな？）

テーブル作成したものの、その後どうすりゃいいのかさっぱりです。
ExcelVBAを少々いじくる程度のスキルでAccessは触り始めたばかりです。
叔父からの依頼で、エクセルで簡易的なものは作成したのですが、
データベースを作成するならAccess使えや　と友人に言われ
Accessを触り始めたところです。

簡単なイメージをエクセルで作成してみた画像が↓ですが、
車両と所有者及び使用者の関連付けと、所有者が同一車両の
集計等まったくちんぷんかんぷんですが、だれかご助言頂けませんか？

Access入門みたいなキーワードでぐぐってはみたのですが、
製作しようとしている内容としっくりくるものが見当たらず、、、
お助けください。

http://uproda.2ch-library.com/127229Ej6/lib127229.jpg

>>141
ここ全部読んでみて
http://www.mahoutsukaino.com/ac/access2007/index.htm

>>141
それならExcelでいいと思う。

ExcelではなくAccessを使うべき状況の目安は
・2次元の表に収まらず3次元以上になってしまう場合
・項目ごとの整合性が重要な場合
・データの件数が膨大な場合
・複数人で同時にデータの追加・削除を行う場合(これはAccessでも微妙だが)

2次元の表というのは、縦軸が顧客別、横軸が顧客ごとの項目で済む場合。
ここに営業記録や整備記録などの、顧客ごとに蓄積するデータが加わると
3次元になる。

ちなみにそのデータなら、登録画面の上半分は1つのテーブルでいい。
営業所と担当者くらいは別した方がいいが。
下半分のパーツに関する情報は、同じ型式(車種)の重複が多いなら別テーブル、
重複が少なければ同じテーブルの方が管理が楽。

Access2003で教えてください。
レポートがすでにあり、ＡＳＰからアクセスしてレポートをＰＤＦ印刷したいです。
ＰＤＦ印刷は完全自動で行いたいのですが、可能でしょうか。
また、Access2007でも可能でしょうか。
よろしくお願いいたします。

それ、桐がちょうど良いな

>>145
それはスレタイどおりですが、何とかAccessで…

>>141 へのレスで書いた

>>144
可能です。

>>143
同意だね。

勤怠関係なんかも同じことが言えると思う。人、それに対して年休の残や出勤日数
それにまつわる、日々の記録。
こうなると、Excelではちょっと無理。

この辺りが、分かれ目かもね

Access2007をVistaで使っています。
異なるファイルにあるテーブルをリンクテーブルを使わずに
ADOで結合してレコードセットを作ることができますか。

例えば
A.accdbにtbl_aというテーブルがありフィールドがid,a1,a2
となっていて
B.accdbにtbl_bというテーブルがありフィールドがid,b1,b2
なっていたとして
id,a1,a2,b1,b2
というレコードセットは作れるものでしょうか。

A.accdbへのコネクションを作って
rs.Open "SELECT * FROM tbl_a LEFT JOIN tbl_b in 'B.accdb' ON tbl_a.id=tbl_b.id", cn, adOpenForwardOnly, adLockReadOnly
などとやってみましたがダメでした。

よろしくお願いします。

>>147
失礼しました。

>>148
ぜひ方法を教えてください。
レポートを印刷するマクロを組んでいきなりＰＤＦで印刷しようとしましたが、
プリンタの指定画面やＰＤＦファイル名の指定画面が出て自動化できませんでした。

>>150
rsを２つ用意しないといけないんじゃねぇの？

>>152
帳票フォームのソースにしたいのですが
(後出しの情報ですみません)
複数のレコードセットから新しいレコードセットを作れるということでしょうか。

可能でしたらぜひ教えてください
具体的なコードを書いてくださると嬉しいです。
よろしくお願いします。

>>153
試していないがそのSQL文を
"SELECT * FROM tbl_a AS A LEFT JOIN (SELECT * FROM tbl_b IN 'B.accdb') AS B ON A.id = B.id;"
にしてみたらどうだろ

>>150
www

>>153
ごめん、「AS B」の「B」は「'B.accdb'」とは無関係ね
紛らわしい書き方してすまん。

ADOだと接続文字列がすげえ面倒だからDAOにしとけや

>>152
ファイルが違うなら、cnも2つ必要じゃね?

ファイルとゆー以前に
データーベースが違うんだろ

accessのフォームのテキストボックスについて、
縦の位置を中央に配置するにはどのプロパティを変更すればよいのでしょうか？

SP2入れたらカーソル移動が速くなった気がする、気のせいか…

VBAについて質問
同一モジュール内でフラグを作ってイベントを動かしたいんだが上手くいかない。
いろんなページを廻ってみたけど載ってるところがなくて。

Access２０００でコードは

Private Sub プログラム１()

処理１
a_flag = 1

End Sub

Private Sub プログラム２（）

If a_flag = 1 Then
処理２

Else
処理３

End Sub

プログラム２を実行すると条件式にあるa_flagがないと出るんだが、どうやって参照させればよいのだろうか？

>>162
「変数 スコープ」でググってみればいいんじゃね?

>>163
解決しました、アドバイスありがとうございます。

>>154
ありがとうございます。
156が理解できなかったので154のまま試してみました。
動きました!
まだ教えていただいたSQLの意味がわかっていないので調べてみます。
かなり悩んでいて
一度ローカルのワークテーブルに読み込んで処理する方法で作ったのですが
やはりシンプルにしたいと思い質問したところでした。
本当にありがとうございました。

>>158
cnを2つ作っても、その先どのようにして結合すればいいのかわからなかったのです。
154とは別の方法もありますか。

>>159
複数のファイルを同一のデータベースとしてみなす方法があるということでしょうか。
それができればコネクションをひとつにして結合もできると思うのですが。

みなさん、ありがとうございました。

>>165
156は接続先のファイル名とは関係ないよということ
まあ動いて何より。

>>157
udlファイル使えば結構楽になる

イベント設定とマクロの値の代入についての質問なんですが

サブフォームにあるテキストボックスAに親フォームのテキストボックスBに書き込まれた内容を
代入させたいのですが、どのイベントに入れどのように代入を設定していいのかがわかりません。
どのようにしたらよろしいでしょうか。

>>139
>>140
日本に1人だけしかしていない公開できない事例ですか？
企業の名前や商品名や生徒名や経費明細や得点や偏差値や
適当に仮名を使えばどういうシーンで使うのかとか、メインのオブジェクトの
データ型やオブジェクト名或いはサブフォームのオブジェクト名やサブフォームオブジェクト
のテキストのオブジェクト名など全て秘密では答える方も秘密です。

ACCESS2000

コンボボックスで値を選択しているものをバックスペース等で削除します。
その後マウスなどで他のオブジェクト（テキストボックス等）を
クリックしたらコンボボックスの値が消す前の状態に戻って
しまうという現象があるのですがどうすれば回避できますか？

>>169
バックスペースで文字を削除した後、一度Enterを押して他のオブジェクトに
移動した場合は症状が変わりますか？
イベントを使ってもいいと言うことですか？
フォーカス喪失イベントは有りますか？
入力後イベントはありますか？

>>170
エンターとタブキーで移動させた時はちゃんと削除されます。
マウスでフォーカスを別のオブジェクトに移した際に前回値が残る現状があります。
イベントは使っても大丈夫です。
フォーカス喪失時、更新前、更新後のイベントは特に設定していますん。
試しに上記イベント内でコンボボックスのvalue値を確認したところ、前回値が入っているみたいでした。

設定していますん。となっていますが誤字すいません。
設定していません。です。
些細な事なのですがニュアンス的に
重要だと思いましたので訂正いたします。
申し訳ないです。

更新前は当然最初の削除前の文字列ですね。
更新後は元に戻ることから編集文字列変更が反映されていないと
考えられます。
イベントの種類として、１）更新前から２）編集文字列変更から３）入力後
次に４）更新後イベントと進むと思いますが、3のイベントでは変更後文字列
が確認できないで４）でしか確認できないのですか？
或いは2と3のイベントは存在しないのですか？

>２）編集文字列変更から３）入力後
というイベントはアクセスには存在していないようですね。

変更時イベントは使えないのですか？
キー入力時とキー解放時と言うのがあるようですがこれも
今回のには使えないイベントですか？

フォーカス喪失時とフォーカス喪失後が有るので変更された文字列を
取得できればどちらかのイベントで文字列の変更は出来ないのでしょうか？

確認したイベントは
afterupdate
beforeupdate
change
lostfocus
です。
いずれも前回値をvalueでもってしまっている感じでした。

>>169
'ComboBox1.Valueが更新されていないのが原因だから、
'フォーカス喪失時イベントで強制的に更新したら良さそう・・・
'文字を削除というのが「何も選択されていない状態」を意味するなら
'リストインデックスを更新してはどうかな？

Private Sub ComboBox1_Exit(Cancel As Integer)
If ComboBox1.Text = "" Then
ComboBox1.ListIndex = -1
ElseIf ComboBox1.Text <> ComboBox1.Value Then
ComboBox1.Value = ComboBox1.Text
End If
End Sub

皆様
ご教授ありがとうございます。
本件あまり工数をかけられないとの事なのでこの対応は見送りになりました。
解決できず不本意ではありますが、一旦打ち切らせていただきます。お付き合いいただきありがとうございました。

Access2000でも、これらはあるよな

ComboBox.LimitToList/入力チェック プロパティ
ComboBox."AutoExpand/自動拡張" プロパティ
ComboBox.ShowOnlyRowSourceValues プロパティ

aaaさあああああああーーーーーーーー、まじアクセス使いづれーーーーーーー！！！
もともとカード画面前提の製品なんだろうけど
表形式が全然使えねーーーーーーーーーーーーー

バコバコ・ビュンビュン・グリグリ入力してーのに、なんだよアクセスって
仕事に何ネェジャン
画面揺れるわ引っかかるわチラ付くわ遅せーわで、ストレス溜まり幕リング
もう死にそーーーーーーーーーーーーーーーーーーーーーーー
人差し指入力のオッサン用かよ

桐の表形式がビュンビュン最高だわ wwwwwwwwwwwww
つーか、桐バージョンアップしてくれよ

> バコバコ・ビュンビュン
って相変わらずいってるやつって不定期に出てくるね
いつも同じ奴がいってるんでしょうね

文句ばっかいっててもしょうがないし
いい加減Accessにも慣れて良い頃じゃないでしょうか

> 画面揺れるわ引っかかるわチラ付くわ遅せーわ
ソフト単体の問題というより単純にマシンスペックに問題がある気がします

Accessはエクセルじゃないですからスクロールすれば描画更新生じて揺れますしチラツキます。
桐が特殊。

データベースは表示するレコード数を絞って運用してくださいな。

桐の表形式の使いやすさは異常。

初心者ですが、どうしてもやりたい処理があります。
左右に並んだセルのデータを結合したいのです
左セル　'お前が'　右セル'好きだ'
結合して'お前が好きだ'
にしたいのです。
可能ですか？

Accessにセルはないです
項目をつなぐのであれば「&」でつなげばいいのでは

>>183
Accessにセルの概念はありません。横一直線が１レコードであり、
列の概念があるだけです。
A列に　お前が
B列に　好きだ

ならば

C列の式として、 = [A] & [B] とする。

>>184-185
文字列結合自体はExcelと変わらないけど、
183がどこで結合しようとしているかが問題じゃね?
テーブルでやろうとしてるに1ジンバブエドル。

Excel総合相談所と誤爆したに255twip

桐にしとけに、付けてて良かったスレタイトル

セルという概念はないんですね。
テーブルとかクエリとかの区別もあまりついてないので
すいません。

テーブルで、セルのように並んでいるんです
その隣同士をひっつけて一つにしたいんです

どうしてもエクセル的に考えてしまうんですが、
実際には住所が３つに分かれて記述されてまして、
扱いにくいので、一つにまとめたいんです。

’お前が’　’好きだ’　’よん’の３つを合わせて
’お前が好きだよん’にする場合、テーブルの
データシートビューで列を一つ挿入し、
=［住所1］&［住所2］&［住所3］という風に定義する
という感じになるのでしょうか？

データベースは、今使い始めで、エクセルとの
違いもあまりわかってませんので、もしかしたら、
質問するレベルにも至ってないのかもしれません。
がよろしくお願いします。

Excelにエクスポートしてくっつけた奴をインポートするとよい。

>>189=183
住所録のようなものを作られているのだと思いますが、まずはテーブルの最終形を
きちんと想定する事が重要です。データはテーブルに蓄積されていきますが、後になって
必要なフィールドが無いのは何かと不便です。またデータベースの場合、データ入力後に
テーブルの構造を変更するのは色々と苦労が多くなりタブーと言っても良いかと思います。

今回、後々の運用のためにそのタブーを犯して[住所1]，[住所2]，[住所3]を
１つにまとめて[住所4]を新たに作るのであれば、次のようにします。
(1) テーブルに[住所4]フィールドを挿入する。この時点では[住所4]は空のままです。
(2) [住所4]に値をセットするために‘更新クエリ’を作成して実行する。
この時、[住所4]にセットする値を[住所1]&[住所2]&[住所3] としておく。

もう１つの考え方として、データの蓄積は[住所1]，[住所2]，[住所3]のままにしておいて、
必要な時だけ連結する方法もあります。この方法のほうがデータベース的な考え方と言えます。
(1) テーブルを元に‘選択クエリ’を作成する。
(2) 表示するフィールドを[住所1]&[住所2]&[住所3] としておく。

もちろんテーブルを１から作り直しても構いません。（>>190さんの方法を参考に）
先を見越してテーブルを設計するのはある程度の経験も必要ですから、
色々とチャレンジしてみると良いと思いますよ。頑張ってみてください。

皆さんありがとうございます。
アドバイスを参考にさせていただいて、やってみます。

質問させてください

顧客のリピートオーダーの頻度を調べる必要があり
データとして　「顧客番号」　「オーダーのカウント」　「最古の日付」　「最新の日付」
のデータがあります
このデータからその顧客がどの周期でオーダーを繰り返しているのか調べたいのですが、日付間の月数を集計する方法が見つけられません
どの様にすればデータを集計できるか教えてください

アクセスのバージョンは２０００になります

よろしくお願いします

「最新の日付」 − 「最古の日付」 ÷ ３０

>>193
Datediff関数というのがあります。
月数 = Datediff("m", [最古の日付], [最新の日付])

詳細はググってみてください。いろんな場面で使えますよ。

>>195
>>194

ありがとうございます。　自分の不勉強さがよくわかってしまいました
大変助かりました。

＜基礎データ＞
XP、Access2007。不動産業。
＜したいこと＞
町の一区画に、100件ほどの弊社管理の物件が集中している。
リアルタイムの居住者マップ（位置関係の表示）を、Accessで作りたい。
＜条件＞
・あらかじめ、「区画ごとの物件ID」を、手動で入力しておくこととする。
・「物件テーブル」、「入居者テーブル」、「契約テーブル」により、どの物件IDに現在どの居住者が入居しているか把握できるものとする。
＜質問＞
・区画ごとの居住者マップ（位置関係の表示）をAccessで作成することは可能だろうか。
・自動的に、現在入居中の居住者の「名前」が、その区画の該当する位置に表示されるとありがたい。

不可能なら不可能と教えてください。

htmlが楽チン。

>>198
>>197をhtmlでやれば楽チンという意味でしょうか？
Accessとどのようにリンクさせるのか、具体的に教えていただけると助かります。
もしくは、ググルためのキーワードアドバイスなど。

>>199

続々と倒産する建設業界＆不動産その8
http://namidame.2ch.net/test/read.cgi/build/1237817318/

197>>
ttp://www.mammoth.jp/qry/hplinkk_kasipark.qry?function=search&start=1&traderID=nihontsu&groupid=&kanri_target=&areaname=fukushima&city=%95%9F%93%87%8Es&tiiki=&address=&category=&yatin1=0&yatin2=999999
詳細を押すとgoogle地図へリンクします。
アクセスのバージョンと文字数制限と項目数制限が解れば可能かどうかの
判断の一つにはなるでしょう。

参考のためにアクセスで作成に使用する予定時間を教えて下さい。

すいません、メインフォームとサブフォームについての質問です。
メインフォーム内にあるテキストボックスＡに入力したデータを元に
サブフォーム内にあるテーブルのデータを検索（抽出）して表示させたいのですが
どうしたらよいでしょうか。
リレーションシップを組もうにも参照整合も出来ないばかりか1対多の形にもできず
未定義のままです。よってＶＢＡで組みたいのですかどのようにすれば良いでしょうか

>>201
Accessは2007。
文字数制限とは、表示する入居者名の文字数でしょうか。名字だけなら全角4文字くらいです。
項目数制限とは、表示するフィールド数でしょうか？フィールドは地番と入居者名で、2つです。

リンクを拝見しましたが、（ご承知の上のことかと存じますが）
一軒ごとの表示ではなく、区画地図として、A-1田中、A-2鈴木、A-3-斉藤などと全体が見られるものがほしいです。

Accessで作成に使用する予定時間という意味がよくわからなかったのですが、
お客さまのお問い合わせ時や、弊社で管理する際に、その都度、
この地図を参照できたらと思います。
テーブルで変更があった場合、それが地図に反映されているとうれしいです。

お手数をおかけいたしますが、よろしくお願いいたします。

>>202
サブフォームのレコードソース変えればいいんじゃね?

>>197
１）顧客名→地図　でなく
２）地図→顧客名　が知りたいと言うことですか。
２なら簡易地図画像を作りボタンを割り付けてクリックイベントや
ツールヒントを使って物件IDを元に例えばアパート情報のテーブルを
検索してフォームで表示します。
　マウスインするとテキストで例えば「179AP」等とポップアップメッセージ
が表示されます。

ttp://www.webmanagerpro.jp/wmp/updir/430007/hp/chin_gmap.php?tool=1#

　1日でシステムを作るのか、1時間で作るのか1週間で作るのかを知りたかった
だけです。

田中や斎藤や鈴木はアパート名ということですよね。

物件IDと部屋IDと2つ必要だと思います。
物件IDは建物の外観と階数と所在地情報、連絡先の電話と担当者名を管理し
部屋IDは物件IDのサブフォームにしてリンクさせ、部屋の写真や間取りを
管理し入居済みなら顧客名とリンクすれば将来の資産になると思います。

桐で作るのなら興味があるが、アクセスは使う予定がないので頑張って下さい。

>>204
すいません、情報不足でした。
メインフォームはテーブルＡ、サブフォームはテーブルＢで構成されています。
リンクも設定し、メインフォームのテキストに検索（抽出）したい文字を入れると
サブフォームにきちんとそのデータが参照されるようにしましたが、入力されたデータ
が出てくるのが更新された後に出てきます。
テキストに未入力ならレコードを出さない、入力されたら出すという処理を行いたいのですが、
どうしたらよいのかわかりません。

メインフォームのテキストボックスのAfterUpdateイベントをトリガにして
サブフォームのレコードソースを変えればいいんじゃね？

>>206
メインフォームのレコードソースは非連結でも構わないのだけど、
とりあえず、メインフォームに検索語を入れるテキストが一つ、
それと抽出実行するためのボタン一つ。
サブフォームのレコードソースも非連結でいい。
代わりに、サブフォームのプロパティの値ソースでテーブルＢを貼り付けて
抽出語で抽出するキーになるフィールド（抽出に使うフィールド）に
IIf(IsNull([Forms]![Ａ]![抽出語]),True,[抽出語] Like "*" & [Forms]![Ａ]![抽出語] & "*")
と貼り付けておく。　←抽出語が該当ゼロならすべて表示するパターン
あとは、テーブルＡに抽出語を入れたら、コマンドボタンに
サブフォームを再クエリーかけるようにコマンド入れとけばいい。

>>206
なにか勘違いしているようだが、204は207のことを言っているのよ。
わざわざVBAでやりたいと書いてあったから、ヒントでひらめくこと（ができるできるスキル）を期待したのだが。
で、レコードソースを替えるといっても、テーブルAだったレコードソースをテーブルBに替えろといっているわけではない。

Me!サブフォーム名.Form.RecordSource = "SELECT * FROM テーブルB WHERE 抽出フィールド LIKE '" & Me!テキスト0 & "'*"

てな具合に、抽出したものをレコードソースにすればといっている。

>>205
すごいですね。
こうした仕組ははじめて見ました。
googleマップとリンクさせているのですね。
難易度が高そうですが、＜Accessで＞チャレンジしてみます。

今気づきましたが（遅）、ここは、「桐にしとけ」スレなのですね。
（申し訳ありません！）
次回、質問は別スレにてさせていただくかもしれません。
その場合は、このスレでご回答いただいたことをベースに、
お尋ねさせていただくかもしれませんこと、ご容赦いただけましたら幸いです。

ありがとうございました。

>>197
可能と言えば可能。

すでに似たような物はつくってある。Accessに格納されているデータを
KMLに変換し、WebBrowserコントロールを内蔵したフォーム、そして、
Google Maps APIを組み込んだHTMLを読み込ませている。

ということは、ボタンを押した時に、KMLを吐き出し、そのKMLを読み込む
ようにしたHTMLを内蔵のフォームに搭載した、WebBrowserコントロール
で再び読み込む。

そういう仕組みだ。
ちょいと時間があれば、サンプルを用意できるが、今ちょっとたてこんでい
てな・・・・

ちなみに、KMLをGoogle Maps APIで読み込むコードだけ、あとは、HTML
に追記してやれば、動く。

ただどうやって、KMLを読み込ませたら良いのか、わからん。

>>211-212
>>197　>>199　>>203　>>210で質問させていただいた者です。

ありがとうございます。

地図は精密である必要がありません。
（お手間をおかけしておきながら、本当に申し訳ありません）
KMLファイルについて、検索してみました。
精密な地図を作りたい場合、ぜひ利用してみたいと思います。

以下のような簡単な図で、特定エリア内での位置関係さえ、わかればいいです。
（田中、後藤は、居住者名です）

├−−┼−−
｜田中｜後藤
├−−┼−−
｜鈴木｜山田

これをAccessだけで作ることは可能でしょうか。
フォームやレポートなどで、個別のIDをリンクさせることはできるのでしょうか。
教科書や参考書は自分なりに勉強し、検索もかけましたが、そこらへんがよくわかりません。

作成に割ける時間は1時間から半日以内です。
現在は、Wordでマップを作成し、入居者が変わるごとに、手動で修正しております。

よろしくお願いいたします。

多分、業者に頼んだ方が良いレベルの要求だと思われ。
出来ないことではないんだけど、その域まで達するのに（通常業務をやりながらだと）一年くらいかかりそう。

>>213
一番単純な方法は、先に地図を作っておいて、物件になりうるところに
テキストボックスを配置する方法ではなかろうか。
区画を識別できるフィールドがあれば、非連結レポートになると思うが、
テキストボックスのタグに区画名を記入しておき、開くときにでもコントロール総当たりで
タグに書かれた区画と区画フィールドに書かれた区画が一致するするレコードを書き込んでいく。

wordのマップをそのまま流用できるよ。

>作成に割ける時間は1時間から半日以内です

1日にそれくらい作る時間があるなら3ヶ月くらいあれば
完成するかもしれません。

　質問しながら作るのなら、1年くらい掛けると完成するかもしれません。

>>214-217
みなさん、ありがとうございます。
本業の合間に、質問しながら1年かけて、というコースで行こうと思います。
お世話になりました。

2007のアップグレード版って、インストール時に以前のバージョンのCDメディアは必要なんですかね？当方、2000の通常版を持っています。

こんなのと1年つきあうことになるのかよ・・・

>>219
普通は必要

>>221
やはり必要でしたか。押し入れの中を探してみます。
ありがとうございました。

>>220
つうか、地図部分はともかく、実行部なんて十数行のプログラムじゃないのか?
それとも俺、なんか勘違いしているのか?

すいません。
テーブルＡに数値フィールドがあって、このテーブルＡのレコードを
合計して、この合計をテーブルＢの数値フィールドに更新かけたい
のですけど、どういう風にすればよいでしょうか？

>>224
テーブルＡの数値フィールドをDSum関数で合計したものを
ソースにしたクエリを作ればよいのではないでしょうか？
どうしてもテーブルにしたいとか任意のタイミングで更新したいってことなら話は別

FOM出版のAccess2007基礎、応用で勉強を始めたばかりの初心者です。
上記2冊以降、どの書籍を参考に勉強すればよいかわかりません。
オススメの本を教えてください。
将来的にはマクロやVBAが使えるようになりたいと思っています。

>>226
vbaやるんだったらネットで覚えた方がいいんじゃないかな
本読みながらコード打つの面倒だしMSDNのリファレンスも便利

一応俺の御用達サイト群
ttp://hatenachips.blog34.fc2.com/blog-category-5.html
ttp://www.accessclub.jp/
ttp://msdn.microsoft.com/ja-jp/library/cc348157.aspx

Freeで提供してくれている、Accessのデータベースをダウンロードして、
仕組みを探ってみるのも勉強になるよ。２００７なら、ノースウィンドがお勧め。

有料のmdbのコードを見たらVBAの本に載っていないコードがたくさんあった。
やっぱり、VBの勉強が必要なのかな？

その＞有料のmdb
ってどんなの？

>>230
売っているmdbファイルということ。
普通にあるじゃん。なにが疑問なの？

>>上記2冊以降、どの書籍を参考に勉強すれば

上記2冊が死ぬまでツンドクになるだけだから次のことなんて考えなくていいよ

DoCmd.OpenForm "フォーム1", , , , , acDialog

『フォーム１』をモーダルで開きたい場合は↑のように通常なら書くと思います。
ですが↑だと、フォーム１のサイズを変更できなくなってしまいます。

今やりたいと思っているのは、フォーム1をモーダルで開き、尚且つフォーム1のサイズはマウスで自由に変えれるようにしたいのです。

そのようなことは可能なのでしょうか？

可能。

313 名前： すずめちゃん(アラバマ州)[sage] 投稿日：2009/01/24(土) 17:19:53.45 ID:97CqafnI
特許庁のシステムとか、西武百貨店のシステムとか、三井リハウスのシステムとか
アクセス→SQLサーバー接続で作ったシステムです
それぞれ、プロが数千万円の報酬や助成金で作った、総額ん億円のシステムです
プログラム作成のお勉強見本としてドゾー

[殺人] Administrator(20081230-101522)のキンタマ.zip 2,263,376,860 09ed98f10653c3fc2555621ceeed6bc33e8f6228
[殺人] Administrator(20081230-101522)のメール.zip 59,426,579 4da9459b30eec31f58b86530dbb48d1cf86ef4be
[写真集][IV] Administrator(20081230-101522)のアルバム.zip 2,205,946,474 9d87cc0e08dc0e3afd959fcead6c48d569787cee

476 名前： すずめちゃん(アラバマ州)[sage] 投稿日：2009/01/25(日) 12:02:20.71 ID:pNrDVo49
解析班のために岡ちゃんが流出させた上のファイル全部うｐしとく
パスは　135　ね
解凍したら全部で６Ｇあるから注意してね ウイルス削除済み
(p)http://www.adrive.com/public/7d08fe24675fa758db8ab29ba4cae136e10a2d9958ce415d2f248de84871eb52.html
(p)http://www.adrive.com/public/a300a6e3cecf155dda7f8c1843a9280da156b41119f79d58644217407ad6652d.html
(p)http://www.adrive.com/public/002efa3ac3b17864e3839888a0de348b1c565c1f24f226e403086491af4adb71.html
(p)http://www.adrive.com/public/945451d37fe9b7c3e609f5915f7abf0c9afaa1d78149ede318b38ac1724a79bc.html
負荷分散のため分けた。
全部同時にＤＬすれば早いぞ１時間位　全部ＤＬしてから解凍してくれ

拡張子.dbxは下のフリーソフト使えば見れるようになるよ
(p)http://www.asahi-net.or.jp/~tz2s-nsmr/soft/dbxview/ne03ws.htm
拡張子.mdbはエクセルで開ける　起動フォームでテーブルがブロックされるものは
シフトキー押しながら起動で解除してテーブル見る

中のファイルのパスは　DD`(4Y 　か　test　で　だいたい開ける
それでもダメなら報告してね 皆で解析するからｗ
後、個人情報を悪用したらダメだよｗ解析用だけにつかってねｗ

2007SP2にしたが、相変わらず日本語版は埋め込みマクロをVBAに変換できない
何とかしろよ

桐に（ｒｙ

うん、もう桐が良いよ

だからおれが最初からVBAにしとけってあれほど言ってたのに
なんでマクロでアフォみたいに大量に書いちゃうの？
アフォなの？

>>226 です。

アドバイスありがとうございます。
ネットだといろいろあるのですね。
ただ2007対応の書籍となると皆無といったところでしょうか？

>>235　の人が何か上げてるみたいですが・・・
違うのかな

ADOとかDAOで条件式書くときに結構苦労してるんだけど
どっかいい学習先ないですか
'とか"のちょっとしたで動かなくて
エクセルと違って大変ややこしいですね

>>242
まじめに勉強したいのだったら、一冊ぐらい本買おうぜ。
’や"のどこが条件式なのだろう。
"内での文字列は’で囲うと覚えておけばいいよ。

本は4冊はあるんだけどコツとか書いてないかったりして、
実際動かすの苦労するんです、とりあえずそれは肝に銘じておきます。
ありがとう。

>>242
Accessでクエリを作成->SQLを見てどうなっているかを解析する
＃その前にSQLの本を、ちゃんとこなすこと　かな
それを繰り返していけば、かなり使えるようになると思うよ
＃union 以外は
マクロ＋クエリをVBAベースに書き換えた経験がかなり役に立った
＃オリジナル作った奴、殴りたいと思ったけどｗ
クエリを多重に使った他人のmdbのメンテはできねーよ
SQL一発で終わるものは、それで書けよ　全く

データシートで、右クリックでレコードコピーして、新規行のレコードセレクタで貼り付けしたら、どうなる？
自動的にトランザクションモード？
この動作で良いんか？

2007SP2だけ？
新規行にレコードコピーして編集したら、一度閉じて開いた後に、編集結果残ってる？

いま公式ブログの2007 SP2エントリ見直してきたけど、
コメント欄がSP2バグレポと罵倒の嵐になってるなｗ

XP Access2000です
以前にも質問させて頂いたものですがまた教えてください

顧客　受注日　のデータからリピート間隔を調べています

２回以上の受注をした顧客の　最初の受注日と２回目の受注日の間隔と
それが１００日ごとに何パーセントの率であるかを調べなければ行けなくなりました
今回のデータ件数は５００００件位あります

古本屋で購入したりして調べたのですが方法がわかりませんでした
どなたかご教授下さいませ

名前　受注日　　　　　経過日数
あ　　２１／２／１　　　　０
い　　２１／２／２　　　　０
う　　２１／２／４　　　　０
あ　　２１／３／６　　　３３
い　　２１／３／１５　　４９
あ　　２１／５／２４　　７９
う　　２１／６／３０　１４３
い　　２１／７／２５　１３２

まず、経過日数を求めるために顧客毎に絞り込み受注日で並び替えて
顧客名の数だけ繰り返して置換します。
次に期間を指定して受注件数を集計します。
経過日数が100日以内の顧客だけを絞り込みます。
件数を集計します。
　期間がどのように指定するかで、プログラムの組み方が変わると
思います。
　毎日のリピート率が必要なら、顧客名と受注日が解った時点でイベント
を使い経過日数を書き込むようにした方がいいと思います。
　そうすれば、集計だけなので短時間で終わると思います。

アクセスはクエリーとVBAで頑張って下さい。

having count(受注日) > 1 の顧客毎にmin(受注日)
あとはループ　group by 顧客, 受注日, etc の結果を
min(受注日)＋100日ごとに集計かな・・・・
# SQL は VBA で作る。case 使えれば楽なんだけど
かな？

>>249
集計クエリは作れる前提として…

１．テーブルを元に、顧客をグループ化して受注日の最小値を集計する
クエリを作成する。（クエリ1）
２．テーブルとクエリ1を元に、受注日の最小値より大きい受注日を持つ
データを選択する。（クエリ2）
３．クエリ2を元に、顧客をグループ化して受注日の最小値を集計する
クエリを作成する。（クエリ3）
４．クエリ1とクエリ3を元にすれば、受注日(初回）と受注日(２回目)が
求められます。
※今回は理解しやすいようにクエリを分割して作成しました。

あと、１００日ごと…の部分は>>250さん、>>251さんの解釈で良いのでしょうか？
私には意図するところが理解できなかったので省略させてください。

色々と試したら
Recordset.MoveLast したら新規レコード保持できた、何故か以後は保持できるようになった

あと、新規行にレコードコピーするたびに、ヘッダに置いた非連結テキストボックスの更新後イベント発生するのは以前から？

AC2000:
コードとBooleanの2フィールドを持ったテーブルがあります。
これを元にBoolean型フィールドをチェック/アンチェックするフォームを作成したのですが、
通常の作りでは縦に並んでしまい使い勝手が悪い。なので、例えば
1で始まるコード、2で始まるコード…
といったようにグルーピングして設置したいのです。
サブフォームを使えばどうにでも出来るのですが、
もっとスマートなやり方はないもんでしょうか。

もう桐にするよ

／(＾o＾)＼ﾅﾝﾃｺｯﾀｲ

Accessなのに桐桐舞い　とは、これいかに

お後がよろしいようで

確かに柔軟なフォームやレポートは桐で簡単に作れるよ。

一般的なデータベースの実務的利用なら
レコードの操作は、
・単純に合計する
・ある抽出条件で抜き出す
・クロス集計する
・指定順に並べる
・・・・・
ぐらいなもんで済んでしまう。
あとは、これらを排他なしで保持して、別のフォームやレポートに
流用できればいいのだから、クエリー系が簡単なやつがいいよ。

最新バージョンは何時になってもバグ大杉で安定はまだまだ先
安定したころにはOSのサポートなくなって使えない
以下ループでMSに無限にお布施

Win7でAccess2003は対応するのかな？

オフィス2010のアクセス2010が対応するんじゃね

じゃ、またお布施ってことで

なんでOSをコロコロ変えるの？
俺は今年の2月WinXPのアップグレード版の箱を初めて開封したよ。もちろんSp2じゃないよ。
OSなんて枯れたのが一番。Win2Kがいちばんだけど、動画ソフトが対応していなかったからやむなくXPの箱を開封したよ。

OSはともかく、
Accessって使ってるバージョンが古いと
新しいバージョンで作ったファイルを
開くことすら出来ないことがあるから困っちゃうわ

サポート終了してるOS使ってる男の人って。。。

Ｗｉｎ３．１でごめんなすって

>>265
安定感抜群。

枯れてるのが最良なら死ぬまでMS-DOSでも使ってればいいのに

ウインドウズなんて、みんなＤＯＳじゃんｗ

access2007
レポートをexcelにエクスポートできるんだが、
なぜにxls形式なのだろうか。
さほどの影響はないけど、変だよね

2007SP2でデータベース構造の解析のテーブル定義の印刷を
実行した際にフィールドのサイズが表示されないのは
何か設定をしなければならないのでしょうか？

原始発売当初から十数年経ってなお、ちっとも進化していないAccess

初歩的な質問ですみませんが、どなたか教えてください。

アクセスのフォームでタブコントロールを配置しました。
全ページ同じ項目を配置し、全ページ同じ形式(単票)です。
ページ１、ページ２、ページ３・・・で、非連結状態です。

その中で、特定のページにのみデータを表示したいのですが、
うまくいきません。どうしてもページ１にだけデータ表示されます。
例えば、ページ３にだけデータを表示したい場合はどうしたらいいでしょうか？
特定ページをどのように書き表したらいいでしょうか？

説明が抽象的でスミマセンが、どなたか宜しくお願いします。

Access2007で作った CommandBarControl objects は削除できないのか orz

>>273
ちゃんとタブコントロール内に配置できているの?
タブコントロールの上に重なっているだけじゃないよね?
まぁ、タブ内のコントロール配置が同じなら、俺は後者でやるけどな。
あとは表示したいページに切り替わったら、データぶち込めばいいだけだし。

ちなみに

Me!タブコントロール名

でページインデックスが参照できる。
簡単に言えば、ページ数-1の値が得られる。

2007でフォームを使ってデータ入力してEXCELに出力して印刷、
あるいはテーブルで表示して印刷したいのですが
当日のみのデータだけ必要なのですが、前日のデータが残っていていちいち
削除しなければならないので、自動的に前日のデータを削除する方法、あるいは、
印刷が終わったら、アクセスを閉じたら削除される方法を教えて下さい。
初心者なのでVBAとかよくわかりません。

>>277
クエリ使えよ。
ところで、日付が入力されている列はあるのだろうな。
あるのだったら抽出条件にDate()とでも入れておけ。
削除も同じ。削除クエリで抽出条件に<Date()で今日以前のデータは削除される。
削除する必要があるかは疑問だが。

データベースでは基本的に古いデータを削除しません
全体から必要なデータだけ抽出して処理します

当日のデータのみ処理する場合は、当日のデータのみ抽出します

【Access 開発者用リファレンス 】
　　フォームのフィルタを使用してレポートをフィルタする方法
を検索参照してください

>>278
フォームのヘッダに日付を入れてるだけです。
いったん印刷をかけてしまうと、そのデータは全く必要がなくなるので、
次の日、またデータ入力する際には、もう前日のデータがなくなっている
状態にしたいのですが・・・。自動的に閉じるときとか、次に開くときに
削除されている状態にはできないでしょうか？
削除クエリとは、そのつどやるんですよね？

>>279
見てみます、ありがとうございます。

>>279
フォーム作っているなら、削除ボタンとか作ったら?
最良と思われるのは印刷もAccessのレポートを使って
フォームに印刷ボタンを配置してボタンが押されたら
印刷→削除を実行させることだろう。
VBAが解らないのなら、コマンドボタンのウィザードで印刷ボタンと
クエリの実行（削除クエリは作っておく）で削除ボタンをつくり
削除ボタンでできたコードをひとつにまとめてしまえばいい。
2007は持っていないのでようわからんが、同じような機能はあるだろう。

そんな処理なら
なぜにアクセスが必要なんだろうかって気もするな

>>280
その設計思想は基本的に駄目だろ。
中座するのでAccessいったん終了した場合はどうなる?
データに日付を持っていないなら、>>282みたいに確実にデータがいらなくなった状態がわからないと。
テーブル構造を変えられるのなら、日付フィールドを追加する（フォームに表示する必要なし）。
規定値にDateと入れておけば、レコードが増えるたびに勝手に入力日付（正確にはシステム日付）が入るから
フォームイベントの開くときにでも、今日以外の日付を削除するコードを書けばいい。
そうすれば>>278も使える。

>>277
まったく>>283の言うとおりなんだが、
あえて現状を利用するとするなら
データの入ってないデータベース(Accessのファイル)をどこかにコピーしておき
新しくデータを入れるときにそれをコピーしてきて使うというのはどうか?

>>277
InfoPathでテンプレート作るとお望みの通りになる、便利だぞ
Acrobatでフォーム作っても出来そう

acrobatがほしい、安く譲ってください

体験版に、KeyGeneがネット上にあるよ

この店で売ってる
http://www.hhyyhh22.co.nr

いい加減に潜と通報するぞ

今日以外の日付を削除するコードとはどのようにやるんですか？

すいません、できましたありがとうございました。

いえ、どういたしまして。

もちろん手動で一ずつ消していけばできる

>>275
ありがとうございます。うまくいきました。
VBAは便利だけど、毎回奮闘ですわ。

Now accepting nominations for Access 2010 Technical Beta program
I’m pleased to announce the Access team is taking nominations to participate in the Office 2010 Technical Beta program.
We expect availability of our first beta release, known as Technical Preview, in the month of July. The team is excited to get feedback from our community that will help us make this a great release.
Here is your opportunity to nominate yourself to participate in the program (space is limited).
If you are interested in beta testing Access 14 please complete the following nomination form (you will need to log into Microsoft Connect with a Live ID).

We look forward to hearing from you.

P.S. Access MVP are already nominated and need not apply.

Aさん・Bさん・Cさん・Dさん・Eさんの5人がいるとして、
りんご・いちご・バナナ・ぶどう・すいか・オレンジ・メロンの７つの果物があります。
人は今後追加していきますし、果物も追加していく予定です。
Aさんをクリックしたら、果物リストの中からAさんの好きな果物のみを表示する事はできますか？

できません
Aさんの好きな果物データを入力しておく必要があります

>>298
そうでしたか。。
了解致しました。どうもありがとうございます。

>>299
人工知能の実装とかしたいのか？
Aさんがりんごを好きだという情報はどこで入れるんだ？

>>297
突っ込まれているように、登録された人物に好きな果物という情報が必要。
一番単純なのはりんご・いちご・バナナ・ぶどう・すいか・オレンジ・メロンという列を作ってフラグを立てることだろう。
しかし、これは発展性のない作りなのでお勧めしない。
多少Accessに慣れた人なら、恐らく登録メンバーテーブル（メンバーID、氏名、好きな果物）と果物テーブル（果物ID、果物名）作る。
ここでミソなのが果物テーブルのID。ここを1、2、3、4…という連番ではなくて2の乗数にする。
そして登録メンバーテーブルの好きな果物には果物IDをいれ、複数回答の場合は合算したものを入れればよい。

> 連番ではなくて2の乗数にする。

出し入れのスマートな方法も書いてよ

それ果物が10個程度ならIDの最大値は2^10で済むけど
20個とか30個以上に増えた場合のことを考えると
むしろより発展性がなくなってるような気が・・・

>>303
31個までなら長整数型でいけないか?

>>302
果物テーブルにはフラグフィールドも必要だった。
書き込みはXor、表示はAndで楽勝でしょうが。

もっと簡単にやさしくお願いします

【 システム環境　 . 】 Windows98, Access2000
【 VBAが使えるか .】 はい
【 VBAでの回答　　】 可
【 検索キーワード　】結合式がサポートされていません

テーブルの構成
TABLE1 : ID1, STR1
TABLE2 : ID1, ID2
TABLE3 : ID2, STR1

TABLE1に次々と項目が入力されていきます。
オプション項目が選択されたときのみTABLE2に項目のIDとオプションのIDが記録されます。
オプションの項目はTABLE3の中から選ばれます。

このとき、ASPで
select * from (TABLE2 inner join TABLE3 on TABLE2.ID2 = TABLE3.ID2) right join TABLE1 on TABLE1.ID1 = TABLE2.ID1
をexecuteすると、結合式がサポートされていませんというエラーになります。
MySQLでは結合後NULLを含むようなものもjoinできるようなのですが、
http://homepage2.nifty.com/sak/w_sak3/doc/sysbrd/mysql_09.htm
AccessではたとえばTABLE2とTABLE3を結合させて配列に格納しておくようなことをしないといけないのでしょうか。
ちなみにrightをleftにすると、オプション項目があるもののみ抽出されてエラーは発生しません。

あ、TABLE3のSTR1はSTR2の間違いです。

>>306

ttp://www.f3.dion.ne.jp/~element/msaccess/AcTipsBitMask.html

の応用。このとおりでいいなら、果物テーブルはいらないけどね。

どうもアリガト
でも簡単ではない・・・
Access2007買って複数値フィールド

>>310
Do Until rs.EOF
rs.Edit
If (Me!好きな果物 And rs!果物ID) <> 0 Then
rs!Flg = True
Else
rs!Flg = False
End If
rs.Update
rs.MoveNext
Loop

これだけだよ?

わるい。途中で送信しちゃった。
やっていることは、好きな果物で登録された数値に果物IDが含まれているかをチェックし、
含まれていれば>>305で言ったフラグフィールド（Flg）をTrueに、そうでなければFalseにしているだけ。

けち臭いことスンナよ。
普通に一対多のリレーションでいいだろ。
ラブラブランクも登録できるようにするべきだ。

一対多じゃなくて多対多ですわ。

毎回レコードセット回すのか？

始めからテーブル一つで良いでしょ

>>307
TABLE2とTABLE3を結合させてクエリとして名前をつけて保存しとくといいよ。

Accessでサブクエリなんて・・・

>>317
なるほどさんくす。
やっぱ無理なのか。
将来的にMySQLに移植しようかと思ってるんで、できれば使いたかったんで質問しました。

>>315
こういうのも面白いと思ったのだが……
って俺へのレスでいいんだよね?

>>310
普通に、メンバーIDで1対多になる「好きな果物テーブル」でも作れば?

xp 2003 VBA可です。

商品マスタテーブルからクエリを作成して、そこにテーブルの項目：原価、売価を
使用して、粗利（円）、粗利（パーセント）の演算項目を追加したところ、クエリの項目の更新ができなくなりました。
原因がわかる方いたしたらおしてください。

商品マスタテーブルだけじゃなくて他のテーブルに結合してないか？

>>321
してます・・・。
してると問題あるんでしょうか？

わかる方いたしたら

私の陰茎の結合先がNULLなのですが、結合先を膣にするにはどうしたらいいでしょうか

金貯めてソープ

自己結合という手もあるよん。

>>307
SELECT * FROM TABLE1 INNER JOIN
(TABLE2 INNER JOIN TABLE3 ON TABLE2.ID2 = TABLE3.ID2)
ON TABLE1.ID = TABLE2.ID1;
クエリ作ってSQLで表示＜結構役に立つ
Accessはこのあたり癖があるみたいだね

ちがってるわ　すまんｗ

SELECT * FROM TABLE1
LEFT JOIN
(select * from TABLE2 INNER JOIN TABLE3 ON TABLE2.ID2 = TABLE3.ID2) tb1
ON TABLE1.ID = tb1.ID1;
でいいのかな

>>324-326
君らみたいなのをこのスレで見たのは初めてだよ
ある意味新鮮だったな

Ａｃｃｅｓｓは中途半端だなぁ、桐の方が良いよ

空気読めなくてごめんね　今時Web上で共有知識も探せないようなソフト誰があえて使うんだよ…

>>331
桐も中途半端だろ

まあAccessは同じことをするのに色々な方法があるけど、桐はヘルプだけで十分だしな。

アクセス２００７買いました。
開発者用ヘルプと格闘して数カ月、解らないことがあります。

*Property プロシージャ
*RaiseEvent

この２つは、無意味で使わなくても良いとの理解なのですが、どんなもんでしょ？
使うと却って遅くなって、使うと多少カッコ良いかも程度の意義しかない、であってますか？

VBA でクラスモジュール使うときに使うね＞Property プロシージャ
>無意味で使わなくても良い
というものではない。使うとうれしいことはある
＃VB6のsubmainでiniファイルの読み込みをするとか
dbへのアクセス周りをラップするとか
＃自分はそう使ってるわけではないけどね
そのあたりちゃんと説明してある本があるかな・・・？

RaiseEventは使ったことがないなぁ・・・

>>332
日本語でおｋ

俺は、どちらも使ったことない orz

>>335
クラス使うならどちらも必須。日常的に使う。
だからPGのスタイルによる。OOPが分からないなら、使えない。
必要性がわからない段階では、無理して使う必要はない。
でも使いはじめると、もうそれ抜きでは設計できなくなる。

CSVデータをインポートする時点で絞り込みをかける方法はありますか。
現状、大量のCSVデータを一時テーブルに取り込んでからメインの処理を走らせているのですが、
データ量によっては取込完了前にACCESSの限界容量2Gを超えてしまいます。

現状は取り込みを何度かに分け、その都度
一時テーブルの不要データ削除→最適化
で凌いでいますが、非常に効率が悪いと感じています。

元となるCSVデータは固定であり、変更できません。
よろしくお願いします。

CSVデータは月別に複数のファイルに分かれています。
使用するデータ（期間）は毎回異なるため、リンクテーブルは使えません。

一時テーブルもmdbを別ファイルにしてリンクテーブル使えば？

アクセスＶＢＡでクラスって普通のフォームモジュールだろ？

>>340
1ヶ月分のCSVファイルをインポートしても2GBの壁を越えないのであれば
こんな感じのファイル構成を考えたらどうかな？

・Main.mdb　プログラム格納
・MonthlyData.mdb　CSVファイル1ヶ月分のインポート先（一時ファイル）
・SelectedData.mdb　MonthlyData.mdbから抽出されたデータの格納先（一時ファイル）

１．SelectedData.mdbを作成
２．SelectedData内にSelectedTableを作成
３．MonthlyData.mdbを作成
４．MonthlyData内にMonthlyTableを作成
５．MonthlyTableにCSVファイルをインポート
６．MonthlyTableから必要レコードのみSelectedTableへ追加
７．MonthlyDataをファイル削除
８．必要な月数だけ３〜７を繰り返し
９．必要データが蓄積されたSelectedDataを元に処理。
10．処理完了後、SelectedData.mdbを削除

作り込むのは面倒かもしれないけど、>>342の言うように別ファイルにして
処理後に削除するようにすると最適化が不要になるよ。

>>343
そう。
だから、そんなようなクラスを自分でも積極的に設計して使うのか、
それとも組み込みのクラスだけを意識せず受動的に利用するのかっ
ていうスタンスの違いが出るね。
システムの規模が小さかったり、連結フォームでデータ出して終わり
とかだとクラスの使いどころが無いから、状況によるけど。

質問者さんはヘルプで勉強中みたいだから、10行ていどの使用例
見てる分には、クラスの必要性を実感できなくて当然だと思う。
たぶん、クラスを使わないでスパゲッティになってるシステムの保守を
やらされたとき、逆説的にクラスのメリットを痛感するかもしれない。

xp 2003 です。

初心者の質問で恐縮です。
エクセルファイルを開いて、値を参照したいのですが、getobjectでこけてしまいます。
アドバイスください。ライブラリは参照しています。
エラーメッセージは「実行時エラー１３　型が一致しません」です。

Dim appexcel As Excel.Application
Dim wb As Excel.Workbook
Dim wsh As Excel.Worksheet
Dim path As String
Dim i As Integer

path = "C:\Documents and Settings\xxxxxxx\デスクトップ\xxxxxxxl.xls"

Set wb = GetObject(path) ←ここでこけてしまいます・・・。

Set wsh = wb.Sheets("xxxxxxxx")

オプション追加して、
Set wb = GetObject(path,"Excel.Application")
でどう？

だめなら、とりあえずwbを単なる総称オブジェクトにするとか試してみな
Dim wb As Object

おっと、この場合なら、本体の"Excel.Application"じゃなくて
"Excel.Sheet"が正しかったっけかな

>>336
>>339
>>345

有難うございます。

> システムの規模が小さかったり、連結フォームでデータ出して終わり
> とかだとクラスの使いどころが無いから、状況によるけど。

連結フォームを卒業したら改めて勉強してみようと思います。

俺様メモ

***ここまで読んだ***

>>340
2G超えるなら素直にSQL鯖使ったら？
EXで４Gの制限あるけど

>>347
早速試してみます。ありがとうございました！

2007でフォームの入力でルックアップを使っているのですが
リスト項目の編集というのがあってフォーム上で追加できますが、
2000ではどうやるのですか？同じようなことはできないのでしょうか？

XP, Access 2000
VBAでお願いします。
CSVをMDBにインポートする。（テーブル名＝CSVファイル名で新規テーブル作成）
条件：取り込み対象のCSVの項目（ヘッダ：フィールド）数は、いつも同一とは限らないです。（可変であります。）
インポート定義は、項目数が異なる為、使う事ができず、どうすれば取り込めますか？
ファイル名_インポートエラーというエラーテーブルが作成され、F1項目のテーブルが作成され、困っています。

>>353
できません

可変の時点で定型のインポート処理は無理
桐でも使わんことには・・・

>>356
schema.iniの作成は可能です。(FSOで。)
csvファイルと同じディルクトリに配置するところまでは分るんですが、
Access.DoCmd.TransferTextでは使えないですね。
別にAccess.DoCmd.TransferTextを使わなくてもよいです。
schema.iniを使った登録方法がよくわからないです。
サンプルコードとかあっったら、教えてください。

>>354
1行目にヘッダがあれば　その名前使って create tabel した後
取り込めばいいかと思うけど　access で　create tabe　やったことねーな
でも各項目の型はどう判断するの？

ヘッダーのMAX＆Typeが定義できるなら(できないと無理だと思うよ)
それでテーブル作って、
ヘッダーの項目名みながらsql文を作って食わせればいいと思うけど

>>358
型は全てテキストで統一です。（CSVデータは全てテキストだから。日付・数値は存在しません。）
CSVデータの項目数と同じフィールドのテーブル付くって、(CREATE TABLE)やるしか、方法はないのかなぁ。orz

>>354
逆に聞きたいのだが、項目数が可変でどうやって定型処理をしているの?
あと、csvはフィールド名つき?（F1がどうたら言っているから、ないとは思うが）

>>360
VBAで、フィールド分ループして処理を実行します。
CSVはフィールド付きです。（取り込む際は、フィールド名として使います。）

フィールド名もデータとして取り込んでしまえば?
項目数が可変とはいえ、Accessの制限からは逃れられないのだから
254フィールド（最後列はオートナンバー）のテーブル作ればメチャ簡単。

>>354
select intoでfromにCSV指定すればいいんじゃね。
select直後の列リストの部分を動的に生成すればいけそうだけど。
場合によってはsceme.iniとの合わせ技で。
よく分からなかったら「select into csv」でググれ。
ただし試してないので結果的にダメだったらｽﾏｿ。

ADOでなんとかやってみます。

ドリフだとここで全員倒れる感じ。

ダメだこりゃ！

歯磨きしろよー

オナニーしろよ！

話がそれてきましたが、このへんでおしまいにしましょう

次行ってみよう！

ババンバ、バンバンバン♪

Accessのレポートがバカだから我が社で桐を２０個買いますた

自社製品は何割引？

Access2003（WindowsXP)で作成してます。
グラフウィザードで作ったのレーダーチャートで、
すべての項目が１０以下の時も最大値を１０固定にしたいのですが、
これは実現可能でしょうか？
可能でしたらその方法をご教授お願いします

桐２０個はちょっと買いすぎ
そんなに大きな会社なのか？

アクセス2000です。Noテーブルの1から1000迄の連番主キー[No]
と商品テーブルの[商品名] を商品の[枚数]でユニオンクエリー
を商品フォームの 印刷コマンドボタンのクリックイベントに書
くだけで新しいテーブルを結合してレポートに印刷したいので
すが、[No]を[枚数]の変数「mai」での絞り込みと商品テーブル
の商品コード　Me![商品コード]で求めた変数値で1件にする
書き方が解りません。

開いているフォームは商品だけです。

レポートを開くだけで印刷できますか。
「？？枚印刷しますか」とメッセージを簡単に表示できますか

けっこう勉強してるみたいだけど
ムリせず母国語で書いたほうが伝わるかもしれないよ

>>376
少し落ち着きましょう。
まず関連する全てのテーブルの構成を１つずつ明確にしてもらって、
次にレポートの元になっている（？）ユニオンクエリーがどんなものか、
それをどんな風に印刷したいのかを分かるように書いて欲しいかな・・・と。

テーブル名　構成主キー　　　　　　その他
No　　　　　[No]数値
商品　　　　[商品コード]数値　[商品名]文字列[枚数]数値
イベントでユニオンクエリーを作って例えば枚数が235
だったら
[No][商品名]
１　　これ
２　　これ
235　　これ
タイルレポート
[商品名]　　　[商品名]
[商品名]　　　[商品名]
[商品名]　　　[商品名]
[商品名]　　　[商品名]

桐だと
所属対象表項目データ型抽出更新禁止絞り込み条件
No.tbl　　[No]カウンタ　レ　　レ　["No.tbl".No]=<&秒
商品.tbl[商品名]文字列　レ　　レ　["商品.tbl".商品コード]=&分
アクセスだと
フィールド[No] [商品名]
テーブル　No　　商品名
並べ替え
表示　　　レ　　　レ
抽出条件
または

フィールドからまたはの部分をイベントで作りたい

頼むから日本語で書いてくれ

>>376
イマイチ把握できんのだが、枚数が235だったら
商品No1〜235までを抽出して印刷したいってことか。

簡単なことを簡単にやるには桐が丁度良いって見本だろ

>>379-380
いまいち理解できんのだが、ﾚﾎﾟｰﾄのRecordSourceにやりたい内容の

ｸｴﾘを放り込めば一撃なのは確か

クエリで、以下のExcelシート範囲を読む際、
空白セル($C$1)が存在する場合、該当項目(C列)が取得できません。
SELECT * FROM [Excel 8.0;HDR=NO;Database=C:\Book1.xls].[Sheet1$A1:C1];

へっだ--->A,B,C
$A1:$C1--->あああ,いいい,

クエリで、以下のExcelシート範囲を読む際、
空白セル($C$1)が存在する場合、該当項目(C列)が取得できません。
SELECT * FROM [Excel 8.0;HDR=NO;Database=C:\Book1.xls].[Sheet1$A1:C1];

へっだ--->A,B,C
$A1:$C1--->あああ,いいい,

Access2007です。
外部DBにADOで接続して作ったレコードセットを
レポートのレコードソースにしたいんだけど無理?

レコードソースにIN句を使ったSQLを指定すればできるんだけど
デメリットとか気をつけなければいけないことはある?

強いて言うならお前の存在がこのスレのデメリット

>>388
気にするなよ。俺も同じことを知りたいよ。

>>388
非連結レポート？
帳票ならレポート用のテンポラリテーブルに流したほうが
工数少なくなるのでは？単票1レコードならありかも。

レポートのRecordSetプロパティには制限あるってことだろ？

Report_Open時
　recordset取得
詳細_Print時
　コントロールに値挿入
　rs.MoveNext
こんな流れになるんじゃねぇの

IN演算子の有無が質問の主旨とどう関係してくるのか
まったく分からない

>>390
ありがとう
オレ打たれ弱いんで嬉しかったよ

>>391
連結で帳票レポート。
フォームで試してみたんだが
直接レコードセットを指定するのとローカルに読み込んでからでは
結構時間の差が出たんでできれば直接レコードセットを指定したいと思って

単票のときはひとつひとつ値を代入していけばいいんだ!
こりゃいいこと聞いた
ありがとう

読み込んだデータの再利用も含めて
テンポラリテーブルの検討もしてみます。

>>392
外部テーブルが A.accdb の tbl_B だとして
レポートを開くときに
me.RecordSource = "select * from tbl_B in 'A.accdb'"
とやればできるってこと

>>392
IN句とIn演算子は違いますよ。
ttp://makotowatana.ld.infoseek.co.jp/access/dasqlin.htm
ttp://makotowatana.ld.infoseek.co.jp/access/dasqlinoper.htm

>>388　単票でも表形式でも同じなんだが、
Form1でフィルターとソートしてあるRecordSetを印刷する
として、Cloneをレポートで使用。詳細セクションに配置した
コントロール名とRecordSet.Field名は同一とする。

Dim rs As New ADODB.Recordset
Private Sub Report_Open(Cancel As Integer)
 Set rs = Forms("Form1").RecordsetClone
 rs.Filter = Forms("Form1").Recordset.Filter
 rs.Sort = Forms("Form1").Recordset.Sort
End Sub
Private Sub レポートヘッダー_Format(Cancel As Integer, FormatCount As Integer)
 rs.MoveFirst　’印刷プレビューするなら先頭移動が必要
End Sub
Private Sub 詳細_Print(Cancel As Integer, PrintCount As Integer)
 Dim Ctr As Control
 For Each Ctr In Me.詳細.Controls
    Ctr = rs(Ctr.Name)
 Next
 rs.MoveNext
 If Not rs.EOF Then Me.NextRecord = False
End Sub
Private Sub Report_Unload(Cancel As Integer)
 rs.Close: Set rs = Nothing
End Sub
パフォーマンスは知らん。
My備忘録に加えたのでついでに投稿

>>395
すごい!
まずフィルタとソートを引き継げるっていうのがいかしてるよな。
コントロールに代入するところも
me.textbox名=rs.fld名
って感じで一件一件書き起こすことを考えてた。
NextRecordプロパティ?
そういやそんなのあったなって感じ。
(だから「単票のときは…」ってなった)

>>391 はこのくらい当たり前って思うかもしれないけどホントにすごいよ。
オレのレベルじゃ全く思いもよらなかった。
やっぱここで聞いてよかった。

今Accessが手元にないんで週明けに試してみます。
大感謝です。

>>396
>>391じゃないけど捕捉。
詳細セクションにTextBox以外のコントロールが配置されてる場合は注意が必要。
同じく、配置されているコントロールの名前は必ずフィールド名に対応している事。

me.ControlName=rs(FieldName)でコツコツもお好み次第っしょ。
FieldNameとControlNameを揃えるのは一つの方法ということで。
RecordSetのフィールドすべてをForm/Reportに流すんだったら、
Dim Fld As ADODB.Field
For Each Fld In rs.Fields
    Me.Controls(Fld.Name) = rs(Fld.Name)
Next
Tagプロパティ使って分岐させてもいいかも

チェックボックスが大きさも変わらないし色も変わらないし、どうやって使うの？
何これ
俺、何か根本的に勘違いしてる？

おまえは他のWindowsアプリで長巨大チェックボックスとか見たことあるの？

桐ならONのときの色を設定できるけどな。

>>401
さすが、Windows対応のソフトですね。
あ、64bit版Windowsには非対応でしたか。失礼しました。

>>399
チェックボックスに連動するコマンドボタンで代用しとけば？
Private Sub btn1_Click()
Me.chk0 = Not Me.chk0
Me.btn1.Caption = Me.chk0
End Sub

>>403
ありがとん
でも、表形式フォームで試してみたら何か変、オンオフで全部変わっちゃう

>>404
トグルボタンだな。少し見難いから工夫してさ。

実際作成する前の、テーブルやなんかの作り方の話で相談させて下さい！
分割支払いを管理するDBを考えてます。

今、下の(1)のようなテーブルがあって、これをサブフォームやら使って、
(2)のように表示したいのですが、どういう処理をしたら良いもんですか？


(1)テーブル1
No　案件名　支払開始日　 支払終了日　総回数　総金額　単月金額　端数　・・・・
1　　案件A　 2009/01/01　2009/12/31　　12　　 \35,000　 \2,916　　　\8　・・・・
2　　案件B　 2009/01/12　2010/01/11　　12　　 \59,248　 \4,937　　　\4　・・・・
3　　案件C　 2010/03/15　2010/07/14　　 4 　　 \30,012　 \7,503　　　\0　・・・・

(2)月別支払予定
No　案件名　　09/01　09/02　 09/03 ・・・　 09/11　09/12　翌年以降
1　　案件A　　\2,924　\2,916　\2,916 ・・・　\2,916　\2,916　　　　　\0
2　　案件B　　\4,941　\4,937　\4,937 ・・・　\4,937　\4,937　　　　　\0
3　　案件C　　　　 \0　　　 \0　　　 \0　・・・　　　 \0　　　 \0　　\30,012



※端数は初月に含む。　　　←この処理が全然思いつかず、最も困ってます。

何か良い方法があれば、よろしくお願いします。

たびたびドウモです
トグルボタンの見栄えの工夫って、お勧めありますか？
条件付き書式も背景色も使えないんですけど

表形式の使い勝手をもとめるならば桐にしてください。

>>397
ありがとう。
レポートはこれから作るんで気をつけるよ。
後で見たときもわかるようにコードにコメントとして書いておいた方がいいな。

>>398
なるほど。
逆にフィールドの方を回せばコントロールに気を遣わなくていいということか。
必要なフィールドだけ集めたクエリを作っておけば楽ちんそう。

Tagプロパティなんて初めて知ったよ。
OpenArgsみたいに使えるんだね。


いやぁ明日が楽しみです。

>>406
支払日は毎月決まった日じゃないの？
特に案件Ｂは支払終了日が2010年なのに最終が09/12で翌年以降\0になってるし
単純な間違いっぽいけどキチンと整理してから作り始めた方がいいよ。

「※端数は初月に含む。」の処理は単に初回に端数を足せばいいと思うんだが

開始月、終了月、総額、対象月を渡せば対象月の金額を返す関数作るのが
結果的には一番シンプルになりそうな気がするな

>>399
access チェックボックスのサイズを大きくする
でぐぐってみれ。答えがある。
透明ボタンを配置するっておもすれー

>>412
アリガト、試してみる

時間があまりとれず>>395のやり方だけ試してみました。
比較のため一度ローカルのテーブルに読み込む方法もやってみました。

条件:3万レコードで1レコードにつき12フィールド表示
>>395の方法はフォームに一覧が表示されている状態から。
テンポラリテーブルはADOで接続してローカルに読み込むところから。
両方ともプレビュー画面が表示されるところまでで、2回目を測定しています。

結果は>>395が約3秒弱、テンポラリテーブル使用が約12秒。
圧倒的に>>395の方がパフォーマンスがよかったです。

みなさん、ありがとうございました。

>>406
・支払は月一回
・端数加算は初回 or 最終回
だったら、IIF関数を4段ネストでいける

透明ボタンを試してみたけど、透明ボタンに何の意味があるか解らない
テキストボックスをクリックイベントすれば同じじゃないんの？

テキストボックス単体で使った場合、クリックした後にフォーカスが
移ってキャレットが点滅するのを避けたかったんんじゃね？
漏れが書いたわけじゃないから真意は知らんけど。

キャレット表示がウザいからってEnabled=Falseにするとクリック時イベントが発生しなくなるから
ラベルのほうがいいかもしれんね

キャレットが点滅は、更新後処理：レコード保存　で対応した
元々チェックボックスは更新中になってウザイから、そうしてた

透明ボタンによるチェックボックス代替は、チェックボックスと
同様なキーボード入力も考慮してあるってことだべ

チェックボックスにフォーカスがあることがわかりにくいという
ことが感じられるから、Enter＆Exitイベントでラベルを強調する
ようにしてるかな。私の場合

努力は理解されてる？それとも自己満足？

Access2000 SP3 使ってます。

[生年月日] から 年齢を求める関数を VBA にて作成し、

年齢: GetAge([生年月日])

といった感じでクエリから呼び出しています。

しかし [生年月日] というフィールドが Null の時には VBA の関数が呼ばれません。

年齢: Switch([生年月日] In Null, -1, [生年月日] Is Not Null, GetAge([生年月日]))

とした場合でも、[生年月日] が Null のときでも -1 が入りません。
しかし、

年齢: Switch([生年月日] In Null, -1)

とした場合、[生年月日] が Null だったとき [年齢] にちゃんと -1 が入ります。

生年月日 が入力されていれば年齢が、入力されてなければ -1 を [年齢] フィールドに入力されるにはどうしたらいいのでしょう？

IsNull([生年月日])で条件判断するか、あるいはNz関数を使う

関数みなおしてみれば？
Public Function GetAge(BirthDay As Variant) As Integer
GetAge = -1
If IsDate(BirthDay) Then
  GetAge=**BirthDay使った年齢ロジック**
End If
End Function

>>423
ありがとうございます。
今、地方に飛ばされたので、週明けに家でやってみます m(_ _)m

>>424
VBA 側で確かめようにも、引数として渡してるフィールドが Null だと、
関数そのものが呼ばれないんです。
これはデバッグプリントや一時停止などで確認した結果、関数が呼ばれてない事に気がつきました。

DATE型の引数にNULLを渡して落ちるからよくわかんないけど
ON ERROR RESUME NEXT よしこれで落ちないとか
うんこなコードになってるに一票

ON ERROR RESUME NEXT は自前でエラートラップしたいときにしか使わないですし、
今回は ON ERROR RESUME NEXT 自体使ってないです。

しかも、エラーになるとか、不正で落ちるとか以前に [生年月日] が Null の行は
関数が呼ばれていません。

まあ、おまえがそう言うんなら呼ばれてないんだろう・・・・

おまえの中ではな

コードの中で、変数の宣言が行われたあとの最初の構文にブレイクポイントを設定して、
一時停止した際の引数の中身を見ると毎回値が入っていました。

表として表示してるクエリの実行結果を見ながら変数の中身を確認してると、
上から順番にちゃんと関数 GetAge が呼ばれて、引数に値が入っているのは確認出来ています。

そして、[生年月日] が Null の時は VBA は一時停止されず、次の [生年月日] フィールドが Null でない行へ進んでいます。

この挙動から 「これは関数が呼ばれてないんだな」 と考えましたが、ほかにも考えられる事項があるのでしょうか？

GetAgeの仮引数をVariant型以外で宣言しているので、
Nullを渡そうとして型不一致エラーで落ちているだけ、
というのが生前の親父の口癖だった。。。

それ以前に「[生年月日] In Null」でエラーにならないのが
アヤシすぎるが。

年齢: Nz(GetAge([生年月日]),-1)　でダメなのか？
もし、呼ばれないんならダメなんだよな

要は、GetAge() は呼び出されているんだけど、パラメータを渡す段階で型不一致エラーが
発生してAccess側で勝手にエラー処理されているってことです。
で、>>431の方法が一番簡単ですね。

あれこれ試してます的な意気込みのあるところはいいんだけど
なんでデバッグウィンドウで直接?GetAge(Null)を試さないんだよw

おれも>>426に0.5票
ユーザ定義関数使ってんだから-1出力も関数に組めばいいじゃん
と思って引数のデータ型はValiantにした。試すと>>422が期待す
る結果は得られた。
もしくは、
IIF(isDate([生年月日]),GetAge([生年月日],-1)
でいいと思う。2007だとInにはカッコが必要と怒られる。

どわぁ、実証と風呂してたら進行してるし...
>>431がいいね
Nzの引数、きちんと使えてなかった俺です。

ごめん、非常にどうしようもない質問で申し訳ないんだけど…
Access2000のDAOのレコードセットで
直前に開いたテーブルをクローズせずに
またOpenRecordSetしてしまうと、
なにか問題あるのかな…
ループで回している中で
スナップとダイナでオープンされた
レコードセットが一つずつ、
それがクローズされないまま、
次のループで使用されてます

以前のmdb見てて、そんな場所があったもので
気になってしまって…
デバッグプリントして内容見ても
問題なさそうで…
念のため、ヘルプでOpenRecordSetを見たんだけど
使用例でもクローズしないで、連続使用してる…

もしかして、AccessのDAOだと
連続使用する場合、クローズしないものなのかな…？

プロシージャの中で宣言された変数は、そのプロシージャの実行中だけ有効で、キーワード Static により静的変数として宣言されていない限り、
プロシージャの実行が、終了すると値は破棄されます。

>>436です
>>437
ひとつのプロシージャの中の事なんです
具体的には
For intCnt = 1 To 5
　WKCODE = 0
　strSQL="SELECT * FROM 商品マスタ WHERE コード = " & intCnt
　Set rsTemp=Currentdb().OpenRecordSet(strSQL,dbOpenSnapShot)

　If Not rsTemp.EOF then
　　WKCODE=rsTemp!コード
　End If
　　
　IF WKCODE<>0 Then
　　strSQL="SELECT * FROM 単価マスタ WHERE コード = " & WKCODE
　　Set rsTemp=Currentdb().OpenRecordSet(strSQL,dbOpenDya\naSet)

　　If Not rsTemp.EOF then
　　　rsTemp.Edit
　　　rsTemp!単価 = 0
　　　rsTemp.Update
　　End If
　End If
Next

本来のコードではないのですが
こんな感じで連続使用してしまっています
デバッグで見てみると、とりあえずオープン時に該当テーブルを問題なく開いているようなのですが･･･

>>436です
自己解決しました、お騒がせしました

とりあえず、全データをデバッグで表示しつつ
確認したところ、問題がなさそうだったので
このままにしておく事にしました。

DAOだと二重展開の時はエラーにならずに
また開けるんですね･･･

逆に分かりにくいような(--;

>>438
Set rsTemp=Currentdb().OpenRecordSet(strSQL,dbOpenSnapShot)
Set rsTemp=Currentdb().OpenRecordSet(strSQL,dbOpenDya\naSet)

同じ変数だから同時には存在しないんじゃね？

>>440
前のテーブルをクローズしないまま、またテーブルを開いていたのが気になって･･･

2回目に宣言した際に前のレコードセットは勝手に開放されて
次のテーブルをオープンするみたいです

勝手に開放もなにも、前のオブジェクトは存在しないから
暗黙的に set nothing されてる

なるほど、そうだったんですね
ありがとうございます
モヤモヤが晴れました(^^)

それともう一つだけ気になる事が

Varient型にRecordsetやQuerydefなどを
設定できるのでしょうか

def_recordset as variant ってこと？
as Object じゃね？
じゃなかったら　意味ふっす

俺なら暗黙の解放とか信用しないで試しに10万回とか100万回とかループさせて
リソースがどうなるか自分の目で確認してからじゃないと
とてもモヤモヤは晴れないが・・・

>>444
すいません、言葉足らずでした

Dim wks As Variant

Set wks = Currentdb().CreateQueryDef(””)

こういう使い方はできるのでしょうか

A)
Set rsTemp=Currentdb().OpenRecordSet(strSQL,dbOpenSnapShot)
Set rsTemp=Currentdb().OpenRecordSet(strSQL,dbOpenDya\naSet)

B)
Set rsTemp=Currentdb().OpenRecordSet(strSQL,dbOpenSnapShot)
Set rsTemp=Nothing
Set rsTemp=Currentdb().OpenRecordSet(strSQL,dbOpenDya\naSet)

A)とB)は全く同じだと思う

>>447
ありがとうございます

データ自体は何度も確認し
おそらく問題はないとは思っていたのですが
正直、CloseなりNothingなりをしないで
再利用した事がなかったもので
見てて、かなり不安でした

>>446
ヘルプを読んだほうがいいのでは？

>>448
例えばプログラムをDB1.mdbに書いて DB2.mdbにあるデータを操作する場合、
Openした時にDB2.ldbが作られて、CloseするとDB2.ldbが削除されますよね？
何が言いたいかというと、都度Closeした方が処理速度は遅くDB破損のリスクは
低くなるだろうって事です。（たぶん単一DBであっても）

でもって、暗黙的な解放については>>445に同意。
Acc2000環境下のADO.Connectionだったと思うけど、同一プロシージャを
繰り返し呼びまくっていたらPCの反応が鈍くなって、よくよく調べたら
リソースを食いつぶしていた事があった。（プロシージャ内で明示的に解放したら解決）

>>449
ヘルプをみてみたのですが
固定長、ユーザー定義を除く全ての変数を
格納できる、とありました
変数、といわれるとRecordSetもQueryDefも
いまいちしっくりこなかったのですが…

いわれてから、もう一度よく読んだところ
格納後、VerType、TypeName関数を使えば
保存されている変数のタイプを知る事が出来ると
あったので、ためしにいくつか保存して
みました
結果、RecordSetはタイプ9RecordSet
QueryDefはタイプ9QueryDefと
まちがいなく指定した内容を認識できてました

申し訳ありません
お騒がせいたしました
数値や文字列を受けとる時しか使っていなかったのですが
いろいろと保存できたのですね…

>>450
やっぱり破損やリソースなどの面で見ると
あまり芳しくないみたいなんですね

やっぱり、正規の手順でしっかりクローズして
解放するのが確かなんですね…
いろいろと見ていただき、ありがとうございます

DatabaseやRecordsetオブジェクトでは "Nothing"キーワード の使用はメモリ消費の観点からは無意味。
同じデータベースに対して繰り返しアクセスする場合には "dbs.Close" さえも省略してもメモリには影響しない。
また、Setステートメントで宣言されたオブジェクトは適用範囲外になると自動的に解放され、特にRecordSetオブジェクトではCloseメソッドを省略してもそのメモリ領域は解放される。

http://www.tsware.jp/labo/labo_19.htm

>>452
おっしゃる通りなんですけどね。
そこはMS製品と付き合うコツと言いましょうか・・・
仕様と使用の違いみたいなものが時々あるから困るわけですｗ

>>450、>>453
それ、ADOの場合でしょ
つーか、ADOだとCloseしてもメモリ解放されないよ、さらに set Nothing しないと

DAOだと、Close　と set Nothing は同義だし、変数が値を失ったら暗黙的にメモリ解放される

以上が仕様で、もちろん仕様通りに動作してる

ADOでSET Nothingしない男の人って。。。

Access 2010
http://news.office-watch.com/t/n.aspx?a=908

officeのバージョンアップなんて必要に迫られないとしないな。
いまもAccess2002だけど。もちろん全シリーズを持っているけどね。

Office Updateがもうそろそろ終了ですよ
初めてのaccessは2000だったなぁ

>>458
え、そうなの。いや知らなかったよ。
ググって状況のみこめた。

2000はもうほとんど使ってなかったけど、過不足ないという点でベストだった気がする。
サポートさえちゃんとしてくれていれば、2000でいいと今でも思うし。

とりあえずRIP

● 招待制テクニカルプレビュー版の登録サイト
　Home - Microsoft Office 2010 Technical Preview
　　https://microsoft.crgevents.com/Office2010TheMovie/Content/Home.aspx
● Office 2010 のプロモーションサイト
　Office 2010
　　http://www.office2010themovie.com/

● ソース
　The Microsoft Office 2010 IT Blog : Office 2010, Hello World
　　http://blogs.technet.com/office2010/archive/2009/05/11/office-2010-hello-world.aspx

　　

　
*Which language would you prefer for the Technical Preview?
（あなたはどの言語でテクニカルプレビューしたいですか?）

○ English（英語）
○ Japanese（日本語）
　
とあったので、もしかすると日本語のテクニカルプレビュー版も出るかもしれません。

VBAは消滅に向かってるね

IMmediaはファイルメーカーがスポンサー？

「現場の改善と同時にシステムを育てる」――FileMakerを選んだ日本原燃 www
http://www.itmedia.co.jp/enterprise/articles/0906/11/news001.html


阪大の産学連携プログラム、受講生管理はFileMakerで
http://www.itmedia.co.jp/enterprise/articles/0906/24/news004.html

>>461
vb.netの構文にならねーかな
＃移行が大変だけどね

VBAとかやめて、C#で統一してくれ。

君たち、何を言ってるのだ？
近々、開発言語のオマケは廃止
マクロのみで桐・ファイルメーカー並みに簡単に構築できるようになり、
アクセスで喰ってる人達は失業

キミの文章には特徴があるね

派遣村があるじゃないか

所属、名前、休み理由、のテーブルを各1個ずつ作りました
これをフォームで

社員番号を入力したら所属名前が決まり、休みの理由をリストボックスで
選ぶようにしたいのですが、テーブルに社員番号がないんで
社員番号から選ぶのは無理ですか？

>>468
普通に考えて無理だろ。
468だってなにかしらの資料を参照しなければ（暗記しているものも含めて）、
誰がどの社員番号なのかわかるはずもない。

社員番号から所属名前が決まるテーブルをなんでつくらないの？

>>469-470
まったくの初心者で大変申し訳ない

468に社員番号テーブルを加えて、その後にリレーションで繋げて
フォーム作成すればよいのでしょうか？
いまいちテーブルの使い方がわかってなくてごめんなさい

名前が登録されているテーブルに社員番号と所属（のインデックス）も入れないか?

テーブル１に社員番号、名前、所属が入ってるのを作り
理由テーブルを作り、フォーム作成に取り掛かればよいのかな。

>>473
こうじゃないか?

所属テーブル（部署ID、部署名）
社員テーブル（社員ID、氏名、部署ID）
欠勤理由テーブル（理由ID、理由）
欠勤テーブル（社員ID、理由ID、日付）

あとはIDがつくものでリレーション。

>>474
なるほど。そんな感じになるのですね。
明日ちょっとがんばってみようと思います

ありがとうございました。

欠勤の主キーは社員+理由じゃなくて社員+日付では

>>456
2010ではテーブルイベントや計算項目が装備されるみたいだね

計算項目ってあれか、数量*単価で金額とかやっちゃうやつか
これもしかして何でもかんでもAccessにしとけな時代きちゃうの？

>>477
テーブルイベント？　何それ


と思ったけど、TechnicalPreviewの画面見て意味わかった。
ついにAccessにトリガキタ━━━━(゜∀゜)━━━━ッ!!

桐のパクリて言われてまっせ

Accessにしとけ

更新日時の記録はテーブルイベントに変更っと

2010で貧粗なレポート・デザインはそのまま？

レポートは廃止になります<m(__)m>
別途、クリスタルレポートを購入してくださいませ

たけー　＿|￣|○

むしろ、クリスタルレポートをOfiice Proにはバンドルさせるってのは？

桐をバンドルした方が安いな。

>>479
トリガーとUPDATEってなにが違うの?
SQL Server2000がおまけでついていたからちょっと触ってみたけど、
理解ができなかった。

どうもこんばんわ。

先日質問したものです。
なんとかそれなりに出来たものの、社員番号を入力してコマンドボタンを
押すと所属と氏名が出るように作ったと思ったら・・・

コマンドボタン押したら社員マスタにある所属、名前が1番最初のものがでてきてしまいました。
社員マスタに所属、番号、氏名を入れてるのですが、社員番号だけを入れて残り二つを
表示するにはどういうコードを書けばよいのでしょうか・・・

これは本格的に桐が必要なレベル

>>489
非連結テキストボックスを配置。
更新後処理に

（社員番号が数値の場合） Me.Filter = "社員番号 = " & Me!テキストボックス名
（社員番号が文字列の場合）Me.Filter = "社員番号 = '" & Me!テキストボックス名 & "'"
Me.FilterOn = True

でいいだろう。あとは応用。

あ、コマンドボタンか。
クリック時にだね。

間違えた。492は491だorz

>>491
このコードはコマンドボタンの中に埋め込めばいいのでしょうか。
今、モノがなくてちょっと試せないので申し訳ない。

やりたいのは社員番号のテキストボックスに社員番号を入れて、コマンドボタンを
押して、任意の場所に名前と所属をだしたいです。
物分りが悪くてごめん際ー

>>494
プロパティーにイベントっていうタブがある。
で、コマンドボタンなら普通はクリック時の所を選ぶと、右端に▼と…が出てくるはず。
…を押すと「ビルダの選択」っつうのが出るから、そこから「コードビルダ」選ぶ。
すると
Private Sub コマンド名_Click()

End Sub

つうのが出るから、Private Sub コマンド名_Click()とEnd Subの間にコードを書き込む。
これがVBっていわれるやつ。
あとは自分で勉強。

>>495
ありがとうございます
早速時間を取りやってみようと思います（勉強含め）

クエリをExcelにエキスポートし、再度同じ名前でエキスポートすると、
「ワークシートのセルを削除できません。」
というエラーが出るのですが、これは何でしょう。
どなたかご存じのかたはいませんか？

VISTAが勝手にデータ追加を行ってるとみた
一度削除してからエクスポート

Accessでも、フォーム（レポート）の定義で、倍率指定できたりフォーム領域外に、
オブジェクトを配置できるようになってくれればコメントも残せたりで結構助かるんだが、
その辺のところは、早く桐を見習って欲しい
簡単だろ→マイ○ロソフトさん！それとリボンなんかやめてくれよ！

>>499
そうそう
レポートも桐みたいに配置をプリンタ余白分を領域外にマイナス値で指定出来れば、官公庁の定型書式に対応可能なんだよね

まったく何回ヴァージョンアップしてもかゆいところには手が届かないソフトだよなAccessって
フォーム・レポートがやたら壊れやすい点を除けば、良いソフトなだけに残念です

超絶初心者の質問で申し訳ないのだが
Me.Filter = "あいうえお=" "& Me!テキストボックス1 &"
Me.FilterOn = True
の場合どれが検索後の表示ボックスに表示する部分はどこにあたるのですか？

あいうえおが検索する場所で、テキストボックス1は検索する数字なりを入れる場所って
ことでいいのですか？

>>502
基本は連結フォームだから、条件がなければそれで話を進めるのが普通。
とくに初心者とあればなおのこと。
Filterはフォームの元となったデータソース（テーブルやクエリ）を指定した式で
抽出しているだけ。

初心者ならDlookupでも使えば?

>>501
フォームの壊れっぷりは常軌を逸していると思う。
ボタンを配置するだけで、メモリーが足りないと言って永久に開けなくなるとか、ふざけているとしか思えない。

>>502
>Me.Filter = "あいうえお=" "& Me!テキストボックス1 &"
まず検索後の横のﾀﾞﾌﾞﾙｸｫｰﾃｰｼｮﾝが余計

Me.Filter = "あいうえお=" & Me!テキストボックス1

でいい。

検索とは結構違って条件にあてはまるレコードは全て表示される。

間違えた。検索「語」ね

>>503
んー難しいですね。

文字入れて検索して、それを表示と言うのを作ってるのですが
非連結のテキストボックス3つ作って1つ検索用で二つ表示される用で
やる場合がさっぱりです・・・

>>507
だからDlookupを使えっていうの。
非連結テキストのコントロールソースに

DLookup（"表示したいフィールド名", "テーブル名", "あいうえお= " & Me!テキストボックス1)

としてやればいいだろ。

>>508
おぉそうなるのか
Dlookup("所属(表示させるテキストボックス)","社員マスタ","社員番号="
　　　　 & Me!テキストボックス1（検索文字入れるところ））
とすれば10番の人が存在するなら所属のところに10番の所属が表示される
ということなのか！なるほど。
ほんとにありがとう

>>504
ふざけてますが、何か？

>>510
頼む。俺の仕事中だけはふざけないでくださいまし。宜しくお願いします。

>>505
Me.Filter = "あいうえお=""" & Me!テキストボックス1 & """"

MSDEのData更新に困っております
AccessプロジェクトよりCSVファイルをインポートして
DataBase作成しているのですが、インポート先のCSVファイルは
常に更新されています
AccessプロジェクトのData更新の為、インポートを行うと
重複したDataになります・・・・
重複しないSQLもしくはVBEはないでしょうか？

>>513
インポートじゃなくて、リンクすればいいじゃないか
キーになるものがあれば更新できるんじゃね？

>>513
**ADOでのアプローチ**
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strFolder As String, cnStr As String
Dim fileName As String, selectSQL As String

cnStr = "Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq="
strFolder = "C:\hogehoge"
fileName = "hogehoge.csv"
selectSQL = "select * from " & fileName

cn.Open cnStr & strFolder
rs.Open selectSQL, cn, adOpenKeyset, adLockReadOnly

Do Until rs.EOF
　　**お好みのupdate処理**
rs.MoveNext
Loop

rs.Close: cn.Close
Set rs = Nothing: Set cn = Nothing

ttp://pc11.2ch.net/test/read.cgi/db/1236253554/663

VBSでパスワード付きのアクセスファイルMDBは開けますか？

CSVファイルをtmpに取り込んで、すでに取り込まれていないデータ
のみを追加すればいいんでね(not exists かな)

開けました

沢山のご教授ありがとう御座います
>>514さん　AccessプロジェクトはMDBと違って
インポートしかありませんでした

>>514さん
凄いですね試してみます
ありがとう御座います

すいません質問です。
ひとつのテキストボックスに「月日〜月日　日間」
これを固定文字にしてそこに自分で日付を入力して自動で日間を
計算させるものを作りたいのですがDateDiff関数を見てもいまいちわかりません
どんな感じにやればいいのでしょう・・・・・

> ひとつのテキストボックスに「月日〜月日　日間」

３つはないと無理じゃないかコレ・・・
日数を求めるんだったら
DateDiff("d", 開始日, 終了日)で求まる。

>>522
やはり3つじゃないと無理っぽいですかねぇ
一応今日3つ作ってやったものの、なんかしっくりとこないと
言われ検索してたところなんで・・・す

txtbox01のInputMaskを
99\/99\/99\→99\/99\/99;0;_

Private Sub txtbox01_AfterUpdate()
fromdate = Left(Me.txtbox01, 8)
todate = Right(Me.txtbox01, 8)
Me.txtbox01 = Me.txtbox01 & " " & DateDiff("d", fromdate, todate) & "days"
End Sub

日付を切りだす文字列関数はもうちょっと工夫が必要。
そして日付正当性の確認も必要。
保存されるFieldかどうかということは考慮してない。

>>523
文字列操作関数の組み合わせでできるだろうが、苦労に見合わないと思うよ。

>>524
おぉ・・・みても全然わからないです・・・初心者なので。

>>523
上のを見るとなんか手に負えないレベルになっています・・・
工夫して見やすいようにしたほうが楽なのですかね。

俺ならテキストボックス3つでしっくりこない人を2階から投げ捨てて解決する

へたすりゃ月、日ごとにテキストボックス作るレベルだな。

>>523
InputMask設定されているテキストボックスで更新後処理したら
どうなるんかなと思って書いてみたが、実際使えるようにするの
には手間と工夫が必要よね。エラー出して原因突きとめて学習す
ればいいと思うよ。
使いどころがわからないけど、おもしろい意見だと思った。

むしろテキストボックスが3つ「しか」ないのでしっくりこない
といわれていることに気づけ。
アホなWebアプリに馴らされたサルには、年と月と日個別に
コンボボックスを置いてやらないとバナナ食えない。

しつもーん
今オプションボタンを2個作ってその二つはどちらかひとつしか付けられない
ようになってるんですが、そこからテキストボックスを選んだボタンにより
使用不可にしたいのです。

ボタン１を選んだら、ボタン２対応のコンボボックスが使用不可に
そしてその逆も作るとしたらどういう手順になるのでしょうか。
今はボタン１にチェックを既定値にしています

>>531
Private Sub フレーム名_AfterUpdate()
If Me!フレーム名 = 1 then
Me!コンボボックス.Enabled = True
Else
Me!コンボボックス.Enabled = False
End if
End Sub

こんな感じじゃないか?　直打ちだから、間違いがあるかもしれない。

>>532
助かります。ありがとうございます

私は始めてまだ1ヶ月もたたない初心者なんですが
やってもやってもコードが頭に入らないし、どう処理したいのか
しか思い浮かびません。みなさんどういう勉強しているんですか？
1ヶ月やっててコードひとつ書けない自分が情けないです・・・

Private Sub fraフレーム_AfterUpdate()
　txtコンボ１.Enabled = Choose(ActiveControl,True,False)
　txtコンボ２.Enabled = Choose(ActiveControl,False,True)
End Sub

あるいは
Private Sub fraフレーム_AfterUpdate()
　txtコンボ１.Enabled = Choose(ActiveControl,True,False)
　txtコンボ２.Enabled = Not txtコンボ１.Enabled
End Sub
ってな感じかな？

本を買うんだよ。初心者用と中級者用の。
初心者用はまじめに読めば1週間もしないで使い物にならなくなる。
それほど内容がない。が、大方の使い方は解るので必要となる。
中級者用は応用が多くなるから、これさえ選び間違えなければ、
大抵のことはできる。
中級者用がある程度理解できるようになれば、用語もそれなりに身についているはずなので
あとはネットで検索すれば事足りる。

読むだけでなく、コードを打ち込んであれこれ実験する。
これがプログラムの基本だと思う。

>>536に加えて、フローチャートみたいな制御図が書けるようになれば
ほぼ一人前だと思う。
これはプログラムの概念図だから、言語が変わっても使えるからね。
難しく考えることはない。頭の中で「次はどうしようかな?」っていうのを
記号を用いて図解しているだけの話だから。

みなさんありがとうございます。

一応初心者用の本は1週だけですがサンプルプログラム使いながら
終わってますが、あまり覚えてない兼ね合い何週か擦る必要ありそうですね。

【コラム】あまりに便利すぎた・・・Excel VBAの「行き詰まり」問題〔07/02〕
http://pc11.2ch.net/test/read.cgi/pcnews/1246498806/

【 システム環境　 . 】 WindowsXP, Access2003
【 VBAが使えるか .】 いいえ
【 検索キーワード　】計算式　関数

すいません初めて質問させていただきますが助けてください。
会社で唯一アクセスを利用できる同僚が在庫状況管理用に
ＤＢを作成中だったんですが入院してしまい未完成になったままなんですが
業務上の期限が来てて早く対応しないけないんです。
あとは計算式を入力するだけらしいんですが、ＰＣ得意な私でも
アクセスは触ったことないのでちんぷんかんぷんです（泣
ＡＣＣＥＳＳ大辞典なるものも渡されましたが専門的過ぎてわかりません・・・

計算式は単純な四則計算だけです。
エクセルみたいにはいかないのでしょうか？

該当のマスとマスを足してこのマスに答えを表示させる。。。
それだけなんですが・・・

単純な質問ですいませんが、よろしくご教授ください！

>>540
VBAの入門書を買えばすぐにできます。

入院中の同僚に遣って貰ってください

どこかにDBうpしてくれれば見てやれるんだが。
言葉じゃ説明しづらい。
まぁ、>>541氏の言う通りなのだが。

みなさんホント初心者ですいません。。

>>543さん
ありがとうございます。
ためしにアップしてみましたので一度見ていただけますでしょうか？
http://a-draw.com/up2/download/1247067795.mdb

在庫管理ですのでやりたいことは単純に、
生産数+在庫数-出荷数＝現在庫　とか、
現在庫*単価＝在庫総額　でたな卸しとか
現在庫が一定数超えたら（例：指定数の150％）赤点滅表示させるとか。

その程度のことなんですが、、、
さっきからいろんなＨＰ見てますが、計算式として[数量]*[単価]等は書いてあるんですが、
入力箇所の説明が名称ばかりでどこのボタンを押すとか、
画像的な説明がなくて正直困ってます。

お手数おかけしますがよろしくお願いします。

>>544
正直に言うが、テーブル構造がヤバイ。
とりあえず、このままの状態で挑戦はしてみるが。

>>545さん

すいません、正直同僚も私たちより知ってるだけで
上級者ではないとおもうんで、上級者から見れば雑かも知れません。

深夜ですから今すぐじゃなくて明日でも結構ですので！
また明日もここチェックしますのでｍ（＿＿）ｍ汗

うｐろだの方は消しときますね。

質問ですが、こちらのスレでよいのでしょうか？

職場のPCでDate Time Pickerコントロールを使いたいのですが、フォームに配置しようとすると
「ライセンスがありません」旨のメッセージが出て、使うことが出来ません。
個人用PCのACCESS2003では何の問題もなく使用可能です。
なにか解決法をご存知な方がいらっしゃいましたら、ご教示頂きたくお願い申し上げます。

>>540
月末在庫額、当月指示額、現状在庫数は計算で出るからテーブル上には必要ない。
コントロール名を変えて（例えば頭にtxtを付加）コントロールソースに、

月末在庫額（txt月末在庫額）：=[月末在庫]*[単価]
当月指示額（txt当月指示額）：=[当月指示数]*[単価]
現状在庫数（txt現状在庫数）：=(Nz([月末在庫],0)+Nz([入荷数1],0)+Nz([入荷数2],0)…+Nz([入荷数15],0))-(Nz([出荷数1],0)+Nz([出荷数2],0)…+Nz([出荷数22],0))
ブリンクはできないが条件書式で色を変える。

必要ならうpするけど、ここに書いたこと以上はしていない。
計算はクエリ上でやってもいいかもね。

>>547
なかばaccessclubで答えでてんじゃねか。
さっくりあきらめてカレンダーコントロールでどうぞ。
2007買ってランタイム配布のほうがなにかと都合がよさそうだ。
>>540
打つ手と時間がねぇなら、EXCELでやってしまえば？
レポート出力とか余裕あんのかい？
>>548
男前！！

昼まで寝ます　ﾉｼ

>>540
桐で作り直した方が早い

教えてください。

ユーザーにパスワードを知らせずに、アクセスにパスワード掛かったMDBを起動させる為に、
VBSでスクリプト作りました。
VBSはオマケのエンコーダーでエンコードしても簡単にデコードされちゃうので、VBでexeファイルに作り変えたいです。

今、VBexpress2008でやってみたのですが、希望通りの動作しますが、VBSの時と違ってウザイDOS窓が表示されちゃいます。
VBのコンソールプロジェクトで作りました。

DOS窓を表示させない方法はありますか、VBでWinフォームアプリ作成ではなく只単にMDBを起動させたいです。

自己解決しますた。

米Microsoftは4月1日(日本時間)、開発者向けツールおよびプラットフォームの次版である「Visual Studio 2010」の開発言語を従来の「Visual Basic」と「Visual C#」ではなく「Visual B#」に統一すると正式に発表、
製品の詳細について語り始めた。なお、.NET Frameworkのバージョンは従来の発表どおり「.NET Framework 4.0」とのことである。

Visual B# 10.4 (VB# 2010）は、同社が長年培ってきたVisual Basicに対してC#の要素を大幅に取り入れれた言語仕様となっており、従来のVisual BasicやC#との互換性は100%ないため、
開発者は過去の資産にとらわれず新しい仕様を有効活用できることを保証しているという。

Visual Basic 2005/2008、C# 2005/2008からVB# 2010へのアップグレードウィザードはソースコードをすべてコメントアウトすることを保証し、ウィザードにより生成された結果が中途半端に動作して問題を引き起こしていたのと比較して、
100%安全なコードを生成する事が証明されているアルゴリズムを採用したと発表されている。

また、Visual B# 10.4では、MultiPlatformクラスライブラリが新たに採用され、単一のフォーム定義クラスから「Webフォーム」、「Windowsフォーム」、「Windows Mobileフォーム」相当と同一動作する機能が予定されているとの噂もあるが、
この件についてはリリース当初から実装されるかどうか米Microsoftは明言をさけている。
なお、関係筋への取材では、Visual Studio 2008で廃止された「Mobile Webフォーム」についても対象になっているようである。

なお、これに伴い、Visual BasicとVisual C#はVisual Basic 2008及びVisual C# 2008が最終バージョンとなり、この最終バージョンは今後発売されるすべてのWindows OSで動作保証される事も同時に発表された。
Visual Basic 6.0が新OSでも動作保証されているためVisual Basic .NETへの移行が進まなかったのと同様の事がVisual B#にも起こる可能性も考慮すべきかもしれない。

質問です。

今アクセスで社員検索を作ったのですが、検索して該当者がいない場合に
メッセージボックスを出したいのですが色々調べても分かりません。

社員番号入力欄の更新時処理にマクロを入れてます。
そのマクロで検索が出来てます。

この場合どういうコードでエラーメッセージボックスを出せばよいのでしょうか。

>>551の
>ユーザーにパスワードを知らせずに、アクセスにパスワード掛かったMDBを起動させる
パスワードなしと変わらん気がするw
外部からの接続を拒否しようとしてるんかな

>>554

動作確認はしていませんが、こんな感じかな？

If DLookup("*","社員TBL","社員id='" & txt社員id & "'") = 0 Then
　MsgBox("このコードは社員TBLに登録されていません。",vbExclamation,"エラー")
Else
　'〜本来の処理〜
End If

>>556
DLookupって該当がなければNULLを返すんじゃなかったけ?
0でやるんだったらDCountじゃね?

>>554
対象レコードがない場合、CurreentRecordプロパティに0が入るから
条件に使えばいいのでは？

CurrentRecordねｗ

>>557
うっかりしてました。そのとおりDCount関数の間違いです。

>>558
コードがまったくわからないのです・・・

更新後マクロに
条件：CurrentRecord=0（入力すると[]がにつくはず）
アクション:メッセージボックス
そのあと処理を続けるんなら、
条件：...
アクション：コマンド実行(フィルタの実行/解除)
フォームが一時的に空白になるからの。

Dcountで存在するかを条件した処理のほうが見た目は良さそう。

>>562
なるほどーマクロにさらに入れるのですね。
今日マクロにメッセージがあったからそれを使ったら
入力したら該当ありなし関係なく出てたのでどうしたもんかと思ってたら
条件入れるところがあったのですね・・・明日会社でやってみようと思います

ありがとうございます。
この条件は該当しなかったら入力した文字は消えてフォーカスは番号入力
場所にとどまっているのでしょうか？

>>563
558のマクロ2行は、作ったマクロの最後に加えるだぞ。
結果的にフォーカスは移動しないかもだが、空白にはならない。
消すならさらに1行書けや。
こっちのほうがいいかもしれん
1行目
条件：社員番号のカウント=0(定義域関数で)
アクション：メッセージボックス
2行目
条件：...
アクション：テキストボックスを空欄にする
3行名
条件：...
アクション：マクロの中止

Accessの互換性について3点お伺いしたいのですが、
居室でOffice2007、2003、2000を入れている端末があるのですが、
どのバージョンでDBを作成すれば
どの端末でもDBを開けるようになるのかを教えて頂けませんでしょうか。

また、Access97で作成されたDBを
Access2003を開いてしまうとリンクが切り替わり、以降Access2003で開くようになってしまい、
その度にわざわざリンクをAccess97に戻す必要が出てきます。
Access2003を開いてもリンクが切り替わらない方法ってあるものなのでしょうか？

最後にAccess2003で作ったmdbファイルが
Access2007、Access2000で開こうとするとエラーが出てしまいます。
エラー内容は「データベースの形式を認識できません」です。
データベースの変換で解決することができますか？

私自身、Accessを触った経験が無く知識が乏しいのですが、
もしよろしければ上記の件、ご教授頂けないでしょうか。

>>564
ありがとうございます。

早速明日試してみようと思います！

>>565
一番古いバージョンで開発が基本だろう。
が、2007は2000の互換性を保証していなかった気がする（前後1代のバージョンだけだっけ）。
ショートカットで無理矢理起動するバージョンを指定するっていうのを見た覚えがあるな。
やってみる価値はあるんじゃね?　>　データベース変換

>>555
ユーザーにテーブルのデータを見せたくないのです。

>>568
テーブルを別ファイルにして、ADOとかIn句で接続したら。
テーブルのあるファイルは、拡張子を変更して偽装しちゃえばいいし、
ユーザーが使うファイルはMDEにしておけば参照先のファイルも解らないだろう。

それだと遅いしメンドウです。
簡単に連結フォームでやりたいです、許せるのはmdb同士のリンクテーブルまでです。

多分だけど、リンクの方が遅いと思うよ。
このスレだったと思うけど、In句は速いって実地で返答していた人もいたし。

なら分割しないで単独mdbの連結フォームが簡単で速くてよいです。

>>568
なるほどなぁ
accessならではで、ひとつの答えだの
お疲れさまでありんす

>>548さん

すいません！レスしたつもりで反映されてませんでした（泣

今からでも間に合いますでしょうか？
ぜひうｐしていただきたいんですが！
宜しくお願いいたしますｍ（＿＿）ｍ

>>540
うpする前に聞くけど、圧縮していい?　いいのだったら形式指定して。
そのままだと、ドライブ変えないと開けないようになっていたと思うんだ。ACCESSって。

>>575さん
圧縮しないと利用できないのであればお願いします。
解凍すれば普通に利用できるんですよね？

>>576
ttp://a-draw.com/uploader/src/up2321.zip.html

取ったらレスくれ。

>>576
ttp://a-draw.com/uploader/upload.cgi?mode=dl&file=2322

うpしなおした。DLキーとDELキー間違えちゃった。
DLキー　1233

関係ない俺もGET
人の覗くのは勉強になるのさ、ぐへへ

>>579
ならないと思うぞ。

どうもありがとうございまいった

こういうやりとりは後日に他の人間が参照しても何の役にも立たないログになるから
好ましくないと思うんだ

週明けから、次の案件が始まる。
フロントエンド：access2007runtime
バックエンド：MySQL5
ちらっとADOしてきましてきます〜
何か有益情報はないかの？で、俺からは、
http://www.connectionstrings.com/

>>577さん

おそくなりましたがＤＬさせていただきました。
ありがとうございました。

しつもんですが、タイトル末尾が「２」となっているのが
計算式を入れてもらったものですよね？
あと、元ファイルは３Ｍ程度の容量だったのが
ＤＬしたファイルは解凍後でも800ＫＢ弱と小さいようです。
単純にファイルが増えて計算式も追加されてるのに何ででしょうか？

すいません質問です。

今保存ボタンと印刷ボタンをひとつのボタンにまとめたいのですが
どのようにしたらいいのでしょうか。

保存はコードで書いてあり印刷についてはマクロを使ってます

>>585
・印刷するマクロに保存マクロを追加
・印刷するマクロから保存プロシージャ呼出
・保存プロシージャに印刷コードを追加
・保存プロシージャから印刷マクロ呼出し
お好きなものをChoice！

>>586
肝心な順番を忘れてました・・・
印刷マクロに印刷をするかしないかメッセージボックスを出しています。
そのハイをクリックしたら保存を開始して印刷へといく物を求めています

ので保存プロシージャから印刷マクロかコードを追加する方法を教えてもらって
よろしいでしょうか

>>587　とりあえず前提：連結フォーム
privete sub btnCtr_Click()
if msgbox("Save and Print?",vbokcancel,"information") = vbcancel then exit sub
　　’[いいえ]で]押下で終了。
　if me.dirty then docmd.runcommand accmdsaverecord
　　'編集状態である場合、カレントレコードの保存
docmd.openreport "Rpt_Name",acviewpreview
end sub
コードでは、こないな感じ。
VBAからマクロ呼び出すなら、docmd.runmacroにて。
VBAかマクロかどっちかにしたほうがえーかもな。

>>588
ありがとうございます。
保存がadd.newで複数のテキストボックスに入力されたデータをテーブルに保存するように
してたので、このコードの場合保存で作ってあるコードはどこに
記入するべきなのでしょう。たびたび申し訳ないです。

>>584
末に2がつくのはクエリで計算版。一部テーブル構造をいじっている。
うpするときは、mdbを最適化しような。あと、クレームが出ちゃったから、
自助努力も怠らないように。

addnew?　非連結でADOとかDAO？
でもって新規レコードとか1レコードのレポートかしら？
正直、説明が足らんと思うど

>>591
基本的に非連結のテキストボックスに検索かけた学生番号をに
対する学生の情報を表示して
学生の取ってる授業を自分でテキストボックスに入力して
そのデータをテーブルに保存と印刷すると言う感じです。

初心者なのでコンボボックス使ったりテキストボックスを付けて
検索して入力して表示させるだけって感じの簡単なフォームだと思います。

初心者さんとお前の関係は？

>>592
印刷とUpdateが個別に機能していると仮定すると

private sub btnCtr_click()’ボタンクリック時イベント**クリッコしたら処理が始まる
if msgbox("Save and Report?")=vbcancel then exit sub
***入力レコードを保存一式***
***印刷処理一式****
end sub

分岐とか指定がない限りコードの上から順々に処理だから、
作ったコードを挿入すれば概ねおけ。これはマクロでも同じ。
VBAで書くことを前提にレスしてるから、印刷処理のコードを
レコード保存のコードの下に書き込めばいいのではないか、
ということです。印刷指示は、docmd.openreport 〜〜　多分1行で済む。
一つの方法だからさ、実際やってみてエラー出して調べるのがいいよ

>>590さん

有難う御座いました。
アクセスど素人なんで最適化とかもしりませんでした（−−；
現在、ネットと本屋をフル活用して勉強中です。

またなにかありましたら宜しくお願いいたします。

初心者です。複数あるレポートデザインのラベルを一括変更する事ってできますか？出来るなら教えて下さい。

>>596
できるけど、初心者には多分無理。
ヒントとしては、レポートをデザインモードで開いて、For〜Eachでコントロールを総当たり。

>>597
ありがとうございます。初心者には厳しいですか↓
もし良ければもう少し教えて下さい。

デザインビューで複数ラベル選択してプロパティボックスで変更って出来ない？

ラベルの変更ってなにがしたいのさ。
位置?　表題?　ラベル名?　

標題です。レポートの種類がいっぱいあって毎回全部の標題(標題は全部一緒)を変えたいのですが…。

Public Const にしとけ

毎回Captionを変える状態って言うのが理解できん。
日付とかの変数が入るのだったら、テキストボックスを使うし。

captionを変えるといろいろと便利になる場合があるんだよなぁ。

日付とかの変数じゃない場合は無理ですか？

結論から言えばできる。
ただ「もっと簡単な方法があるんじゃね?」っていう段階に話は突入している。

だから Const

>>596
バージョンが解らないからできるかは知らんが
AllReportsコレクションでレポート数とレポート名が取得できる。
で、>>597を組み合わせればいいだけ。
これで解らないようなら、まず無理。

>>598
ぶっちゃけ、コードが欲しいんだろ?

Private Sub コマンド0_Click()
Dim Ctrl As Control
Dim i As Long

With CurrentProject.AllReports
For i = 0 To .Count - 1
DoCmd.OpenReport .Item(i).Name, acViewDesign, , , acHidden
For Each Ctrl In Reports(.Item(i).Name).Controls
If Ctrl.ControlType = acLabel Then
If Ctrl.Caption = "ABC" Then '比較対照（ABC）はテキストボックスにしておくとよい
Ctrl.Caption = "XYZ" '代入対象（XYZ）はテキストボックスにしておくとよい
End If
End If
Next Ctrl
DoCmd.Close acReport, .Item(i).Name, acSaveYes
Next i
End With
End Sub

こんな感じか?

win2000
ACC2000

アクセス起動時にアプリケーションを全画面表示したいのですが、どのようなコードを書けばよいでしょうか
フォームやテーブルの最大表示は出来るのですが、アクセス自体を全画面表示に出来ません

Office 14 Beta1 Ships
テクニカルプレビュー来たやつはｓｈａｒｅに流してくれ

ショートカットを作ってそれの実行時の大きさを最大化にすればｏｋなはずだが？
もちろんそのショートカットから起動すること。

ベータテストの参加申し込みがずっと保留状態のままだ
どうやら承認されなかったようだ

>>612
そんな手段ががが
ﾄﾝｸﾙ

>>610
つ　DoCmd.RunCommand acCmdAppMaximize
つ　autoexecマクロ

XP 2003 VBAちょっと可

クエリで集計した項目がフォーム上から（リストボックスを使っています）うまくソートが
かけられないのですが、どなたかアドバイスいただけませんでしょうか？
項目名は「Pieces の 合計: Pieces」、「Cost の 合計: Cost」です。クエリ上で演算した項目
（項目名は「客単価」等）はうまくいくのですが・・・
集計項目の項目名にスペースが含まれているのが原因じゃないかとか思っているんですが
どうなんでしょうか？

>>616
素直に集計した結果を別テーブルにインサートしてそれを使ったほうが早いと思う。
クエリーの結果をさらに加工するというのはいろいろと制限があるし、
かえって遅くなることが多いし予想のつかない結果になったりするから私はそのやり方を多用する。
余計なテーブルが増えるのは非効率のようだけど、
そのテーブルの中がどうなっているのか調べることによりデバックもやりやすくなる。

>>617
ありがとうございます。
その方法でやってみます！

>>616

>項目名は「Pieces の 合計: Pieces」、「Cost の 合計: Cost」です。
とのことですが、これは合計を計算する項目であって、どういう単位で集計をしているか「グループ項目」の
方を提示してくれないと答えが出ないような気がします。
（結果セットの行の並びについて話しているので、グループ項目がない全体で1行の合計行しか返さない集計ではないでしょうから）

それぞれで結果の並びが違うということは、単純に考えて通常のクエリで作ったものとリストボックスに設定したクエリ（SQL文）
が違うだけだと思いますので、改めて内容を見返すか、それぞれのSQL文をここに提示してもらった方がいいんじゃないでしょうか。

集計クエリを作った場合、集計プロセスの過程でグループ項目でソートされた上での集計ですので、
通常は結果セットの並びは「グループ項目順」になるはずです。

もし、それ以外の並びになるのでしたら、意図的に並びを指定しているはずですので再確認してみてください。
（この辺はSQL文を見れば、「ORDER BY」の記述があるでしょうから一発で分かります）

>>615
ありがとうございます
最大化(アプリケーション)マクロの実行でも出来るんですねー

出来るファイルと出来ないファイルがあるけどなんだろ

autoexecって未だに使ったことがないな。使い道がわからないし。
ユーザビリティを考えると、フォームは必須になるから
起動時の設定で事足りちゃうと思うけど。
なにか「これはautoexecじゃないとできない」っていうものってあるの?

>>621
俺は主にフォームを開く前に設定したいグローバル変数を設定するためのプロシージャを呼び出すのに使っている。
hogehoge.iniとかいう設定ファイルから呼び出すようにすると基本設定をhogehoge.iniで変えることができる。
例えば使うPCの解像度に応じて呼び出すフォームを変えるなんてことも可能。
そういう設定はautoexecマクロからautoexecプロシージャを呼び出してするということに決めておけば楽。
起動時のフォームでも出来るがグローバル変数を設定するためだけの
ダミーの起動時フォーム作るよりこれが一番しっくりくる。

しっくり感はともかくやっぱりAUTOEXEC必須ってわけじゃないよな

困っています。是非とも皆さんのお力をお貸しください。Access2003です。

以下のようにフォームがあります。

�@検索結果一覧フォーム
　テーブルと連結しているテキストボックスが数個あり、起動するとフォームの
　プロパティのレコードソースに記載されているSQL文に従い、テーブルの
　内容を表示する。

　例えば以下のようなSQL文が記載されています。

　　SELECT TOP 50 [ID] FROM [AddressTable]

�A検索条件作成フォーム
　日時やIDや名前などを入力するテキストボックス・コンボボックスが
　複数存在し、それらの入力の有無に従い、Select文のWhere句以下を作成します。

　検索実行ボタンが押された場合、DoCmd.OpenForm を用いて
　検索結果一覧フォームを開くのですが、その時にDoCmd.OpenForm
　の4つめのプロパティであるWhereConditionに、作成したWhere句以下の
　文字列を指定します。具体的には下記のようなロジックになります。

　DoCmd.OpenForm "フォーム1",acNormal, ,作成したWhere句以下

これらを用い、検索条件作成フォームで検索条件を作り、その条件を検索結果一覧フォーム
に表示させる検索結果に影響させたいのですが、うまくいきませんでした。

　

例えば Name = Hanako のデータを含むデータのTOP50を検索したいとします。
通常のSELECT文であれば、

SELECT TOP 50 [Name] FROM [AddressTable] WHERE Name = 'Hanako'

で指定できます。しかしながら、今回のようにDoCmd.OpenFormの
オプションでWhere句以下を指定しフォームを開いた場合には、まずTOP50
で検索が行われ、そのあとにName = Hanakoで絞り込みが行われます。

例えば、初めのTOP50での検索で、NameがHanakoであるデータが存在しなければ
検索結果は0件となります。意とした結果が返りません。

どのようにすれば私の求める結果を実現できるのか、助言をお願いしたく
参りました。よろしくお願いします。

※�@、�Aの設定はあまり変えたくないのです。�@のテキストボックスを
　非連結にして･･･というのはあまり考えたくありません。


　

>>625
副問合せ

>>625
WhereConditionじゃなくOpenArgsにパラメータ渡して、
検索結果一覧フォームとやらの開く時イベントでSQL
生成すれば。
それがイヤだったんだろうなという雰囲気は感じるが、
根拠なくそこを避けて議論するのも不自然だしな。
一応言ってみた。

>>623
必須ではないけれど設定すれば必ず最初に実行されるってのは便利ってば便利。

ちょっと調べてみたけど、Accessに限っていえばそれほど必要ないのかな。
Excelとかだと確かに便利そうだけど。

>>622
「起動中。しばらくお待ちください」とかいう小さめなフォームを表示するのも駄目かな?
利用者からは案外評判がよかったのだけど。

>>628
shift押しながら起動するとキャンセルされるのは、起動時の設定と変わらなかったと思うけど。

>>629
必要ないっていえば必要ないよ。
起動用の小さなフォームは最初使っていた。
でもそれでは空のmdbに全オブジェクトをインポートすると
（なんでそんなことをするかはAccess使いならわかるよね？）
起動時の設定をいちいちいじらなければいけない。
autoexecマクロならその必要がない。
そんなわけでマクロは使わない主義なんだけどautoexecマクロだけは使っている。
つまらない細かすぎるテクニックっていえばそうだけど
ちょっとでも便利なら使わない手はないだろう。

>>625
検索結果一覧フォームのレコードソースを
SELECT TOP 50 [Name] FROM [AddressTable] WHERE Name = 'Hanako'
に書き換えればいいんじゃないの?

>>625
Docmd.Openメソッドのwhereconditionオプションは、フォームフィルタのこと。
なので、処理は正確に行われているといえる。方法の選択がよくない。
意図する結果を求めるなら、
検索結果クエリを作成して検索結果フォームに連結するがお手軽ではないかな

>>630
> （なんでそんなことをするかはAccess使いならわかるよね？）

解らないから、教えてよ

>>633
Accessの調子悪いとき、とりあえず新しいファイルにオブジェクトをコピーするのが
常套手段だからじゃないか。マジレスなんて求めていないかもしれないが。
けど、自分が作ったものでそんな状態になったことなんてないなぁ。
他人が作ったものでmdb破損したことはあるけど、大抵は原因が特定できたし。

ああ、autoexecマクロでオブジェクトをインポートするのかと思った

>>634
いいなあ。テキストボックス、コマンドボタン一つを追加しただけで、そのフォームが永久に開かなくなるのなんて日常茶飯事なんだけど。
俺の環境では壊れてばかりだけどな。

>>636
後学のため、是非とも見せてもらいたいぐらいだよ。
フォームに限らず一切の操作ができなくなったのは、2GB制限に引っかかった時ぐらいか。
作成環境とは別環境で開いたらエラー吐きまくって動かなかったのは
Accessでやってはいけないこと（予約語の使用や先頭文字が全角英数等）のオンパレードだったな。

>>637
もう少し経験を積むことだね。

愚痴レスはつまらん。
所詮、道具なんだから人それぞれの使いようだ。経験なんて糞くらえだ。

フォームは壊れたことないけどレポートは何回も壊れたな。
>>636みたいにテキストボックスの追加だけで操作ができなくなって
結局、原因不明。
こういうのって対処法あるの?

フォームやレポートが壊れた時は、
当該フォームを丸ごとコピペして、元フォームを削除して、元フォーム名にリネーム
これで大抵は治ってる

>>641
THXやってみるわ。

すいません教えてください。

テキストボックス、コンボボックスを使って届出フォームを作ってるのですが
入力したところだけを保存したいのですがどういうコードで書けばよいのでしょうか。

今はAddnewを使いすべてのテキスト、コンボを選択して
保存している状態です。
これだと少し問題がでてきたので、入力されているところだけを
保存という形式にしたいと思っています
よろしくおねがいします

せいぜい15年程度の経験しか積んでいないが
俺が見たmdbを壊しまくる奴は全員決まってドのつく素人

俺は業務用mdbのカスタマイズをしているけど、テキストボックスをおいたとたんに壊れるw
素人とか玄人以前の問題だろうw

>>643
意味が解らん。新規登録ならAddnewだし、既存レコードの変更ならUpdateだろ。

>>646
ごめんなさい・・・
とりあえず、なぜそうしたいというと、フォームに年を入れないで保存されたとき
に年月日となるようにしてくれと言われて。
わからなかったのでとりあえずフォームにYear(Now)で年だけ作って
それをと入力月日の場所をまとめて1レコードで保存したのですが。

同じようなつくりの場所がもう一個あり、Addnewで全部の場所を
保存するようにしてるので空白でも年は参照してるので年だけ
出てきちゃうと言う感じになってるので、入力されてる部分だけ新規保存できないかなと・・・

あぁ・・これでも分かり図らいですねごめんなさい

テキストボックスおいただけで壊すような奴が
どうやってカスタマイズ作業とかw

>>648
知るかよw
置いただけでメモリーがなんたらかんたら言って開けなくなるんだよ。
マジレスすると、バグらしい。技術情報に載っていた気がする。

バグと理解しているのに、対策しない男の人って、、、

>>650
対策は無いはず。2007にダウングレードしたくないから2002を使っている俺も悪いのかな。
MSって改悪ばっかりなんだもん。

>>647
日付型なら年を省いて、も自動的に付加されると思うが。
変更時か更新後処理でフラグ立てするしかないんじゃないか。
普通は更新後処理でいいと思うが。

>>651
2007でも壊れたw

>>653
マジですか〜w

>>652
保存先の月日を保存するフィールドは日付型にはなっています。

更新後処理には今日数計算するようなのを入れています。
今はテキストボックス4つを、月、日、月、日で分けて、それに入力したら
日数がでるようになっています。
で、後々のために入力した日付を月日、月日とINTOで一緒にしてフィールドに
保存しています。

>>644
不思議に経験を積むとあまり壊さなくなるよね。
今から思うとメモリーをやたらと喰うような処理をしていたのかもしれない。
フォームも必要以上に複雑にしたりとか。
そういうところのバランス感覚が自然に身につくからなんだろうけど。
そうはいってもやっぱりもう少し堅牢さは欲しいよな。

>>655
どういう運用だか知らんが、今のロジックでは、
年をまたいだ場合アウトじゃねか
なんかいろいろと遠回りしてる気がする

>>657
そうなんです・・・
初心者で何も分からないままネットで検索させてパズルのようにして
作っているもので

申請（休み）届けを作成中です・・・どんな風に作っていけばいいんでしょう・・・

>>655
別に責めるつもりはないのだが、以前にもここで質問したことがある?
例えば>>521とか>>585とか。
もしそうなら、情報を小出しにしないでまとめてもらいたいのだが。
で、Addnew使っているということは非連結フォームって言うことでいいの?
とりあえず晒せる範囲でいいから、コードを晒してよ。

>>659
連結フォームなのに意味なくDAO使ってる可能性もあるね。
>>658
なんかしっくりこないと言う上司に参考書買ってくれと伝えろ

>>659
ありがとうございます。
コードは会社のaccessにしかないのですよ・・・
家でやろうにもACCESSがなくて出来ない状況です。ごめんなさい

基本的にフォームは非連結とコンボボックスしかないです。

>>661
期間に関しては1年を超えることがなければ（まぁ、休暇申請だからまずありえないだろうが）
日付1 > 日付2で年跨ぎ問題はクリアできるだろう。
要は日付フィールドに年だけが登録されてしまうのが問題なのだろうから
それに関連がある月、日のテキストボックスが未入力、または未変更かをチェックすればいいだけじゃないの?

>>660=643
テーブル側には日付フィールドが２つあるってことだね。
これをフォーム側では西暦を省略して入力したいってことかな？
［　］月［　］日〜［　］月［　］日　→ ［開始YYYY/MM/DD］，［終了YYYY/MM/DD］

問題は>>657さんも言ってるけど、年をまたがる時の入力と
不正な値が入力されてしまった時にどうするかって事になる。
・2009/12/30〜2010/01/03 をどうするか？
・2009/13/32 をどうするか？

今から説明する方法はかなり変則的な方法になるんだけれど、
・2010/01/03は、13月03日と入力する。
・2009/13/32は、2010/02/01と解釈する。
というので良ければ、次の関数が使えるので参考にしてみて欲しい。

CDate(DateSerial(Year(Date()), Cint([テキスト月]), Cint([テキスト日])))
※メインとなるのはDateSerial関数。

期間が連続とするなら、終了日＝開始日+日数でいいんじゃねか
終了日入力はいらねぇ方法

みなさんありがとうございます。

>>663の言うとおりフォーム側では省略するけどフィールドには年月日を結合して
すべて入れておきたいです。
ただ、上記のとは別に前にも書きましたが同じようなもので
[]月[]日　午前or午後休むと言う覧もあります。（これはどちらかを入力です）
今まではYear(now)で2009を両方に必ず保存するように仕向けていたので
2009年だけは必ず出てしまう状態でした。
これをちょっとどうにかできないかなって・・・

会社的に年またぎで休みを申請する人はいないと過程ということで進めています
ので、今のところは無視してもいいようです。
関数参考にさせてもらいます。

また

>>665
だからさ、Addnewの段階で月日のテキストボックスの状態をチェックすればいいだけだって。
規定値なし、文字列だったら至極簡単。
rs.Addnew
・
・
If Not IsNull(Me!月1 + Me!日1) Then rs!日付1 = Cdate(Me!月1 & "/" & Me!日1)
・
・
rs.Update

とかするだけじゃないのか?

勝手に今年を付加してくれるのか
ほんまCdate()関数は最強やで

アクセス 2007/正規品だっていうけど、
こういう↓出品は違反じゃないの？MSに通報したろか

ttp://page11.auctions.yahoo.co.jp/jp/auction/n72939705

どこらへんが、まずいのか分からないのですが、参考までに違反だと思われる箇所を教えてください？

違反かどうかはわからんね。
実際にはアンインストールしてなくて使い続けているのなら違反だけど。

中古で出してる奴なんて多いんじゃない？

>>668
この出品者に試しにその辺（落札者様のご名義でユーザー登録することが可能です。とはあるがアクティベーションやライセンス的に問題ないのかどうか）を質問したら、
書いてあるとおりみたいな回答をもらったけど（しかも誤字が目立つ）、回答があいまいだったんでもう一度質問しようと思ったら、この出品者に対して再質問できないような
扱いにされてしまいました
この程度の質問でブラックリストに載せるのか？　超むかつく！

ブッラクリストはともかく、特に問題があるようにも思えないが？
オクションにはもっと怪しい出品が沢山ある。プロダクトキーだけの販売とか？
そう言えばアップデート版ってインストール時に古いバージョンのCDを入れろと言われるのかと思ったら
さらのWindowsXPにすんなり入ってしまった。単にライセンスだけの問題らしい。

>>673　
>特に問題があるようにも思えないが？

673はもしかして本人？ｗ
でも全く問題無い、とは言えないかもしれない・・・
一度インストールしたら、たとえアンインストールしたとしても、
他人に譲渡してはダメというのが、MSが課しているお約束なのではないか？

>>672は、質問の仕方がムカつく仕方だったんじゃないの？
もしくは、あんたがいかがわしいもの出品してたり評価悪いのついて
たりとかして警戒されたんじゃ？

>>668

>>672じゃないけど、
こんなこと付け足してある！ますます怪しい！
↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓

（2009年 7月 19日 18時 56分 追加）

一度しかインストールを行っていないので、オンラインによる
ライセンス認証は問題なくできると思いますが、もし出来なかった
場合は、落札者様からマイクロソフトにお電話して頂き、ご自分が
正規メディアの所有者であることを申し出て頂ければ、認証キーを
口頭で教えてもらえるものと思われます。

ライセンス認証について、このような方法で、自己解決して頂ける方
のみご入札ください。

返品はお受けできませんので、ご了承下さい。

アクセスに限らず、オフィスの認証、電話でするの
超ウザいよ。

高飛車なMSの電話オペレーターにあれこれほじくり返されるように
いろいろきかれる。彼らもオークションで海賊版出回ってることに
かなり神経とがらせてるからね。

>>673＝出品者！！質問に答えろ！！

入札しようと思ったけど、もしアンインストールしたっていうのが
ウソだったらとか、うまくアンイストールできてなかったらみたいに
疑いだしたら、やっぱやめとこうって感じ。安物買いの銭失いに
なりがち（まあ、PC２台まではOKなんだけどね実際は）

>>674

> >>672は、質問の仕方がムカつく仕方だったんじゃないの？
> もしくは、あんたがいかがわしいもの出品してたり評価悪いのついて
> たりとかして警戒されたんじゃ？
アンインストールやユーザ登録できるはずというのではアクティベーションできるか心配だたので、
インストール後アクティベーションできるかやライセンス的に問題ないかを軽く質問しただけです
出品者も良く分かっていない印象でした

（>>674じゃないけど）

>>679　
>出品者も良く分かっていない印象でした

そうなんだ。試しに何か質問してみようかな。

ってか、出品者にこのスレ読ませるのが先かもしれんｗｗｗ

まあ５千円ぐらいまでなら、ダメモトで札入れてやってもいいような
気もするけど。それ以上はヤダな

>>681
ライセンス認証は問題ないと思う。メンドくさくても最悪、電話でできる。

問題は、実はアンインストールしてなくて、アンインストールされてない
PCがネットにつながっていたりしたら、落札した人が起動できないかも
しれないという事態があるかも。

ライセンス的には、異なる二台のＰＣまでは同時に使用できるという
話だった気が。

譲渡って駄目だったんだっけ?

中古ソフトの販売は合法という判例はすでにでている。
マイクロソフトが契約書になんと書こうとそれは動かない。
一番の問題はこの出品者が信用できるかどうか？
私なら止めとく。

>>684 はげ道。こういうソフトは新品買ったほうがいいよ。
後でモメたくないしね。

譲渡自体は問題ないよ。
ライセンス契約書にも明記されてる。

問題は実際に出品者が使い続けるかもしれないってこと。
メディアコピーしてプロダクトキーも控えておけばライセンス認証も可能。
ライセンス認証時にユーザ登録状況の確認はされないからね。
なんとでもごまかせる。

俺なら新品未開封しか買わない。

>>684
単品Accessだものね。別段高いっていうわけでもないし、
オクなんて信用できん。

でも３０００円ぐらいで落とせて、ちゃんと動いたらラッキー
っていうのもあるけどねｗ

>>688
まあギャンブルだと思って楽しむのもいいかもな？

新品の最安値、価格comで、尼だと\21,600か・・・・

Access2007のランタイムで動かしているプログラムのレポートのプレビュー画面で、
右クリックメニューを出したいと思うのですが、そのリストはマクロでしか作れませんか？
「印刷」と「設定」と「閉じる」だけでいいのですが、マクロの「印刷」だとダイアログを出せないようなので、
昔のAccessのように普通の印刷メニューを使いたいのです。

>>691
印刷プレビューであれば、ランタイムでもribbonUI使えるけど
これではだめなのかい？

>>692
ポップアップ状態の場合にも使いたいので、右クリックで印刷をしたいと思います。

OutputToって、TransferSpreadsheetのAcSpreadSheetTypeが使えるのか。

>>691
俺も使いそうな件があって確認してみた。なんとなくだができた。
Microsoft Office 12.0 Object Library参照が必要

変なレスだったな。。。
VBAでもshortcutmenuが作成できるってことね

>>691
これ読め
http://blogs.msdn.com/access/archive/2009/05/21/how-to-create-a-shortcut-menu-for-a-form-form-control-or-report.aspx

質問します

ACCESS2000で
下記テーブル1を作成

フィールドAAAを作成
・テキスト型
・インデックスはい (重複あり)）
・あとはデフォルト
PKはオートナンバー

AAAのフィールドにAA00001〜AA02501まで
2501件レコードを作成する

下記SQLを実行すると結果がNULLになる
しかしインデックスをいいえにするとAA02501が取得できる
なぜこうなるのでしょう？
よろしくお願いします。

select max(AAA) as DATA from テーブル1 where AAA like 'AA[0-9][0-9][0-9][0-9][0-9]'

>>698
access2007:同様な現象は発生しませんでした。

>>698
Access2002では再現しました。
AA02500までや、AA02502までだと抽出できた。
2501レコードだと問題が出るっぽい。
DMaxでも同じ現象が発生。

よくこんなバグ気付いたねぇ。

近いお話で2501の倍数レコードでのLike(ry
http://support.microsoft.com/kb/418614/ja

2007でも発生しますよ

AA?????でないレコード例えばAB?????があると抽出可

Likeで抽出できるレコード数が2501(おそらく倍数含む)の場合、
同様の現象が発生すると考えられる
ちなみに
Like '[A-A][A-A][0-9][0-9][0-9][0-9][0-9]'　抽出可
Like '[A][A][0-9][0-9][0-9][0-9][0-9]'　抽出可

心配性ゆえ調べてみた。
Like "[A][A]#####"　抽出可
Like "AA#####"　抽出不可
Like "[A]A#####"　抽出可
Like "A[A]#####"　抽出不可
Like "[A]A[0-9][0-9][0-9][0-9][0-9]"　抽出可
Like "[A]A####[0-9]"　抽出可
Like "AA####[0-9]"　抽出不可
少し条件変えて、
Like "AA*"　抽出可
Like "AA#*"　抽出不可
Like "[A]A#*"　抽出可
Like "AA?????"　抽出不可
Like "[A]A?????"　抽出可
Like "AA????[0-9]"　抽出不可
Like "[A]A?*"　抽出不可

なんとなく傾向見えたかも、少し安心

(誤)Like "[A]A?*"　抽出不可
(正)Like "[A]A?*"　抽出可

(追加)Like "A[A]#####"
(追加)Like "[A][A]?*"　抽出可
(追加)Like "A[A]?*"　抽出不可
(追加)Like "[A][A]#*"　抽出可
(追加)Like "A[A]#*"　抽出不可
5002レコードでも同様だったわ。
[] # ? と1文字指定が混じるとだめみたいね。

>>692,697
VBAでならショートカットメニューが作成できるということはわかりました。
ありがとうございました。

ただ、VBAでショートカットメニューの作成は敷居が高いので
とりあえずは古いAccessでショートカットメニューを作成してそれを使うことにします。

698です。
どうもバグっぽいですね。
みなさんありがとうございました。

有用なバグ報告したら次期ｏｆｆｉｃｅが貰える件

by Leena Rao 2009 年 7 月 15 日

今週は週明けからMicrosoftのクラウド・コンピューティングに関連するビッグニュースが連続している。
まず月曜日には、Office 2010のWord、PowerPoint、Excelの無料クラウド版（ウェブ版）をデビューさせた。
今日（米国時間7/14）、Microsoftは、クラウド・コンピューティングのためのOSとして長らく喧伝されてきたAzureのビジネスモデルとリリース時期を明らかにした。
このプラットフォームにはMicrosoft SQL Azureによって利用できるウェブ・ベースのリレーショナル・データベースが含まれる。これは従来の.NETと接続して相互運用が可能だ。

まだまだ次のスレには遠いけど、そろそろタイトルの【桐にしとけ】は外さないか？
桐なら〜ってレスを見かけると、それ以上回答しようかなという気がそがれる。

970 以降に次スレ建てる & スレ建てた人に一任って事で良いんでない

桐にしとくと簡単に解決しちゃうからな

>>711
そういうことを言うから桐信者キモイとか言われるんだよな。
俺は桐も使うけどAccessも使う。
特にRDBMSに繋ぐ時は桐は事実上使えない。
パッと作って使いやすいのは桐だけど、
とことん使いやすいフォームを作るとなるとAccessのほうが良い。（手間がかかるが）
さらに突き詰めると各種言語で作成するほうが良くなる。（さらに手間がかかる）
適材適所で使いわけるのがベスト。
桐しか知らないで桐最高って言っているのは勝手だが
Access板にまで来て言うのはさすがに恥ずかしい。

Centralize business logic. Data macros allow you to write logic behind tables similar to SQL triggers.
This makes it easier to maintain applications because you can centralize business logic:

OS XP
ACC Ver 2002

テーブルAのF1から重複する番号を1つだけ残して削除するSQLを教えてください。
主キーはF2です。

自己解決しました。

DELETE *
FROM テーブルA
WHERE F2 NOT IN (SELECT Min(F2)
FROM テーブルA
GROUP BY F1);

でも、遅い。レコードセットを回したほうが速そうなので
そちらでやることにします。

>>715
まさかと思うけどF1にインデックッスつけているよね？

>>716
ついています。結局SQLは五分ぐらい。
レコードセットぶん回し（とはいっても重複のみ抽出）は数秒。
比較になりませんでした。

>>717
いったい何件のレコードを処理したの？

>>714
桐でやれば瞬時、始めから単一化ってコマンドが用意されてる
キモイですか？

>>718
7000件弱。うち、重複5件（2種、2件と3件）。

>>719
Accessでも「固有の値」を設定すれば同様のことができるようです。

>>720
カーソル移動OFFにしてからやらなきゃw

JETはサブクエリ使うとかなり遅くなる

>>720
> Accessでも「固有の値」を設定すれば同様のことができるようです。

それ、意味違うから
できないからSQL使ったりレコードセット回したりしてんだろ

>>719
キモイです
なぜなら単一化をするのが目的ではないし（それだけならAccessでも簡単）、単一化を使って重複データをどう削除するのか
全く回答に結びついてないから

桐でやれば瞬時、補集合ってコマンドも用意されてる
単一化して補集合を削除するだけで終わり
キモイですか？

キモイから、スルーしようぜ

>>725
他のソフトのいいところも分かるし、きちんと説明できるんならまあいいんじゃないの
（しつこいのはいやだけどさ）

AccessユーザーがAccessの使い方を聞いてるんだから、それは
おかしいんじゃね。>724 も書いてるけど、何の答えにもなってない。
Accessでの方法を説明した上で、「ちなみに○○だったら××ですね」
とかなら分かるけど。これじゃ単なる未承諾広告でしょ。

というか、725＝727くさい。
木同スレでやれ。

こんにちは質問です。

今非連結リストボックスが二つあります。
両方とも別々のものを表示するものです。

ですがリスト１を選んだときリスト２を選ばざる終えなくなる選択が
でるので、１が表示されたときに２も対応したのを表示するように
したいのですが、どのようにしたら良いのでしょう？

AならばBみたいな表示にしたいです。
BならばAにはしたくないです。

リストAの値を条件に、リストBのソースのクエリを作ってリストAの更新後イベントでリストBをRequeryすればいいんじゃない？
よくあるパターンかと思いますけど、違うイメージなのかな？

ん、よく見たら非連結のリストボックスの場合か、ってことは
> リストAの更新後イベントでリストBをRequery
じゃなくて、リストBの「RowSource」をSelect Case文とかで判断して、都度再設定になるのかな？
そもそも、リストBは入力の必要がある時とそうでない時があるなら、リストBの「Enabled」か「Visible」の切り替えも必要かもね

>>731
紛らわしくてすいません

A、Bともに絶対選択はします。
どちらかが空白にはなりません。

お願いします。

【 システム環境　 . 】 WindowsXP SP3, Access2007
【 VBAが使えるか .】 はい
【 VBAでの回答　　】 可
【 検索キーワード　】 ???

リストボックスにテーブルから表示させています。
表示だけで、変更してもどこにも反映させません。
そのリストボックスのSelected()メソッドを呼んで選択させたいのですが、反映されません。
フォームのロード時だけに書くと反映されるのですが、フォームのレコード変更時のところに書くと反映されません。
なぜでしょうか。

>>733
>リストボックスのSelected()メソッドを呼んで
selectedプロパティを設定ということでいいのか？
>フォームのレコード変更時のところに
このイベントは一体なんなんだ？イベント間違えてない？

エスパー気味な回答であれば、
非連結なフォーム(Recordsauce/Recordsetの設定してないフォーム)は、
Form.AfterUpdateなど、カレントレコードに関するイベントは発生しない。
Form.DataChange/Form.DataSetChangeは、ピボットテーブル用のイベントだから
通常のフォームタイプではイベントは発生しない。

反映されませんをNGでほぼ問題なし

>>734
>>735
早速のレスありがとうございます。
今読むとさっぱり意味がわかりませんね...
すいません...
フォームは分割フォームで、下半分にデータシートビューが表示されています。
連結コントロールをいくつか配置しています。
「フォームのレコード変更時」は、フォームのレコード移動時でした（Form_Currentだったと
思いますが、今Ａｃｃｅｓｓが無いので自信がありません）。
ブレークポイントを張ると止まり、テスト的に８項目をリストに追加してMe!リスト.Selected(1)=Trueとしても
値が変わりません（選択されません）。Form_Loadにおくと選択されます。
よろしくお願いします。

>>733
分割フォームね、ちょっと調子悪いよね。
それね、これでいけるはず。おれと同じところつまずいてるw
意図的にRequeryしてみてなぁ。リストボックスではやったことないけど、
コマンドボタンの活性/非活性はこれで解決した。カレント時なら、
Private Sub Form_Current()
Me.リストボックス0.Selected(1)=True
Me.リストボックス0.Requery '←←ここ
End Sub

他、データシート側での更新によるデータの競合処理の挙動とかおかしいことがあったので
分割フォームの使いどころは、俺的にはかなり限られてるのさ。

Accessで何ができるのかまったく判らないので質問させてください。

住所、氏名、電話番号、、受付日時、買い物の金額などをフォームに記載したら明細書ができるようになるプログラムを作りたいのですが
Accessでできるでしょうか？

郵便番号を入れただけで住所がでててきて番地、マンション名などを入れるだけといったようにしたいです。
また買い物金額の単価と数をいれて、配送方法、支払い方法を選んだら支払い合計金額の計算も自動で行ってくれるという風にしたいです。
できればなんですがそのデーターを残して名前など検索をかければ出てくるといったようにしたいです。

そういうソフトが市販されているのは知っているのですが、色々勉強しておけば他の業務を合理化する為のソフトを作れるようになるのではないかと思いまして
質問しました。

できるにはできますが、周りに聞く人がいないまま一人でAccessを覚えるのは大変だと思います
業務で使うならば、日々データが溜まっていくと思いますが年間でどの程度の件数になるか予想はつきますか？
件数が少ないならば、あえてAccessは使わずExcelで同様の一覧表を作ってみるのも手です

ちなみに、郵便番号のデータは日本郵便からとれそうですね
http://www.post.japanpost.jp/zipcode/dl/oogaki.html
（ただし全国が対象とすると、データ量が多くてExcelではマスタを持つのが困難でしょうから、Accessの利用がいいのかも．．．）

あれを使うと丁度良いよな

>>738
がんばれよー、
とりあえず試用版インストールして、図書館でできるシリーズでも借りてくれば
コスト0でスタートだ

住所入力支援で十分じゃね？

ノースウインドそのまま使えちゃいそうな雰囲気だな

>>739
レスありがとうございます。

ネットの某ショッピングモールに出店しており用意されている受注管理ソフトで行っていますが、1週間に２，３件程電話注文があります。
商品ページを見たけど注文の仕方が判らないらしく電話で注文をしてきます。。

その時は必要事項をメモで取り後でエクセルのテンプレに記載して明細書を打ち出しています。
このメモを取る業務を省いて電話で聞きながら登録できれば早いなあとおもいまして
あと銀行振り込みや郵便振替などの講座が複数あるのでその入金管理も大変なので融通のきいたソフトが作れたらなあなどど色々考えたりしています。

会社にはかじった位の人はいるのですがそれほど詳しくないので自分で勉強してみようとおもいました。
出来るだけの事は自分でコツコツやって判らない所はまたお世話になろうかと思います。

>>741
会社のofficeにaccessが入っているのでそれを利用しながら図書館か古本でも漁って勉強しようと思います。

住所入力支援だけでもよさそうですが、自分のスキルを上げたいので色々やってみたいと思います。

>>737
ありがとうございます。

試してまた報告させていただきます。

Access2007使用です。

テーブルの表示について
デザインビューとデータシートビューでフィールドの表示順序がずれてしまうことがあるのですが、
これを回避する方法ってありませんか。

と言うのも、データシートビューにて"タブ区切りのテキスト"を張り付けることでデータを入れようと考えています。
作業途中にフィールド表示順序が変わってしまうと作業に支障が出てしまうもので。

>>745
バグだなぁ、デザインビューで変更後に頻繁に起こる、特に条件付き書式弄った後
SP2にしたら今のところ起らない

>>746
SP2入れてデザインビュー操作したら修復できました。
ありがとうございました。

ColumnOrderで表示順を指定する方法もある

>>737
Requery試してみましたが、選択されませんでした。

「Me.リストボックス0.Selected(1)=True」のSelectedのところにマウスカーソル
を持っていくと変数の値がポップアップされますが、この行を通過する前もした後
も０と表示されます。ロード時だと０から―１になります。
何か設定が必要なのでしょうか。

>>749
一度衝突したテーマなので、試してみたぜぇ。確かに分割フォームだとからっきしだめねぇ
データシート側でのカレント時では動かないっぽいな。フォーム/データシートでのイベント
作動が微妙に違う。データシート位置を変えることで変化に気がつく。
あと試してみるとしたら、設定前にリストボックスをクリアにするくらいだろうか。
ちょっとやってみた範囲ではだめだったけど...その他の手段は思いつかないなぁ.....

A.selectedプロパティを使用(MultiSelectが1 or 2)
　多分全件試験できてないけど、
　単票フォームでは意図した作動をする
　分割フォームでは意図した作動をしない
B.Valueプロパティを使用(MultiSelectが0)
　Value設定後Requeryで、フォーム側データシート側いずれの操作でも意図した作動する
C.コントロールを変更

想像の範囲では、データシートビューで使用できないコントロールについて、同様なこと
が発生する気がしますね。詳細にリストボックスを設置した場合、データシート側では、
コンボボックスに変換されるようだから、Aでは無理かも知れん。
予想してなかったことなんだけど、今回の件で以下の内容が把握できた。
・データシートを上か右にした場合と下か上にした場合でNavigationButtonの親が違う。
・データシート側での操作の場合、データシートに表示されていないコントロールを
　参照できないことがある。
・データシート側/フォーム側のコントロールを区別して参照する方法がわからない。

解決手段はぜひレポートよろしくですよ。

誰得情報開始
分割フォーム上でデータシート側/フォーム側でのコントロール区別がついた。
Form.CurrentView プロパティで解決
誰得情報終了

>>750
ありがとうございます。
いまだにできていませんが、できるようになったらまた報告させていただきます。

ちなみに頻繁に強制終了（毎回違うタイミング、場所）するのはなぜでしょうか．．．

>>752
分割フォームいじくり倒してた時は、クラッシュしまくりだったよ。
・DefaultViewを変更しない
・データシートビュー用のプロパティを設定しない
・レコードソースをできるだけシンプルにする
・データシート側の更新を許可しない(UI仕様の変更)
・ADO/DAOなどで非連結はできれば避ける
で分割フォームがらみでクラッシュしなくなった感じですわ。どれが要因かわからない。
解決の決定打はわからんが、俺が試した順
1.データベースの最適化/修復
2.新規accdbにインポートして再構築
3.該当フォームの再作成
4.Officeの修復

開発専用ファイルで製造して、無事を確認してからメインでインポートするようにしたら
まぁまぁ大きな事故なく作業できてる。分割フォーム以外でクラッシュは経験ないに等しい。
開発：VistaUltimate(x64)/Mem8GB
主なクライアント：access2007Runtime/XpSP3/Mem2GB程度

>>271
まったく同じ現象です。
2007で誰もデータベース構造の解析って使ってないのかな…

>>751
それやるなってMSのサイトの何処かに書いてあったような…
確か英語のサイト

2010テクニカルプレビューもう日本語版になってるな

登録してきた。あとは寝て待つ。

2010
起動が早い
レポートで条件付き書式使えるようになってる、コリャァ便利
あと、罫線、つーかテキストボックスの枠線を余白なしで繋げられるみたいな感じ
テーブルイベントも動いた
ヘルプがないので後は解らん

今回の大きな新機能はテーブルイベント

>>758
テーブルイベントって、Triggerって感じ？
{after/before}:{insert/update/delete}
行単位でいけるのかしら

insert/update/deleteは勿論有るが、beforeは無いと思う
マクロだから行単位ってのは解らん

あと、フォームでデータバー表示ってのがあった

テーブルイベント実験したら行単位だった
updateのイベント設定してフィールドデータ置換かけたら全行でアクション生じた

Data macros allow you to write logic behind tables similar to SQL triggers.
ってなってっから、Triggerとは別物と考えるべきかな

ああ、ゴメン、なんか勘違い、サーバーのSQLupdateと違って自身テーブルエディットだから当然行単位か
ヘルプがないから解らないことだらけ

レポートで条件付き書式って昔から使えてなかったか？

昔からあった
フォーマットイベント使ってたorz

access97使用です。レポートが1〜10あって1のラベルの標題を変更したら残りの9〜10が一括変更になる方法を教えて下さい。前スレに似たような質問があっけど初心者なのでよくわかりませんでした。優しい方、教えて下さい。

97のサポートは終了しますた

それぞれのレポートのフォーマットイベントで、表題は○○というファンクションを呼び出すのか？

>>768
ゴメンなさい素人なもんで、ラベル:[○○○一覧表]っていうのがあってそれが10日おきぐらいに名前が変わるから1〜10までのレポートの変更するのが面倒なんですよ〜。レポート1のデザイン(ラベル)を変更したら10まで変わる方法を教えていただきたいんですが…。

>>766
レポート2〜10の開く時イベントでラベルの書き換えをすればいいんじゃない?
レポート1を開いてないとできないかも
97持ってないからできるかわからないけど

>>769
[○○○一覧表]の○○○をグローバール変数にしてそのグローバル変数を変えてやればいいのではないか？

>>770
>>771

すいません。それってもしかしてコードが必要なんですよね？教えてくれませんか？ウザくてすいません。

97のマクロに、値の代入 って無いの？

>>772
me.LABEL名.Caption = Reports("レポート1").LABEL名.Caption
Captionの前の.以外の.は!にしないとだめかも

何度もあげなくて大丈夫

もしかしてVBAを使わないでやれってことか？
そりゃあ無理ではないか？

皆様ありがとうございました。自分のような素人には、皆様のレベルについて行けませんでした。勉強不足です。ご迷惑おかけしました。

レポートで値の代入って使えるんだったかなあと思って
2007見てみたらなくなっててあせった
「すべてのアクションを表示」を押さないと出てこないのな
なんで隠したの?

オブジェクトまたはコントロールにプログラミングを追加するときは、次の優先順位に従って使用を検討する必要があります。

1.データベースを信頼しなくても実行できるアクションのみから構成されるマクロ
2.実行するためにはデータベースを信頼する必要のあるアクションを含むマクロ
3.VBA プロシージャ

ありがと
そんな区別があったんだな
1のマクロはセキュリティの警告でコンテンツを無効にしても実行できるマクロってことなのかな

マクロを使うと見通しが悪くなるからどうしてもVBA使っちゃうな

マクロか・・・
そう言えばそんなものあったかな？って程度だな。
あんなもの使う理由が見当たらない。
よっぽどVBAのほうがわかりやすい。

わざわざ、オマケで付いてるVBのサブセット使って外から操作せんでも、
マクロの方が、簡単・安全・確実・早い、だろ
マクロでできない事は、仕方ないけど

俺は、
レコードセット弄ったり、キーボードインベントとか、以外はマクロでやってるよ

釣られないからな

すんでのところで >>782 に救われた。

覚
え
た
て
の
MaxRecordsプロパティ

>>776
桐でやってごらん
たぶん簡単にできる

【 システム環境　 . 】 WindowsXP, Access2000
【 VBAが使えるか .】 いいえ
【 VBAでの回答　　】 否
【 検索キーワード　】 集計、集計クエリ、合計

「日付」　「担当者」　「原価」　「売値」　という４つのフィールドがあって
「7/15以降の担当者別売り上げ合計」を出そうと思った時にどうすれば良いのでしょう？

「Σ」を押して
「日付＝グループ化　抽出条件:>7/15」「担当者　グループ化」「原価　合計」「売値　合計」にすると
日付ごとの担当者別売り上げ合計は出るのですが、この「日付ごと」がいらないのです。
担当者ごとに１行だけ「総計」を出したいのです。

しかし抽出条件を「日付＞7/15」に設定するために「日付」のフィールドを出しているため
日付ごとのデータになってしまいます。日付を「非表示」にしても日付フィールドが表示されないだけで
日付ごとのデータになってしまう点は変わりません。

抽出条件として日付を設定しながら、日付ごとではなく総計でデータを出すにはどうすればよいのでしょう？

where条件。min, first とかでも。

*New! Web Database
Create your database in Access and publish it to the Web. Your database, including data, forms and reports, can be opened via a browser. Share it with your co-workers and friends over the Web.
? Click the Office button on the Ribbon to open Backstage view. Click New and then click Blank Web Database.
Note: This feature requires Microsoft SharePoint Server 2010 to publish and share a Web database.
*New! Navigation Form
Create navigation forms for your database without writing any code or logic. Simply drag-and-drop, and specify forms or reports to display.
? Start with an open database. On the Create tab of the Ribbon, in the Forms group, click Navigation to view a list of available navigation layouts.
Bring Ideas to Life
*New! Macro Designer and Improved! Expression Builder
New and improved tools make it easier for you to build out logic and expressions in the database.
For Macro Designer:
? Start with an open form. On the Create tab, in the Other group, click Web Macro or Advanced Client Objects, and then click Client Macro.
For Expression Builder:
? Start with an open table. On the Table Tools Modify Fields tab, in the Fields & Columns group, click Calculated Field.
*New! Application Parts
Save time and effort by re-using database parts built by others for your database.
? Start with an open database. On the Create tab, in the Templates group, click Application Parts.
*New! Data Macros
Use Data Macros to attach logic to your data ? centralizing the logic on the table, not the form. Write your logic with ease using Macro Designer and make it snappy with Data Macros.
? Start with an open table. On the Table Tools Modify Fields tab, in the Table Logic group, click Create Table Events.

*New! Office themes
Easily apply consistent, professional designs across your Access databases using Office themes.
? Start with an open form or report. On the Home tab, in the Views group, click View and then click Design View or Layout View.
? The Form (or Report) Layout (or Design) Tools tabs appear automatically, based on your view.
? On the Design tab, in the Themes group, click Themes.
*New! Web Browser control
The Web Browser control is great for enabling Web 2.0 content integrated inside an Access Form.
? Start with an open form. On the Home tab, in the Views group, click View and then click Layout View or Design View.
? The Format Layout (or Design) Tools tabs appear automatically, based on your view.
? On the Design tab, in the Controls group, find controls including the Web Browser Control, Label, Button, List Box, Tab Control, and Subform/Sub Report.

*New! Data bars
You can create rich and dynamic reports that support Data Bars and rich Conditional Formatting to gain insight on the data.
? Start with an open report. On the Home tab, in the View group, click Design View or Layout View.
? Select a numeric field. On the Report Layout (or Design) Tools Format tab, in the Control Formatting group, click Conditional Formatting.
? In the Conditional Formatting Rules Manager dialog box, click New Rule. Then, in the New Formatting Rule dialog box, under Select a rule type, click Compare to other records.
*Improved! Spot trends quickly to gain insights in Microsoft Access 2010.
Now you can apply Conditional Formatting to your Access 2010 reports. Both you and your audience will more easily spot trends, helping you make better decisions.
? Start with an open report. On the Home tab, in the Views group, click View and then click Design View or Layout View.
? The Report Design (or Layout) Tools tabs appear automatically. Select a control and then, on the Format tab, in the Control Formatting group, click Conditional Formatting.
*Improved! Pre-built database templates
Find templates that you can start using without customization on Microsoft Office Online. You can also select prebuilt Community-Submitted database templates and customize them to meet your needs.
? Click the Office button to open Backstage view. Click New and then search Office Online for templates.
*New! Backstage view
The Backstage view replaces the File menu to help you get to the tasks you need and complete your work more efficiently. With Backstage view, you get a single location for essential information
about your database such as permissions and version information. You can also find new and existing templates, and sharing options including print, online and e-mail.
? Click the Office button (which appears to the left of the Home tab on the Ribbon) to open Backstage view.

*Improved! Ribbon
Find the right commands quickly so you can focus on results. Ribbon tabs can now be customized or replaced with your own custom tabs. Through the Options menu in Backstage view,
you can easily create new tabs that bring together your favorite commands and groups. Existing tabs can also be customized to fit your needs.
? The Ribbon replaces the menus and toolbars and is located along the top of your screen

**Enable Teams to Work Together More Effectively
*New! Web Services connection and support for Microsoft SharePoint 2010 Business Connectivity Services (BCS)
You can now connect to data sources via Web service protocol. Include Web services and line-of-business applications data right in the applications you build.
For Web Services connection:
? Start with an open database. On the External Data tab of the Ribbon, in the Import group, click Web Service.
For Business Connectivity Services:
? This feature is configured in SharePoint Server 2010.
*Improved! Data caching and synchronization
This feature has been improved to enable you to take a Web database into offline mode. Any changes made in offline mode are automatically synchronized with the master database on the server.
? Open any Web database that has been published to SharePoint Server 2010 and then make changes to data, forms or reports.
? Click the Office button to open Backstage view and then click Sync All.
? To sync changes back, click Sync All.
Note: This feature requires SharePoint Server 2010 and is enabled after publishing to SharePoint

**Anywhere Access to Your Work
*New! Get access to the database from virtually anywhere
You can now access, save and edit data from your desktop application, Web browser, or Smartphone.
? With an Access database open, click the Office button to open Backstage view. Click Share and then click Publish to SharePoint.
Note: This feature requires Microsoft SharePoint Server 2010 to share it as a Web Database.

sharepointを推してきてるんかのぉ

【 システム環境　 . 】 WindowsXP, Access2003
【 VBAが使えるか .】 可 ( 初心者ですが)
【 VBAでの回答　　】 可
【 検索キーワード　】 AccessのテーブルからExcelへの値移行

すみません、失礼します。

現在顧客向け商品台帳を作ろうとしています。
作りたい内容としては、フォームのボタンをクリックすると、
同データベース内指定のテーブルにある値を,指定した
Excel内の指定したセルへの挿入です。
マクロを使い指定したExcelまでは起動するのですが、
その後上手い事テーブル内のデータをエクセルへ挿入出来ません。

始めは下のようなコードを書いたのですが、フォームのテキストから
しか値が移りませんでした。(rsはエクセル行の変数で繰り返し
処理に使おうと思っています）
oApp.Range("C" & rs).Value = Me!JANCD

どうやったらExcelの指定のセルへテーブルのデータを移行出来るでしょうか。
宜しくお願い致します。