No.2ベストアンサー
- 回答日時:
>Set con = Application.CurrentProject.Connection←ここでとまっている
connection メソッドは失敗しました などのメッセージは出ますでしょうか?
Connectionオブジェクト変数conにカレントプロジェクトを代入するところで止まるのですよね。
Set con =の部分より前の記述も確認をしてください。
Dim con As ADODB.Connectionになってますよね。
エラーが出るPCでAccessを起動しVBE画面のイミディエイトウィンドウで
?Application.CurrentProject.Connection
または
?CurrentProject.Connection
を実行させてみて下さい。参照が返されますので確認してみてください。
後は・・
Access11.0ObjectLibraryは参照されてますよね。(2000だと9.0かもしれませんが)
ADOのLibraryも参照されてますでしょうか。
他のPCと参照設定が同じか確認してみてください。
取りあえずこのくらいしか回答できませんが・・。
他のPCのmdbからSwitchbordなどをエラーが出るPCのmdbに再度インポートしてみて起動出来るでしょうか?
その辺も確認してみてください。
この回答への補足
補足が遅くなり申し訳ありません。
上記について、connection メソッドは失敗しましたは出ています「connection メソッドは失敗しました: '_CurrentProject' オブジェクト」
となります。
また、Set con より前の記述は
Option Compare Database
Private Sub Form_Open(Cancel As Integer)
' Minimize the database window and initialize the form.
' Move to the switchboard page that is marked as the default.
Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'Default' "
Me.FilterOn = True
End Sub
Private Sub Form_Current()
' Update the caption and fill in the list of options.
Me.Caption = Nz(Me![ItemText], "")
FillOptions
End Sub
Private Sub FillOptions()
' Fill in the options for this switchboard page.
' The number of buttons on the form.
Const conNumButtons = 8
Dim con As Object
Dim rs As Object
Dim stSql As String
Dim intOption As Integer
' Set the focus to the first button on the form,
' and then hide all of the buttons on the form
' but the first. You can't hide the field with the focus.
Me![Option1].SetFocus
For intOption = 2 To conNumButtons
Me("Option" & intOption).Visible = False
Me("OptionLabel" & intOption).Visible = False
Next intOption
' Open the table of Switchboard Items, and find
となっています。どうもSwitchuBoardが開けないでエラ-になっているようです。
また該当のPCで、空のmdbファイルを作りそこにテーブルやクエリー等はインポート可能です。しかしフォームにあるSwitchuboardを開こうとするとエラーで、開けません。困りました。。。なんとか解決策をご教授お願いいたします。
No.1
- 回答日時:
エラーメッセージがあれば、何と表示されるか教えて下さい。
この回答への補足
はい、ファイルを開こうとすると読み始めて少ししていきなりVBAデバッグモードになり下記メッセージがでます。
------
***
' Open the table of Switchbord Items, and find
' the first item for this Switchubord Page.
Set con = Application.CurrentProject.Connection←ここでとまっている
stSql = "SELECT * FROM [Switchboard Items]"
stSql = stSql & "WHERE [ItemNumber] > 0 AND [SwitchubordID]=" & Me![SwitchubordID]
stSql = stSql & "ORDER BY [ItemNumber];"
Set rs = CreateObject("ADODB.Recordset")
rs.Open stSql, con, 1 ' 1 = adOpenKeyset
'*****
------
そのDBは最初にSwitchbordでメニュー画面を表示するようにしてあり、他のPCでは問題なくメニューが起動します。
どうぞよろしくお願いいたします
PS.
会社のネットワークではセキュリティ制限から掲示板への接続を許可していないのでこのあとのお返事は帰宅後の夜になってしまいます。質問しているのに申し訳ありません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- MySQL データベースの複製の仕方(mysql) 2 2023/05/30 18:24
- Excel(エクセル) EXCELの外部データ取得ができない 1 2023/03/23 09:03
- Access(アクセス) Accessのリンクテーブルのパスを相対パスにする方法について教えて頂きたいです 1 2023/02/08 13:29
- その他(Microsoft Office) 新pcでoffice使いたい 3 2022/11/25 19:45
- Chrome(クローム) 【Google】「同期は有効です」と表示されているがブックマークが同期されていない 2 2022/11/17 13:32
- iCloud iCloud for Windowsをアンインストールすると、消失するファイルがある? 2 2023/06/28 12:47
- その他(SNS・コミュニケーションサービス) 【至急】Microsoft teamsログインできないループ・・ 3 2023/05/17 13:17
- その他(Microsoft Office) PCを買い換えました。 今使っているノートパソコンが10年以上使っており新しく買い換えました。Win 5 2023/03/26 00:18
- ネットワーク ネットワーク資格情報について 2 2022/08/05 12:50
- その他(インターネット接続・インフラ) PCに関してのトラブル 2 2023/04/02 18:52
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「1004:アプリケーション定義...
-
#1062 - '0' は索引 'PRIMARY' ...
-
Transact-SQLのBULK INSERTでエ...
-
オラクルでisnumeric?
-
AccessVBA 実行時エラー'2766'...
-
実行時エラー459 withステート...
-
空白はダメというエラーの表示...
-
VBを使って値が入らない
-
ADOでの接続
-
Oracleで致命的なエラーが頻繁...
-
列名に変数を使うことはできな...
-
SQL文長の制限
-
ODBCデータソースが削除できま...
-
アクセスでエラー このフィー...
-
BULK INSERTのエラー取得は可能...
-
SQLserver2005 nvarchar を flo...
-
【Excel】[Expression.Error] ...
-
共有フォルダに誰が何にアクセ...
-
特定のエクセルファイルを起動...
-
selectした結果の余計な余白を...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
#1062 - '0' は索引 'PRIMARY' ...
-
空白はダメというエラーの表示...
-
列名に変数を使うことはできな...
-
アクセスでエラー このフィー...
-
オラクル(PL/SQL)のエラー
-
Access2010実行時エラー-21473525
-
AccessVBA 実行時エラー'2766'...
-
「1004:アプリケーション定義...
-
SQLserver2005 nvarchar を flo...
-
SQL文長の制限
-
エラーについて
-
DocuWorksでの印刷
-
PL/SQL ORA-06502エラーに関し...
-
SQL エラー コードの一覧 につ...
-
オラクルでisnumeric?
-
(素人の質問) SQL Server エ...
-
DLLが正しく呼び出せません (ToT)
-
UPDATEを使ったSQL文にて
-
『ORA-00936: 式がありません。...
-
SQLCODE=-420とはどういうエラ...
おすすめ情報