Access VBA質問箱 IV

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

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


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

434 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【4499】Re:クエリについて教えてください。

カナ - 05/2/28(月) 13:56 -


	引用なし

	パスワード

ですよね・・・。

なんか、初心的な質問、ちょっと間抜けでした。ごめんなさい。
でも、ありがとうございましたっ

・ツリー全体表示


	【4498】Re:テーブルのデータ型について

クロ - 05/2/28(月) 11:27 -


	引用なし

	パスワード

> ９桁
この事例を挙げていただかないと何とも言えません。

・ツリー全体表示


	【4497】Re:テーブルのデータ型について

もも - 05/2/28(月) 11:05 -


	引用なし

	パスワード

>テーブルのフィールドサイズ欄でF1キーでヘルプを
>見てください。

ヘルプで確認して自分なりに考えたのですが原因がわからなかったので投稿しました。
宜しかったら回避法を教えてください。

・ツリー全体表示


	【4496】Re:文字間調整出力（全銀協フォーマット）...

ねこさん - 05/2/26(土) 17:57 -


	引用なし

	パスワード

なんどもすみません。よろしくお願いいたします。　 >>名前が入っているフィールドのフィールド名と、何桁に揃えたいのか？フィールド名は[FLD7]でカラムは５１～８０指定　桁数は３０　左づめ、残りはスペース >>また、そのフィールドには、半角カナ以外は確実に入っていないのか？半角カタカナ以外は入りません。次のフィールドは[FLD8]でカラム８１～９０指定　桁数１０　右詰めとし残り「０」詳しいデーター構造は [レコード区分]カラム１　　　　　桁数１　　「２」 [金融コード]　カラム２～５　　　桁数４　　「９９００」 [金融名]　　　カラム６～２０　　桁数１５　「ｺｳｾｲｼｮｳﾁｮｷﾝｷｮｸ」（左づめ、残りｽﾍﾟｰｽ） [貯金記号]　　カラム２１～２３　桁数３　　「034」　数字３桁 [予備]　　　　カラム２４～３８　桁数１５　　ｽﾍﾟｰｽ [口座表示]　　カラム３９～４０　桁数２　　　任意数字 [種別表示]　　カラム４１～４２　桁数２　　　任意数字 [予備]　　　　カラム４３　　　　桁数１　　　ｽﾍﾟｰｽ [貯金番号]　　カラム４４～５０　桁数７　　　1234567　数字７桁 [氏名]　　　　カラム５１～８０　桁数３０　　ｶﾀｶﾅ表示（左づめ、残りｽﾍﾟｰｽ） [請求額]　　　カラム８１～９０　桁数１０　　右詰、残り「０」 [照会]　　　　カラム９１　　　　桁数１　　　「１」固定 [顧客]　　　　カラム９２～１１１桁数２０　　任意数字 [振替コード]　カラム１１２　　　桁数１　　　 [優先年月]　　カラム１１３～１１６桁数４　　年２桁、月２桁 [優先コード]　カラム１１７～１１８桁数２　　００～９９の数字 [補助]　　　　カラム１１９～１２０桁数２　　任意数字下記のような１行１２０文字（２５６バイト＝１レコード固定長テキスト）になります。 29900ｺｳｾｲｼﾖｳﾁﾖｷﾝｷﾖｸ 034　　　　　　　　　　1234567ｽｽﾞｷｼﾞｭﾝｼﾞﾛｳ　　　　　　　　　000000945002001

・ツリー全体表示


	【4495】Re:文字間調整出力（全銀協フォーマット）...

Gin_II - 05/2/26(土) 16:19 -


	引用なし

	パスワード

>名前のあとの数字をそろえて出力できません。

名前が入っているフィールドのフィールド名と、何桁に揃えたいのか？
また、そのフィールドには、半角カナ以外は確実に入っていないのか？

などの情報が不明ですね。

・ツリー全体表示


	【4494】Re:文字間調整出力（全銀協フォーマット）...

ねこさん - 05/2/26(土) 15:24 -


	引用なし

	パスワード

説明不足ですみません。あるデータテーブルから連結クエリーに持っていき１つのフィールドにまとめます。次の固定長テキストファイル形式に直すために出力桁数をあわせたいのですが名前のあとの数字をそろえて出力できません。うまく揃えて出力できる方法があればお教えください。このようなクエリー？です。 SELECT [FLD1] & [FLD2] & Left([FLD3] & Space(15),15) & [FLD4] & Left([FLD5] & Space(15),15) & [FLD6] & Left([FLD7] & Space(30),30) & Left([FLD8] & Space(10),10) & [FLD9] & [FLD10] & [FLD11] & [FLD12] AS 連結 FROM データーテーブル; こういうふうになってしまいます。 1111ｱｱｱｱｱｱｱｱｱｱｱｱｱｱ 001　　　　　　　 2222222ｻｲﾄｳﾀﾏｴ　　　00000012345 1111ｱｱｱｱｱｱｱｱｱｱｱｱｱｱ 001　　　　　　　 2222222ｻｲﾄｳﾀ　　　00000012345 1111ｱｱｱｱｱｱｱｱｱｱｱｱｱｱ 001　　　　　　　 2222222ｻｲﾄｳ　　　00000012345 下記のようにしたい。 1111ｱｱｱｱｱｱｱｱｱｱｱｱｱｱ 001　　　　　　　 2222222ｻｲﾄｳﾀﾏｴ　　　00000012345 1111ｱｱｱｱｱｱｱｱｱｱｱｱｱｱ 001　　　　　　　 2222222ｻｲﾄｳﾀ　　　　00000012345 1111ｱｱｱｱｱｱｱｱｱｱｱｱｱｱ 001　　　　　　　 2222222ｻｲﾄｳ　　　　 00000012345

・ツリー全体表示


	【4493】Re:クエリー並び替えについて

Gin_II - 05/2/26(土) 11:37 -


	引用なし

	パスワード

>数値1～3を　2.1.3など複雑な並び替えを行いたいのですが、

クエリで、

Choose(フィールド名,2,1,3)
をフィールド欄に入れて、それで並べ替えをしてみてください。

・ツリー全体表示


	【4492】Re:文字間調整出力（全銀協フォーマット）...

Gin_II - 05/2/26(土) 11:35 -


	引用なし

	パスワード

>1.選択クエリで関数を使い下記のようにしたいのですが
>2.どうしても下記のようになってしまいます。

どこが、どうなってしまうのか？
を説明ください。

データだけで、表現されても。。。^_^;

・ツリー全体表示


	【4491】クエリー並び替えについて

takataka - 05/2/26(土) 9:50 -


	引用なし

	パスワード

数値1～3を　2.1.3など複雑な並び替えを行いたいのですが、何か良い方法はあります
でしょうか?もし何方かご解答の程宜しくお願い致します。

・ツリー全体表示


	【4490】Re:マクロでの(Msgbox)YES/NOについて

takataka - 05/2/26(土) 9:44 -


	引用なし

	パスワード

出来ました。有難う御座います。
やはりVBAの方が良さそうです。有難うございました。

▼Gin_II さん：
>>VBAでは分るのですが、マクロの場合条件式にどの様に記載すれば
>
>条件　　　　　　　　　アクション
>Msgbox("はい？",4)=6　Yesの場合のアクション
>... 　　　　　　　　　マクロの中止
>　　　　　　　　　　　Noの場合のアクション
>
>のようにすればできるとは思いますが、条件での分岐をしたいのなら
>VBAを使うべきだと思います。

・ツリー全体表示


	【4489】文字間調整出力（全銀協フォーマット）し...

ねこさん - 05/2/26(土) 9:00 -


	引用なし

	パスワード

はじめまして、ACCESSをはじめて１週間ですが分からないことがあるのでお教え願えればと思います。またどうしても、全銀協のフォーマットでＦＤ出力したいので関連で参考になることなどがあればお教えいただければ助かります。 1.選択クエリで関数を使い下記のようにしたいのですが 1111 111　　　　　111111***************　　　　01019900　　　0　　　　　1111 111　　　　　111111************** 　　　　01019900　　　0　　　　　1111 111 　　　　111111************　　　　　01019900　　　0　　　　　1111 111 　　　　 111111***************　　　　01019900　　　0 2.どうしても下記のようになってしまいます。 Left関数、SPACE関数、で揃えてもうまくいきません。何かいい方法があればお教えくだされば助かります。よろしくお願いいたします。 1111 111 　　　　111111***************　　　　01019900　　　0　　　　　1111 111 　　　　111111**************　　　　01019900　　　0　　　　　1111 111 　　　　111111*************　　　　01019900　　　0　　　　　1111 111 　　　　111111***************　　　　01019900　　　0

・ツリー全体表示


	【4488】Re:スペースのセット

ねこさん - 05/2/26(土) 8:29 -


	引用なし

	パスワード

まだ初めて１週間なので助かりました。
大変ありがとうございました。

・ツリー全体表示


	【4487】Re:マクロでの(Msgbox)YES/NOについて

Gin_II - 05/2/26(土) 0:56 -


	引用なし

	パスワード

>VBAでは分るのですが、マクロの場合条件式にどの様に記載すれば

条件　　　　　　　　　アクション
Msgbox("はい？",4)=6　Yesの場合のアクション
... 　　　　　　　　　マクロの中止
　　　　　　　　　　　Noの場合のアクション

のようにすればできるとは思いますが、条件での分岐をしたいのなら
VBAを使うべきだと思います。

・ツリー全体表示


	【4486】マクロでの(Msgbox)YES/NOについて

takataka - 05/2/25(金) 21:52 -


	引用なし

	パスワード

VBAでは分るのですが、ﾏｸﾛの場合条件式にどの様に記載すれば宜しいのでしょうか?
何方か教えていただけませんでしょうか?

・ツリー全体表示


	【4485】Re:EXCELからのインポートについて

bon - 05/2/25(金) 20:43 -


	引用なし

	パスワード

>更新とは？
>1.変更のあったものだけ
>2.既存レコードを破棄して、EXCELデータから新たに追加

更新についてですが、
１の変更のあったものだけを考えています。
よろしくお願いします。

・ツリー全体表示


	【4483】Re:EXCELからのインポートについて

クロ - 05/2/25(金) 15:32 -


	引用なし

	パスワード

>EXCELデータをインポートでACCESSに取り込みたいのですが、
>テーブルに追加ではなく、更新したいと思っています。

更新とは？
1.変更のあったものだけ
2.既存レコードを破棄して、EXCELデータから新たに追加

・ツリー全体表示


	【4482】Re:既存のExcelファイルを開く

クロ - 05/2/25(金) 15:29 -


	引用なし

	パスワード

そのコードでコンパイルしてエラー起こさない？
もしくは赤字(構文のエラー)はないですか？

・ツリー全体表示


	【4481】できましたぁぁぁぁ♪

カナ - 05/2/25(金) 15:17 -


	引用なし

	パスワード

できましたぁぁぁぁ！！！！

ほんっと助かりましたっ。

もう感謝感激です。ありがとうございました！！
もうちょっと、ちゃんと勉強します。

・ツリー全体表示


	【4480】既存のExcelファイルを開く

めぎゅ - 05/2/25(金) 13:12 -


	引用なし

	パスワード

クエリのデータを既存のファイルに出力し、
そのExcelを起動したいと思っています。

出力するところまではできたのですが、起動しません。。。
アドバイスお願いします。

Private Sub cmdExcelFile出力_Click()
On Error GoTo エラー

　　Dim db As DAO.Database
　　Dim rs As DAO.Recordset
　　Dim objEXE As Object
　　Dim strmsg As String
　　Dim intmsg As Integer
　　
　　　　Set db = CurrentDb
　　　　
　　　　Set rs = db.OpenRecordset("Q_価格協議経過書")

　　　　Set objEXE = Excel.Application

　　　　objEXE.Workbooks.Open (C:\My Documents\出力ファイル.xls)　
　　　　
　　　　objEXE.Worksheets(Sheet1).Select

　　　　objEXE.Cells(5, 2).CopyFromRecordset rs
　　　　objEXE.Quit
　　　　
　　　　Set rs = Nothing
　　　　Set db = Nothing
　　　　
　　Exit Sub
　　
エラー:

　　MsgBox "Error番号：" & Err.Number & vbNewLine & _
　　　　　　"Error内容：" & Err.Description, 16, "管理者"
　　End

End Sub

・ツリー全体表示


	【4479】Re:スペースのセット

Gin_II - 05/2/25(金) 10:39 -


	引用なし

	パスワード

Left([種別レコード] & Space(4),4)

とかのようにしてやればいいと思います。

・ツリー全体表示


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

434 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free