Hello,

I have an application that opens a form using VBA which I
converted from a macro. It was working just fine, but
now for some reason, it doesn't - when I try to open the
form I get my error message. However, when I put the
macro back on the button, the form opens normally, so I
guess the problem is with the code (which compiles
properly). But the code was converted from a macro that
works, so I'm left scratching my head as to what the
problem is. Can someone explain to me what's happening
and help me solve this? Thanks in advance to anyone who
replies.

can we have a clue about the code. . . . . and then we may be able to help
you
"Barry" <(E-Mail Removed)> wrote in message
news:1d79e01c453b7$c39a81e0$(E-Mail Removed)...
> Hello,
>
> I have an application that opens a form using VBA which I
> converted from a macro. It was working just fine, but
> now for some reason, it doesn't - when I try to open the
> form I get my error message. However, when I put the
> macro back on the button, the form opens normally, so I
> guess the problem is with the code (which compiles
> properly). But the code was converted from a macro that
> works, so I'm left scratching my head as to what the
> problem is. Can someone explain to me what's happening
> and help me solve this? Thanks in advance to anyone who
> replies.

Sorry... Here's the code. The user selects one of two
options, and the proper form opens. Thanks very much for
your help.

Private Sub OpEntSl_Click()
On Error GoTo OpEntSl_Click_Err

DoCmd.Close acForm, "fm_EntSelect3"
If (SelectEntitle = 1) Then
' Open Entitlement Definition1 form
DoCmd.OpenForm "fm_EntHist1",
acNormal, "", "[EENo]=[Forms]![fm_EEMaster]![EENo]", ,
acNormal
DoCmd.GoToControl "[ViewDetail]"
Forms!fm_EntHist1!Combo16.Enabled = False
End If
If (SelectEntitle = 2) Then
' Open Entitlement Definition2 form
DoCmd.OpenForm "fm_EntHist2",
acNormal, "", "[EENo]=[Forms]![fm_EEMaster]![EENo]", ,
acNormal
DoCmd.GoToControl "[ViewDet]"
Forms!fm_EntHist2!Combo15.Enabled = False
End If


OpEntSl_Click_Exit:
Exit Sub

OpEntSl_Click_Err:
MsgBox "No data", 0, "Argo"
Error$
Resume OpEntSl_Click_Exit

End Sub


>-----Original Message-----
>can we have a clue about the code. . . . . and then we
may be able to help
>you
>"Barry" <(E-Mail Removed)> wrote in
message
>news:1d79e01c453b7$c39a81e0$(E-Mail Removed)...
>> Hello,
>>
>> I have an application that opens a form using VBA
which I
>> converted from a macro. It was working just fine, but
>> now for some reason, it doesn't - when I try to open
the
>> form I get my error message. However, when I put the
>> macro back on the button, the form opens normally, so I
>> guess the problem is with the code (which compiles
>> properly). But the code was converted from a macro
that
>> works, so I'm left scratching my head as to what the
>> problem is. Can someone explain to me what's happening
>> and help me solve this? Thanks in advance to anyone
who
>> replies.
>
>
>.
>

On Wed, 16 Jun 2004 08:36:59 -0700, "Barry"
<(E-Mail Removed)> wrote:

>Hello,
>
>I have an application that opens a form using VBA which I
>converted from a macro. It was working just fine, but
>now for some reason, it doesn't - when I try to open the
>form I get my error message. However, when I put the
>macro back on the button, the form opens normally, so I
>guess the problem is with the code (which compiles
>properly). But the code was converted from a macro that
>works, so I'm left scratching my head as to what the
>problem is. Can someone explain to me what's happening
>and help me solve this? Thanks in advance to anyone who
>replies.

Care to post the code? I can't see it from here, so it's a bit
difficult to debug!

Note that the event property on the form design should show

[Event Procedure]

rather than the name of the macro.

John W. Vinson[MVP]
Come for live chats every Tuesday and Thursday
http://go.compuserve.com/msdevapps?loc=us&access=public