Code has broken after upgrade to Access 2010

[Redbeard]

I have just upgraded to Access 2010 (64 bit) from Access 2007. There were a few minor issues in the database which I have resolved but this one piece of code just won’t work. I do not write VBA but have a rudimentary understanding of it. This code was not written by me and I am still trying to understand why it doesn’t work? I have posted the code below; this is what it is supposed to do: I have a main form that displays each record. The form is run from a query that combines one main table and 3 sub tables. The code is connected to a button on a pop-up form that when clicked, deletes the current record on the main form, from all the tables that it is run off. The problem is nothing happen? I don’t even get an error message and request to debug? I am hoping that it is a simple change that has to do with the upgrade as it worked in 2007. Any help is appreciated.

Thanks

'---------------------------------
    'Declaration of the variables
    '---------------------------------
 
    Dim rs As Recordset         'recordset use to get the objectId of the current record
    Dim QuerySelect As String   'represents the query to gather info
    Dim ObjectID As String      'represents the deleted objectId
 
    '--------------------------------
    'End of declaration
    '--------------------------------
 
    'Close the RecordControlBox
    DoCmd.Close acForm, "frmRecordControlBox"
 
    'Retrieving data from the record to be deleted
    QuerySelect = "Select ObjectID From Description where Description.[Accession Number] = '" & Forms!frmDescription!txtAccNum.Value & "'"
    Set rs = CurrentDb().OpenRecordset(QuerySelect)
 
    'going to the last record then come back to the first to make RS.RecordCount effective
    rs.MoveLast
    rs.MoveFirst
 
    'check if there is only 1 record, should not delete a whole bunch of record at the same time
    If rs.RecordCount = 1 Then
 
        ObjectID = CStr(rs![ObjectID])
 
        'building all the queries to delete every objectId in every table
        CurrentDb().Execute ("DELETE FROM [Condition Info] WHERE [Condition Info].[ObjectID]= " + ObjectID)
        CurrentDb().Execute ("DELETE FROM [Treatment Info] WHERE [Treatment Info].[ObjectID]= " + ObjectID)
        CurrentDb().Execute ("DELETE FROM [DigitalImageDetails] WHERE [DigitalImageDetails].[ObjectID]= " + ObjectID)
 
        Forms!frmDescription!rcdcontrol.SetFocus
        DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
        DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
 
    Else
        MsgBox "An error occured while retrieving ObjectID of the artifact. No record have been deleted"
    End If
 
Exit_rcdelete_Click:
    Exit Sub
 
Err_rcdelete_Click:
    'MsgBox Err.Description + "kgkgkg"
    Resume Exit_rcdelete_Click
 
End Sub

[Redbeard]

Thanks zmbd that fixed it! I followed you steps and was able to fix all the errors. After I changed Line 23 to the code you suggested and did a Compile, it gave me an error on Line 39, like you predicted. (Run-Time error 3601, Too few parameters Expect 1) The ObjectID field for my DigitalImageDet ails table is DIObjectID and not ObjectID as it is for all the other ones. Once I fix that it all ran smoothly.
Thanks

[zmbd]

YEA!

Now, two simple things to finish up fixing your code:
Back to Post#9

First:
Line 2: Re-enable your error trapping (Appears I mentioned ";" should have said single quote.." ' " opps - too many programing languages under the old hat. In any case, you should re-enable the code.

Last:
Lines 53 thru 57
Currently read:

Err_rcdelete_Click: 
    'MsgBox Err.Description + "kgkgkg" 
   ' Resume Exit_rcdelete_Click 
 

Your error message/trap is "disabled" and what is there would be only mildly helpful; however, in this case, even with the minimum, it might have helped you find the error sooner if it had been enabled.
What I suggest is to change this code to something (IMHO) useful such as:

'DEFAULT ERROR TRAP
'
'make sure you have zj_errorlocation defined.
    MsgBox Now() & vbCrLf & _
        zj_errorlocation & vbCrLf & _
         Err.Number & vbCrLf & _
           Err.Description, vbExclamation, _
            "DEFAULT ERROR TRAP"
'
Resume exit_from_error_to_cleanup
'

That last resume line takes my code back to a section where I check that all recordsets are closed and pointers are released.
The "zj_errorlocati on" is just a variable I set at the beginning of my modules so that when the users report error I can tell which module/form the error is occurring. It can be omitted.