warning message if field is left blank

[dimoc]

I have a questions database. When user is filling out the form, the following fields are required: Questions, Author, Type of Question and Answer selected. Answer is selected by clicking on the button next to the Answers. If these fields are not filled out, a user gets a prompt saying that so and so field is blank. If have a problem, it works for all required fields except for Answer. Below is my code. I have attached a screenshot with Author and Answers blank. I only get a warning about the Author and not the Answers.

Private Sub Form_BeforeUpdate(Cancel As Integer)
    
    nullerr = 0
    strnull = ""


    If IsNull(Me.txtQuestion) Then
        nullerr = 1
        strnull = "Questions " & vbNewLine
    End If


    If IsNull(Me.txtAuthor) Then
        nullerr = 1
        strnull = strnull & "Author " & vbNewLine
    End If


    If IsNull(Me.comboType) Then
        nullerr = 1
        strnull = strnull & "Type " & vbNewLine
    End If


    If IsNull(Me.toggleA) Or IsNull(Me.toggleB) Or IsNull(Me.toggleC) Or IsNull(Me.toggleD) Then
        nullerr = 1
        strnull = strnull & "Answer"
    End If


    If nullerr Then
        MsgBox "These fields cannot be left blank: " & vbNewLine & strnull
        DoCmd.RunCommand acCmdUndo
    End If

[pbaldy]

If you're testing the toggle buttons, I'm pretty sure they are always True or False, never Null. You probably want to test the textboxes next to them.

[dimoc]

You're absolutely right. The following code worked for me. optgroupAnswers being the Option Group for the four toggle buttons.

If (Me.optgroupAnswers = 0) Then

[pbaldy]

Ah, didn't realize it was an option group. You are correctly testing the frame value if that's the case.