<% On Error Resume Next main() Dim bProblem bProblem = 0 Sub main() %> 数字が赤字で出ている部分には問題がある可能性があります。

TA仕入売上書類F	TSA仕入売上書類F	<% = TableLineNum("TA仕入売上書類F","TSA仕入売上書類F", 3) %>
TA仕入売上書類明細F	TSA仕入売上書類明細F	<% = TableLineNum("TA仕入売上書類明細F","TSA仕入売上書類明細F", 3) %>
TA社員台帳F	TTA社員台帳F	<% = TableLineNum("TA社員台帳F","TTA社員台帳F", 1) %>
TA手形F	TGA手形F	<% = TableLineNum("TA手形F","TGA手形F", 3) %>
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", 3) %>
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", 3) %>
TC運送書類明細F	TSC運送書類明細F	<% = TableLineNum("TC運送書類明細F","TSC運送書類明細F", 3) %>
TC運送費請求書F	TSC運送費請求書F	<% = TableLineNum("TC運送費請求書F","TSC運送費請求書F", 3) %>
TC運送費請求書手動F	TSC運送費請求書手動F	<% = TableLineNum("TC運送費請求書手動F","TSC運送費請求書手動F", 3) %>
TC運送費請求書手動明細F	TSC運送費請求書手動明細F	<% = TableLineNum("TC運送費請求書手動明細F","TSC運送費請求書手動明細F", 3) %>
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", 0) %>
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", "", 0) %>
TA返品F		<% = TableLineNum("TA返品F", "", 0) %>
TA返品明細F		<% = TableLineNum("TA返品明細F", "", 0) %>
	TTK記帳チェックF	<% = TableLineNum("", "TTK記帳チェックF", 2) %>
	TDA市場M	<% = TableLineNum("", "TDA市場M", 2) %>
	TTM名刺データ2F	<% = TableLineNum("", "TTM名刺データ2F", 3) %>

<% If bProblem = 0 Then Response.Write("問題ありません") End If %> <% 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 = "" bProblem = 1 End If If Flg = 2 And Kensu2 = 0 And Kensu1 <> -1 Then TableLineNum = "" bProblem = 1 End If If Flg = 3 And Not(Kensu1 <= Kensu2 AND Kensu1 * 2 >= Kensu2) And Kensu1 <> -1 Then TableLineNum = "" bProblem = 1 End If If Flg = 4 And Kensu2 <> 1 Then TableLineNum = "" bProblem = 1 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 %>