Access VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2108 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【3884】連続Query Chou 04/11/23(火) 12:23 質問[未読]
【3885】Re:連続Query ちゅう吉 04/11/23(火) 14:27 回答[未読]
【3886】Re:連続Query Chou 04/11/23(火) 16:51 質問[未読]
【3884】連続Query
質問  Chou  - 04/11/23(火) 12:23 -
引用なし
パスワード
   御教授願います。

他のDatabaseよりテーブルをインポートして、連続して
このテーブルをレコードセットで開いた時にエラーが
発生致します。

例:DAO DatabaseとADOのConnection等は設定されている条件下。
Dim db As DAO.Database
　　Set db = CurrentDb
Dim strSQL as String
　 strSQL "Select * Into Table_B From Table_A In (他のデータベースパス)"
　 DoCmd.RunSQL strSQL

Dim rst As New ADODB.Recordset
　 rst.Open "Table_B", cn

現状の説明：レコードセットを開く前にメッセージボックスを開いて、
次のコードとの間にタイムラグを取る様にしてエラーを
回避致しております。

皆様はどの様にされておられるのでしょうか？。
最善策が有りましたら御教授願います。
以上。
【3885】Re:連続Query
回答  ちゅう吉  - 04/11/23(火) 14:27 -
引用なし
パスワード
   >現状の説明：レコードセットを開く前にメッセージボックスを開いて、
>次のコードとの間にタイムラグを取る様にしてエラーを
>回避致しております。
>
>皆様はどの様にされておられるのでしょうか？。
>最善策が有りましたら御教授願います。


クエリの実行は非同期の DoCmd.RunSQL は使用せず CurrentDb.Execute を使用しています。(DAO)

DoCmd.RunSQL strSQL
↓
CurrentDb.Execute strSQL
【3886】Re:連続Query
質問  Chou  - 04/11/23(火) 16:51 -
引用なし
パスワード
   ちゅう吉さん、早速のお返事有難う御座いました。

当方のコードミスが有れば御容赦願いますが、
Executeを利用した場合、転送先のデーターベースに
テーブルが無ければ問題無い様ですが二度目の折には
エラーが出る様です。
その為にTableDefsにて転送先のデーターベースのテーブルを
予め探して、インポートするテーブルが存在する場合には
レコードを削除してからExecuteメソッドを行っておりました。
現在、此れを簡素化中です。

又、Accessは2002を利用致しております。
最初の説明不足で誠に申し訳有りませんでした。
御容赦願います。

尚、追加説明ですがインポートするテーブルは20程になり、
インポート後にはこれらのテーブルを利用して新規テーブルを
作成して必要レコードを転記致しております。
３年ほど前のデーターベースに新規機能を追加したくて
再構築中です。

余談かも知れませんがAccess95,97の時には問題なくコードが
走った様な気がしますが、思い違いでしょうかね・・・・・。

当方、全て独学で基礎が不足致してるかと自覚致しており
お手を煩わせて申し訳有りませんが最善策が有りましたら
御教授願います。

以上。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2108 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1084346
(SS)C-BOARD v3.8 is Free