2017-01-26 6 views
0

古いAccess/VBAデータベースをAccess 2010に変換しています。古いプロジェクトでは、「ファイル」 - >「情報」フォームに「SERVER」ボタンがありますSQLデータベースへの接続を管理していました。これにより、DSNの接続が少なくなりました。データベースを作成し、古いバージョンからインポートすると、ボタンはもう存在しません。私はこれに対する参照を見つけることができず、誰かが同じメソッドを使用してボタンを作成する方法を知っているかどうかを知りたいと思います。Access/vba dsn less接続を使用して情報タブのサーバーマネージャボタンを閉じる方法

Server Button

+0

イメージからは、新しいバージョンのAccessで無効になっている.adp(Access Data Project)ファイルのようです。 ODBC一部のVBAでDSNレス接続を行うことができます。https://support.microsoft.com/en-us/help/892490/how-to-create-a-dsn-less-connection-to-sql-server- for-linked-tables-in-access – Fink

+0

これは.adpに当てはまり、あなたは私が何を考えているかを確認しました。とにかくconfigファイルの方が良い。ありがとう – JFarris

答えて

0

この関数を呼び出すボタンを作成します。リンクテーブルの名前(strName)とDSN名(strODBC)を渡します。

Function EditConString(strName$, strODBC$) 

Dim DB As DAO.database 
Dim tdf As DAO.TableDef 

tablename = strName 
'replace with the access link name 

Set DB = CurrentDb() 
Set tdf = DB.TableDefs(tablename) 

tdf.Connect = "ODBC;DSN=" & strODBC 
'replace with the ODBC connection DSN name 
tdf.RefreshLink 

Set tdf = Nothing 
DB.Close 

End Function 
関連する問題