【AccessVBA】DAOのrecordcountで件数が取れない⇒MoveLastする

★☆★☆★☆★☆★☆  解決 ★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
DAOのrecordcountで件数が取れない
⇒DAOの場合、MoveLastしないとRecordCountの値が正しく取得できないケースがあるので、
多分一回最終行までレコード移動すればいい。
⇒rs.MoveLast

> ——————————-
> Set cn = Application.CurrentProject.Connection
> rs.Open Me.RecordSource, cn, adOpenKeyset, adLockOptimistic

rs.MoveLast

> If rs.RecordCount > 0 Then
> rs.MoveFirst
> Do Until rs.EOF
> rs!送信可否 = -1
> rs.Update
> rs.MoveNext
> Loop
> End If

About

You may also like...

Your email will not be published. Name and Email fields are required