Access VBA質問箱 IV

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

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


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

99 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【11314】Re:クエリのテーブルを一変に変える方法

超初心者 - 09/12/25(金) 11:42 -


	引用なし

	パスワード

▼hiro さん：
ＶＢＡを使う事になるかと思います。

インポートの際に固定のテーブルへ取り込めば
変更の必要はなくなるかも！？

・ツリー全体表示


	【11313】フォームでの入力

マツ - 09/12/24(木) 16:55 -


	引用なし

	パスワード

いつもお世話になります。
テーブルの入力用にフォームを作成したのですが
そのフォームでキーボードの入力が一切出来ません・・・
フォームのプロパティのデータタブにある
１．更新の許可
２．削除の許可
３．追加の許可
４．データ入力用
はすべて「はい」にしており、それぞれのコントロールの
・編集ロック
は「いいえ」にしていますが、変更できません。
他に設定があるのでしょうか？御教授願います。

・ツリー全体表示


	【11312】印刷プレビュー時のシャッターバーについ...

VBA初心者 - 09/12/24(木) 12:56 -


	引用なし

	パスワード

フォームに印刷プレビューコマンドを設置して、クリックすると
印刷プレビュー画面が表示されるようにしてます。
　Accessのオプション画面で「ナビゲーションウィンドウを表示する」の
チェックは外しているのですが、印刷プレビューの画面が表示
されたときにのみ、シャッターバーが表示されてしまいます。
　このシャッターバー印刷プレビュー時に非表示にする方法がありますでしょうか。
　プレビュー画面を開いた後に「F11」を押せば閉じるのですが、
開いたときに初期値で非表示にする方法を知りたく投稿致しました。
　どうかご教授をお願い致します。

参考までに印刷プレビューボタンのコードです。

Private Sub コマンド70_Click()
On Error GoTo Err_コマンド70_Click

　　Dim stDocName As String
　　Dim MyForm As Form

　　stDocName = "SS_H"
　　Set MyForm = Screen.ActiveForm
　　DoCmd.SelectObject acForm, stDocName, True
　　DoCmd.OpenForm "SS_H", acViewPreview
　　　
　　DoCmd.SelectObject acForm, MyForm.Name, False

Exit_コマンド70_Click:
　　Exit Sub

Err_コマンド70_Click:
　　MsgBox Err.Description
　　Resume Exit_コマンド70_Click
　　
End Sub

・ツリー全体表示


	【11311】白い液ってなんなの？

沼澤

- 09/12/23(水) 13:07 -


	引用なし

	パスワード

会っていきなりバイブ挿入して下さいってどういうことよｗこんなに激しいとか全く聞いてなしｗ潮は吹きまくってるし、マヌコから白い液が出ちゃってるんですけどｗｗ tp://ya.jasdavis.com/l45j5ak/ かなり衝撃的だったけどこれがおいらのここでの初体験ｗｗ

・ツリー全体表示


	【11310】複数あるＣＳＶファイル名から決まったパ...

ＲＫ - 09/12/22(火) 13:43 -


	引用なし

	パスワード

複数あるＣＳＶファイル名から「MOLS-DR1_3-****」のパターン名のファイル名だけをテーブルにインポートしたいのですが以下の式でいくと
ＣＳＶフォルダの中のファイルすべてをインポートしてしまうので
「MOLS-DR1_3-****」のパターン名のＣＳＶファイル名のみをインポートしたいのですが
「MyPath = "C:\AutoCSV\CSV\MOLS-DR1_3-*.CSV"」のようにするとエラーがでます。
アドヴァイスのほどよろしくお願い致します。

Private Sub コマンド0_Click()

Dim MyPath
Dim MyCSV
MyPath = "C:\AutoCSV\CSV\*.CSV"
MyCSV = Dir(MyPath, vbNormal)
Do While MyCSV <> ""
DoCmd.TransferText acImportDelim, "", "WRK_ECO", "C:\AutoCSV\CSV\" & MyCSV, True
MyCSV = Dir
Loop
End Sub

・ツリー全体表示


	【11309】クエリのテーブルを一変に変える方法

hiro - 09/12/21(月) 10:59 -


	引用なし

	パスワード

　お世話になっております。
　毎月エクセルのデータをテーブルにインポートしているのですが、
　そのデータをクエリで集計しています。
　でクエリでは、いくつものフィールドがありまして、
　瞬時にテーブルを変える方法ってありますか？

　ＶＢＡを使わないといけないでしょうか？
　宜しくお願いします。

・ツリー全体表示


	【11308】感謝、感謝ですぅぅ～☆

ヨハネ

- 09/12/19(土) 8:56 -


	引用なし

	パスワード

管理人Xさんありがとうございます！！！！ここマジで稼げたっす！！お陰でニートからひと月で 70万も稼げたっすよＴ▽Ｔこれも管理人Xさんのお陰です！！！！よかったら今度ご飯でもいきましょう(*´∇｀*) tp://li.naraduke.net/hnpu-go.php リンク消えてるんで代わりに張り張りしときますね☆

・ツリー全体表示


	【11307】Re:変数の指定方法

さぶちん

- 09/12/18(金) 13:17 -


	引用なし

	パスワード

皆さん色々有難う御座います。

テキストBOXの場合
Me.Form.Controls("a" & x)　で済み
配列変数ですと　a(x) で済むのですが
以上の様な事を望んでいたのですが、
無い様なので、
約4000行になってしまいましたが、
時間が無いので　if文　で作成しました。

後でじっくり考えます。
有難う御座いました。

・ツリー全体表示


	【11306】Re:変数の指定方法

hatena - 09/12/17(木) 23:30 -


	引用なし

	パスワード

>64ヶ所あるので　If で組むと非常に長くなってしまう。

a1 ～ a16 までを変数を呼び出す場所が64ヶ所あり、
同じ長いコードを何度も繰り返すのを避けたいという意味なら、

Dim x As Long, z
Dim a1, a2, a3, a4, a5

Function geta(i As Long)
　　Select Case i
　　Case 1: geta = a1
　　Case 2: geta = a2
　　Case 3: geta = a3
　　Case 4: geta = a4
　　Case 5: geta = a5
　　End Select
End Function

Sub Hoge()

　　a1 = "あ"
　　a2 = "い"
　　a3 = "う"
　　a4 = "え"
　　a5 = "お"

　　x = InputBox("1から5までの数値を入力")
　　
　　z = geta(x)

　　MsgBox z

End Sub

外していたらスルーしてください。

・ツリー全体表示


	【11305】Re:変数の指定方法

Pirorin - 09/12/17(木) 21:28 -


	引用なし

	パスワード

提示した関数の使用例です。

Function z(x As Integer) As String
　　z = "a" & x
End Function

Sub Test()
　　Dim x As Integer
　　
　　On Error GoTo ER_HA
　　x = InputBox("数値入力")
　　MsgBox (z(x))
　　
ER_HA:
End Sub

・ツリー全体表示


	【11304】Re:変数の指定方法

Pirorin - 09/12/17(木) 1:49 -


	引用なし

	パスワード

"指定したい"という意味が不明確なのですが、こういうことなのですか？

Function z(x As Integer) As String
　　z = "a" & x
End Function

結果はイミディエイトウィンドウで確認しただけです。
　?z(16)
で、a16が関数から返されます。

・ツリー全体表示


	【11303】Re:変数の指定方法

小僧 - 09/12/16(水) 22:28 -


	引用なし

	パスワード

▼さぶちんさん：
こんばんは。

>Dim a(1 To 16) As String
>の配列では駄目なんです

となるとVBAでは無理ではないかと思われます。

何か方法があるのかもしれませんが
少なくとも当方にその知識はないです。
申し訳ありません。

・ツリー全体表示


	【11302】Re:変数の指定方法

さぶちん

- 09/12/16(水) 20:18 -


	引用なし

	パスワード

小僧さんこんばんわ
お世話になります

Dim a(1 To 16) As String
の配列では駄目なんです

dim a1,a2,a3,・・・・
で別々なんです。
すみません。
宜しくお願い致します。

・ツリー全体表示


	【11300】Re:変数の指定方法

小僧 - 09/12/16(水) 19:11 -


	引用なし

	パスワード

▼さぶちんさん：
こんにちは。

配列を使っても良いのであれば

>Dim x ,z
>Dim a1,a2,a3,a4,a5・・・・・a16

Sub Test()
Dim x As Long
Dim z As String
Dim a(1 To 16) As String
　　
　　a(1) = "リンゴ"
　　a(2) = "ばなな"
　　a(3) = "なし"
　　'…
　　'…
　　'…
　　
　　
　　x = 2
　　z = a(x)
　　
　　MsgBox z
　　
End Sub

こんな感じでしょうか。

・ツリー全体表示


	【11299】変数の指定方法

さぶちん

- 09/12/16(水) 11:44 -


	引用なし

	パスワード

Dim x ,z Dim a1,a2,a3,a4,a5・・・・・a16 上記の変数があり axを求めたい x が　1　だったら　z=a1 x が　2　だったら　z=a2 x が　3　だったら　z=a3 x が　4　だったら　z=a4 x が　5　だったら　z=a5 ・・・・・ x が　16　だったら　z=a16 64ヶ所あるので　If で組むと非常に長くなってしまう。 z = a & x　の形で　a(x) 　 a & (“x”)・・・・・・・？ズバリ x で ax を指定したいこの部分どう処理したら良いか教えて下さい。宜しくお願い致します。

・ツリー全体表示


	【11298】Re:accessで売上一覧表

Pirorin - 09/12/15(火) 22:58 -


	引用なし

	パスワード

失礼しました。SQL文を訂正します。

SELECT A.顧客ID, A.顧客名, A.金額 AS 区分1, B.金額 AS 区分2
FROM A LEFT JOIN B ON A.顧客ID = B.顧客ID;

・ツリー全体表示


	【11297】Re:accessで売上一覧表

Pirorin - 09/12/15(火) 22:37 -


	引用なし

	パスワード

お疲れ様です。レスがつかないようですが、以下でどうでしょう。

SELECT A.顧客ID, A.顧客ID, A.金額 AS 区分1, B.金額 AS 区分2
FROM A LEFT JOIN B ON A.顧客ID = B.顧客ID;

もろもろは省略してあります。

・ツリー全体表示


	【11296】Re:ｺﾏﾝﾄﾞﾎﾞﾀﾝを押下すると、指定ﾌｧﾙﾀﾞ下...

cocoa - 09/12/14(月) 14:40 -


	引用なし

	パスワード

▼小僧様
>> -------------------------------------------------------------------------
>> ホスト 'ServerName' の 'application' ログのイベントを一覧表示しています。
>> -------------------------------------------------------------------------
>
>この情報が早く欲しかったです（笑）
ほんとすいません。

>cocoa さんの環境ですと Description が
>
>> 内容が、0____userName(_は半角スペース)です。
>
>という事なので、
>バッチファイルで何か特殊なアプリケーションのみ
>ログを抽出しているという事なのでしょうかね。
仰るとおりです。
ADｻｰﾊﾞｰのﾛｸﾞｵﾝ・ﾛｸﾞｵﾌｽｸﾘﾌﾟﾄでWHSを実行しております。
内容は、ドメインユーザーのﾛｸﾞｵﾝ時間、ﾛｸﾞｵﾌ時間をアプリケーションログへ送出しております。

ほんとにありがとう御座いました。
今回戴いたサンプルも理解するまでには時間がかかると思いますが、
またご返事させていただきます！

また何かありましたらご鞭撻の程宜しくお願い致します。

cocoa

・ツリー全体表示


	【11295】Re:accessで売上一覧表

すもも - 09/12/13(日) 18:20 -


	引用なし

	パスワード

どのような常態かを表にしてみました。

Q,F,Z,Xさんのうち、区分2の商品を買っているのがZさんだけとします。

　　　区分1　省略・・・区分2
Qさん　5,000　・・・・　
Fさん 10,000　・・・・
Zさん 20,000　・・・・　2,000
Xさん 25,000　・・・・

としたいのですが、

　　　区分1　省略・・・区分2
Qさん　5,000　・・・・　2,000
Fさん 10,000　・・・・　2,000
Zさん 20,000　・・・・　2,000
Xさん 25,000　・・・・　2,000

となってしまっているのです。

・ツリー全体表示


	【11294】accessで売上一覧表

すもも - 09/12/13(日) 18:15 -


	引用なし

	パスワード

はじめまして、宜しくお願いします。
accessで顧客別売上一覧表を作っています

私のところで扱う商品には大きく分けて区分が2つあります。
それぞれの売上顧客別に集計させたクエリをつくり、それぞれA（商品区分1）
B（商品区分2）としました
フィールドについては以下の通りです。

A.
1、顧客ID
2、顧客名
3、商品区分1の顧客別金額合計
4、3の金額に対する消費税（計算させている）
5、3＋4

B.
1、顧客ID
2、顧客名
3、商品区分2の顧客別金額合計
4、3の金額に対する消費税（計算させている）
5、3＋4

となっております。

A,Bを合体させたクエリを作りたいのです。
商品区分1の商品は全ての顧客が購入していますが、商品区分2の商品については購入されている人といない人がいます。

ところが、ABを合体させビューで見てみると、区分2を購入していない顧客のところにも金額が入ってしまっています。
これを区分2の商品を買った顧客のところにだけ表示するにはどのようにしたらよいでしょうか？

初歩的な質問でわかりにくいかもしれませんが、宜しくお願いします。　

・ツリー全体表示


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

99 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free