in line command

[malo]

In fact the command for replacing object at their initial place works
but when I click on the endOject the following message appear:

Run-time Error (Line 616)
91: Object variable or With block variable not set

And the refered line is here:

	If Err.Number = ebInputAccepted Then
		Err.Clear
		Resume EndReleaseResume
	ElseIf Err.Number <> 0 Then
		'NOTE: If you receive a runtime error here, it
		' is because a runtime error other than ebInputAccepted
		' was thrown (ebInputAccepted for catching input masks that jump).
		'You are encouraged to either handle the error so that
		' it is not thrown in the future or will have to set up
		' your own error handler, which will also need to take
		' into account for any input masks that jump.
		'
		'Raise the error so the default error handler will show the message
		Err.Raise Err.Number
	End If

EndReleaseResume:

	''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	'	Label - EndRelease END


Thanks for your help

On 12 mar, 16:04, malo <debonimalo... at gmail.com> wrote:
> I have just tried but I doesn't work
>
> On 12 mar, 15:54, "Helen Tibboel" <hftibb... at gmail.com> wrote:
>
>
>
> > Hello,
> > I think the problem is that you write "End if" just before "Else". If you
> > want to use "If.. then.. else"-statements, it should probably look something
> > like this:
>
> > If strHit = "EndObject" Then
> >    c.SetAttrib "OverallRT", Clock.Read - lnStartTime
> >    Goto EndInput
> > ElseIf strHit = "Image3" Then
> >    Goto RedoTrial
> > End If
>
> > I hope this helps.
> > Kind regards,
> > Helen.
>
> > On 3/12/08, malo <debonimalo... at gmail.com> wrote:
>
> > > Hello,
>
> > > I'm trying to write an in line object but it doesn't work
> > > Here is the part of in line that must be wrong: in fact I want to
> > > implement a button for replacing the object at the initial place (goto
> > > RedoTrial) and another "end" button to go to the record the response
> > > and go to the next trial.
>
> > > If strHit = "EndObject" Then
> > > c.SetAttrib "OverallRT", Clock.Read - lnStartTime
> > > Goto EndInput
> > > End If
>
> > > Else
>
> > > If strHit = "Image3" Then
> > > Goto RedoTrial
> > > End If
>
> > > Can you help me?
>
> > --
> > "I had a beautiful signature in those days, intricate, oriental, illegible,
> > with a mighty slashing underscore, a signature more complex than that of the
> > great Hackmuth."- Masquer le texte des messages précédents -
>
> > - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
>
> - Afficher le texte des messages précédents -
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups "E-Prime" group.
To post to this group, send email to e-prime at googlegroups.com
To unsubscribe from this group, send email to e-prime-unsubscribe at googlegroups.com
For more options, visit this group at http://groups.google.com/group/e-prime?hl=en
-~----------~----~----~----~------~----~------~--~---