調子に乗ってもう1個。 もうちょっと深堀できるようにしたいところ。 Private Declare Sub keybd_event _ Lib "user32" ( _ ByVal bVk As Byte _ , ByVal bScan As Byte _ , ByVal dwFlags As Long _ , ByVal dwExtraInfo As Long) Public Function DumpVBMo…

テーブル定義と同じ要領で。 パラメータに関する調査をするところで、クエリ自体に不備が ある場合はエラーが出ますが、その情報も出力しています。 (お掃除が苦手な方向け) Public Function DumpQueryDef(sDBFileName As String) As Boolean Dim db As DAO.…

昨日の続き。 引数でDBファイルを指定し、そのDBに関するテーブル定義を作成するようにしました。 Public Function DumpTableDef(sDBFileName As String) As Boolean On Error GoTo Trap Dim db As DAO.Database Dim tdf As DAO.TableDef Dim fld As DAO.Fie…

取り急ぎ自分用 Sub DumpTableDef() 'テーブル定義自動作成！！！ Dim db As DAO.Database Dim tdf As DAO.TableDef Dim fld As DAO.Field Dim fs As FileSystemObject Dim ts As TextStream Dim idx As DAO.Index Dim fld2 As Field Dim buf As String Dim …