私は次のコードを持っています。 Sub Run_Queries_In_Access()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim acc As Object
Dim db As Object
Dim r As Long
Dim strDatabasePath As String
Set conn = New
VBAで私は以下のフルパスからどのようにファイル名を取得できますか？私のシンタックスで使用すると、完全なファイルパス（.xlsxには表示されません）を、後のものではないテーブル名としてインポートします。 Public Function importExcelSheets() As Long
Dim Directory As String, TableName As String, strDir
VBAを使用してアクセスするテーブルからレコードを取得しようとしています。今のところ私はこの単純な関数を持っています： Private Function GNCN() As String
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cm As ADODB.Command
Dim strSQL As St
私は、関連するトグルボタン（グループトグルと呼ぶ）で目に見えるように有効/無効にしたいコントロールのグループを持つフォームを作っています。各グループは、コントロールの種類の異なる様々なを持っているので、私はトグル動作を処理するための一般的な手順を行った。 'constants for control ForeColors
Public Enum LabelForeColor
Defau