Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

395 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【5295】Re:コントロールの値を選ばせないようにす...

バリュー - 05/6/6(月) 17:06 -


	引用なし

	パスワード

▼小僧さん：

できました！
誠にありがとうございました。

>※投稿の際の題名をもうちょっと詳しく…

すみません、今後気をつけます。。

・ツリー全体表示


	【5294】コントロールの値を選ばせないようにする...

小僧 - 05/6/6(月) 16:59 -


	引用なし

	パスワード

▼バリューさん：
こんにちは。

※投稿の際の題名をもうちょっと詳しく…

>「発生場所」を「出検」という名前の他は入力できないようにさせるためには
>どうしたらよいでしょうか？

ご提示の内容ですと、どんな場合でも「出検」という値以外は
選べなくなってしまいますが大丈夫ですか？

それで大丈夫でしたら
「発生場所」の既定値を「出検」に
　　　　　　　編集ロックを「はい」に

変更すれば値の変更が不可になります。

ある条件の時にロックを掛けたければ
　　
　　Me.発生場所.Locked = True
　　
　　　　＜＜　処理　＞＞

　　Me.発生場所.Locked = False

という様な感じになると思います。

・ツリー全体表示


	【5293】Re:フォーム、マクロの名称と更新日付の取...

T - 05/6/6(月) 16:55 -


	引用なし

	パスワード

▼小僧さん：
>▼T さん：
>こんにちは。
>
>1) 「MSysObject」を使用する
>
>ツールバーから、
>
>[ツール] → [オプション] で表示タブにある「システムオブジェクト」にチェックを入れると
>テーブルのところに「MSysObject」なるものが表示されます。
>
>「MSysObject」の「DateUpdate」「Name」「Type」あたりが関係ありそうですよね？
>
>「MSysObject」は参照に関しては普通のテーブルと同じ様に扱えるので
>SQLで抽出するなりDAOを使うなりでお望みの値が引っ張ってこれると思います。
>
>
>2) 「Container」オブジェクトを使用する
>　　こちらについては YU-TANG さんのサイトで詳しく解説がありますので
>　　リンクを張らさせて頂きます。
>　　　　http://www.f3.dion.ne.jp/~element/msaccess/AcTipsGnrWhatInfoInContainer.html

そう、これこれ　このリンクみたいなのが欲しかったんです。
ありがとうございました。

・ツリー全体表示


	【5292】Re:フォーム、マクロの名称と更新日付の取...

小僧 - 05/6/6(月) 16:47 -


	引用なし

	パスワード

▼T さん：
こんにちは。

1) 「MSysObject」を使用する

ツールバーから、

[ツール] → [オプション] で表示タブにある「システムオブジェクト」にチェックを入れると
テーブルのところに「MSysObject」なるものが表示されます。

「MSysObject」の「DateUpdate」「Name」「Type」あたりが関係ありそうですよね？

「MSysObject」は参照に関しては普通のテーブルと同じ様に扱えるので
SQLで抽出するなりDAOを使うなりでお望みの値が引っ張ってこれると思います。

2) 「Container」オブジェクトを使用する
　　こちらについては YU-TANG さんのサイトで詳しく解説がありますので
　　リンクを張らさせて頂きます。
　　　　http://www.f3.dion.ne.jp/~element/msaccess/AcTipsGnrWhatInfoInContainer.html

・ツリー全体表示


	【5291】Re:ネット上のハイパーリンク先フォルダ内...

COBOL - 05/6/6(月) 16:46 -


	引用なし

	パスワード

レスが付かない様なので。
私の経験上クライアントからファイルのアドレスを検索したときに、既にサーバーのドライブを指定しているケースがあります。
これが引き金で他のクライアントでのドライブが異なる為にＯｐｅｎ出来ないことがありました。
もう一度サーバーのアドレスが\\～で始まっているかをチェックされたほうがいいかもです。

・ツリー全体表示


	【5290】Re:VBAでクエリ

T - 05/6/6(月) 16:34 -


	引用なし

	パスワード

▼kuri さん：
>根本的にわからないことは、ある抽出条件でクエリを実行するときのコードがわかりません。今まで日付で抽出するときは、クエリのデザインビューで、直接、抽出条件に
>Betwee Forms![F_000]![txt1]And Forms![F_000]![txt2]
>Betwee Forms![F_000]![txt1]And Forms![F_000]![txt2]IsNull
>といった感じで入力してたので、いざVBAでコードしようとしても全くわかりません。

クエリのデザインビューをＳＱＬビューに変えるとヒントになるかもしれません。

・ツリー全体表示


	【5289】Re:最適なクエリの組み方は

小僧 - 05/6/6(月) 16:30 -


	引用なし

	パスワード

▼にしもりさん：
こんにちは。

色々考える前に確認なのですが…

1) 科目大コードで集計？
　 table_A(テーブル名にスペースを入れるのは避けましょう)には
　 70,00,10000とかの値が入ることはありえないのでしょうか？
　あった場合は「70」、「80」毎に集計？

2) テーブルに値を代入するのは何のため？
　もしレポートやフォームの為にレコードを作成したいのであれば
　わざわざテーブルに代入しなくても出来そうな気がするのですが…。

・ツリー全体表示


	【5288】Re:日付の算出方法を教えてください。

nemotake - 05/6/6(月) 16:00 -


	引用なし

	パスワード

▼小僧さん：
IsDate関数ですね。
早速やってみます。
ありがとうございます。

・ツリー全体表示


	【5287】Re:VBAでクエリ

kuri - 05/6/6(月) 15:25 -


	引用なし

	パスワード

根本的にわからないことは、ある抽出条件でクエリを実行するときのコードがわかりません。今まで日付で抽出するときは、クエリのデザインビューで、直接、抽出条件に
Betwee Forms![F_000]![txt1]And Forms![F_000]![txt2]
Betwee Forms![F_000]![txt1]And Forms![F_000]![txt2]IsNull
といった感じで入力してたので、いざVBAでコードしようとしても全くわかりません。

・ツリー全体表示


	【5286】フォーム作成

バリュー - 05/6/6(月) 15:07 -


	引用なし

	パスワード

度々すみません。
よろしくお願いします。

「ta対策書マスターロットアウト」というフォーム上で
「発生場所」を「出検」という名前の他は入力できないようにさせるためには
どうしたらよいでしょうか？

１件目は上記の動きができたのですが、
２件目以降も同じようにさせたいのですが、
「発生場所」に全く入力できない状態になってしまっています。。

・ツリー全体表示


	【5285】フォーム、マクロの名称と更新日付の取得

T - 05/6/6(月) 15:03 -


	引用なし

	パスワード

あるＭＤＢに含まれる、全てのフォームとマクロの
名称と日付（更新日付）を取得したいのですが
どのようにしたらよいでしょうか？

・ツリー全体表示


	【5284】最適なクエリの組み方は

にしもり - 05/6/6(月) 14:41 -


	引用なし

	パスワード

こんにちは。

また行き詰まってしまいました。
table aに科目大コード、科目小コード、金額というフィールドがあります。
そこに80,00,10000と入っています。
またtable bに科目大コード、科目小コード、金額というフィールドがあります。
そこに1レコード目に80,01,5000、２レコード目に80,02,3000と入っています。
いま、table aにbを（もしくはbにaを）追加クエリし、さらに4レコード目に10000-5000-3000の結果として新たなレコード80,03,2000を表出させたいのです。
できるだけすくない数のクエリでテーブルの中身を希望通りにするにはどうすればよろしいでしょうか？

・ツリー全体表示


	【5283】Re:日付の算出方法を教えてください。

小僧 - 05/6/6(月) 14:38 -


	引用なし

	パスワード

▼nemotake さん：
こんにちは。

>テーブルに日にちのフィールドがあり、その内容が３０とすると、

フィールドは日付型でなく、数値型なのですね？

そうなると、
1 ) IsDate関数で日付が存在するものかを確認する。（2/30…×とか）
2 ) 存在しないものだったら、次月１日から１マイナスする

という処理でできそうですね。

Sub 末日あわせ()
　　Dim Nen As Integer
　　Dim Tuki As Integer
　　Dim Nichi As Integer
　　
　　Nen = 2004
　　Tuki = 2
　　Nichi = 30
　　
　　If Not IsDate(Nen & "/" & Tuki & "/" & Nichi) Then
　　　　Nichi = Day(CDate(Nen & "/" & Tuki + 1 & "/1") - 1)
　　End If
　　
　　Debug.Print Nichi

End Sub

データに「32」とかありますと13月の処理が発生してしまうためエラーが出ます（笑）
まぁ、12月は大の月なのでそのへんのエラー処理はしていません。

・ツリー全体表示


	【5282】Re:フォーム作成

バリュー - 05/6/6(月) 14:29 -


	引用なし

	パスワード

▼小僧さん：

できました！
誠にありがとうございました。

・ツリー全体表示


	【5281】Re:テーブルのフィールド名を変えるには

にしもり - 05/6/6(月) 14:23 -


	引用なし

	パスワード

▼クロさん、小僧さん：

こんにちは。
>1) クロさんのご提示された「TableDefs」オブジェクトを使う。
ご紹介いただいたURLにあった記述を参考に、プログラムから一括変換したいと思います。どうもありがとうございました。

・ツリー全体表示


	【5280】Re:VBAでクエリ

小僧 - 05/6/6(月) 14:20 -


	引用なし

	パスワード

▼kuri さん：
こんにちは。

>また新たな壁にぶつかっています。助けてください。
>宜しくお願いします。

仕様をご提示されてお願いしますと言われても…。
今「何が」解らなくて「どうしたい」かが見えて来ません。
厳しい言い方になってしまいますが質問というよりコード作成の依頼に見えてしまうのですが…。

とりあえず気づいた点を。

>[txt1]検索期間（開始）[txt2]検索期間（終了）

※コントロール名に「（）」を使うのは避けましょう。

開始と終了があるのなら、「翌月」「今月」の抽出条件はいらないと思うのですが。

>（1:全て2:遅れ3:今月予定4:来月予定5:全予定）

全てと全予定は何が違うのでしょう。

>[検索＆出力ボタン]

を押すと該当レコードのレポートが開くのかな…。

まだまだ？マークのところがたくさんあります。
一気に解決を目指すのでなく、

「日付によるレコードの抽出」
「オプショングループの値によって抽出条件を変える方法」
「抽出した条件によるレポート（クエリ）の作成」

と順を追って考えていけば、解決に近づくと思われます。

・ツリー全体表示


	【5279】Re:日付の算出方法を教えてください。

nemotake - 05/6/6(月) 13:59 -


	引用なし

	パスワード

▼小僧さん：
早速回答をいただきありがとうございます。

質問の仕方が悪かったのかもしれません。
テーブルに日にちのフィールドがあり、その内容が３０とすると、
その項目を使用して日付を作成しようとすると、一月は０１３０、二月は０２３０、四月は０４３０になってしまいます。実際、二月は２８日（うるう年は２９日）にしたければいけないのですがどうすればいいでしょうか？３１日の場合も同じで四月の場合は０４３１になってしまいます。実日付を算出するにはやはりＩＦ文を使用するしかないのでしょうか？

・ツリー全体表示


	【5278】Re:フォーム作成

小僧 - 05/6/6(月) 13:57 -


	引用なし

	パスワード

▼バリューさん：
こんにちは。

>列幅は「0cm;9.022cm」になっていました。

１列目（しかないんですけど）が「0cm」になっているので表示されてないです。
空白にしましょう。

・ツリー全体表示


	【5277】Re:テーブルのフィールド名を変えるには

小僧 - 05/6/6(月) 13:55 -


	引用なし

	パスワード

▼にしもりさん、クロさん：
こんにちは。

自分も色々探したのですが…

>http://office.microsoft.com/ja-jp/assistance/HP010322071041.aspx

フィールド名の変更は載っていませんでした。

1) クロさんのご提示された「TableDefs」オブジェクトを使う。

2) フィールド名を定義した空のテーブルにデータを全て移す。

こんな感じが実用的だと思うのですがいかがでしょうか？

・ツリー全体表示


	【5276】Re:フォーム作成

バリュー - 05/6/6(月) 13:44 -


	引用なし

	パスワード

▼小僧さん：
返信誠にありがとうございます。

>「ta顧客マスター」でちゃんと顧客名がでてたということは…。
>列幅が「0cm;xxcm」になってませんか？

列幅は「0cm;9.022cm」になっていました。

・ツリー全体表示


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

395 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free