<% On Error Resume Next main() Sub main() %> <% = AppTitle %> 数字が赤字で出ている部分には問題がある可能性があります。
TA仕入売上書類F TSA仕入売上書類F <% = TableLineNum("TA仕入売上書類F","TSA仕入売上書類F", 1) %>
TA仕入売上書類明細F TSA仕入売上書類明細F <% = TableLineNum("TA仕入売上書類明細F","TSA仕入売上書類明細F", 1) %>
TA社員台帳F TTA社員台帳F <% = TableLineNum("TA社員台帳F","TTA社員台帳F", 1) %>
TA手形F TGA手形F <% = TableLineNum("TA手形F","TGA手形F", 1) %>
TA損益計画F TTA損益計画F <% = TableLineNum("TA損益計画F","TTA損益計画F", 1) %>
TA入出庫TRN TGA入出庫TRN <% = TableLineNum("TA入出庫TRN","TGA入出庫TRN", 1) %>
TA入出庫明細TRN TGA入出庫明細TRN <% = TableLineNum("TA入出庫明細TRN","TGA入出庫明細TRN", 1) %>
TB銀行口座F TGB銀行口座F <% = TableLineNum("TB銀行口座F", "TGB銀行口座F", 1) %>
TB銀行取引申込書類F TSB銀行取引申込書類F <% = TableLineNum("TB銀行取引申込書類F", "TSB銀行取引申込書類F", 1) %>
TB銀行入出金TRN TGB銀行口座入出金TRN <% = TableLineNum("TB銀行入出金TRN", "TGB銀行口座入出金TRN", 1) %>
TSシステムM TC1システムM <% = TableLineNum("TSシステムM", "TC1システムM", 4) %>
TS演習M TC2演習M <% = TableLineNum("TS演習M", "TC2演習M", 1) %>
TS学生グループM TC3学生グループM <% = TableLineNum("TS学生グループM", "TC3学生グループM", 1) %>
TS演習許可学生グループM TC4演習許可学生グループM <% = TableLineNum("TS演習許可学生グループM","TC4演習許可学生グループM", 1) %>
TS学生M TC5学生M <% = TableLineNum("TS学生M","TC5学生M", 1) %>
TS演習履歴M TC6演習履歴M <% = TableLineNum("TS演習履歴M","TC6演習履歴M", 1) %>
TS区分M TC9区分M <% = TableLineNum("TS区分M","TC9区分M", 2) %>
TS文書種類M TC9文書種類M <% = TableLineNum("TS文書種類M","TC9文書種類M", 2) %>
TS名刺デザインM TC9名刺デザインM <% = TableLineNum("TS名刺デザインM","TC9名刺デザインM", 2) %>
TC運送書類F TSC運送書類F <% = TableLineNum("TC運送書類F","TSC運送書類F", 1) %>
TC運送書類明細F TSC運送書類明細F <% = TableLineNum("TC運送書類明細F","TSC運送書類明細F", 1) %>
TC運送費請求書F TSC運送費請求書F <% = TableLineNum("TC運送費請求書F","TSC運送費請求書F", 1) %>
TC運送費請求書手動F TSC運送費請求書手動F <% = TableLineNum("TC運送費請求書手動F","TSC運送費請求書手動F", 1) %>
TC運送費請求書手動明細F TSC運送費請求書手動明細F <% = TableLineNum("TC運送費請求書手動明細F","TSC運送費請求書手動明細F", 1) %>
TC寄託者台帳F TGC寄託者台帳F <% = TableLineNum("TC寄託者台帳F","TGC寄託者台帳F", 1) %>
TC出庫F TGC出庫F <% = TableLineNum("TC出庫F","TGC出庫F", 1) %>
TC保険契約F TGC保険契約F <% = TableLineNum("TC保険契約F","TGC保険契約F", 1) %>
TS会社M TDA会社M <% = TableLineNum("TS会社M","TDA会社M", 1) %>
TS勘定科目M TDA勘定科目M <% = TableLineNum("TS勘定科目M","TDA勘定科目M", 2) %>
TS商品M TDA商品M <% = TableLineNum("TS商品M","TDA商品M", 1) %>
TS報告書書式M TDA報告書書式M <% = TableLineNum("TS報告書書式M","TDA報告書書式M", 2) %>
TK現金入出金TRN TGK現金入出金TRN <% = TableLineNum("TK現金入出金TRN","TGK現金入出金TRN", 1) %>
TK摘要M TTK摘要M <% = TableLineNum("TK摘要M","TTK摘要M", 1) %>
TK伝票F TSK伝票F <% = TableLineNum("TK伝票F","TSK伝票F", 1) %>
TK伝票仕入売上明細F TSK伝票仕入売上明細F <% = TableLineNum("TK伝票仕入売上明細F","TSK伝票仕入売上明細F", 1) %>
TK伝票明細F TSK伝票明細F <% = TableLineNum("TK伝票明細F","TSK伝票明細F", 1) %>
TL合併残高F TTL合併残高F <% = TableLineNum("TL合併残高F","TTL合併残高F", 1) %>
TM名刺データF TTM名刺データF <% = TableLineNum("TM名刺データF","TTM名刺データF", 1) %>
TK帳簿_合計残高試算表F TSK帳簿_合計残高試算表F <% = TableLineNum("TK帳簿_合計残高試算表F","TSK帳簿_合計残高試算表F", 1) %>
TK帳簿_仕訳集計表F TSK帳簿_仕訳集計表F <% = TableLineNum("TK帳簿_仕訳集計表F","TSK帳簿_仕訳集計表F", 1) %>
TK帳簿_仕訳日記帳F TSK帳簿_仕訳日記帳F <% = TableLineNum("TK帳簿_仕訳日記帳F","TSK帳簿_仕訳日記帳F", 1) %>
TK帳簿_総勘定元帳F TSK帳簿_総勘定元帳F <% = TableLineNum("TK帳簿_総勘定元帳F","TSK帳簿_総勘定元帳F", 1) %>
TK帳簿_損益計算書F TSK帳簿_損益計算書F <% = TableLineNum("TK帳簿_損益計算書F","TSK帳簿_損益計算書F", 1) %>
TK帳簿_貸借対照表F TSK帳簿_貸借対照表F <% = TableLineNum("TK帳簿_貸借対照表F","TSK帳簿_貸借対照表F", 1) %>
TK帳簿_八桁精算表F TSK帳簿_八桁精算表F <% = TableLineNum("TK帳簿_八桁精算表F","TSK帳簿_八桁精算表F", 1) %>
TK補助簿_現金出納帳F TSK補助簿_現金出納帳F <% = TableLineNum("TK補助簿_現金出納帳F","TSK補助簿_現金出納帳F", 1) %>
TK補助簿_仕入帳F TSK補助簿_仕入帳F <% = TableLineNum("TK補助簿_仕入帳F","TSK補助簿_仕入帳F", 1) %>
TK補助簿_支払手形記入帳F TSK補助簿_支払手形記入帳F <% = TableLineNum("TK補助簿_支払手形記入帳F","TSK補助簿_支払手形記入帳F", 1) %>
TK補助簿_受取手形記入帳F TSK補助簿_受取手形記入帳F <% = TableLineNum("TK補助簿_受取手形記入帳F","TSK補助簿_受取手形記入帳F", 1) %>
TK補助簿_商品有高帳F TSK補助簿_商品有高帳F <% = TableLineNum("TK補助簿_商品有高帳F","TSK補助簿_商品有高帳F", 1) %>
TK補助簿_当座預金出納帳F TSK補助簿_当座預金出納帳F <% = TableLineNum("TK補助簿_当座預金出納帳F","TSK補助簿_当座預金出納帳F", 1) %>
TK補助簿_買掛金元帳F TSK補助簿_買掛金元帳F <% = TableLineNum("TK補助簿_買掛金元帳F","TSK補助簿_買掛金元帳F", 1) %>
TK補助簿_売掛金元帳F TSK補助簿_売掛金元帳F <% = TableLineNum("TK補助簿_売掛金元帳F","TSK補助簿_売掛金元帳F", 1) %>
TK補助簿_売上帳F TSK補助簿_売上帳F <% = TableLineNum("TK補助簿_売上帳F","TSK補助簿_売上帳F", 1) %>
TXメールF TTXメールF <% = TableLineNum("TXメールF","TTXメールF", 1) %>
TX文書F TTX文書F <% = TableLineNum("TX文書F","TTX文書F", 1) %>
TC運送契約F <% = TableLineNum("TC運送契約F", "", 3) %>
TA返品F <% = TableLineNum("TA返品F", "", 3) %>
TA返品明細F <% = TableLineNum("TA返品明細F", "", 3) %>
TTK記帳チェックF <% = TableLineNum("", "TTK記帳チェックF", 2) %>
TDA市場M <% = TableLineNum("", "TDA市場M", 2) %>
TTM名刺データ2F <% = TableLineNum("", "TTM名刺データ2F", 3) %>
<% End Sub Function TableLineNum(TableName1, TableName2, Flg) Dim Query, Content Dim Kensu1, Kensu2 Query = "SELECT name FROM sysobjects WHERE (xtype = 'U') AND (status >= 0) ORDER BY name" Set db = Server.CreateObject("ADODB.Connection") db.Open SQLConn Kensu1 = -1 Kensu2 = -1 If TableName1 <> "" Then Query = "SELECT name FROM sysobjects WHERE name = '" & TableName1 & "'" Set Content = OpenQuery(Query) If Not(Content.BOF OR Content.EOF) Then Set Content = OpenQuery("SELECT count(*) as Kensu FROM " & TableName1) Kensu1 = Content.Fields("Kensu") End If End If If TableName2 <> "" Then Query = "SELECT name FROM sysobjects WHERE name = '" & TableName2 & "'" Set Content = OpenQuery(Query) If Not(Content.BOF OR Content.EOF) Then Set Content = OpenQuery("SELECT count(*) as Kensu FROM " & TableName2) Kensu2 = Content.Fields("Kensu") End If End If If Flg = 1 And Kensu1 <> Kensu2 And Kensu1 <> -1 Then TableLineNum = "" End If If Flg = 2 And Kensu2 = 0 And Kensu1 <> -1 Then TableLineNum = "" End If If Flg = 3 And Not(Kensu1 <= Kensu2 AND Kensu1 * 2 >= Kensu2) And Kensu1 <> -1 Then TableLineNum = "" End If If Flg = 4 And Kensu2 <> 1 Then TableLineNum = "" End If TableLineNum = TableLineNum & Kensu1 & " " & Kensu2 If Flg = 1 And Kensu1 <> Kensu2 And Kensu1 <> -1 Then TableLineNum = TableLineNum & "" End If If Flg = 2 And Kensu2 = 0 And Kensu1 <> -1 Then TableLineNum = TableLineNum & "" End If If Flg = 3 And Not(Kensu1 <= Kensu2 AND Kensu1 * 2 >= Kensu2) And Kensu1 <> -1 Then TableLineNum = TableLineNum & "" End If If Flg = 4 And Kensu2 <> 1 Then TableLineNum = TableLineNum & "" End If End Function %>