Excelでは簡単にできることでも、Accessでは何でこんなことができないの？？
と思うことが多々あります。その一つが行数を表示することです。
納品明細フォームに順番を入れられるフィールドを配置してここに行数を入れていきます。
ここに明細を入力する都度、行数が表示されるようにします。
今回は、商品名を入れたときに番号が入るように、商品名の更新後の処理
にコードを入力します。
コードは次の通りです。
Private Sub 商品名_AfterUpdate()
Dim a As Integer
a = DCount(“*”, “納品明細”, “納品書NO=” & Forms!納品書!納品書NO & “”) + 1
Me!順番1 = a
Me!順番2 = a
End Sub
普通に順番を入れるだけならこれで終わりです。
ただ問題なのが、行を削除したときと追加したときにこれでは対応できません。
何故なら、Excelと違ってAccessのレコードを登録した順番は変えられないからです。
その点の詳しい解説は後程として、この仕組みを理解するとAccessとはどういうソフト
か理解が進むと思います。
