Bookｍａｒｋプロパティをソート後の順番にするには？ (ID:107654)

名前

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

本文 岡田殿、ありがとうございます。 本当に初心者なため、理解不能の部分もあります。 とりあえず、処理については条件式とループを組み合わせる方法もあり 解決できそうです。 以下は、今回エラーとなった現実のソースです。 ＤＡＯまでは考えてなかた為うまくいかないのでしょう。 public sub コマンド0_Click() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset : Set cn = CurrentProject.Connection rs.CursorLocation=adUseClient rs.Open "基テーブル",cn,adOpenkeyset,adLockOptimistic rs.Sort="IDNO ASC,KEYRECNO ASC,SGNO ASC,INO ASC" '4つのフィールドIDNOからINOを優先順位でソート rs.MoveFirst ： ： until rs.EOF ： rs.Update "XXX",YYY 'あるエリアに認識用ＩＤの書込み、固定データ書く他パターンも有る rs.Movenext ： loop : rs.Close:Set rs=Nothing cn.Close:Set cn=Nothing End Sub