Access VBA質問箱 IV

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

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


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

117 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【10948】Re:エクセルからアクセスへAddNewで

小僧 - 09/1/22(木) 20:43 -


	引用なし

	パスワード

▼ON さん：こんにちは。 >・同時書き込みが生じた場合 > >　　Rst.AddNew >　　 >　　　　For C = 0 To 22 >　　 >　　　　　　Rst(C) = Cells(C_ROW, C + 1).Value >　　　　 >　　　　Next >　　　　 >　　　　　　Rst(23) = Now() >　　 >　　Rst.Update DAO で記述されている場合は AddNew で排他処理が行われ、Updateで排他が解除されます。ある端末において AddNew ～ Update の間の処理を行っていると他の端末ではエラーが出るかと思われます。（ステップ実行(1行ずつの実行)を複数端末で行うと検証が可能です。）処理的には一瞬で終わるものであるため、大概エラーが出ずに処理が終わるかと思われますが偶然に頼ることになるため、当然エラーが発生する場合もあります。あまり運用を大きく変えないのであれば Excelマクロ側にErrorトラップを仕掛けて書き込めないようであれば数秒置いてから処理を再実行するようにしたりする方法もあるかと思われます。運用面を含め改善する事が可能であれば当方でしたら 1)サーバ上に \\hoge\fuga\ExcelData のような共有フォルダを設置しておく 2)各端末から共有フォルダにExcelデータをアップロード 3)AccessVBAにて、共有フォルダ内のExcelデータの吸い上げのような手段を行うかと思われます。 neptune さんのご回答にあるように SQLServer を使用するのであれば同時にデータの追加をしてもServer側で制御してくれるのですが、 Accessについてはそういった機能がついていないため Access側から各Excelを総なめするようなコードの方が無難なのではないかと思われます。

・ツリー全体表示


	【10947】Re:帳票フォームでレコード絞込み(ADO)

hatena - 09/1/22(木) 11:52 -


	引用なし

	パスワード

>Set rs = New ADODB.Recordset >rs.Open mySQL, cn, adOpenKeyset, adLockReadOnly >Set Me.Recordset = rs MDBファイルでしょうか。なぜ、ADOなんでしょうか。ここは、普通にレコードソースにテーブルかSQLを設定すれば問題なく、また、シンプルにできると思いますが。 Me.RecordSource = mySQL >rs.Filter = "(完了日 >= #2009/01/01#) and (完了日 <= #2009/01/21#)" Me.Filter = "(完了日 >= #2009/01/01#) and (完了日 <= #2009/01/21#)" Me.FilterOn = True ------------------------------ hatena Chips pub.ne.jp/hatena/ ------------------------------

・ツリー全体表示


	【10946】帳票フォームでレコード絞込み(ADO)

眠眠 - 09/1/21(水) 17:14 -


	引用なし

	パスワード

Accessは学校で習得しましたが、8年のブランクがあり、ほとんど覚えていない状態です。
初心者に近いと思いますが、宜しくお願い致します。
[WinXP:Access2002]

【フォームの形】
このフォームでの手動でのデータの変更は一切なし。検索のみ。
ただし、規定の位置をダブルクリックする事で、データの自動更新、詳細画面を開く。
データ自動更新＞IEよりデータを抜出して、レコード更新。
詳細画面＞詳細情報を別フォーム(単票形式)で開く。

【フォーム＞レコードセット方法】
3つのテーブルをADOで開き、それをフォームのRSに代入して帳票表示しています。

Set rs = New ADODB.Recordset
rs.Open mySQL, cn, adOpenKeyset, adLockReadOnly
Set Me.Recordset = rs

【絞込み】
最初はテーブルの全レコードを表示させています。
絞込条件を入力すると絞り込んだ結果をフォームに表示させたいのですが、ここで詰まってます。

rs.Filter = "(完了日 >= #2009/01/01#) and (完了日 <= #2009/01/21#)"
で、実行すると rs.RecordCount は(1536件中)414となります。

ただフォームの表示が絞り込まれません。1536件のまま。
フォームをクリックすると、画面の表示位置が検索条件に一致した位置に変わるだけです。

フォームのRSを再セットしようとしても、
Set Me.Recordset = rs
【プロシージャの呼び出し、または引数が不正です】と表示されます。

駄目元で、
Me.Filter = "(完了日 >= #2009/01/01#) and (完了日 <= #2009/01/21#)"
としても、Me.FilterON の行でエラーになります。

どのように対処すればよろしいでしょうか？
回答や別の方法の提案、参考になるサイトなどお教えください。
宜しくお願い致します。

・ツリー全体表示


	【10945】Re:レポートのインポート

かっちー - 09/1/19(月) 15:09 -


	引用なし

	パスワード

自己解決しました。

▼かっちーさん：
>いつもお世話になっております。
>
>レポート一覧のインポート方法について、ご存知の方がおられれば、教えていただきたいと思います。
>
>やりたいこと
>A.mdbにB.mdb内のレポート全てをインポート（コピー？）したのいです。
>
>わからないこと
>A.mdbからB.mdb内のレポート一覧を取得する方法
>B.mdbから取得したレポート一覧をA.mdbにインポートする方法
>
>
>説明不足からもしれませんが、よろしくお願いします。

・ツリー全体表示


	【10944】レポートのインポート

かっちー - 09/1/19(月) 11:12 -


	引用なし

	パスワード

いつもお世話になっております。

レポート一覧のインポート方法について、ご存知の方がおられれば、教えていただきたいと思います。

やりたいこと
A.mdbにB.mdb内のレポート全てをインポート（コピー？）したのいです。

わからないこと
A.mdbからB.mdb内のレポート一覧を取得する方法
B.mdbから取得したレポート一覧をA.mdbにインポートする方法

説明不足からもしれませんが、よろしくお願いします。

・ツリー全体表示


	【10943】Re:クエリ結果に行間隔をあける

カダワン - 09/1/16(金) 17:48 -


	引用なし

	パスワード

▼hatena さん：

素早い回答大変ありがとうございました！
私も今気が付いてやってみたら出来ました。
hatenaさんのヒントのおかげです。

本当にありがとうございました！！
また機会がありましたら又是非よろしく
お願い致します。

・ツリー全体表示


	【10942】Re:クエリ結果に行間隔をあける

hatena - 09/1/16(金) 17:38 -


	引用なし

	パスワード

失礼しました。間違ったSQLをアップしてました。

SELECT
Key, F1, F2, F3
FROM
(SELECT
Key AS A, 0 AS B, Key, F1, F2, F3
FROM Tbl
UNION ALL
SELECT DISTINCT
Key AS A, 1 AS B, Null, Null, Null, Null
FROM Tbl)
ORDER BY A, B;

・ツリー全体表示


	【10941】Re:クエリ結果に行間隔をあける

カダワン - 09/1/16(金) 17:24 -


	引用なし

	パスワード

▼hatena さん：

ご回答、ありがとうございました！
教わったようにやってみましたが、

1.10/1.入庫.\15.1,000.\15,000.B=0
1.10/1.作業.\30.500.\15,000.B=0
1.10/1.入庫.\15.1,000.\15,000.B=1
1.10/1.作業.\30.500.\15,000.B=1
2.10/1.運賃.\500.100.\50,000.B=0
2.10/1.PI.\10.100.\1,000.B=0
2.10/1.Dam.\150.100.\15,000.B=0
2.10/1.運賃.\500.100.\50,000.B=1
2.10/1.PI.\10.100.\1,000.B=1
2.10/1.Dam.\150.100.\15,000.B=1
3.10/1.・・・・

と間に空白が入らず、Bの結果が0or1の
同じレコードが繰り返される様になり
ました。
このB=1のレコードを１つに集約して
空白の１行を入れ込みたいのですが。。

やり方が間違っていますか？
ここまで教わってもアイディアが浮かび
ません。

お手数ですが、お時間ありましたら
よろしくお願いします。。

・ツリー全体表示


	【10940】Re:エクセルからアクセスへAddNewで

ON - 09/1/14(水) 18:18 -


	引用なし

	パスワード

大変遅くなりました

>そんな事は無いですよ。ただ、怖いだけです。
ありがとうございます
了解です
>SQL Server 2005、2008（無償のバージョンもあります。無償のバージョンでも
この辺の知識を早くつけたいと思います

>？？これはよく判らん？？
・・・
コメントありがとうございました
安心しました

とりあえず
怖いの承知で運用してみます

色々ご教授ありがとうございました

今後もよろしくお願いいたしいます

・ツリー全体表示


	【10939】Re:クエリ結果に行間隔をあける

hatena - 09/1/14(水) 1:50 -


	引用なし

	パスワード

>クエリにて、あるフィールドをキーに並べるのですが
>その値が変わったら空白の１行を入れるって出来まし
>たっけ？

テーブル Tbl
フィールド
Key　キーフィールド
F1
F2
F3

と仮定して、下記のSQLで可能です。

SELECT
Key, F1, F2, F3
FROM
(SELECT
　　Key AS A, 0 AS B, Key, F1, F2, F3
　FROM Tbl
　UNION ALL
　SELECT DISTINCT
　　Key AS A, 1 AS B, Key, F1, F2, F3
　FROM Tbl)
ORDER BY A, B;

------------------------------
hatena Chips
pub.ne.jp/hatena/
------------------------------

・ツリー全体表示


	【10938】クエリ結果に行間隔をあける

カダワン - 09/1/13(火) 15:47 -


	引用なし

	パスワード

いつもお世話になります。
ものすごく素人発想かもしれませんし、やった事が
無いのですが、出来るのでしょうか？

クエリにて、あるフィールドをキーに並べるのですが
その値が変わったら空白の１行を入れるって出来まし
たっけ？

エクセル的な表現ですが、事実その様にしてエクセルに
エクスポートする必要もあります。（ここでは印字用）

1.10/1.入庫.\15.1,000.\15,000
1.10/1.作業.\30.500.\15,000

2.10/1.運賃.\500.100.\50,000
2.10/1.PI.\10.100.\1,000
2.10/1.Dam.\150.100.\15,000

3.10/1.・・・・

のようにです。
通常はTempTableをつくりますが、クエリ一発でできれば
教えて下さい。
すみませんが、よろしくおねがいします。

・ツリー全体表示


	【10937】Re:レコードを1件ずつ読み込む

neptune - 09/1/12(月) 9:25 -


	引用なし

	パスワード

▼聡さん：

こんにちは

>この処理は、実際にはどのような処理を行うところなのでしょうか?
自分で調べてください。調べた上で質問してください。
自分で意味を理解しようとしないのなら書いた意味がありません。
Helpなしでは書けませんし、理解は出来ません。もしHelpが無くても
MSへ行けばあります。

>Private Sub cboKey_change()　'exitではなくchangeに変更してみました。
その是非は挙動をみて判断して下さい。

>　　　　.Parameters.Append (prm)　'ここで実行時エラーとなります。
これは単純な書式の間違いです。
何度も書いてますが、環境を整えてないので、コンパイルもしていません。
これはVBの基本的な文法ですから、出来れば自分で気付いて欲しいものです。

　　　　.Parameters.Append prm
が正解と思います。・・・未検証です。
勢いで()を書いたようです。

もう一度書きますが、そのものズバリは書く気ないし、手取り足取り
する気もありませんので、自分で調べられる事は調べてから質問願います。

・ツリー全体表示


	【10936】Re:レコードを1件ずつ読み込む

聡 - 09/1/12(月) 0:04 -


	引用なし

	パスワード

▼neptune さん：
こんばんは。いつもすみません。
ご教授頂きましたコードを基に実行致しましたところ
コンボボックスから商品グループ番号を選択したところで
「実行時エラー424　オブジェクトが必要です」と出て先に進めません。
.Parameters.Append (prm)のところで止まっています。
この処理は、実際にはどのような処理を行うところなのでしょうか?

Private Sub cboKey_change()　'exitではなくchangeに変更してみました。

'T_商品マスタには商品グループ番号、商品コード、商品名
　　Dim cmd As ADODB.Command
　　Dim prm As ADODB.Parameter
　　Dim rs As ADODB.Recordset
　　Const QueryName As String = "Q_GetData_By_Group"
　
　
　　sData = Me.cboKey.Value
　　Set rs = New ADODB.Recordset
　　Set cmd = New ADODB.Command
　　Set prm = New ADODB.Parameter
　　With cmd
　　　　.ActiveConnection = CurrentProject.Connection
　　　　.CommandText = QueryName
　　　　.CommandType = adCmdStoredProc
　　　　'パラメータ追加
　　　　Set prm = .CreateParameter("Param1", adChar, adParamInput, , param1value)
　　　　.Parameters.Append (prm)　'ここで実行時エラーとなります。

・ツリー全体表示


	【10935】Re:レコードを1件ずつ読み込む

neptune - 09/1/11(日) 22:31 -


	引用なし

	パスワード

▼聡さん：
間違ってますね。ごめんなさい。

INSERT T_伝票入力 (商品名、商品コード) VALUES([Param1],[Param2]);
ですね。書式自体はこれでいけると思います。

くどいですが、ﾃﾞｰﾀ型は自分で考慮して下さいね。

・ツリー全体表示


	【10934】Re:レコードを1件ずつ読み込む

聡 - 09/1/11(日) 22:21 -


	引用なし

	パスワード

▼neptune さん：
こんばんは。

本当に色々と教えていただいてありがとうございます。
感謝申し上げます。
今、一つ一つご教授頂いた事を実行しております。

>以下のSQLで「Q_伝票入力」を作成・・・・（INSERT T_伝票入力 SET (商品名、商品コード) VALUES([Param1],[Param2]);

をSQLビューの画面でINSERT T_伝票入力 SET (商品名、商品コード) VALUES([Param1],[Param2]);と入力して名前を付けて保存しようとしたところ
INSERT INTOステートメントの構文エラーです。というメッセージが出て保存
出来ませんでした。ヘルプで確認したところ、予約語または引数名を正しく入力していないか、または指定していません。区切り記号に誤りがあります。とありました。おそらくスペースやカンマ等の使い方が悪いのかなと思いますが、何か注意すべき点はありますでしょうか?

度々お手数をお掛け致します。

・ツリー全体表示


	【10933】Re:レコードを1件ずつ読み込む

neptune - 09/1/11(日) 22:00 -


	引用なし

	パスワード

▼聡さん：
書き忘れ。

これで聡 =みかんさんの（よく考えて）これまでに書かれた情報に基づいた、
要求仕様は満たしていると思います。
但し、全くの未検証なので一度では動作しないと思いますけど。
その辺りは適当にデバッグして下さい。

※今回は説明と検証が面倒なので全部非連結で書きましたが、Accessの機能を
使えば、commandbuttonのクリックのところ以外はコード書かなくても
良いかもしれません。？

・ツリー全体表示


	【10932】Re:レコードを1件ずつ読み込む

neptune - 09/1/11(日) 21:50 -


	引用なし

	パスワード

▼聡さん：
前回の訂正
コントロールのデータ取得にtextプロパティを使っているが、そのまんまでは
エラーになるので、valueプロパティに変更の事。

続き・・・・全くの未検証。

パラメータクエリ作成
パラメータクエリ名：Q_GetData_By_Group　　以下SQL
SELECT 商品コード,商品名 FROM T_商品マスタ WHERE 商品グループ番号 =[Param1]

Private Sub cboKey_Exit(Cancel As Integer)
'T_商品マスタには商品グループ番号、商品コード、商品名
　　Dim cmd As ADODB.Command
　　Dim prm As ADODB.Parameter
　　Dim rs As ADODB.Recordset
　　Const QueryName As String = "Q_GetData_By_Group"
　　
　　
　　sData = Me.cboKey.Value
　　Set rs = New ADODB.Recordset
　　Set cmd = New ADODB.Command
　　Set prm = New ADODB.Parameter
　　With cmd
　　　　.ActiveConnection = CurrentProject.Connection
　　　　.CommandText = QueryName
　　　　.CommandType = adCmdStoredProc
　　　　'パラメータ追加
　　　　Set prm = .CreateParameter("Param1", adChar, adParamInput, , param1value)
　　　　.Parameters.Append (prm)
　　　　.Parameters.Refresh　 'これは不要かな？？それともあればまずい？？実験してみて下さい。
　　　　Set rs = .Execute
　　End With
　　'単一のレコードを返すと仮定
　　Me.txtCode.Value = rs.Fields("商品コード").Value
　　Me.txtName.Value = rs.Fields("商品名").Value
　　
　　Set prm = Nothing
　　Set cmd = Nothing
　　rs.Close
　　Set rs = Nothing
end sub

※データ型の情報が欠如しているので考慮してない。

・ツリー全体表示


	【10931】Re:レコードを1件ずつ読み込む

neptune - 09/1/11(日) 10:54 -


	引用なし

	パスワード

▼聡さん：
こんにちは

必要情報が揃うまで時間がかかりましたね。次回から質問するときの
教訓にしましょう。

さて、本題ですが、先ずこれから記載するコード類は全て
・未検証です。
・エラー処理、不適正なデータのチェックは考慮していない。
のでお断りしておきます。
・・・同じ環境作るの面倒くさいので。

以下私ならこうするという例
（これがBestと言う気はさらさら無いですが、非連結なら似たような方法になるはずです。）
DAOは既に枯れたもので安定はしているんでしょうが、これから書くなら
ADOで書いた方がサンプル等の参考文献も多いのでADOで書く事をお勧めします。
DAOの進歩は、10年前に終わりましたので。

以下のSQLで「Q_伝票入力」を作成・・・・（INSERT T_伝票入力 SET (商品名、商品コード) VALUES([Param1],[Param2]);

以下のSQLで「Q_商品グループ番号」を作成
SELECT T_商品マスタ.商品グループ番号, T_商品マスタ.商品コード, T_商品マスタ.商品名 FROM T_商品マスタ ORDER BY T_商品マスタ.商品グループ番号, T_商品マスタ.商品コード;

新規Form作成　以下構成　全て非連結
combobox　　　　　　　　オブジェクト名　cboKey　　　　非連結　値集合ソース　「Q_商品グループ番号」
commandbutton　　　オブジェクト名　cmdAddNew　非連結
textbox　　　　　　　　　　オブジェクト名　txtName 　　　非連結
textbox　　　　　　　　　　オブジェクト名　txtCode　　　　非連結

※ADO2.6以降に参照設定必須

'データ登録ボタン
Private Sub cmdAddNew_Click()
　　Dim cn As ADODB.Connection
　　Dim cmd As ADODB.Command
　　Dim prm As ADODB.Parameter
　　Dim param1value As String
　　Dim param2value As String
　　
　　'データ取得
　　param1value = Me.txtName.Text
　　param2value = Me.txtCode.Text
　　
　　Set cn = CurrentProject.Connection
　　Set cmd = New ADODB.Command
　　Set prm = New ADODB.Parameter
　　
　　With cmd
　　　　.ActiveConnection = cn
　　　　.CommandText = Q_Name
　　　　.CommandType = adCmdStoredProc
　　　　'パラメータ追加
　　　　Set prm = .CreateParameter("Param1", adChar, adParamInput, , param1value)
　　　　.Parameters.Append (prm)
　　　　Set prm = .CreateParameter("Param2", adChar, adParamInput, , param2value)
　　　　.Parameters.Append (prm)
　　　　.Parameters.Refresh
　　　　'実行
　　　　.Execute
　　End With
　　
　　Set prm = Nothing
　　Set cmd = Nothing
　　cn.Close
　　Set cn = Nothing

End Sub

と、ここまで書いたら根性が尽きたので、
textbox等への入力補助については根性が復活するのを待ってね。

後、comboboxのチェンジイベント？でパラメータクエリ（作成必要）を
キックして、必要データを取得、textboxに表示させようかなと思っています。
出来たらやってみて下さい。パラメータクエリでなくてもSQLを直接投げても
OKです。でもパラメータクエリを作った方が、Accessがクエリを作って
くれるので楽チン。

・ツリー全体表示


	【10930】Re:レコードを1件ずつ読み込む

聡 - 09/1/10(土) 20:09 -


	引用なし

	パスワード

▼neptune さん：
こんにちは
>情報なしでは考える事も出来ませんから。
すみません。お手数をお掛けしております。

>><テーブル>
>>T_商品マスタには商品グループ番号、商品コード、商品名
>>T_伝票入力には商品コード、商品名
>>となっており
>><フォーム>
>>F_伝票入力には商品コード、商品名(T_伝票入力を基に作成しました)
>ここで質問
>・商品コードのコントロールはComboBox？
いいえ。テキストボックスです。
>・商品名　のコントロールはTextBox？
はい。テキストボックスです。
>この２つのコントロールはいずれも非連結？
最初はT_伝票入力と連結しておりましたが、現在は何れも非連結になっています。
>・他にコントロールは？
フォームヘッダーの部分に、非連結のコンボックスでtxtキーというものがあります。↓の内容です。
>>1、F_伝票入力上にあるコンボックス(txtキー)から選択された商品グループ番号を基にT_商品マスタの内容を
>>F_伝票入力に表示させる。(毎回決まった注文に対応)
>・comboboxのコントロール名がtxtキー
そうなんです。書籍のサンプルを参考にしている為、このような名前になってます
>>1、については表示する事が出来ました。
>・どのようにして？
フォームヘッダーにある非連結のコンボックスであるtxtキーで商品グループ番号を選択して。
>>3については登録ボタンが考慮されておらず1、で表示と同時に即、T_伝票入力に反映してしまっています。
>非連結ならそのような事はありえないと思いますが？連結している？？？？
すいません。連結にしておりました。非連結にして試してみましたが、コードの記述にそもそも登録ボタンの処理を入れていない為、即、T_伝票入力に反映しております。最終的にはフォームフッターにある登録ボタンの処理を入れたいと考えております。

>で、最初に帰って、私なりに整理してみると以下のようになります。
>使用するテーブルとその構造は以下。但し、データ型の情報が欠如している
>>T_商品マスタには商品グループ番号、商品コード、商品名
>>T_伝票入力には商品コード、商品名
はい。テーブルは、現在そのようになっております。
>form　非連結上に、combobox 1個、textbox １個、commandbutton １個を配置、
form 非連結上にcombobox×1(フォームヘッダーの部分に商品グループ番号を選択するコンボックス)
txtbox×2(フォーム詳細の部分に商品コードと商品名)
commandbutton×1(フォームフッターの部分に登録ボタン)
>combobox 　コントロール名（txtキー）：商品グループ番号フィールドのデータを全て表示
このコンボックスは、フォームヘッダーにあり、コンボツクをクリックすると商品グループ番号と商品コード、商品名の一覧を表示しています。txtキーのプロパティの値集合ソースには、
SELECT T_商品マスタ.商品グループ番号, T_商品マスタ.商品コード, T_商品マスタ.商品名 FROM T_商品マスタ ORDER BY T_商品マスタ.商品グループ番号, T_商品マスタ.商品コード;
と設定してあります。これはうまく動いております。
>textbox　　コントロール名（不明）：手入力
フォーム詳細にあり、商品コード(非連結)、商品名(非連結)の2つ。フォームヘッダーにあるコンボックスで選択した商品グループ番号に対応した商品コード、商品名を表示しております。
フォームヘッダーにあるコンボックを使わず、手入力する事も想定しております。現在は、フォームヘッダーにあるコンボックス(txtキー)から商品グループ番号を選択してフォーム詳細にある商品コード、商品名に自動的に表示した後、続けて次のレコード欄に手入力で商品コード、商品名を入力すると、何故かT_商品マスタにデータが登録されてしまっております。
これが何故かわかりません。
>commandbutton　　コントロール名（商品マスタ全て読込）
>　　　　商品マスタ全て読込をクリックする事で、T_伝票入力にcombobox とtextbox のデータを追加したい。
フォームフッターにある登録ボタンをクリックすると、フォームヘッダーにあるコンボックス(txtキー)から選択し、フォーム詳細上に表示さた商品コード、商品名と合わせてフォーム詳細上で手入力(追加)した商品名、商品コードをT_伝票入力にデータが反映するようにしたい。(現在は出来ていません)

フォームフッターにある登録ボタンをクリックする事により、フォームヘッダーにあるコンボックスから選択したデータと追加入力したデータを合わせてT_伝票入力に格納したいのです。
つまりフォームヘッダーにあるコンボックスから定型注文分を選択し、フォーム詳細に表示して、続けて追加注文を手入力(F_伝票入力上に表示されているデータ)登録ボタンでT_伝票入力に格納したい。という事なのですが。。。

こんな感じの説明でご理解頂けますでしょうか?
つたない説明で申し訳ないです。

Private Sub txtキー_AfterUpdate()
　　Dim db As DAO.Database
　　Dim db2 As DAO.Database
　　
　　Dim rs As DAO.Recordset
　　Dim rs2 As DAO.Recordset
　　
　　Dim mySQL As String

　　Set db = CurrentDb()
　　Set db2 = CurrentDb()
　　
　　mySQL = "SELECT * FROM T_商品マスタ " _
　　　　　& "WHERE 商品グループ番号 = '" & Me!txtキー & "'"
　　
　　Set rs = db.OpenRecordset(mySQL)
　　Set rs2 = db2.OpenRecordset("t_伝票入力", dbOpenTable)
　　
　　Set Me.Recordset = rs
　　
　　Me!商品コード.ControlSource = "商品コード"
　　Me!商品名.ControlSource = "商品名"
　　
　　rs.MoveFirst
　　
　　Do Until rs.EOF
　　
　　With rs2
　　　 .AddNew
　　　 rs2!商品コード = rs!商品コード
　　　 rs2!商品名 = rs!商品名
　　　 .Update
　　End With
　　　rs.MoveNext
　　Loop
　　
　　Set rs = Nothing
　　Set db = Nothing
End Sub

・ツリー全体表示


	【10929】Re:エクセルからアクセスへAddNewで

neptune - 09/1/10(土) 12:45 -


	引用なし

	パスワード

▼ON さん：
こんにちは

>兎に角、自分が楽になれればだけのＱでしたが
>なんとなくひんしゅく系のＱだったのでしょうか・・・・
そんな事は無いですよ。ただ、怖いだけです。

>エクセルvba　
>【59800】VBAによるパソコンへの攻撃について
>よくわかりませんが、該当者？？
>で、回答頂けなかったのかと・・・
？？これはよく判らん？？

・ツリー全体表示


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

117 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free