Microsoft Access 掲示板

Microsoft Access 掲示板

IDが連番に並んでいるのか知りたい / 11

24 コメント
views
4 フォロー
11
hiroton 2024/02/14 (水) 09:36:22 da393@f966d

フォームに読み込んで表示するとして、フォームの読み込み時イベントに[イベント プロシージャ]を設定して、

Private Sub Form_Load()
    Dim lastRecord As Long
    Dim lastID As Double
    Dim sortSign As Long
        
    lastID = Me!ID
    DoCmd.GoToRecord , , acLast
    lastRecord = Me.CurrentRecord
    sortSign = IIf(lastID < Me!ID, 1, -1)
    
    DoCmd.GoToRecord , Me.Name, acFirst
    lastID = Me!ID - sortSign
    Me!フィールド = Null
    Do
        DoCmd.GoToRecord , Me.Name, acNext
        Me!フィールド = IIf(Me!ID * sortSign > lastID * sortSign, Null, "×")
        lastID = Me!ID
    Loop Until Me.CurrentRecord = lastRecord
End Sub
通報 ...