Access VBA質問箱 IV

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

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


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

1 / 500 ﾍﾟｰｼﾞ


	【13309】レポート中のサブレポート

Sun - 24/4/12(金) 14:09 -


	引用なし

	パスワード

お世話になります。
レポートの中にサブレポートを乗せて印刷しています。
サブレポートは表になるのですが、表の列が何種類か
あり、幅は同じなのでサブレポートを何種類か作成し
ソースオブジェクトを切り替えて印刷しています。

これを自動化したいのですが、詳細のフォーマット時
のイベントでソースオブジェクトを切り替えようとし
てもエラーでプレビュー時は切り替えられないと言わ
れます。(Me.表.SourceObject = "レポート.表3列")

詳細でvisibleや上位置（TOP）は条件で色々自動化
していますが、サブレポートはいじれないのでしょうか

ご教示賜れば助かります。よろしくお願いいたします。

・ツリー全体表示


	【13308】ルイヴィトンコピーパーカー

vogcopy.net - 23/10/10(火) 18:03 -


	引用なし

	パスワード

「それは、ある種のはじまりであり、集大成」。数多くのアイコニックなバッグやラゲージを擁するルイ・ヴィトンにこう言わしめる「GO-14」は、vogcopy.net/brand-52-c0.html　ルイヴィトンコピースニーカー　ニコラ・ジェスキエールがルイ・ヴィトンで最初に手がけたバッグのひとつで、バッグとしても初期のものにあたる。

ルイ・ヴィトンで長く受け継がれてきたトランク作りのエスプリが、デザインに息づいている。vogcopycomplete.pixnet.net/ バッグ「GO-14 MM」（W23×H16×D10cm）￥979,000（8/25発売）/ルイ・ヴィトン今回発表された「GO-14」は、パッド入りのラムレザー仕立てで収納力も抜群。

・ツリー全体表示


	【13307】一括レポートを一括メール送信

akiyamakyodai - 23/5/9(火) 12:00 -


	引用なし

	パスワード

請求書をレポートで印刷をして郵送しております。
顧客も複数、締切日も複数あります。締切日毎に請求書をまとめて一括で顧客別にレポートで印刷しております。請求書の内容も様々。
この作業を、印刷ではなく、PDFに変換後、Outlookで一括で顧客毎にメール送信をしたいです。
請求書発行フォームにテキストボックス「締切日」、コマンドボタン「メール」、「メール」クリック時に実行。
メールの表示
件名：社名「締切日」分請求書
添付ファイル：請求書「締切日」.pdf
文面
顧客名　御中
いつもお世話になります。
掲題の件、ご査収願います。
♦　受信メールアドレス変更等につきましては、
下記メールアドレスまでご依頼願います。

＝＝＝お問い合わせ先＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
社名
アドレス
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
顧客テーブルには、「請求書メールアドレス」があります。
宜しくご教授お願い申し上げます。

・ツリー全体表示


	【13306】【急募】vbaの書き方を教えてください

あや

- 23/2/20(月) 8:54 -


	引用なし

	パスワード

Access vbaを使用し、下記条件でデータを処理したいのですが、どのようにコードを書けばいいか困っています。進捗としては、6の処理まで完成しているのですが、7からどのようにコードを書けばいいのか分かりません。
また、マッチング条件はSQL文を使用しています。

1 任意の場所に格納されている取引先ファイルと社内部番マスタを取り込む。(取り込み時はインポート定義を使用)
マスタ：カンマ区切り取引先ファイル：固定長社内部番マスタ：カンマ区切り
2 ワークテーブルにそれぞれを一時的に格納する。
3 ワークテーブル同士を部品番号、品名、受注日をキーにして各データのマッチングを行う。
4 マスターに取引先ファイルを下記条件にてマッチングを行う
5 マスタにキーが存在する場合は、数量を更新
6 マスタにキーが存在しない場合は、追加
7 ６番の処理終了後にマスターと社内部番マスタを部品番号をキーにして各データのマッチングを行う。
7-1 社内部番マスタにキーが存在する場合は、マスタの部番を得意先部番に更新
7-2 社内部番マスタにキーが存在しない場合は、エラーリストに出力しマスターから削除する。
8 7-1の結果をExcel形式にて出力する
7-2の結果をExcel形式にて出力する

申し訳ありませんが、ご教授願います。

・ツリー全体表示


	【13305】Accessの入力画面でボタンを押して登録し...

まどか - 22/11/29(火) 7:10 -


	引用なし

	パスワード

Access2016を使っています。
Accessはテーブルにデータを蓄積していきますが、テーブルに入力しても
テーブルにリンクしたフォーム上でデータ入力しても、入力した段階で
保存されます。
でも今回作りたい入力画面は、例えば
個人ID、名前、会社名
というテーブルがあったとします。
フォーム上に個人ID、名前、会社名のテキストボックスがあり、
個人IDを入力すると、そのレコードのデータがそれぞれのテキストボックスに
表示されます。
そこで会社名「●●●●」を入力しただけではテーブルのレコードは変わらず、ボタンを
押したら「●●●●でよろしいですか」というダイアログが表示されてレコードに反映さ
れる、というものを作りたいのです。
さらにそのレコードの会社名にすでに入力されている場合は、「すでに入力済みです」
というダイアログを表示させたいのです。
よろしくお願いします。

・ツリー全体表示


	【13304】紐づく画像がない場合

ヤマザキ - 21/11/15(月) 15:57 -


	引用なし

	パスワード

ボタンを押したらユーザーフォームの各ラベルにセルの値を出力するし
その中のラベル１６と同じ名前の画像ファイルをユーザーフォームに出力する
プログラムを描いたのですが画像ファイルとラベル１６が一致しない場合
「画像がありません」と書かれた画像を出力したい場合どうすればいいのでしょうか？
Private Sub CommandButton5_Click()
Main.TextBox2.Value = Sheet1.Range("C3").Value
Dim code As Range

If Main.CommandButton5 = Click Then
　　Label15 = ""
　　Label16 = ""
　　Label17 = ""
　　Label18 = ""
　　Label19 = ""
　　Label20 = ""
　　Set code = Columns(3).Find(what:=TextBox2, lookat:=xlWhole) 'Ｃ列から検索
If code Is Nothing Then
　　MsgBox "部品が登録されておりません。"
　　TextBox2 = "" 'テキストボックス２のデータを削除
Else
　　'ラベルにデータを入れる
　　Label15 = code.Offset(0, -1)
　　Label16 = code.Offset(0, 0)
　　Label17 = code.Offset(0, 1)
　　Label18 = code.Offset(0, 2)
　　Label19 = code.Offset(0, 3)
　　Label20 = code.Offset(0, 4)
　　Image1.Picture = LoadPicture("D:\Files\Documents\部品管理画像\" & Label16 & ".jpg")
　End If
End If

End Sub

・ツリー全体表示


	【13303】テーブル作成クエリをVBAで実行

トム - 21/10/22(金) 16:59 -


	引用なし

	パスワード

こんにちは。

テーブル作成クエリを使用してクエリからテーブルが作れる事が分かったのですが、その作業をVBAで実行する際にクエリの結果が反映されていない空のデータベースが出来てしまいました。

お聞きしたいのはCreateTableDefの引数のSourceTableNameにクエリ名を記載する考えは間違っているのでしょうか？

出来ればその辺りのコードが知りたいです。

・ツリー全体表示


	【13302】csvファイルの取込エラーについて

さくら - 21/4/27(火) 15:58 -


	引用なし

	パスワード

googleフォームで集約した顧客データ（顧客.csv）を、Accessのフォームから取り込もうと考えていたのですが、うまくいきません。どのような原因が考えられるでしょうか？アドバイスをお願いいたします。

○顧客テーブル
T_顧客データ
タイムスタンプ,メールアドレス,名前,生年月日,性別

○CSVファイル
顧客.csv
"タイムスタンプ","メールアドレス","名前","生年月日","性別"
"2021/04/27 1:49:41 午後 GMT+9","xxxx@xxx.ne.jp";,"○○○","2000-01-01","女"
※2行目からを取込したい

○フォームに書き込んだコード

Private Sub cmd_取込_Click()

Dim Ans As Variant

Ans = Me.txt_FILE_NAME

　　DoCmd.TransferText acImportDelim, , "T_顧客データ", Ans, False, , 65001
　　
　　DoCmd.Close acForm, Me.Name
　　
　　　　MsgBox "顧客データをインポートしました！"

End Sub

○エラー内容
実行時エラー'2391' 貼り付け先の'T_顧客データ'テーブルには'F1'フィールドがありません。

・ツリー全体表示


	【13301】Access フォーム上のボタンでのレポート

がいこつ - 20/9/5(土) 15:34 -


	引用なし

	パスワード

Accessで2つのテーブル間に案件番号でリレーション設定され、
２つのテーブルのフィールド値を１つのレポートとして表示させています。
片方のテーブル入力用フォームにボタンが配置され、ボタンクリックで
フォームに表示された案件番号のレポートが表示されるようにしたいのですが、
入力したばかりの案件番号のレポートにはデータが空白のレポートしか
表示されません。しかし、古い案件番号のレポートは正常に表示されます。
入力したばかりの案件番号のレポートはどうしたら表示できるようになる
のでしょうか。

・ツリー全体表示


	【13300】Re:フィルターを複数条件で設定するとデ...

キム - 20/4/24(金) 12:33 -


	引用なし

	パスワード

▼キムさん：
Me.Filter = "(ANo=" & cbANo & "And (BNo = " & cbBNo & ")"
上記式> Me.Filter = "(ANo=" & cbANo & "）And (BNo = " & cbBNo &")"
）が抜けていました。
解決出来ました。

・ツリー全体表示


	【13299】AccessVBAにて添付ファイルを削除する方法

松本 - 20/4/20(月) 13:51 -


	引用なし

	パスワード

お世話になります。

様々なデータ型を含むテーブルの内容を設置したフォーム内で
一括削除をするコードを作ったのですが添付ファイル型だけクリアできません。

Me.フィールド名.Value = ""
や
.Delete

等ではできないようで。。。

何か単純な一文で削除する方法をご存知でしたら
御教示いただきたく質問させていただきました。

どうぞよろしくお願いいたします。

・ツリー全体表示


	【13298】フィルターを複数条件で設定するとディバ...

キム - 20/4/8(水) 16:42 -


	引用なし

	パスワード

ANo,BNo,cbANo,cbBNoは数値型です。
一つの条件では動きます。
複数条件ではディバック（実行時エラー3075）します。
Private Sub cbBNo_AfterUpdate()
Me.Filter = "(ANo=" & cbANo & "And (BNo = " & cbBNo & ")"
Me.FilterOn = True
End Sub
VBA初心者です。
ご教授よろしくお願いします。

・ツリー全体表示


	【13297】ACCESS VBAでフォームオープンの不具合

どもども

- 19/8/21(水) 15:47 -


	引用なし

	パスワード

ACCESS VBAでフォームオープンの際、DoCmd.OpenFormを使用しているのですが
開発環境では開くのですが運用端末ではフォームが開かずフリーズしたままになり困っております。
運用端末でフォームを更新すると開くようになるのですが何故でしょう。
Windows・Officeのバージョンも同一です。
ご存じの方、ご教示ください。よろしくお願いいたします。

・ツリー全体表示


	【13296】バーコードでの重複チェック

wakaba - 19/8/19(月) 17:08 -


	引用なし

	パスワード

すいません、お詳しい方ご存じでしたら教えて下さい。

あるサービスに加入する会員のマスターと来店時に関するテーブルを作成しました。

例）
【会員マスター】
[会員コード]
[氏名]
[生年月日]
[性別]
[入会日]

【来店状況】
[来店コード]
[来店日]
[店舗名]
[ポイント]

これを元にバーコード付きの会員カードを作成し、来店時にポイントを付与します。

質問はこの際に

1.会員カードのバーコードをリーダーでスキャンすると【来店状況】の[ポイント]に「済」と自動的に入る様にしたい

2.同日に同じコードを再スキャンした場合「ポイント発行済です」といったエラーを返し重複を防ぎたい。（翌日は可）

3.中にはポイントを2回発行できる人がいて（できる人かどうかは別途把握してます）、その人に関しては2.の処理前提でやると2回目が通せなくなるので、どういう方法がありますでしょうか。

どなたか教えて頂けますと幸いです。

・ツリー全体表示


	【13295】CSV→Access インポートについて

まやまや - 19/7/19(金) 16:08 -


	引用なし

	パスワード

こんにちは。はじめまして。
超初心者の質問失礼します。

今、Access2016 で、CSVファイルをAccess内の既存のテーブルに追加するプログラムを作っています。
ここで自分で調べて(こちらの過去ログなども見ながら)
trancefartxtを使った文までたどり着きました。
しかし、第二因数の定義を入力したところで、
実行時エラー31519
このファイルをインポートできません
と出てしまいます。

ヘルプ等で確認したところ、どうもCSVをインポートできる拡張子ではないとのことですが、ウィザードを使った主導のインポートは問題なく行えました。
(定義はこのウィザードで作成したものを使っています)

このエラーが起こるのは何故でしょうか。
そして、そもそもこの方針は最初に申し上げた目的に対して妥当なものなのでしょうか。
ご回答よろしくおねがいいたします。

・ツリー全体表示


	【13294】ID検索について

がんぼ - 19/7/12(金) 15:04 -


	引用なし

	パスワード

アクセスで単票フォームを作成しました。

ページヘッダーに表示させたいレコードを検索するよう
テキストボックスを配置し、プロパティの更新後処理に
「埋め込みマクロ」⇒「オブジェクトからレコードの検索」を選択し
Where条件式に
　="[ID]　= " & Str(Nz([Screen].[ActiveControl],0))
を記載しました。

過去に同じような単票フォームを作成した際はこれで問題なく
検索されていたのですが、今回はレコードが変更されません。
一瞬、レコードが変わるような画面のちらつきがあるので検索を行って
いるようではあります。エラーは出ません。

また、わからないのが検索用のテキストボックスをカット＆ペーストで
詳細部分に張り付けて検索してみると正常に動作します。

フォームヘッダーに配置するとダメなようです。

皆様のお知恵をお貸しいただけると幸いです。

・ツリー全体表示


	【13293】Re:SQLの規定値設定時に実行時エラー329...

たらっち - 19/6/21(金) 18:56 -


	引用なし

	パスワード

よろずや様

ご回答ありがとうございます。
以下のようにADOを使用してSQLを実行したら、
cn.Execute strSQLのところで(SQL実行時)
「80004005　テーブルレベル入力規則の構文エラー。」
とエラーがでました。
strSQL内の"DEFAULT 0" を消すとエラーなく実行され、当該フィールドは数値型に変わります。
何か設定が悪いのか、プロバイダが違うのか...。
原因お分かりでしたらお教えください。よろしくお願いいたします。

↓以下ソース一部

Dim strCnString As String
Dim cn As ADODB.Connection
strCnString = "Provider=Microsoft.ACE.OLEDB.12.0;"
strCnString = strCnString & "Data Source=" & Application.CurrentDb.Name

Set cn = CreateObject("ADODB.Connection")
cn.Open (strCnString)

strSQL = "ALTER TABLE [T_106100] ALTER COLUMN [" & strYMDFld(i) & "] INTEGER DEFAULT 0;"
　　　　cn.Execute strSQL
Set cn = Nothing

▼よろずやさん：
>DEFAULT ステートメントは、Access OLE DB プロバイダーおよび ADO 経由でのみ実行できます。 Access の [SQL ビュー] ユーザーインターフェイスからこのステートメントを使用すると、エラーメッセージが返されます。
>
>ht tps://docs.microsoft.com/ja-jp/office/vba/access/concepts/structured-query-language/modify-a-table-s-design-using-access-sql
>
>だそうです。

・ツリー全体表示


	【13292】Re:SQLの規定値設定時に実行時エラー329...

よろずや - 19/6/19(水) 22:42 -


	引用なし

	パスワード

DEFAULT ステートメントは、Access OLE DB プロバイダーおよび ADO 経由でのみ実行できます。 Access の [SQL ビュー] ユーザーインターフェイスからこのステートメントを使用すると、エラーメッセージが返されます。

ht tps://docs.microsoft.com/ja-jp/office/vba/access/concepts/structured-query-language/modify-a-table-s-design-using-access-sql

だそうです。

・ツリー全体表示


	【13291】Re:SQLの規定値設定時に実行時エラー329...

よろずや - 19/6/19(水) 21:52 -


	引用なし

	パスワード

▼たらっちさん：
>テーブル作成クエリだと、全てのフィールドが作成されない場合があるので、あらかじめ全てのフィールド(11ヶ月分のフィールド)を整数型(integer)で作成しておきます。
>
>strYMDFld(i)は配列です。上の例だとstrYMDFld(0)="2019/01/01"、strYMDFld(10)="2019/11/01"です。

DoCmd.RunSQL "ALTER TABLE [T_106100] ADD COLUMN [" & strYMDFld(i) & "] INTEGER DEFAULT 0;"

ではいかがでしょう？

・ツリー全体表示


	【13290】SQLの規定値設定時に実行時エラー3293が...

たらっち - 19/6/19(水) 14:52 -


	引用なし

	パスワード

テーブル作成クエリで作成したテーブル(フィールド名に、現在月マイナス5ヶ月～プラス5ヶ月がついています(現在が2019年6月だとすると[2019/01/01]～[2019/11/01])。
テーブル作成クエリだと、全てのフィールドが作成されない場合があるので、あらかじめ全てのフィールド(11ヶ月分のフィールド)を整数型(integer)で作成しておきます。

strYMDFld(i)は配列です。上の例だとstrYMDFld(0)="2019/01/01"、strYMDFld(10)="2019/11/01"です。
DoCmd.RunSQL "ALTER TABLE [T_106100] ALTER COLUMN [" & strYMDFld(i) & "] INTEGER DEFAULT 0;"
というところでエラー3293「ALTER TABLE ステートメントの構文エラー」がでます。
エラーの原因が特定できず困っています。
分かる方、お力添えお願いいたします。

・ツリー全体表示


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

1 / 500 ﾍﾟｰｼﾞ

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free