Microsoft Access 掲示板

Microsoft Access 掲示板

ファームにある複数のコンボボックスでフィルター / 8

15 コメント
views
4 フォロー
8
hatena 2024/02/19 (月) 11:04:59

理由はhirotonさんから回答済みです。
このような場合の対処法としては、SubではなくFunctionにして戻り値で次の処理を振り分けます。

Public Function record_idou() As Boolean
　If IsNull(Me.[F1]) Then
  　 MsgBox "Ｆ１未入力時はレコード移動できません"
     record_idou = False '戻り値設定
  Else
     record_idou = True  '戻り値設定   
　End If
End Function

Private Sub cmd前へ移動_Click()
    If record_idou() = True Then
        DoCmd.GoToRecord , , acPrevious
    End If
End Sub
通報 ...
  • 9
    hatena 2024/02/19 (月) 11:12:08 >> 8

    ただし、F1フィールドを入力必須にしたいのなら、テーブルのデザインビューでF1フィールドのプロパティの「値要求」を「はい」(テキスト型の場合はさらに「空文字列の許可」を「いいえ」)にしておけば済みますので、実際に使う必要性はないですね。