Double_Click Help

Question

Hello - SO I am having some trouble with the below code. The below code (Double_Click) is supposed to go to a specific record when clicked.

The form where the Double_Click procedure is contained is a sub-form of sort [Service_Details_Subform]. The same form is also contained, as and actual sub-form [Service_Details_Subform_Main] within a main form [Service_Logging]. The double-click procedure comes into play when the sub-form [Service_Details_Subform] is opened in Datasheet view. When a record is double-clicked, it is supposed to reflect that record on the sub-form [Service_Details_Subform_Main] contained within the main form [Service_Logging].

Here is the code I am using. The bolded is the part having difficulties with:

Option Compare Database
Option Explicit
 
Private Sub Form_DblClick(Cancel As Integer)
On Error GoTo Form_DblClick_Err
    
    DoCmd.SelectObject acForm, "Service_Logging" 'sets focus back to main form - works
    DoCmd.GoToControl "SvcDataID" 'located in subform "Service_Details_Subform_Main"....works
   DoCmd.GoToRecord , , [Forms]![Service_Logging]![Service_Details_Subform_Main]![SvcDataID] = [Forms]![Service_Details_Subform]![SvcDataID]
    DoCmd.GoToControl "SvcDate" 'located in subform "Service_Details_Subform_Main"....works
    DoCmd.Close ObjectType:=acForm, ObjectName:=Me.Name, Save:=acSaveNo 'works
        
Form_DblClick_Exit:
    Exit Sub

Form_DblClick_Err:
    MsgBox Error$
    Resume Form_DblClick_Exit
    
End Sub

The above code produces the following error:

Below is a screenshot of the form(s) that may be helpful:
If anyone can see what I may be doing wrong in the GoToRecord area, please let me know. This is becoming most frustrating :(  Maybe there is a better way of doing this? Any ideas will also be much appreciated. Been a while since I have dabbled in Access.

Thank you in advance for your time and any assistance you may be bale to provide.

Thank you

Answer 1

If anyone can see what I may be doing wrong in the GoToRecord area, please let me know.

Hi rstreets2,

Does it help if you first set the focus to the subform, before going to the desired record on that subform?

Imb.

Answer 2

Hi lmb and thank you for your quick response. So that is one method I have tried, but can't seem to actually set the focus to the subform in general. I can go to specific controls within the subform, but can get the focus direct to the subform [Service_Details_Logging_Main] itself; only the actual main form, [Service_logging].

Answer 3

only the actual main form, [Service_logging].

Hi rstreet2,

And when you use:

        [Forms]![Service_Logging]![Service_Details_Subform_Main].Form.SetFocus

or (I believe this also works)

        [Forms]![Service_Logging]![Service_Details_Subform_Main].SetFocus

Imb.

Answer 4

Hi lmb -

So yes, the bottom method you provided actually errors out with the below....

The top one produces no errors, but still unable to go to the desired record; same error message provided earlier.

Here is where I put the setfocus line...

DoCmd.SelectObject acForm, "Service_Logging" 'sets focus back to main form - works

[Forms]![Service_Logging]![Service_Details_Subform_Main].SetFocus

DoCmd.GoToControl "SvcDataID" 'located in subform "Service_Details_Subform_Main"....works DoCmd.GoToRecord , , [Forms]![Service_Logging]![Service_Details_Subform_Main]![SvcDataID] = [Forms]    [Service_Details_Subform]![SvcDataID]
'DoCmd.GoToControl "SvcDate" 'located in subform "Service_Details_Subform_Main"....works

DoCmd.Close ObjectType:=acForm, ObjectName:=Me.Name, Save:=acSaveNo 'works

Answer 5

Open the main form Service_Logging in design view.

Click once on the subform to select it (don't click on it again, for that would select something in the subform).

Look at the Name property in the Other tab of the Property Sheet. This is the name you should use in

[Forms]![Service_Logging]![Service_Details_Subform_Main].SetFocus

---

Regards, Hans Vogelaar (http://www.eileenslounge.com)

Answer 6

Hi Hans!

Thank you for your response. Yes, this is the same name I am using?

Answer 7

Could it be that I am using the same form as the sub-form and the datasheet view pop-up/search form?

Although the subform contained in the main form is named [Service_Details_Subform_Main] on the main form, the actual form it is coming from is called [Service_Details_Subform]; which is also the same form called upon from the "Archives" button shown in pic in original post. The "Archives" button opens the same form, [Service_Details_Subform], in Datasheet view (pop-up window).

Answer 8

Another tid-bit o info...

When I use the GoToRecord in this manner, the double-click doe not error, but rather each time a record is double-clicked, it cycles through the next record until the end of records and then creates a new record....

Using this (removing the italic below):     

DoCmd.GoToRecord , , [SvcDataID] = [Forms]![Service_Details_Subform]![SvcDataID]

Rather than this:   

DoCmd.GoToRecord , , [Forms]![Service_Logging]![Service_Details_Subform_Main]![SvcDataID] = [Forms]![Service_Details_Subform]![SvcDataID]

Answer 9

Ok I got it! Finally figured out something that works perfectly for what I was attempting to accomplish.

Here is my end result:

Private Sub Form_DblClick(Cancel As Integer)
On Error GoTo Form_DblClick_Err

    With Forms!Service_Logging!Service_Details_Subform_Main.Form.RecordsetClone
       .FindFirst "SvcDataID=" & Me.SvcDataID
       
       If .NoMatch Then
          Beep
          Exit Sub
       End If
       
       Forms!Service_Logging!Service_Details_Subform_Main.Form.Bookmark = .Bookmark
    End With
    
    DoCmd.Close ObjectType:=acForm, ObjectName:=Me.Name, Save:=acSaveNo 'closed search form - works
    Forms!Service_Logging!Service_Details_Subform_Main.SetFocus
    
            
Form_DblClick_Exit:
    Exit Sub

Form_DblClick_Err:
    MsgBox Error$
    Resume Form_DblClick_Exit
    
End Sub

Thanks to everyone for your input. Assistance from these forums is always much appreciated.

Thank you