Access Tips #715 ｎ番目のレコードのみ削除不可にする方法


#715	ｎ番目のレコードのみ削除不可にする方法	フォーム、VBA
プログラム上で固定された、あるｎ番目のレコードだけを削除できないようにする方法です。それには、フォームの「Delete/レコード削除時」イベントプロシージャを下記のようにします。この例では「１番目のレコードだけ削除できない」ようにしています。 Private Sub Form_Delete(Cancel As Integer) 'フォームのレコード削除時 'カレントレコードが１レコード目のとき If Me.Recordset.AbsolutePosition = 0 Then Beep MsgBox "１レコード目は削除できません！", vbOKOnly + vbExclamation Cancel = True End If End Sub ここでは、「Me.Recordset.AbsolutePosition」という記述でカレントレコードが何レコード目であるかを判別しています。この「AbsolutePosition」プロパティでは、先頭レコードは「１」ではなく「0」として扱われます。２レコード目であれば「１」、３レコード目であれば「２」となります。その点が注意事項です。実行例：１レコード以外を削除しようとしたとき・・・ Access既定のメッセージが表示され削除しようとします１レコードを削除しようとしたとき・・・オリジナルのメッセージが表示され削除できません
\| Index \| Prev \| Next \|