Runtime Error: 2108

better if you can upload the db..

Private Sub ProductDesc_BeforeUpdate(Cancel As Integer)
'On Error GoTo Err_ProductDesc_BeforeUpdate
 
    If IsNull(Forms![frmNewProduct]![cmbVendor].Value) Then
        MsgBox "First enter a VENDOR!", vbCritical, "No Vendor"
        Cancel = True
        Me![ProductDesc].Undo
        Forms![frmNewProduct]![cmbVendor].SetFocus
        Exit Sub
    End If
 
End Sub

Select allOpen in new window

Try this:
        Me![ProductDesc].Undo
        Me.Dirty = False
        Forms![frmNewProduct]![cmbVendor].SetFocus

Adding:   Me.Dirty = False   -> Run-time error #3058 Index or primary key cannot contain a null value.

Hmmmmm  this is happening in a new record......

you are attempting to do a validation..why do you need to force saved the record when validation fails?

You also need to set focus to the form before setting focus to the control:

If [frmNewProduct] is a subform, you can use:
        Me![ProductDesc].Undo
        Me.Dirty = False
        Me![frmNewProduct].SetFocus
        Me![frmNewProduct]![cmbVendor].SetFocus

You also need to set focus to the form before setting focus to the control:
        Me![ProductDesc].Undo
        Me.Dirty = False
        Forms![frmNewProduct].SetFocus
        Forms![frmNewProduct]![cmbVendor].SetFocus

If [frmNewProduct] is a subform, you can use:
        Me![ProductDesc].Undo
        Me.Dirty = False
        Me![frmNewProduct].SetFocus
        Me![frmNewProduct]![cmbVendor].SetFocus

<Adding:   Me.Dirty = False   -> Run-time error #3058 Index or primary key cannot contain a null value.>

change
        Me.Dirty = False
to
        Me.Undo

me.undo will clear all the entry you made, are you sure you want to do this?

OK -  The statement now reads:

    If IsNull(Forms![frmNewProduct]![cmbVendor].Value) Then
        MsgBox "First enter a VENDOR!", vbCritical, "No Vendor"
        Cancel = True
        'Me![ProductDesc].Undo
        'Me.Dirty = False
        Me.Undo
        Forms![frmNewProduct].SetFocus
        Forms![frmNewProduct]![cmbVendor].SetFocus
        Exit Sub
    End If

And results in the Run-time error #2108 'Must first save the field...

This is not a subform, all the text boxes referenced are on this form.

Thank you for your assistance here!

how is the form "frmNewProduct" related to the form you are runnning the codes from?

or what is the purpose of the frmNewProduct in the current operation?

like what i said in my first post
<better if you can upload the db..>

'Bout sez it all.  Thank you!  Jacob

"'Bout sez it all. Thank you! Jacob"

You are welcome ...

mx