ave this routine that take the data from a temp form and moves it into another ProjectForm.

After it moves the data it deletes the data from the temp table and form .

The code is

Private Sub cmdMove_Click()
    'DoCmd.Save
    Dim db As DAO.Database
    Dim rec, rec2 As DAO.Recordset
    Dim ProjNorec As Integer
    Set db = CurrentDb
    Set rec = db.OpenRecordset("TrackerProjectNoTemp", dbOpenDynaset, dbSeeChanges)
    Set rec2 = db.OpenRecordset("TrackerProjectNo", dbOpenDynaset, dbSeeChanges)
    If IsNull(Me.TDueDate) Then
        If Me.TProjectApproved <> "Yes" Then
            MsgBox " Please enter the due date and Yes option in approved field before approving...", vbOKOnly, "New Project to be approved"
            Me.TDueDate.SetFocus
        Else
            MsgBox " Please enter the due date before approving...", vbOKOnly, "New Project to be approved"
            Me.TDueDate.SetFocus
        End If
    Else
        If Me.TProjectApproved = "Yes" Then
            rec2.MoveLast
            recid = rec2("ProjectID")
            recid = recid + 1
            rec2.AddNew
            rec2("ProjectNo") = recid
            rec2("DateSubmitted") = Me.TDateSubmitted
            rec2("DateEntered") = Me.TDateEntered
            rec2("TechAssigned") = Me.TTechAssigned
            rec2("Requestor") = Me.TRequestor
            rec2("Department") = Me.TDepartment
            rec2("Manager") = Me.TManager
            rec2("ContactNo") = Me.TContactNo
            rec2("AreaAffected") = Me.TAreaAffected
            rec2("ProjectOverview") = Me.TProjectOverview
            rec2("Notes") = Me.TNotes
            rec2("DueDate") = Me.TDueDate
            rec2("CompletedDate") = Me.TCompletedDate
            rec2("TestDate") = Me.TTestDate
            rec2("ProdDate") = Me.TProdDate
            rec2("Application_Name") = Me.TApplication_Name
            rec2("Processor_Name") = Me.TProcessor_Name
            rec2("ProjectStatus") = Me.TProjectStatus
            rec2("ProjectApproved") = Me.TProjectApproved
            rec2("active_project") = Me.Tactive_project
            rec2.Update
            If Not (fDelCurrentRec(Me)) Then
                MsgBox " New Project Request been Approve...", vbOKOnly, "New Project"
                Me.TempProjNo.SetFocus
                TTechAssigned.Enabled = False
                TDateSubmitted.Enabled = False
                TDateEntered.Enabled = False
                TRequestor.Enabled = False
                TDepartment.Enabled = False
                TManager.Enabled = False
                TContactNo.Enabled = False
                TDueDate.Enabled = False
                TTestDate.Enabled = False
                TProdDate.Enabled = False
                TCompletedDate.Enabled = False
                TApplication_Name.Enabled = False
                TProcessor_Name.Enabled = False
                TProjectStatus.Enabled = False
                TProjectApproved.Enabled = False
                TAreaAffected.Enabled = False
                TProjectOverview.Enabled = False
                TNotes.Enabled = False
            End If
        Else
            MsgBox " This Project is not approved. Please Choose YES..", vbOKOnly, "Approved Project"
            Me.TempProjNo.SetFocus
            Me.Requery
            Me.Refresh
        End If
    End If
End Sub

but when it gets to  f Not (fDelCurrentRec(Me)) Then

I get an error  subfunction not define.

Can someone be kind enough to help me.

---

Reply from Alex Hedley:

what is fDelCurrentRec, is this in another module?