Microsoft Access 掲示板

Microsoft Access 掲示板

ﾌｫｰﾑでの入力規制 / 9

10 コメント
views
4 フォロー
9
hiroton 2023/06/12 (月) 08:48:38 2ba59@f966d >> 7

一部修正

Private Sub 商品ID_BeforeUpdate(Cancel As Integer)
    '//最初の登録の時は何もしない
    If Me.Recordset.RecordCount <= 1 Then Exit Sub

    With Me.Recordset.Clone
        If Me!区分け <> !区分け Then
            Me.Undo
            MsgBox "区分けエラー"
        End If
        .close
    End With
End Sub

Recordset.Cloneを使うと編集前の状態でRecordsetが作成されるようです（考えてみれば当たり前）。最初のレコードの編集でも編集前と編集後を比較できるのでレコード位置のチェックは不要になりました

参考
フォームの Recordset, RecorsetClone, RecordSet.Clone の違いとは？（hatena chipsさん）

通報 ...