複数のフィールドでソートをしたい場合、order by句にカンマで区切り、指定します。

例）「field1」で昇順に並べ替え、「field1」が同じ値であれば「field2」を降順に並べ替えます。

select * from tablename order by field1, field2 desc

※昇順・降順はフィールド毎に指定する
上の例で「field1」も降順にしたい場合は

select * from tablename order by field1 desc, field2 desc

とする

Form_フォーム.コントロール名.value

などで値を取得できるがインスタンスを生成したほうが簡単で後が楽。

Dim Fm As Form

と、プロシージャ外で変数を定義しておき、

Set Fm = Form_フォーム

でオブジェクトのインスタンスを生成
あとは「Fm.コントロール名.Value」でアクセスできる

Private Function array_push(source As Variant, destination As String, flag As Boolean) As String

    Dim Ary() As String
    Dim delimiter As String

    Select Case (flag)
       
        Case True  '選択地域文字列
            delimiter = " "
       
        Case False '選択地域
            delimiter = ":"
   
    End Select

    If InStr(source, destination) < 0 Then
        array_push = source
        Exit Function
    End If

    If Not IsNull(source) Then
        Ary = Split(source, delimiter)
        ReDim Preserve Ary(UBound(Ary) + 1) As String
        Ary(UBound(Ary)) = destination
        array_push = Join(Ary, delimiter)
        array_push = value_splice(array_push, ":")
        DoEvents
        array_push = repRecur(array_push, ":")
    Else
        array_push = destination
    End If

End Function

ファイル名を変更するには、DirectoryクラスのMove()メソッドを使用します。

//現在の名前と新しい名前を引数に指定します。
Directory.Move("Test.txt", "Test.bak");

※但し、異なるボリューム間は移動できない

異なるボリューム間で移動したい場合はFileInfoクラスを使用します。

FileInfo fInfo = new FileInfo ("Test.txt");
fInfo.MoveTo("Test.bak");

※但し、移動先に同名のファイルが存在すればエラーが発生

テーブルにリレーションシップを組んであるため、
削除クエリでレコードを削除できない場合の解決法 

クエリのプロパティで、固有のレコード（UniqueRecords）を「はい」にする