error opening form based on record nr.

[Pierkes]

Hi,

I had an embedded macro that i converted to VBA code...now, it does not work anymore...

My situation:

I have 2 forms;

- frm_trajecten - list of clients
based on a Query: Q_trajecten which is based on a table tbl_trajecten
- frm_traject_details - details of a client
based on query Q_trajecten_details which is based on table tbl_trajecten

in tbl_trajecten (and both queries i have a field [ID_traject]

On frm_trajecten i have a field [tr_naam_traject] with a hyperlink with the following code;

Private Sub tr_naam_traject_Click()
On Error GoTo tr_naam_traject_Click_Err
 
        On Error Resume Next
    If (Form.Dirty) Then
        DoCmd.RunCommand acCmdSaveRecord
    End If
    If (MacroError.Number <> 0) Then
        Beep
        MsgBox MacroError.Description, vbOKOnly, ""
        Exit Sub
    End If
    On Error GoTo 0
    DoCmd.OpenForm "frm_traject_details", acNormal, "", "[ID_traject]=" & Nz(ID_traject, 0), , acDialog
    If (Not IsNull(ID_traject)) Then
        TempVars.Add "CurrentID", ID_traject
    End If
    If (IsNull(ID_traject)) Then
        TempVars.Add "CurrentID", Nz(DMax("[ID_traject]", Form.RecordSource), 0)
    End If
    DoCmd.Requery ""
    DoCmd.SearchForRecord , "", acFirst, "[ID_traject]=" & TempVars!CurrentID
    TempVars.Remove "CurrentID"
 
 
tr_naam_traject_Click_Exit:
    Exit Sub
 
tr_naam_traject_Click_Err:
    MsgBox Error$
    Resume tr_naam_traject_Click_Exit
 
End Sub
 

When executing the code i actually opens the form frm_traject_details, which is good.

However, when i try to close the form i get an error message on the line:

If (Not IsNull(ID_traject)) Then
        TempVars.Add "CurrentID", ID_traject
 

Saying "tempvars can only store data, they cannot store objects"

It stops the code", goes back to the form frm_trajecten after which nothing works anymore (it is stuck)

How can this be corrected ?

Thanks for helping me !
Pierkes

[twinnyfo]

pierkes,

Try this for your errored line:

TempVars.Add "CurrentID", ID_traject.Value

I have run across this, too, and it seems TempVars always wants to see the control as the control itself, rather than the value (which is the default in every other location in VBA).

Hope this helps.

[Pierkes]

Hi Twinnyfo,

Thank you very much for replying. Tried your suggestion and it now returns from the frm_traject_details to frm_trajecten but the the program does not react to anything anymore.

The only thing i can then do is stop the program and restart it...


Any suggestions on how to proceed?

[zmbd]

I've split the thread at this point and selected TwinnyFo's answer as best answer to the original question.

The subsequent question/issue that has developed is located at:
http://bytes.com/topic/access/answer...cksup-database