伝票番号の最大値取得 (ID:113296)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 VB６．０で、データベースはACCESSを使用しています。 '伝票番号を作成するために、現在ある伝票番号の最大値を取得したいです。 'tblPayの中のChitNo（伝票番号）の最大値を求めたいのです。 '日付単位で伝票を一から発行しなおすため、WHERE句に日付を入れています。 strSql = "SELECT Max(ChitNo) As intMAX_Chit FROM tblPay WHERE tblPay.Day = '" & Format(Date, "yyyymmdd") & "'" Call gGetMemberInfo(strSql, mRs) 'データベースオープン関数を呼ぶ lblChitNo.Caption = Format(intMAX_Chit, "000000") '表示されるものはデータがあるにも係わらず００００００です。 'SQL文が間違っているのでしょうか。 'どうかご助言をお願いいたします。