このトピックについて親切に助けてください
- VBA フォーム (Access プロジェクト) を介して、SQL Server 2008 に接続し、テーブル (または接続) を読み込む必要があります。
- VBA フォームのテーブルに対していくつかのレポート (VBA 内で記述されたクエリ) を生成する必要があります。
このタスクを開始するには、チュートリアルを参照してください。この質問がフォーラムに既に存在する場合は、リンクを提供してください。
前もって感謝します。
よろしく、 バラ
このトピックについて親切に助けてください
このタスクを開始するには、チュートリアルを参照してください。この質問がフォーラムに既に存在する場合は、リンクを提供してください。
前もって感謝します。
よろしく、 バラ
外部テーブルを接続するためのアクセスウィザードを使用してテーブルを接続する必要があります。SQL Serverテーブルは、フォームとレポート用に簡単に操作できます。http://office.microsoft.com/en-ie/access-help/import-or-link-to-sql-server-data-HA010200494.aspx
このリンクは、テーブルを VBA にリンクする方法を示しています。ほとんどの場合、コードがループしてリンクを作成または更新したり、それらを SQL Server の別のインスタンスに設定したりできるように、テーブル名のテーブルが必要になります。リンクはリンクの他の方法を示していますが、SQL Server テーブルに主キーがある場合、このコードは機能します。これがこのリンクのコードです。
' Some variable to make the code more generic
Dim strConnectionString As String
Dim strNameInAccess As String
Dim strNameInSQLServer As String
' set the connection string
strConnectionString = "ODBC;DRIVER=SQL Server; " & _
"SERVER=.\SQLExpress;DATABASE=MyDatabase;Trusted_Connection=Yes"
' specify the tables you want to link. The table can be
' known by a different name in Access than the name in SQL server
strNameInAccess = "tblYacht"
strNameInSQLServer = "tblSailingBoat"
' delete the table from the local database if it exists
On Error Resume Next
DoCmd.RunSQL "drop table " & strNameInAccess
On Error GoTo 0
DoCmd.TransferDatabase acLink, "ODBC Database", _
strConnectionString, acTable, strNameInSQLServer, strNameInAccess