'項目の昇順に並び替える Me.OrderBy = [項目名] '項目の降順に並び替える Me.OrderBy = [項目名 DESC] Me.OrderByOn = True Me.Requery '並び替えの解除 Me.OrderByON = False Me.Requery