Access VBA質問箱 IV

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

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


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

423 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【4725】Re:前ゼロ表示

小僧 - 05/3/24(木) 16:39 -


	引用なし

	パスワード

▼ドライさん：
データ型変換関数を使ってフィールドに値を代入するのは
いかがでしょうか？

CInt()…整数型
CLng()…長整数型

追加クエリのフィールドを上記どちらかの関数を使って
括弧の中に入れてみてください。

ただ、あくまでもテーブルの見かけ上で７桁の数字になっている
だけなので、固定長のデータとして使用するのであるならば
クロさんが提示されているFormat関数の方が後々使いやすいかと
思われます。

・ツリー全体表示


	【4724】Re:前ゼロ表示

ドライ

- 05/3/24(木) 15:41 -


	引用なし

	パスワード

▼小僧さん：
>▼ドライさん：
>　横から失礼します。
>
>テーブルのデータ型が数値型では
>だめなのでしょうか？
>
>データ型：数値型
>書　　式：0000000

返信、ありがとうございます。

確かに、表示は、0000000と表示できます。
（感謝、感謝です）

しかし、私が求めていることは、この書式にして、クエリーからの
データを、このテーブルに追加したいのですが、データ型を数値に
したため、追加クエリーでデータが追加されませんでした。

数値型でも追加できる方法がありますか？

よろしくお願いします。

・ツリー全体表示


	【4723】Re:前ゼロ表示

小僧 - 05/3/24(木) 15:30 -


	引用なし

	パスワード

▼ドライさん：
　横から失礼します。

テーブルのデータ型が数値型では
だめなのでしょうか？

データ型：数値型
書　　式：0000000

・ツリー全体表示


	【4722】Re:前ゼロ表示

ドライ

- 05/3/24(木) 15:22 -


	引用なし

	パスワード

▼クロさん：
>Format関数で対象をFormat(対象,"0000000")としてもダメですか？

早々の回答ありがとうございます。

クエリーで、Format関数を使用すると出来ました。
感激です。ありがとうございます。

出来れば、テーブルのデザインでFormat関数を使用できませんかね？

一応やってみたのですけど私では出来ませんでした。
テーブルのデザインを開き、書式やら、定型入力やら、入力規制など
試したのですが出来ませんでした。

よろしくお願いします。

・ツリー全体表示


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

かめ - 05/3/24(木) 15:11 -


	引用なし

	パスワード

コマンドボタンのハイパーリンク先にフォルダを指定しました。
指定フォルダは開くのですが、その中のmdbファイルを開こうとすると
ファイル------mdbがみつかりませんでしたとゆうメッセージが出て
開きません。フォルダは開くのにどうしてでしょうか。
ちなみにコマンドボタンのある元mdbファイルを閉じるとフォルダ内の
mdbファイルは開きます。原因がわかりません。
よろしくお願いします。

・ツリー全体表示


	【4720】Re:住所入力支援・ふりがな機能について

クロ - 05/3/24(木) 15:03 -


	引用なし

	パスワード

変ですね？当方では再現できません。
レコードソースをテーブルからクエリに変更しただけですよね？
変更後に各コントロールのプロパティがリセットされますが確認しましたか？

・ツリー全体表示


	【4719】Re:初心者です・・・フォームからのレコー...

赤兎馬 - 05/3/24(木) 14:54 -


	引用なし

	パスワード

>
>出来ないこともないですが...
>出来ればフォーム上ではIDの方コンボボックスにして表示させ、名称(モチーフ名)
>コントロールはプロパティで修正不可(使用可能:いいえ/編集ロック:はい)にした
>方がいいと思います。
>
>テーブルのルックアップ機能を使えば出来ますが、実際はIDが格納されているのに
>名称が表示されるのでチョット混乱します。もう少し勉強されてからの方がいいと
>思いますがどうでしょうか？

ですね～。
今から、ちょっと上記のアドバイスのとおり一回作り直してみます。
一応、このトピ的には本当に助かりました。
ありがとうございました。
また、絶対お聞きしちゃうことになると思いますが、どうぞ、よろしくお願いします。

・ツリー全体表示


	【4718】Re:住所入力支援・ふりがな機能について

pinetree - 05/3/24(木) 14:53 -


	引用なし

	パスワード

▼クロさん： >>クエリのデータシートビューでレコードの追加・変更は >>可能ですが、ふりがな機能は機能しておりません。 >>クエリーの作り方に何か問題があるのでしょうか？ > >クエリのSQL文を提示していただいてみれば少しは見えてくるかもしれませんが... クエリーは以下のようなものです。 SELECT 地域ﾃｰﾌﾞﾙ01.地域コード, 地域ﾃｰﾌﾞﾙ01.地域, 地域ﾃｰﾌﾞﾙ01.地域カナ, 地域ﾃｰﾌﾞﾙ01.郵便番号, 地域ﾃｰﾌﾞﾙ01.住所 FROM 地域ﾃｰﾌﾞﾙ01 ORDER BY 地域ﾃｰﾌﾞﾙ01.地域コード, 地域ﾃｰﾌﾞﾙ01.郵便番号; 地域から地域名カナをふりがな機能で入力郵便番号から住所を入力しようとしております。テーブルでは有効な入力支援機能がクエリーでは機能しません。

・ツリー全体表示


	【4717】Re:AccessVBAからExcelの標準モジュールを...

VBA初心者 - 05/3/24(木) 14:47 -


	引用なし

	パスワード

回答ありがとうございます。
wkb.Excel4MacroSheets.Application.ExecuteExcel4Macro (マクロ名)

としてみましたが実行されてくれませんでした。（Applicationといれないとエラーになったため入れました）

ちなみに、
wkb.Application.Run (マクロ名)

これでもだめです。
エラーになるわけではないのに、実行されていない、という感じです。

どちらも、開いているエクセルでマクロを実行すると、うまくいきます。
引き続きご教授よろしくお願いします。

>> wkb.Excel4MacroSheets.Application.ExecuteExcel4Macro ("Sheet1マクロ名")
>>
>> Call wkb.Application.ActiveWorkbook.SaveAs _
>> 　　　　　　(Filename:=ファイルB)
>
>ここらへんがおかしいような。。
>
>Application = xlsApp ですよね。
>
>wkb.Excel4MacroSheets.ExecuteExcel4Macro ("Sheet1マクロ名")
>
>とかじゃないのかな？
>＃見検証です。

・ツリー全体表示


	【4716】Re:前ゼロ表示

クロ - 05/3/24(木) 14:34 -


	引用なし

	パスワード

Format関数で対象をFormat(対象,"0000000")としてもダメですか？

・ツリー全体表示


	【4715】Re:初心者です・・・フォームからのレコー...

クロ - 05/3/24(木) 14:04 -


	引用なし

	パスワード

>できました！！！！！！可変しました！！
>なるほど、リレーションシップを適当にいろいろ設定すると大変なんですね！！
>ところで、この場合、ＩＤを修正したら、名称が変わってくれるってことですが、
>これをフォーム上で修正したい場合は、きっとＩＤを入力させるんじゃなくて、
>名称をコンボボックス？とかで、選択させて、修正って感じが使いやすいですよね？
>そういう風なことはできるのですか？

出来ないこともないですが...
出来ればフォーム上ではIDの方コンボボックスにして表示させ、名称(モチーフ名)
コントロールはプロパティで修正不可(使用可能:いいえ/編集ロック:はい)にした
方がいいと思います。

テーブルのルックアップ機能を使えば出来ますが、実際はIDが格納されているのに
名称が表示されるのでチョット混乱します。もう少し勉強されてからの方がいいと
思いますがどうでしょうか？

・ツリー全体表示


	【4714】前ゼロ表示

ドライ

- 05/3/24(木) 13:45 -


	引用なし

	パスワード

お世話になります。
ご存知の方教えてください。

目的は、最終的に固定長のデータを作成することです。

固定長データは、ヘッダー、データ部分、トレーラー
に分かれています。
ヘッダー、データ部分のデータは作成できました。
トレーラーの作成でてこずっています。

トレーラーデータ
　データの件数、データの合計金額を表示　
トレーラーのデータは、クエリーでデータのカウントとデータの合計で
値を求めています。
そのデータを、追加クエリーにて、トレーラーテーブルにデータを追加
しています。
トレーラーテーブルをデザインで開き、データのカウントのデータ型を
テキストにして、書式の設定で0000000と入力すれば、Access95では
1002というデータは、0001002と表示されたのですが、Access2000では
1002としか表示されません。
つまり、前ゼロがつきません。

どこをどのように設定すれば、前ゼロが付くようになりますか？

よろしくお願いします。

・ツリー全体表示


	【4713】Re:初心者です・・・フォームからのレコー...

赤兎馬 - 05/3/24(木) 13:42 -


	引用なし

	パスワード

▼クロさん：
>テスト的に
>版権テーブルとモチーフテーブルでだけでクエリを作ってみてください。
>版権テーブルのモチーフIDとモチーフテーブルのモチーフIDを結合線で
>結びます。
>クエリのフィールドに版権テーブルのモチーフIDをモチーフテーブルの
>モチーフ(モチーフ名)を下ろしてください。
>この状態でデータシートビューにして、モチーフIDを変更するとモチーフ
>(モチーフ名)が可変しませんか？

できました！！！！！！可変しました！！
なるほど、リレーションシップを適当にいろいろ設定すると大変なんですね！！
ところで、この場合、ＩＤを修正したら、名称が変わってくれるってことですが、
これをフォーム上で修正したい場合は、きっとＩＤを入力させるんじゃなくて、
名称をコンボボックス？とかで、選択させて、修正って感じが使いやすいですよね？
そういう風なことはできるのですか？

・ツリー全体表示


	【4712】Re:初心者です・・・フォームからのレコー...

クロ - 05/3/24(木) 13:25 -


	引用なし

	パスワード

>⇒ さっそくやってみました。
>　結合線は確かに引かれましたが、先ほどと同じ状態なメッセージで変更
>　ができませんでした。
>　クエリ上でいいんですよね、修正かけるのは。
>　ん～、なんででしょう？

テスト的に
版権テーブルとモチーフテーブルでだけでクエリを作ってみてください。
版権テーブルのモチーフIDとモチーフテーブルのモチーフIDを結合線で
結びます。
クエリのフィールドに版権テーブルのモチーフIDをモチーフテーブルの
モチーフ(モチーフ名)を下ろしてください。
この状態でデータシートビューにして、モチーフIDを変更するとモチーフ
(モチーフ名)が可変しませんか？

・ツリー全体表示


	【4711】Re:初心者です・・・フォームからのレコー...

赤兎馬 - 05/3/24(木) 13:19 -


	引用なし

	パスワード

▼クロさん：
>クエリで結合線を引けばいいと思います。
>版権テーブル側から同フィールド名(**ID)をドラッグ&ドロップで各テーブルの
>同名フィールドに落としてみてください。結合線が書かれます。
>その上でモチーフIDを変更するとモチーフ名が変わるか確認してください。

⇒ さっそくやってみました。
　結合線は確かに引かれましたが、先ほどと同じ状態なメッセージで変更
　ができませんでした。
　クエリ上でいいんですよね、修正かけるのは。
　ん～、なんででしょう？

・ツリー全体表示


	【4710】Re:初心者です・・・フォームからのレコー...

クロ - 05/3/24(木) 13:10 -


	引用なし

	パスワード

>⇒とりあえず、メニューからのリレーションシップは全て外してみました。
>　それで、クエリ上で修正してみたんですけど、今度は、
>　「テーブル'版権テーブル'のレコードに、'→'側と対応するレコードが
>　なくなります」
>　ということで、修正ができないのです。

クエリで結合線を引けばいいと思います。
版権テーブル側から同フィールド名(**ID)をドラッグ&ドロップで各テーブルの
同名フィールドに落としてみてください。結合線が書かれます。
その上でモチーフIDを変更するとモチーフ名が変わるか確認してください。

・ツリー全体表示


	【4708】Re:初心者です・・・フォームからのレコー...

赤兎馬 - 05/3/24(木) 13:00 -


	引用なし

	パスワード

早々のレス、ありがとうございます！！

▼クロさん：
>メニュー>ツールのリレーションシップで設定すると融通が利かなくなるので
>私的にはリレーションシップでの設定はしない方なのですが...
>試しにリレーションシップでの設定を外すとどうなりますか？

⇒とりあえず、メニューからのリレーションシップは全て外してみました。
　それで、クエリ上で修正してみたんですけど、今度は、
　「テーブル'版権テーブル'のレコードに、'→'側と対応するレコードが
　なくなります」
　ということで、修正ができないのです。

・ツリー全体表示


	【4707】Re:FileDialogでファイル名を取得？

Gin_II - 05/3/24(木) 12:37 -


	引用なし

	パスワード

>ファイル名だけを(フルパスでなくて)する方法はあるのでしょうか？？？

いくつかありますね。どれが一般的かは分かりませんが (^^ゞ

○Left 関数・InStrRev 関数を組み合わせて使う
○Dir 関数を使う
○FileSystemObject の GetFile メソッドを使う

3番目以外は、AccessVBAのヘルプに載っていますので、確認してください。

・ツリー全体表示


	【4706】Re:FileDialogでファイル名を取得？

クロ - 05/3/24(木) 12:34 -


	引用なし

	パスワード

Dim path_name As String
Dim dlgSaveAs As FileDialog
Set dlgSaveAs = Application.FileDialog(msoFileDialogOpen)
If (dlgSaveAs.Show = -1) Then
　　Debug.Print Mid(dlgSaveAs.SelectedItems.Item(1), InStrRev(dlgSaveAs.SelectedItems.Item(1), "\") + 1)
End If
これでどうでしょうか？

・ツリー全体表示


	【4705】Re:初心者です・・・フォームからのレコー...

クロ - 05/3/24(木) 12:07 -


	引用なし

	パスワード

>これは、リレーションの組み方ですよね？リレーションは、全て？のリレーション
>と、クエリのリレーション（デザインビューで出るやつ）の２つありますよね？
>あのへんがおかしいのでしょうか？

メニュー>ツールのリレーションシップで設定すると融通が利かなくなるので
私的にはリレーションシップでの設定はしない方なのですが...
試しにリレーションシップでの設定を外すとどうなりますか？

・ツリー全体表示


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

423 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free