フォームのコンボボックスにて
「承認前」という選択肢から他の選択肢に変更した際、「承認日を記入してください」というメッセージボックスを表示したいです。
次のコードを作成しましたが、エラーが表示されます。
（「オブジェクトはこのプロパティまたはメソッドをサポートしていません」といった内容）
Private Sub cbo状態_BeforeUpdate(Cancel As Integer)
If Me.状態.OldValue = "承認前" And Me.状態.Value <> "承認前" Then
MsgBox "受注した際は「承認日を記入してください」を入力してください。"
End If
End Sub
スミマセン…何か間違いがありますでしょうか。
たぶん
If Me.状態.OldValue = "承認前" And Me.状態.Value <> "承認前" Then
↓
If Me.cbo状態.OldValue = "承認前" And Me.cbo状態.Value <> "承認前" Then
ありがとうございました！うまくいきました。