次のレコード番号（PK）はどのように決定されますか？

Question

私は主キーのオートナンバーシーケンスの次の番号をプログラマチックに取得しようとしています。そして、次のレコードに移動するには、データベースを伝えるために

docmd.RunCommand acCmdRecordsGoToNew 

、および：表の最後の数は10だった場合たとえば、私はのようなものを使用することになり、それは前に11を返す必要があります私は彼らが現在入力しているレコードをユーザーに示すフォームのコントロールに割り当てます。問題は、プロパティウィンドウでプロパティを「いいえ」に設定してナビゲーションボタンを無効にしたときにこの機能が機能しなくなることです。ナビゲーションバーを有効にしないでvbaで次のレコードを取得するにはどうすればよいですか？

Answer 1

はあなたのオートナンバー列のシード値をルックアップする必要があり、実際の次の値が何であるかを知っている：適用することができ、where句もあります。あなたはたくさんのそれを呼び出すするつもりなら、あなたはおそらく、あなたがこの関数を呼び出すたびに、ADOX Catalogオブジェクト変数をキャッシュするのではなく、再初期化することだろう

Public Function GetSeedValue(strTable As String, strColumn As String) As Long 
    Dim cnn As Object 'ADODB.Connection 
    Dim cat As Object ' New ADOX.Catalog 
    Dim col As Object ' ADOX.Column 

    Set cnn = CurrentProject.Connection 
    Set cat = CreateObject("ADOX.Catalog") 
    cat.ActiveConnection = cnn 

    Set col = cat.Tables(strTable).Columns(strColumn) 
    GetSeedValue = col.Properties("Seed") 

    Set col = Nothing 
    Set cat = Nothing 
    Set cnn = Nothing 
    End Function 

：このコードは、ことを行います。

マルチユーザー環境では、使用したときに別のユーザーによって更新された可能性があるため、正確ではない可能性があります。ただし、Max（）+ 1が持つことができるAutonumber値をスキップするのに問題はありません。

次のAutonumber値を気にすると、誤って使用していることに注意してください。オートナンバーの値はサロゲートキーなので、値が何であるかは決して気にしないでください。

Answer 2

データベースとやりとりして実際に値を返すVBA関数があることが分かります。これは私が次のレコード番号を得るためにやったことです：

Dim nextRecord As Integer 
nextRecord = DMax("ID", "my_table") + 1 

私の単一のクライアントの状況のた​​めに、しかし、効果的です。

Dim nextRecord As Integer 
nextRecord = DMax("ID", "my_table", "field = value")