Sub TEST01()Dim Db As Database Dim tdf As TableDef Dim tbl As Recordset Dim fld As Field Dim i As Integer Dim intCnt As Integer Dim strFields(50) As String Dim strTarget As String Dim strDummy As String intCnt = 0 strTarget = "T_印刷前"Set…

Sub ChangeQuery() '記述場所：モジュール「AddressBookModule」 On Error GoTo Err_Process Call Table_Open Dim tq As QueryDef Dim strOuttable As String Dim strOutfile As String Dim strIntable As String Dim strIntfile As String Dim strJoukenn(5…