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…