断続的なエラーをはじめようとする場合、制御別のデータベースのVBA

StackOverflow https://stackoverflow.com/questions/70417

  •  09-06-2019
  •  | 
  •  

質問

私は、以下のコード:

Dim obj As New Access.Application
obj.OpenCurrentDatabase (CurrentProject.Path & "\Working.mdb")
obj.Run "Routine"
obj.CloseCurrentDatabase
Set obj = Nothing

問題は私の実験ではポップアップからアクセスできないを設定し、その他のデータベースです。これを見ていただきますと、コードに走りたい、型別の現場の意見を反映する。その他の方法を実現するこりますようお願い申し上げます。

仕事をしていMSアクセス2003年

この間欠的なエラーになります。このプロダクションコードで実行するだけで見分けるのは至難の業で再現し、表現できませんし、正確なテキストの数。このウェブサイトは月のことが起こりました。

疑いのノイズが発生することがありうのであること又はその他のデータベースです。

のデータフロー型への更新すべてのプロジェクト'度を採用しており、一つはデータベースの情報、その他のデータベースです。

たぶん、これの最初の行のルーチンをコード:まvbNo=MsgBox("になりたいアップグレードしてみた。", vbYesNo,"更新"して 口機能 End If

私は別の型のMsgBox.

って再現することのできることである。この場合に焦点をシフトにデータベースのユーザー設定の焦点([ALT]+[タブ]の最初のデータベースです。のソリューション"の育成のためのユーザーです。

この間欠的なエラーになります。このプロダクションコードで実行するだけで見分けるのは至難の業で再現し、表現できませんし、正確なテキストの数。このウェブサイトは月のことが起こりました。

疑いのノイズが発生することがありうのであること又はその他のデータベースです。

のデータフロー型への更新すべてのプロジェクト'度を採用しており、一つはデータベースの情報、その他のデータベースです。

たぶん、これの最初の行のルーチンをコード:まvbNo=MsgBox("になりたいアップグレードしてみた。", vbYesNo,"更新"して 口機能 End If

私は別の型のMsgBox.

また当社開発データベースを持って来て作業します。この意味はなく、その他のコードもworkes微開発中のものです。

役に立ちましたか？

解決 3

って再現でき、エラーの"の開発に

"この動作が完了できない、他のアプリケーションは忙しい。選択スイッチを起動...."

私が見えないので、残りのメッセージとして点滅させます。このエラーに伴う切替"のデータベースです。それほど大きくないと思っ育のユーザーが、このまま停止します。

フィリップは、ご回答はもちろん、正しい。って選ばれる経路がなかったのを開発し、"日常'ります。

"って再現することのできることである。この場合に焦点をシフトにデータベースのユーザー設定の焦点([ALT]+[タブ]の最初のデータベースです。のソリューション"の育成のためのユーザーです。" ことはできませんの防止、ユーザがアプリケーション切替Windowsでは、いままであります。

他のヒント

このエラーメッセージがリンクの状態のデータベースです。ご使用のこちらのジェット接続、アクセス、できない場合がございますので、複数の理由(マルチユーザ環境unability削除LDBロックファイルなど）を適切に果のあるアクティブデータベースを開きことがありますか。なので、私にとっては、値段が高くなりますが、忘れてはジェットエンジンも否定データを更新において"その他"データベースです。

という時には"データフロー型への更新すべてのプロジェクト'度を採用しており、一つはデータベースの情報、その他のデータベース"となっているのでしょうかの役割を"日常"を更新データにはSQLの指示または同等のrecordsetます。

んにするために努力することに対応するアップデートとアップデートを開否を他のデータベース(1)の送信に対応するSQLの指示又は(2)開recordsetを求め更?

うものに例えば:

Dim cn as ADODB.connexion, 
    qr as string, 
    rs as ADODB.recordset

'qr can be "Update Table_Blablabla Set ... Where ...
'rs can be "SELECT * From Table_Blablabla INNER JOIN Table_Blobloblo  

set cn = New ADODB.connexion
cn.open

You can here send any SQL instruction (with command object and execute method) 
or open and update any recordset linked to your other database, then

cn.close

ることもできように行いODBC否（DAO.recordsets)をお選びいただけお好みのオブジェクト。

だものの機能は、次のことを試してみてください:

Dim obj As New Access.Application
obj.OpenCurrentDatabase (CurrentProject.Path & "\Working.mdb")

obj.DoCmd.RunMacro "MyMacro"
obj.CloseCurrentDatabase
Set obj = Nothing

Where'MyMacro'インは新しいコンセプトとしてのRunCode"の機能名称、あなたが好む方を実行できます。mdb

ライセンス： CC-BY-SA と 帰属
所属していません StackOverflow
scroll top