★Microsoft Access★ - 暇つぶし2ch

★Microsoft Access★ ..

196:デフォルトの名無しさん
05/11/07 16:10:41
別の掲示板で質問してみたのですが、回答がいただけなかったのでこちらで質問
させてください。
OS:2000 Access:2000
フォームに貼り付けたコントロールボックスにPCにインストールされているフォ
ントの一覧を表示したいのですがやり方がどうにもわかりません。
アドバイスお願いします。

197:デフォルトの名無しさん
05/11/07 16:27:31
>>196
API使うしか無いような希ガス。詳しくは知らない。

198:デフォルトの名無しさん
05/11/07 16:47:32
>>196
オマエ回答をもらった直後にそれはないんじゃないか。

URLﾘﾝｸ(www2.moug.net)

199:デフォルトの名無しさん
05/11/07 17:03:00
API使うのは嫌なのか……

200:デフォルトの名無しさん
05/11/07 18:03:18
>>198
回答いただいていたとはわかりませんでした。お騒がせしました。

201:デフォルトの名無しさん
05/11/09 13:50:13
ご質問します。
Aフォームのテキストボックスへ、
BフォームのサブフォームであるBサブフォームの
テキストボックスの値を取得したいとき、
Aフォームのテキストボックスの、コントロールソースに

=[Forms]![B]![Bサブ].[Forms]![Bサブテキストボックス名]

と記述したのですが、値を取得できません。
なぜでしょう。
ご指導のほど、よろしくおねがいします。

202:デフォルトの名無しさん
05/11/09 14:05:35
> =[Forms]![B]![Bサブ].[Forms]![Bサブテキストボックス名]

=[Forms]![B]![Bサブ].[Form]![Bサブテキストボックス名]

じゃないの。

203:201
05/11/09 14:05:50
訂正です。

=[Forms]![B]![Bサブ].[Form]![Bサブテキストボックス名]

と入力しています。
よろしくおねがいします。

204:201
05/11/09 14:07:20
>>202
すいません。訂正遅かったようです。
=[Forms]![B]![Bサブ].[Form]![Bサブテキストボックス名]
と入力しているのですが、値を取得できません・・・

205:デフォルトの名無しさん
05/11/09 15:13:44
で、値を取得できずにどうなってるの？

○○エラーになるとか、給料減らされたとか、
何か現状ってのがあるだろう。

206:201
05/11/09 15:32:03
何もなりません。
空白ですね。
MDB最適化したら直りました。
ご迷惑おかけしました。

207:デフォルトの名無しさん
05/11/09 19:37:15
どう見ても精子です。
ありがとうございました。

208:デフォルトの名無しさん
05/11/15 15:39:46
メインフォームの非連結のテキストボックスに納品日を入力したら
サブフォームのテーブルにそのデータを反映させるやり方がわかりません
どなたかご指導よろしくお願いします

209:デフォルトの名無しさん
05/11/15 16:12:02
>>208
AfterUpdateイベント

210:デフォルトの名無しさん
05/11/29 17:24:15
Access2000です
帳票フォームについて質問があります

オプションボタンのはい、いいえを選択し、
値によってテキストボックスの色を変更したり仕様不可にしたいと考えています
backcolorやEnabledプロパティを変更すると
全てのレコードの色が変わってしまったり仕様不可になったりしてしまいます
特定のレコードのみ行うということは出来ますでしょうか?

211:デフォルトの名無しさん
05/11/29 17:27:16
できません

212:デフォルトの名無しさん
05/11/29 17:27:59
ああ、でも条件付き書式でなら一応は可能。
オプションボタンの値をレコードに保存してないとダメだろうけど。

213:デフォルトの名無しさん
05/11/30 17:43:15
>>210をよく読まずにカキコ

入力内容については更新前処理やら更新後処理やらで特定の条件時に事実上
テキストボックスに値を入れさせない処理はできるはず。

テキストボックスの色をレコード毎に変えるのは不可能。

が、
※色が透明なテキストボックスは作れる。
☆詳細セクションに連結オブジェクトフレームは配置できる。
ΨテーブルにはOLEオブジェクトを保存する事が出来る。
♪連結オブジェクトフレームのコントロールソースにはDlookup関数が指定できる

まあ、がんばれ（手間を掛ける価値があるのなら）

214:デフォルトの名無しさん
06/02/07 00:39:46
test

215:デフォルトの名無しさん
06/02/07 00:42:01
このスレ、dat落ちしたと思ってたんだけど、まだ生きていたんだな

216:デフォルトの名無しさん
06/02/13 20:19:44
access2000のVBAで質問です。
あるルーチンの処理時間を測定したいのですが、
ミリ秒くらいの精度で測定する方法を教えてください。

217:デフォルトの名無しさん
06/02/13 21:16:36
API

218:デフォルトの名無しさん
06/02/13 21:16:56
APIの
GetTickCount()とか
timeGetTime()。
1msecの精度があるといわれているのはtimeGetTime()
つか、Accessでmsec単位必要なの？

219:デフォルトの名無しさん
06/02/13 22:19:07
>>218
ども。やってみます。
ロジックによる処理速度の違いをアンポンタンに分かるように数字で見せる必要があったので。。。

220:デフォルトの名無しさん
06/02/14 00:00:17
access2003での質問です。

フォームのテキストボックスに規定値を与えようとしてます。
そのとき、欠番を取得するクエリを利用したいのですが、うまく動きません。
テキストボックスのプロパティ、規定値へ、クエリを参照して指定しています。
表示される内容は#Name?となっています。
クエリ単体での動作は確認とれました。

規定値へクエリを埋め込む場合、何か注意が必要ですか？

221:デフォルトの名無しさん
06/02/14 07:22:35
規定値にクエリ使えるなんて初耳。勉強になるなぁ。

222:デフォルトの名無しさん
06/02/17 17:27:15
access2003の質問です。
VBA上からレポートのVBAコードをエクスポートしたいのですが、

Dim appAccess As Object
Set appAccess = CreateObject("Access.Application.9")
appAccess.OpenCurrentDatabase "target.mdb"
appAccess.VBE.ActiveVBProject.VBComponents("レポート").Export "hoge.vbs"

とモジュールと同じような感じでやってみると
エラーになってしまいます。
何か良い方策はないでしょうか。

223:デフォルトの名無しさん
06/02/17 18:39:10
そういやageないと誰も気づきませんね....orz

224:デフォルトの名無しさん
06/02/24 02:09:01
「レポート」っていうのは、レポート名？
モジュール名なら、「Report_レポート名」で指定しないと。

225:デフォルトの名無しさん
06/02/25 01:00:42
アクセスｍｄｂから、サイト上のｍｄｂに接続することって可能でしょうか？

226:デフォルトの名無しさん
06/02/25 02:15:24
サイト

〔at sight（一覧で、提示あり次第、の意）から〕手形などの決済期限。

227:デフォルトの名無しさん
06/02/25 11:21:02
webサイトのことだとして

サイトがローカルのWindowsネットワーク上にあるなら可能。
サイトがWANの向こうでも、VPN接続したり
Web Services Toolkit みたいな仕組みを取り入れたりして頑張れば可能。

228:デフォルトの名無しさん
06/03/07 21:40:27
ACCESS＋SQL ServerでADO開発を行うのですが、お勧め本とか
あったら教えて下さい。
特に、排他制御等のトランザクション制御に関して、詳しい情報を
探しています。

229:デフォルトの名無しさん
06/03/07 22:09:05
ここの住人にアクセスメインな人はいないと思われ。
ビジネスsoftかデータベースにでも移ったら？

230:デフォルトの名無しさん
06/03/08 09:52:17
>>229
お前がそんなレスするから>>228が向こうでマルチしまくってるじゃないか

231:デフォルトの名無しさん
06/03/08 11:25:34
マルチの原因はスレのミスマッチ
あるべき所に必要なスレが望ましい

232:http://www.vector.co.jp/soft/win95/util/se072729.html
06/03/18 21:59:37
TextSS　のWindowsXP(Professional)64bit対応化おながいします

もしくは64bitにネイティブ対応したテキスト置換ソフトありますか？

そういや64bitにネイティブ対応している２ｃｈブラウザてありましたっけ？

233:デフォルトの名無しさん
06/04/03 17:54:54
Excel VBA では
dim d1 as double,d2 as double
d1 = 3
d2 = Application.NormSDist(d1)
msgbox d2

といったコードで標準正規分布が得られるのですが
AccessのVBAではエラーになるのです。
Accessで標準正規分布を得るにはどうすればいいでしょうか。

234:デフォルトの名無しさん
06/04/04 06:21:54
自己解決しますた

VBエディタを開く
メニュー／ツール／参照設定／Microsoft Excel 9.0 or 10.0 Object Libraly をチェック
d2 = Excel.Application.NormSDist(d1)

しかし遅い遅い

235:デフォルトの名無しさん
06/04/04 22:50:03
Access 2002 で clone とか find とかつかったらすぐコケるんだが、
（find は2度目使うと）
なんでだろ？

236:デフォルトの名無しさん
06/04/05 00:38:20
日本語でおｋ

237:235
06/04/05 18:35:57
>>236
それかよ　＿|￣|○ili　俺にはどうしようもない
（ﾟ∀ﾟ）さすがにどうしようもないな。ああ、どうしようもない。どうしようもないのだよ。

238:デフォルトの名無しさん
06/04/05 22:44:10
日本語が不自由な方がいますね

239:デフォルトの名無しさん
06/04/10 23:13:10
こんばんわ。
唐突に、先輩から「この原因調べて」と言われてあたふたしてます

XP+Access2003でCSVからtransfertextでインポートするVBAﾌﾟﾛｸﾞﾗﾑなのですが・・・
以下簡単なCSV

"aaa","bbb","ccc"
__________"aaa2","bbb2","ccc2"
__________"aaa3","bbb3","ccc3"
__________

こんなCSVﾌｧｲﾙをとりこんだ時、２データ目からはエラーで取り込めません
何故２データ目から空白が先頭にあるのかも聞いてもわからない、でした
ACCESS97では普通に取り込みが出来たそうです。

このﾌｧｲﾙ、テキストで開くと空白が確認できますが、Excelで開くと空白を無視して
ちゃんと表示されています。
なので、ACCESSでも何かしてやれば先頭の空白を無視して取り込めるのではないか、
と思うのですが・・・なんともならないでしょうか？

240:デフォルトの名無しさん
06/04/11 09:01:14
ｲﾝﾎﾟｰﾄする前に置換処理すればいいじゃない

241:239
06/04/11 22:06:28
まあ、今日のところは結局開いて空白消すような処理放り込んで凌ぎましたorz
何十万件単位であるらしいから１行読んで消してなので重くなるかな・・・と。

でもお客さんの操作は今までの通りで、って事だしとまあ挟み撃ち(´･ω･｀)
引き続き自分でも原因等調査ですよ・・・

242:デフォルトの名無しさん
06/08/18 01:27:37
未だに９７使いなんですが質問してもいいですか？

243:デフォルトの名無しさん
06/08/18 03:01:32
>>242
どぞー

244:デフォルトの名無しさん
06/08/18 06:25:22
>>243
ありがとうございます。

早速なんですが
クロス集計を使ってグラフ表示をしようと思って居るんですが、なかなかうまくいきません。

具体的にはクロス集計時に、ダイレクトに集計条件をクエリ内に記述すると問題ないのですが
条件に

[Forms]!フォーム名]!コントロール名]

で絞り込みを使用とすると

<名前> を有効なフィールド名、または式として認識できません。

のエラーがでてうまくいきません。　ほかの選択フォームなどでは問題なく出来ていた方法なの
ですが、クロス集計では集計の絞り込み条件をフォームからコントロールしたい場合特別な記述
方法があるのでしょうか？
ご存じの方おられましたら、よろしくお願いします<_o_>

245:デフォルトの名無しさん
06/08/18 09:33:31
>>244
角括弧

[Forms]![フォーム名]![コントロール名]

246:245
06/08/18 12:35:57
>245

申し訳ないです。　コピ編集のミスでそうなってますが、クエリではきちんと記述は出来ています

選択クエリとクロス集計での記述法に違いがあるような情報を見つけられなかったのですが
他の方法をとらないとだめなんでしょうか？　

247:デフォルトの名無しさん
06/08/18 13:09:10
>>244
色々試してみたらどうでしょう

Forms!フォーム名.コントロール名
Form_フォーム名.コントロール名

問題部分がココ以外にあるのならその部分のコードを見ないことにはアドバイスのしようがないけどね

248:デフォルトの名無しさん
06/08/18 13:34:34
Eval("[Forms]![フォーム名]![コントロール名]")

249:245
06/08/18 23:37:10
>>248

ありがとうございます！　うまく抽出できました。

これでまた進めることが出来ます。
ありがとうございました

250:245
06/08/18 23:39:11
ご意見くださった方々、本当にありがとうございました。

本格的に使ってこなかったので、皆さんのご意見励みになりました。
また助けていただくこともあろうかと思いますが、よろしくお願いします。

251:デフォルトの名無しさん
06/08/23 19:10:46
ACCESSで作った住所録を地域別に３つに分割して、
それぞれで入力・修正した後、結合したいと思います。
※これらはLANで繋がってはいません

これらの個々のデータは自動でIDがふられるようになっています。
このままですと３つのアプリで同じIDがふられてしまいます。
これを回避する方法をお教えください。

252:デフォルトの名無しさん
06/08/23 20:52:07
GUIDでも振っとけば？

253:デフォルトの名無しさん
06/08/25 08:53:45
教えてください

openformで　where以下の条件を記載するとき、order byを記入するとエラーになります。

このときに降順表示をさせるためにはどのように記入すればいけるのでしょうか？
クエリ内への記載はその時々により条件が変更されるために、とるとこが出来ません。

よろしくお願いします。

254:デフォルトの名無しさん
06/08/26 11:55:05
> openformで　where以下の条件を記載するとき、order byを記入するとエラーになります。

WhereCondition 引数は、Where 句を指定するところであって、
「where以下の条件を」全部書けるところじゃねぇよ。
ちゃんとヘルプ嫁。

OpenArgs 引数で OrderBy の条件渡して、開かれるフォーム側で
処理するか、呼び出し側から直接 OrderBy ブチ込めば。

255:デフォルトの名無しさん
06/08/30 04:39:22
意外と機能してるんだなこのスレｗ

256:質問です。
06/10/08 00:40:58

Accessに画像データ・動画（mpg / avi）等を保存するにはどうすれば良い
でしょうか？

あと、すれ違いかもしれませんが上記と同様の事をDB2・Oracle等にも
行う事は可能でしょうか？

257:デフォルトの名無しさん
06/10/08 08:49:16
>>256
OLEオブジェクトを埋め込みすれば可能だが、MDBのファイルサイズがすごいことになってしまうので
ファイルは普通のフォルダに格納してAccessでファイル名やパスだけ管理するほうがよい。
ファイルの操作はVBのファイル操作ステートメントやFileSystemObjectを使えば出来る。

また、Access2007では添付ファイルを格納できる新機能があるらしい。

258:　256
06/10/08 17:32:00

>>257さん
ご回答ありがとうございます。
これから試してみます。

259:デフォルトの名無しさん
06/10/12 12:45:34
Accessの整理をするために、全てのフォームの全てのコントロールやその種類などを取得したいと思ってます
対象のフォームを開かずに1つのmdbファイルの全てのフォームとコントロールを取得する方法を教えて頂けないでしょうか？

260:デフォルトの名無しさん
06/10/12 12:56:50
使い勝手はよくないけど、とりあえず、
ツール→解析→データベース構造の解析
ダイアログの「フォーム」「すべて選択」「OK」で
プロパティ、コントロールとかもろもろの一覧が表示される。

261:デフォルトの名無しさん
06/10/16 14:07:46
こんにちは、CHRISと申します。

サーバー上にMDBを置いて、2台の端末を使って1つのレコードの同じ項目を
同時に更新しようとしました。そしたら、「マシン 'XXX' のユーザー 'YYY' に
よってロックされているので、更新できません」というエラーメッセージが
表示されて、2台の内1台のマシンで更新処理ができませんでした。

MDB自体にロックがかかっているのか、レコード単位でロックがかかっている
のか分かりません。ASPを使っているのですが、MDBを開いてSQLを発行している
処理で落ちているようです。2台の端末を使ってMDBを同時に更新する場合、
更新のタイミングが遅かった方は何秒おき毎かでリトライをして、どうしても
更新できない場合はエラーメッセージを表示させて、「落ちない」ようにする
というような、具体的な何かよい解決方法はありませんか？

よろしくお願いします。

262:デフォルトの名無しさん
06/10/22 00:15:39

質問させて下さい。

Accessとして格納出来るデータ容量に関する質問です。

Ｑ１．最大ＭＤＢとして何ギガバイト迄格納する事が出来ますか？
Ｑ２．本格的な業務システムを構築しようと思っているのですが（低コストの為）
　　　.NET( C# or VB.net)　＋　Access
　　　ＶＢＡ　＋　Access
　　　どちらの方が良いでしょうか？

263:デフォルトの名無しさん
06/10/22 00:33:01
A1.２G
A2.悪いことは言わんから業務システムのDBにMDB
使うのはやめとけ。

264:デフォルトの名無しさん
06/10/22 00:38:17
>>263
どうもありがとうございます。
因みにＳＱＬserverでしたら何ギガバイトまで可能でしょうか？

265:デフォルトの名無しさん
06/10/22 00:54:36
MDB　2GByte
MSDE　2GByte
MS SQLServerにファイルサイズによる上限はない

266:デフォルトの名無しさん
06/10/22 01:03:16

>>265
ご丁寧にありがとうございます。

267:デフォルトの名無しさん
06/10/24 00:43:18
Prepared使うとAccessごと落ちるな。。。
DBはSQL　ServerでクライアントにAccess使ってる。

Insert　Into　hoge　(idNo)　values(?)
って感じの単純なInsertなんだがな。

268:とら
06/10/25 01:55:46
データベース（例えばDB２）とかなら一度作成したテーブルの上で
右クリック→DDLの生成とすれば、そのテーブルのDDL（CREATE文等）を
簡単に生成する事が出来るのですが、Accessではそういったコトは
出来ないでしょうか？

269:デフォルトの名無しさん
06/10/25 20:23:44
出来ない。
フリーウェアを探すか自作汁。

270:とら
06/10/26 00:34:19

>>269
そうでしたか、、、
使えませんね。Access。
因みにフリーウェア名とか知っていたら教えて頂けないでしょうか？

271:269
06/10/26 01:11:59
３万円以上する外国製のシェアウェアなら、たまたま知っている。

フリーウェアがあるのかどうかは、知らない。

272:とら
06/10/26 02:30:11

271
>>シェアウェアの名前は何ですか？

273:デフォルトの名無しさん
06/10/26 15:51:11
>>272
それがCREATEだけの話なら、選択クエリを作ってそれをテーブル作成クエリにしたらいいんじゃね？

274:271
06/10/26 20:29:37
>>272
> シェアウェアの名前は何ですか？

DBExplorer

▼スクリーンショット
URLﾘﾝｸ(www.slik.co.nz)

▼サイト
URLﾘﾝｸ(www.sliksoftware.co.nz)

汎用の DB 管理ソフトで、別に DDL 生成用ではないが、機能の一部として
DDL 生成機能もあるらしい。自分は、実際に使ったことは無いので、詳しい
ことは知らない。
評価版を DL できるので、興味があれば落として確認するとよい。

ただし Access のテーブルには DDL では作れないプロパティもあるので、
汎用ツールで生成された DDL での再現率には限度がある点を承知おかれたい。

275:tora
06/10/26 21:42:13
>>273
なる程。そういう手がありましたね。ありがとうございます。

>>274
これから確認してみます。

276:デフォルトの名無しさん
06/11/09 10:06:15
すいません、質問させてください

現在Access97+MDBで動いているシステムを
Access2000+SQLServerに移行しました

ですが、直後から残像が残るといわれまして確認したところ
１：ただ、リフレッシュされていない
２：フォームから取得する値を間違えて取っているような挙動をしているもの
の二通りがありました
１に関してはリフレッシュ、リペイントの厳密性の違いなのでしょうか・・・？
直ったには直ったのですが少し不思議でしたので

２に関してですが明細クエリの検索条件にフォームのコンボボックスに入れてある値を
[Forms]![サブフォーム名]![サブフォーム内のコンボボックス名]で取っているのですが
コンボボックスを空にして検索しても空になっているとクエリが判断せずに
以前の値を参照しつづけているようなのです
多分これも97から2000に移行した際の不具合だとは思うのですが皆目検討がつきません

もしよければ教えて頂けないでしょうか
よろしくおねがいします。

277:276
06/11/09 14:55:54
すいません、書き忘れました
２の以前の値を参照し続ける状態ですが
毎回起こるわけではないようです

普段はコンボボックス内容が変われば自動で変わるんですが
変わらない時があり、一度変わらないようになると
その画面自体を終了させないことには直らない状態です

278:デフォルトの名無しさん
06/11/09 15:30:38
>276-277
同様のトラブル(起こることは稀で、現象出すための操作はある程度つかめている)を持ったことがあるよ。
もしかして、VIEW表間に噛ませて、FormとSQLｻｰﾊﾞでやりとりしてない？
どうも複数のFormを開いたり、トランザクションがぶつかったりして(デッドロック？)、
使っているVIEW表を解放していないようなんだよな。

279:276
06/11/09 15:35:22
＞２７８さん
VIEW表というのはＳＱＬＳｅｒｖｅｒのＶＩＥＷでしょうか
それともＡｃｃｅｓｓ側のクエリでしょうか

今回はSQLServerをリンクテーブルとして読み込み、それをAccessクエリで一部項目を
抽出し、画面に出力している状態です。

280:デフォルトの名無しさん
06/11/09 15:44:31
自分の場合は、同一SQLｻｰﾊﾞVIEW表を使った別々のAccess側クエリで問題ありと問題なしがはっきりでたので
ACCESS側クエリに問題ありであった模様のようだった

281:276
06/11/09 15:47:58
情報ありがとうございます！

対策としては
・AccessクエリをSQLServerのViewにあげてそれを直接参照する
・クエリを使わずＳＱＬ文でそのつどレコードセットに格納する

くらいですかね…？
何か他に妙案あったら教えてください。

282:デフォルトの名無しさん
06/11/09 16:06:11
できるだけSQLサーバのDBMSの機能に乗っかるのも手の一つだと思うけど、
やはりクライアント側の一時表は使わないと、ロックの粒度がきつくなるから、
値の取得、参照に限って言うなら、
同一の人、同一のクライアントであっても、クエリごとに別クライアントと考えて、
新たにクライアント側に一時表を作ってあげるのも手の一つではないかなと。

283:276
06/11/09 16:24:00
すいません

＞新たにクライアント側に一時表を作ってあげる
というのがいまいち理解しきれなかったので詳しく教えていただけると幸いです
一時表、というのはどのような形で作ればいいのでしょう・・・

284:デフォルトの名無しさん
06/11/09 16:38:22
いや単に、
一時表=クエリ(ACCESS側)･或いはVIEW作ってる?(ACCESS側)
です
一時表の利点としては、「見る」という動作に限ると(予約等を含むなら別ですが)、
一時表を作った後は、他を解き放てるので、いくつ作ってもデッドロックのリスクは少ないでしょう。
「見る」という動作に限ると、クエリをクエリで流用したりとか、そういうことはやめて、直接SQLサーバを参照するクエリを新しくどんどん作っていってはどうかと。
そこで、
・AccessクエリをSQLServerのViewにあげてそれを直接参照する
をよくよく読んでみるとそういう意味なのかなと思ったりするので、そうであったらすみません。

285:276
06/11/09 16:55:40
ふむ・・・要するにクエリ１を使用してクエリ２を作るような事をせず
ＳＱＬＳｅｒｖｅｒのテーブルを直接参照してクエリ２を作れって事ですかね？

いろいろとありがとうございました
どの方法が一番ベストか、ちと検討してみます。

286:デフォルトの名無しさん
06/11/16 00:57:15
すみません。レポートのプレビュー画面で、「ファイル」、「編集」などの
「メニューバー」を非表示にしたいのですが。どうすればよろしいので
しょうか。お願いします。

287:デフォルトの名無しさん
06/11/19 03:14:15
Private Sub Form_Open(Cancel As Integer)
CommandBars("Menu Bar").Enabled = False
End Sub

288:デフォルトの名無しさん
06/11/28 15:28:45
Windowsのタスクを使わずに、MDBファイル自身で
マクロを9時～16時の間だけ一時間置きに実行させることはできますか？

289:デフォルトの名無しさん
06/11/28 18:09:15
フォームにはタイマーイベントがある。

290:デフォルトの名無しさん
06/12/17 06:13:06
すみません。Accessでも、アプリは作れますか？

291:デフォルトの名無しさん
06/12/17 06:28:36
フォームとかあるじゃん。
VBとほぼ同じ仕様でほぼ同じことが出来るよ。

292:290
06/12/17 06:33:55
>>291
ありがとうございます。AccessでもVBレベルのアプリが作れるとは、、、

293:デフォルトの名無しさん
06/12/18 14:44:31
動的にコントロールを生成できなかったり
コントロールを配列にできなかったり
描画処理ができないのに　　ＶＢＡ　でＶＢレベルのアプリが組めるんですか？

294:デフォルトの名無しさん
06/12/19 05:30:22
>>292 から >>293 に至る伏線はどこか別スレにあるんだろうか

295:デフォルトの名無しさん
06/12/19 19:48:24
ADPの場合、ローカルにテーブルは作れませんが、一体全体どうすれば
いいんですか？

296:デフォルトの名無しさん
06/12/20 22:29:18
>>293
おまえがアフォなだけ

297:デフォルトの名無しさん
06/12/21 00:46:20
レポートでヘッダーを縦印刷、詳細を横印刷、フッターを縦印刷って
可能でしょうか？
レポートのコードで
ヘッダーにPrinter.Orientation = acPRORPortrait
詳細にPrinter.Orientation = acPRORLandscape
を指定してもずっと縦か横にしか印刷されませんでした。

298:デフォルトの名無しさん
06/12/21 03:01:23
>>296
素人は力仕事でなんでもできると思っているが。。。ＶＢＡは所詮ＶＢＡ

299:デフォルトの名無しさん
06/12/21 10:06:45
VBでmdbにデータを保存/読出を行うソフトを作ったんだが、
accessが入ってないパソコンにそのソフトをインストールして使用する場合、
どうすればいいの？accessを入れるしかないの？

300:デフォルトの名無しさん
06/12/21 12:42:46
そうだお

301:デフォルトの名無しさん
06/12/21 18:35:09
>>295
正解はｺｺ
<a href="URLﾘﾝｸ(www2p.biglobe.ne.jp)

302:デフォルトの名無しさん
06/12/21 20:42:44
>>301
さんきう。
色々方法あるのね、、SQLServerのストアドは権限の問題で使えないので、
やっぱ素直にMDB使うことにする。

303:デフォルトの名無しさん
06/12/21 21:25:24
>>299
> VBでmdbにデータを保存/読出を行うソフトを作ったんだが、

そこを詳しく書け。
Accessオートメーションなら当然Accessが必要だし、
DAO/ADOオンリーなら元からAccessは関係ないだろ。

304:デフォルトの名無しさん
06/12/22 17:42:50
>>299
っていうか、そのテストはすぐに出来るだろ。
Access入ってないパソコンで実行してみればいいだけだ。
それくらいやれよ

305:デフォルトの名無しさん
06/12/25 19:53:55
>>299
MDAC でググレカス

306:デフォルトの名無しさん
06/12/27 16:23:41
質問です。（access97・winXP）

プロシージャで、Month([日付])関数が働きません。

同じプロシージャ内のYear([～])やDay([～])も、
同db内のクエリーのMonth([～])も出来るのに…。

何故でしょうか？

307:デフォルトの名無しさん
06/12/27 20:50:38
どんなエラーが出るか書け
話はそれからだ

308:306
06/12/28 18:31:17
「日付」コントロールを持つ、フォームＡの「更新ボタン」クリック時、
フォームＢの「日付2」に一年後の日付を入れる…というのが目的で、

日付2 = DateSerial(Year([日付])+1,Month([日付]),Day([日付]))としたら

実行時エラー13
型が一致しません

と出ます。

Month([日付])の部分を、1とか数字にすると、一応「日付2」に値は入ります。（無意味な値ですが；）
また、プロシージャを書いている際に、monthと小文字で書いても自動でMが大文字にはなりません。

ちなみに、日付2 = DateAdd("yyyy", 1, [日付])にしたら成功したので、今回は結果オーライなんですが…。

309:デフォルトの名無しさん
06/12/28 20:44:29
参照設定で
Visual Basic For Applicationsをトップにもってくる

310:306
06/12/28 20:56:55
>>309
開いてみたら、既にトップでした。

以下は
Microsoft Access 8.0 Object Library
Microsoft Dao3.51 Object Library
Microsoft Office Web Components 11.0
Microsoft activeX Data Objects 2.8 Library

…となっております。

311:デフォルトの名無しさん
06/12/28 22:03:44
MsgBox TypeName([日付].Value)
がDate？

312:306
06/12/28 22:32:58
>>311
はい。Dateです。

313:デフォルトの名無しさん
06/12/29 01:31:56
オブジェクトブラウザでグローバルオブジェクトの
monthが
Function Month(Date)
VBA.DateTime のメンバ
になってる？

314:306
07/01/06 19:43:50
レス遅れてすみません。自己解決しました。

dbの中に「month」という名のコンボボックスとクエリーが有り、(仮作成のままでした)
それらの名前を変更したら、>>308の
>日付2 = DateSerial(Year([日付])+1,Month([日付]),Day([日付]))
が成功しました。(未だmonth小文字のままですが)

>オブジェクトブラウザを示して頂いた>>313のお陰で気付きましたが、
初歩的なミスでお恥ずかしい。。。（/ω＼）

お手数割いて頂いた方々、ありがとうございました。

315:デフォルトの名無しさん
07/01/09 17:58:04
起動時の設定で「すべてのメニューを表示する」というチェックを外すと
ファイル、ウィンドウ、ヘルプしか表示されなくなりますが、
これをVBAから元のチェックの付いた状態に戻すことは可能ですか？
CommandBars("Menu Bar").Visible=True
としてもダメでした。

316:デフォルトの名無しさん
07/01/10 12:57:03
>>CommandBars("Menu Bar").Visible

どうみても消えるだけだが･･･
も少し見てみれば判ると思う
チェックの状態のぷろぱちぃがあるだろうに

317:デフォルトの名無しさん
07/01/10 21:53:12
>>316
CurrentDb.Properties("AllowFullMenus")=True
これでいけました。どうもでした。

318:デフォルトの名無しさん
07/01/10 22:26:20
便乗だけど、それAccess再起動しないといけないよね？

319:デフォルトの名無しさん
07/01/18 01:04:25
魔法使いの開発工房ってサイトで昔ちょこっと勉強してたんだけど、
サイトが消えちゃったみたい。
結構有名なサイトらしいんだけど、だれかアーカイブしてたらうｐ汁！

320:デフォルトの名無しさん
07/01/19 16:48:49
フォーム上のテキストボックスのプロパティの書式で
日付データを　mm/dd　としています。

Access95ではちゃんと表示されているのですが
Access2003では実際には　yyyy/mm/dd　で表示されてしまいます。

どうしたら　mm/dd　で表示されるか教えてください。
MDBのフィールド定義はテキスト型で　yyyy/mm/dd　のデータになっています。

321:デフォルトの名無しさん
07/01/19 23:12:24
>>320
こんっとロールパネル→地域と言語オプション
カスタマイズ→日付にある短い形式をいじる

322:デフォルトの名無しさん
07/01/20 19:35:12
>>321
サンクスです。
でもそれだと個々のPCの設定になりますし、エクスプローラー等の表示にも影響しますよね。
で、コントロールソースでFormat関数をあてる方法がわかりましたので
その方法をとることにしました。

323:デフォルトの名無しさん
07/01/21 19:44:19
Backup DatabaseとかのSQL文を実行するにはどうしたらよいのでしょうか？
ぐぐってみたのですが、サンプルが書かれたページが見つかりません。
どうぞ宜しくお願いいたします。

324:デフォルトの名無しさん
07/01/21 20:18:15
>>323
クエリ
デザインビューでクエリを作成する
閉じる
（ツールバーの）SQL

325:デフォルトの名無しさん
07/01/21 21:59:38
>>324
それだと、DELETE、INSERT、PROCEDURE、SELECT、UPDATEしか使えないのでは？
Backup Databaseを書いてもエラーになるのですが。

326:デフォルトの名無しさん
07/01/22 04:43:12
パススルークエリー

327:デフォルトの名無しさん
07/01/24 17:45:05
他のDBMファイルを開いて、そこにテーブルやフォームを作ったり
プロシージャを作成したりするにはどうすればいいですか？

328:デフォルトの名無しさん
07/01/25 11:21:07
AccessからVBAでって事か?
set db = openDatabase(～)
db.TableDefs.add(～)
みてーな感じ。詳細はヘルプ見るなりググるなりしろ。

329:デフォルトの名無しさん
07/01/25 12:59:37
>>328
ここまでは分かりました。
Dim app As Access.Application
Dim frm As Access.Form
Dim db As Database
Dim mdbPath, frmName As String

mdbPath = CurrentProject.path & "\db1.mdb"

Set app = New Access.Application
With app
.Visible = True
.OpenCurrentDatabase mdbPath, True
Debug.Print app.CurrentDb.Name
Set frm = .CreateForm
frmName = frm.Name
.DoCmd.Save acForm, frm.Name
.Forms(frmName).Name = "ふぉーむ作りのてすと" '←エラー
'.DoCmd.Close acForm, frm.Name
End With

このあと、フォーム名をどうやって変えたらいいのかさっぱり分かりません。

330:デフォルトの名無しさん
07/01/25 18:32:26
そのエラーメッセージ見ろよ。それが答えだ。
まーAccessの仕様も結構アレだが。ヘタに「オブジェクト指向w」を名乗るマクロ付けたから無理があるんだよな。

名前変えるなら

DoCmd.Save acForm, frm.Name
frmName = frm.Name
DoCmd.Close acForm, frm.Name
DoCmd.Rename "hoge", acForm, frmName

って感じか。
createForm の初期名はいじれないから、作る・閉じる・名前変更の3ステップが必要。

331:デフォルトの名無しさん
07/01/25 20:34:14
>>330
どうもありがとうございます。
Renameメソッドで上手くいきました。

ところでついでに質問なんですが、GUIを通してできる
Accessの操作のほぼ全てはVBAで出来るんでしょうか？
またそれならなぜAccessにはExcelのようなマクロの記録がないんでしょうか？

332:デフォルトの名無しさん
07/01/26 00:06:37
あの…試験で、JAVAﾌﾟﾛｸﾞﾗﾐﾝｸﾞのIf文、For文ってのが出るんですけど、つまりどういう事なんですか？誰か詳しく教えて下さいm(__)m

333:デフォルトの名無しさん
07/01/26 03:49:24
スレタイ１００回嫁

334:デフォルトの名無しさん
07/01/26 11:05:25
>>331
全て確認したわけじゃないが、ほぼ全て出来ると思っていいよ。
DoCmd のメソッドってメニューとほぼ対応してるし。

AccessでExcelのように「操作した内容をVBAとして記録」が出来ない理由は知らん。MSに聞け。
Accessが元々MS製じゃないからかもしらんし、VBAではない古い「マクロ」があるが故に
下位互換性の関係で仕様を合わせられないのかもしらん。 DoCmdとかヘンでしょ。

335:デフォルトの名無しさん
07/01/26 22:58:27
VBAからモジュールを追加する方法を誰か教えてください
ApplicationクラスにCreateForm()やCreateReport()があって、
なんでcreateModuleやCreateMacroがないんでしょ

336:デフォルトの名無しさん
07/01/26 23:12:48
モジュールについては書き込んだ後に発見しました。
どうもすいませんでした。
URLﾘﾝｸ(support.microsoft.com)

337:デフォルトの名無しさん
07/02/04 18:53:15
Sub unko()
With Assistant
.Visible = True
With .NewBalloon
.Text = "ウンコ産まれそう"
.Button = msoButtonSetOK
.Show
End With
.Visible = False
End With
End Sub

338:デフォルトの名無しさん
07/02/15 07:56:52
可愛いレジ店員がいるコンビニでバレンタインチョコを買う
↓
袋は要らないと断り、チョコをレジに置いて釣り銭を財布に入れる
↓
わざとチョコを置き忘れて足早に店を出て車に乗り込もうとする
↓
可愛い店員が追いかけてチョコを手渡しに来る
↓
「あの・・・これ・・・」
↓
( ﾟдﾟ )あ、ありがとう

339:デフォルトの名無しさん
07/02/19 22:31:18
可愛いレジ店員がいるコンビニでバレンタインチョコを買う
↓
袋は要らないと断り、チョコをレジに置いて釣り銭を財布に入れる
↓
わざとチョコを置き忘れて足早に店を出て車に乗り込もうとする
↓
誰も来ない
↓
( 'A`)

340:デフォルトの名無しさん
07/03/16 19:43:05
Access2000で質問があります

半角カナ文字が大量に入っているデータをインポートした場合
元のテキスト状態に対してMDBファイルが２倍近い容量になってしまい困っています

データベースの内部はunicodeな為に半角カナ文字をunicode化してるのが
原因だと思うのですがこれを回避して、バイナリのまま取り込む方法は無いでしょうか？
（このフィール度に対して検索などは行いません）

よろしくお願いします

341:デフォルトの名無しさん
07/03/19 01:48:14
初歩的な質問ですがAccess2007で
一つのフィールドのデータ型を「日付/時刻型」
にして異なるレコードに同じ日付を入力したら

インデックス、主キー、またはリレーションシップで値が重複しているので、
テーブルを変更できませんでした。重複するフィールドの値を変更するか、
インデックスを削除してください。。または重複する値を使用できるように
再定義してください。

とでてきました。重複する値（日付）を使用するための再定義とはどうすればできますか?

342:デフォルトの名無しさん
07/03/19 15:58:00
初歩的な質問ですが、Accessのバージョン管理ってどうやっていらっしゃるんですか？
VSSでできるとは思うんですが、ちと高いですよね？

343:デフォルトの名無しさん
07/04/01 13:40:48
>>341
その日付/時刻型のフィールド以外にもう1つのフィールドにキーを設定する。

>>342
Accessを使うような開発はバージョン管理自体してないと思う。

344:デフォルトの名無しさん
07/04/02 01:37:02
>>342

VBA だけを出力して、Subversion にて、バージョン管理しています。

345:デフォルトの名無しさん
07/04/02 23:01:36
　どなたかわかる方教えて下さい。
　表形式のフォームを開いた瞬間に、一番下のレコード行まで自動で
スクロールさせる方法はあるでしょうか？
　「これを使えば出来るよ～」といった回答でＯＫです。
　ＦＡＱだったらすみません。

346:デフォルトの名無しさん
07/04/02 23:32:26
>>345
Call DoCmd.GoToRecord(, , acNewRec)
でどう？

347:デフォルトの名無しさん
07/04/02 23:34:33
重り、キーが沈むくらいの

348:345
07/04/03 00:21:23
>>346
　できました。ありがとうございました。
>>347
　なるほど、そんな手もあったか！（笑）

349:デフォルトの名無しさん
07/04/05 00:33:27
すみません。H3.3.3とテキストで入力したとき。表示をH03.03.03という形
で前ゼロをつけるには、どのようにすればよろしいのでしょうか。
よろしくお願いします。

350:デフォルトの名無しさん
07/04/05 00:46:16
test

351:デフォルトの名無しさん
07/04/08 16:42:53
>>340
リンクして使えば。

352:デフォルトの名無しさん
07/04/13 20:27:48
>>349
テーブルデザインビューで日付時刻型のフィーるどの書式をgee\.mm\.ddにするのはダメ？
入力はH3/3/3で表示はH03.03.03になるみたい。
Access2000でやてみた。

353:デフォルトの名無しさん
07/04/13 20:30:53
>>340
Unicode圧縮ってASCII文字みたいのじゃないと圧縮にならんのね。
元テキストが大量でmdbファイルがでかすぎなら他のDBのほうがいいのかも。

354:デフォルトの名無しさん
07/05/01 10:05:15
教えてくれ。
突然なんのエラー表示もなくAccessが落ちたりするんだけど、
原因はどんなことが考えられるかな？

WindowsXP Pro
Access2000 + ADO
よろしく

355:デフォルトの名無しさん
07/05/02 00:43:07
たまたま2kのファイルを2003で開いてVBA動かすと画面吹っ飛ばない？
ウチだけ？
あとファイルサイズが1GB越えるとMDB壊れやすくなんない？

356:デフォルトの名無しさん
07/05/02 01:48:10
>>354
いかずち

357:デフォルトの名無しさん
07/05/02 01:49:32
>>355
つかいかたしだい
つなぎかたしだい
つなぐものしだい

358:デフォルトの名無しさん
07/05/07 03:00:06
>>354
新規MDBを作成して、全オブジェクトをインポートしてみたらどう？

359:デフォルトの名無しさん
07/05/07 03:00:10
>>354
新規MDBを作成して、全オブジェクトをインポートしてみたらどう？

360:デフォルトの名無しさん
07/05/07 05:29:42
>>354
いつまで正常に動いてた？
プログラムやその他書き換えた部分はある？

ウィルスチェックソフトがマクロウィルス検索して死ぬケースもあったから
一旦チェックを無効にしてみるとかはどう？

361:デフォルトの名無しさん
07/05/07 06:55:43
違うPCがあるならそちらでも実行してみよう

あとプログラムやフォーム等修正するときは
こまめにバックアップ取りましょう

362:sake
07/05/10 04:25:40
Set Access = Nothing

363:デフォルトの名無しさん
07/06/17 09:49:17
とりあえずアクセスについてるサンプルの在庫管理というのをを作ってそれをmdeに変換しようとしたのですがmdeのメニューがグレー化になっていて作れません。
どうしてでしょうか？

364:ひろみつ
07/06/17 17:53:02
SQLiteつかえ。ばかやろう。

365:デフォルトの名無しさん
07/06/17 23:52:22
>>363
バージョンが違うという可能性はないのかい。
Access 2002-2003でも、MDBファイルを新規作成すると、互換性のために
既定ではAccess 2000形式のファイルになるはず。
もし変換元のMDBがアプリと違う形式なら、いったん使っているバージョンと
同じファイル形式（Access 2002使ってるなら2002形式、2003使っているなら
2002-2003形式）に変換してみるとか。

関係ないなら、せめてバージョン情報を出してもらわんと、アドバイスもしづらい。

366:デフォルトの名無しさん
07/07/02 14:55:25
access97＆winXPproです

★オートメーションエラー　ってなんですか？(ノД`)★

Dim 【cnn As Database】
Dim rs As DAO.Recordset

の【～】内の部分が青く反転してます。

帳票フォームからフィルタをかけて単票フォームを開き
単票フォームの「更新ボタン」を押すと
そのレコード更新＆新規レコードを追加するモジュール（DAO）で、最初は動いていました。

帳票＞単票のフィルタに、最初クエリ使っていて、
次にVBA
DoCmd.OpenForm "単票フォーム", , , "ID = " & Forms!帳票!ID&
に変えてみた処、単票フォームは同じように開くのに、
モジュールを動かすところに来て「オートメーションエラー」です。。

一度、クエリのフィルタに戻して大丈夫だったのですが
単票フォームをあちこち改良してるうちに、再発しました。

モジュールが悪いのか単票ﾌｫｰﾑなのか帳票ﾌｫｰﾑなのか、
そもそも既にクエリ＆フォームで開いている元テーブルにデータ追加が出来ないってことなのか・・・

367:デフォルトの名無しさん
07/07/02 15:39:37
自己レスです

【～】部分、一度消して書き直したら、何故か治りました。。。
フィルタも、クエリでもVBAでも、どっちでもイケルし・・・

なんだったんだー！1週間も悩んだのにぃぃぃ～～～～(ﾟДﾟ#)

368:366
07/08/02 19:49:55
治ったと思った↑のオートメーションエラーが頻発します・・・(/_;)

>>367の書き直しすると一時出なくなりますが、また忘れた頃に出てくる。。。

根本的解決法ありませんか？

369:デフォルトの名無しさん
07/08/13 16:26:28
質問があります。

ACCESSで作られたアプリケーションがあるのですが、
それをＶＢのソースコードとして読めるようにする方法はありますか？

アプリケーションを実行するためのEXEと同じフォルダに、
CABファイルがあり、それを解凍するとDLL,MDBなどのファイルがあります。
MDBを開くと、アプリケーションの中で利用しているデータが格納されている
のですが、肝心のフォームが見つかりません。

DLLのなかにフォームははいっているのでしょうか？
DLLを逆コンパイル（？）すればVBのソースが出てくるのでしょうか？
またはまったく別のことをしているのでしょうか私は（涙）

お手数ですが、よろしくお願いします。

370:デフォルトの名無しさん
07/08/14 00:16:54
muri

371:369
07/08/14 13:49:34
>>370
ありがとうございます。
あきらめます。

372:デフォルトの名無しさん
07/08/14 23:04:01
フォームが無くてもモジュールがある場合もある
mdbをテーブルリンク先としてしか使ってないならむり

373:デフォルトの名無しさん
07/08/14 23:49:18
>>372
Accessで作られたって書いてあるんだからそれはないだろ

374:デフォルトの名無しさん
07/08/20 16:53:02
Access2007の機能である
作成タブ->複数のアイテム
でSelect文の結果を一覧で表示するところまで出来たのですが，
これはインタフェース上から値の変更はできないんでしょうか？

テキストボックスやコンボボックスを配置しても変更が一切変更できません．
データベースの値変更は手動でやるから攻めて見た目だけでも変わってくれたらと思いますが，なにか方法はないものでしょうか？
よろしくお願いします．

375:デフォルトの名無しさん
07/08/20 23:02:28
新規フォームが出来てるだけだから名前漬けて保存してもう一回開けば編集できたよ

376:デフォルトの名無しさん
07/08/21 14:53:58
何度か保存，再起動したことはありますが，だめでした．

とりあえず今のところはクエリでなく，テーブルを直接フォームに表示させるなら編集できるようだったので，
Select発行すべてテーブルに値コピーフォームで編集差分を本来のテーブルに反映
っていうとんでも仕様で動かしてます．．．

377:デフォルトの名無しさん
07/08/22 02:53:33
SELECTの内容をここにうｐ汁

378:デフォルトの名無しさん
07/08/22 02:54:53
>>376
>Select発行すべてテーブルに値コピーフォームで編集差分を本来のテーブルに反映
>っていうとんでも仕様で動かしてます．．．

とんでも仕様っつーか、普通のアプリはみんなそうだから気にしなくていいよ。

379:デフォルトの名無しさん
07/08/22 13:45:18
みなさん反応ありがとうございます．

>>377
あまりにも長いので割愛させていただきます
やってることは単純で7つのテーブルからJoinしたくらいで，OrderやWhereは与えていません

>>378
そんなもんなんですか？
フォームを開くたびに２分ほど値コピーの時間待ちがあります．
もっとスマートな方法がある気がしたので投稿させてもらいました．

380:デフォルトの名無しさん
07/08/26 09:13:10
PC１からVB６で作ったアプリでPC２に置いたAccessMDBにDAOで接続して"SELECT Now()"という
SQL投げてもPC２のシステム日付じゃなくてPC１のシステム日付が返されてしまいます。。。
PC２のシステム日付を取得する方法はあるのでしょうか？ADOとかならいけるんでしょうか？

他スレで返答がもらえなかったのでマルチしちゃいました。すいません。

381:デフォルトの名無しさん
07/08/26 12:20:56
Jetエンジンはローカルで動いてるのでリモートのシステム日付は取れないよ

382:デフォルトの名無しさん
07/08/26 15:30:22
winsockなりTTマクロなりで、telnetから取るとか。
自分はそれくらいしか思いつかない。

383:デフォルトの名無しさん
07/08/26 18:31:22
WMI

384:デフォルトの名無しさん
07/08/26 20:43:26
なるほど。
「PC2」ってののOSも知りたいところだね。

385:デフォルトの名無しさん
07/08/30 15:24:04
vistaでaccessフォームのテキストボックスに
aaaaaaaaaaaaaという文字列の間に12345という文字列を追加させると
aaaaaa12345aaaaaaaとなるはずがaaaaaa12345というように
挟んだ文字列以降の文字列が消えてしまいます。
vista以外のOSではちゃんとできます。
access2000で作成して　実行させるPCもaccess2000です

解決方法があれば教えていただけますか？

386:デフォルトの名無しさん
07/08/30 16:07:52
OSをデグレードする

387:デフォルトの名無しさん
07/08/30 21:57:31
>>385
Microsoft Office 97、2000 の各 OS での対応表
URLﾘﾝｸ(www.microsoft.com)

次ページ