18/08/11 18:45:39.43 /3QviRkj.net
>>931さん
ありがとうございます！
splitform vbaで調べていたら見つかりました！！
うれしいです！
Private Sub コマンド11_Click()
If Forms("test").SplitFormDatasheet = acDatasheetReadOnly Then
Forms("test").SplitFormDatasheet = acDatasheetAllowEdits
Forms("test").コマンド11.Caption = "過去のデータを編集不可にします。"
Else
Forms("test").SplitFormDatasheet = acDatasheetReadOnly
Forms("test").コマンド11.Caption = "過去のデータを編集可能にします。"
End If
End Sub
ありがとうございます！！