Require OLE object on Input Form (1 Viewer)

[hardhitter06]

Hi All,

I'm trying to figure out how to require an OLE Object in the BeforeUpdate of my Access 2010 input form.

The ole object is named ExecutedContract.

I'm not sure how to integrate this piece of code with what I have so far. I'm also having trouble finding anything on the web.

Private Sub Form_BeforeUpdate(Cancel As Integer)
    Dim ctrl As Control

    For Each ctrl In Me.Controls
        If ctrl.Tag <> "skip" Then
           If ctrl.ControlType = acTextBox Then
              If IsNull(ctrl) Then
                 MsgBox ctrl.Name & " Cannot Be Left Empty!"
                 Cancel = True
                 ctrl.SetFocus
                 Exit Sub
              End If
            End If
        End If
    Next
    
    MsgBox "Record Saved!"
End Sub

Thank you

 

[sneuberg]

There is list of control types at https://msdn.microsoft.com/en-us/library/office/aa224135(v=office.11).aspx

Maybe

 If ctrl.ControlType = acTextBox  Or ctrl.ControlType = acBoundObjectFrame Then

would do it for you.

 

[hardhitter06]

Ahhh perfect sneuberg!!!

Thanks so much!