Simply Cannot Get Code to Work. Add Form Data to Table. Unbound Boxes.

[nick404]

I simply cannot get this code to function. I have a form all unbound text boxes and am using coding to transfer the data entered to my main data table. It simply is not working, not sure why. Code posted below, used option explicit for a spelling safeguard. Any help appreciated, thanks.

Sub cmdSubmit_Click()
On Error GoTo Err_proc0

If IsNull(Me.cboCell) Or IsNull(Me.txtDowntime) Or IsNull(Me.txtRamp) Or IsNull(Me.txtDetail) Or IsNull(Me.txtCause) Or IsNull(Me.txtPart) Then
MsgBox "Some key field(s) are empty. Please completely fill form before submission."
End If
Exit Sub

Dim DE As Object
Dim PI As Object
Set DE = CurrentDb.OpenRecordset("tbl_DataEntry")
Set PI = CurrentDb.OpenRecordset("tbl_PartsInfo")

 ' Add data records to respective tables
 
DE.AddNew
PI.AddNew
    DE![Cell_Product_FK] = Me.cboCell.Value
    DE![ProductType_FK] = Me.txtProduct.Value
    DE![EntryDate] = Me.txtDate.Value
    DE![Details] = Me.txtDetail.Value
    DE![RootCause] = Me.txtCause.Value
    DE![Downtime] = Me.txtDowntime.Value
    DE![RampUp] = Me.txtRamp.Value
    DE![LaborIncrs] = Me.txtLabor.Value
    DE![PartNumber_FK] = Me.txtPart.Value
If Me.txtPart = DLookup("PartNumber_PK", "tbl_PartsInfo", "PartNumber_PK =" & Forms![frm_Entry]!txtPart) Then
    MsgBox "Please leave the Description box blank for this submission."
Else:
    DE![Description] = Me.txtDscrp.Value
    PI![PartNumber_PK] = Me.txtPart.Value
End If
DE.Update
PI.Update
Set DE = Nothing
Set PI = Nothing
Exit Sub

Err_proc0:
    MsgBox Err.Description
    Exit Sub
End Sub

[ranman256]

The beauty of Access is , you dont have to write vb code.
You dont need ANY of this. Have a BOUND form, the user enters data into the bound form, with bound fields, into an entry table.
zero code.
Then when finished , run a query to add/ modify / delete data from the MAIN data table.
1 query, zero code.

[ItsMe]

You need to remove your On Error GoTo Err_proc0 and see which line is creating the issue. It is probably a type mismatch or Null error.

[pbaldy]

Note the position of

Exit Sub

[ItsMe]

Note the position of

Exit Sub

Doh ... I missed that one too.

[nick404]

Note the position of

Exit Sub

Oh my.. how foolish. Haha thank you

[nick404]

You need to remove your On Error GoTo Err_proc0

How can I do that?

[nick404]

Oh forget that, I thought it said "improve" not remove.

[ItsMe]

Oh forget that, I thought it said "improve" not remove.

Yeah, I should have said to comment it out. I was lazy. I add my error trapping as a final step.

[pbaldy]

Oh my.. how foolish. Haha thank you

Happy to help!