★☆★☆★☆★☆★☆ 解決 ★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
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