Ribbon go to specific record

[raphael99]

Hi
on a ribbon
I set up a button which I would like to open a specific record. From a form I use happily:

DoCmd.OpenForm "frmDetail", , , "recordID = " & Me!recordID

and it works.
But when I do from the button on the ribbon it does not.
Any help?

 

[CJ_London]

on the ribbon it does not

why not? you get an error? nothing happens? have you stepped through the code?

the only suggestion I have is the 'Me' collection is only available from within the form.

so try

DoCmd.OpenForm "frmDetail", , , "recordID = " & forms!myform!recordID

 

[raphael99]

If for

frmDetail

i set up the name of the form should be open then waht name in myform

forms!myform!recordID

shall I use?
I tried with same name of FrmDetail with no avail

 

[CJ_London]

if you have tried

forms!frmDetail!recordID

and it doesn't work, perhaps it can't be done from the ribbon. Suggest keep your button on the form

 

[raphael99]

It gives error 2450. "impossible to find myform" where myform has the same name of frmdetail
But it can be done. I'm sure cause I got an access commercial software does

 

[CJ_London]

impossible to find myform

why would you think I know the name of your form when you hadn't told me what it was? and given the error - what does that tell you?

 

[raphael99]

why would you think I know the name of your form when you hadn't told me what it was? and given the error - what does that tell you?

Here it is as I wrote:

DoCmd.OpenForm "MascheraAnagrafica", , , "ID = " & forms!MascheraAnagrafica!ID

 

[vbaInet]

I think the issue here is whether you have setup your callbacks properly.

Does the code even fire? Try a Msgbox and see if it fires.

 

[CJ_London]

I think the code fires, because he has an error 0- It gives error 2450. "impossible to find myform"

he then provided a different form name - frmDetail

and now he is opening a form 'MascheraAnagrafica' which already has to be open because "ID = " & forms!MascheraAnagrafica!ID

So I'm now totally confused

 

[raphael99]

The callbacks seem wellsetted. I tried to open a test form and it is working. Also are working the msgbox from the author of ribbon creator

 

[vbaInet]

Hmmm... I see, good point. Let's see what Raphael says. I just thought I should highlight that just in case.

 

[raphael99]

Hi good news. I got an answer.
The trick was to getting the ID from another form like this:

DoCmd.OpenForm "MascheraAnagrafica", , , "ID = " & forms!MascheraPrincipale!ID

Thanks for the right suggestion.
Hope this can help someone

 

[vbaInet]

That's strange! I would be interested to see why this didn't work so if you've got a minute upload a cut down version of your form with the problem code.

 

[raphael99]

View attachment Database2.accdb

here it is.
It would be nice to edit ribbon to warn with a msgbox to choose a custom before select Anagrafica.
Do you know how to do it?

 

[vbaInet]

I didn't have any problems with the button raphael99. You just need to make sure that the MascheraPrincipale form is open before you click the button. If the form is not open, it will error.

Sorry, I didn't understand. Can you explain that differently?

 

[raphael99]

Sure.
If MascheraPrincipale or other forms are not open, you cannot access to MascheraAnagrafica clicking on the ribbon's button. I would like to add some code for popup a msgbox warning the user to choose a patient before. I got some code from elsewhere:

  If IsNull(Forms!MascheraPrincipale!id) Then
    MsgBox "You must choose a patient before clicking this button", vbOKOnly, "Missing data ..."
    Forms!MascheraPrincipale!id.SetFocus
  Else
    Select Case control.id
              
        Case Else
            DoCmd.OpenForm "MascheraAnagrafica", , , "ID = " & Forms!MascheraPrincipale!id
    End Select
  End If

End Sub

But it gives error "2450: impossible to find MascheraPrincipale"

 

[vbaInet]

No, you can't. A form is like a door/window/access point and if that door isn't open, you can't access/see what's inside. Error 2450 is telling you that MascheraPrincipale is not open! It must be open before you press the button.

For the condition, change IsNull to this:

If Len(Forms!MascheraPrincipale!id & vbNullString) = 0 Then

... but again, it won't work if MascheraPrincipale is not open.

 

[raphael99]

In fact....
Can I warn the user to select a patient before any action? I use Dynamically search multiple fields located here; http://www.access-programmers.co.uk/forums/showthread.php?t=188663

To select a patient must be a must.

 

[vbaInet]

The code you have plus the enhancement I gave you in my last post does just that.