I have a compile error I can't understand. I placed >< around the line that
the debugger highlights. Any help is greatly appreciated - THANKS!

Private Sub Country_Region_DblClick(Cancel As Integer)
On Error GoTo Err_Country_Region_DblClick
Dim lngCity As Long

If IsNull(Me![Country_Region]) Then
Me![Country_Region].Text = ""
Else
lngCountry_Region = Me![Country_Region]
Me![Country_Region] = Null
End If
DoCmd.OpenForm "frmCountriesLanguages", , , , , acDialog, "GotoNew"
Me![Country_Region].Requery
If lngCountry_Region <> 0 Then Me![Country_Region] = lngCountry_Region

Exit_City_DblClick:
Exit Sub

Err_City_DblClick:
MsgBox Err.Description
>Resume Exit_Country_Region_DblClick<
End Sub
--
www.Marzetti.com

Hi, John.

>I have a compile error

Replace this line:

Resume Exit_Country_Region_DblClick

.. . . with this one:

Resume Exit_City_DblClick

So that I never have to make changes to labels in my error handling code, I
use a generic error handler for procedures. For example:

Private Sub OpenOEBtn_Click()

On Error GoTo ErrHandler

' Code goes here.

CleanUp:

' Cleanup code goes here.

Exit Sub

ErrHandler:

MsgBox "Error in OpenOEBtn_Click( ) in " & Me.Name & " form." & _
vbCrLf & vbCrLf & _
"Error #" & Err.Number & vbCrLf & Err.Description, _
vbExclamation + vbOKOnly, "Error!"
Err.Clear
GoTo CleanUp

End Sub

HTH.
Gunny

See http://www.QBuilt.com for all your database needs.
See http://www.Access.QBuilt.com for Microsoft Access tips and tutorials.
http://www.Access.QBuilt.com/html/ex...ributors2.html for contact info.


"JohnLute" wrote:

> I have a compile error I can't understand. I placed >< around the line that
> the debugger highlights. Any help is greatly appreciated - THANKS!
>
> Private Sub Country_Region_DblClick(Cancel As Integer)
> On Error GoTo Err_Country_Region_DblClick
> Dim lngCity As Long
>
> If IsNull(Me![Country_Region]) Then
> Me![Country_Region].Text = ""
> Else
> lngCountry_Region = Me![Country_Region]
> Me![Country_Region] = Null
> End If
> DoCmd.OpenForm "frmCountriesLanguages", , , , , acDialog, "GotoNew"
> Me![Country_Region].Requery
> If lngCountry_Region <> 0 Then Me![Country_Region] = lngCountry_Region
>
> Exit_City_DblClick:
> Exit Sub
>
> Err_City_DblClick:
> MsgBox Err.Description
> >Resume Exit_Country_Region_DblClick<
> End Sub
> --
> www.Marzetti.com

Thanks! Good grief - I can't believe I didn't see that!

--
www.Marzetti.com


"'69 Camaro" wrote:

> Hi, John.
>
> >I have a compile error
>
> Replace this line:
>
> Resume Exit_Country_Region_DblClick
>
> . . . with this one:
>
> Resume Exit_City_DblClick
>
> So that I never have to make changes to labels in my error handling code, I
> use a generic error handler for procedures. For example:
>
> Private Sub OpenOEBtn_Click()
>
> On Error GoTo ErrHandler
>
> ' Code goes here.
>
> CleanUp:
>
> ' Cleanup code goes here.
>
> Exit Sub
>
> ErrHandler:
>
> MsgBox "Error in OpenOEBtn_Click( ) in " & Me.Name & " form." & _
> vbCrLf & vbCrLf & _
> "Error #" & Err.Number & vbCrLf & Err.Description, _
> vbExclamation + vbOKOnly, "Error!"
> Err.Clear
> GoTo CleanUp
>
> End Sub
>
> HTH.
> Gunny
>
> See http://www.QBuilt.com for all your database needs.
> See http://www.Access.QBuilt.com for Microsoft Access tips and tutorials.
> http://www.Access.QBuilt.com/html/ex...ributors2.html for contact info.
>
>
> "JohnLute" wrote:
>
> > I have a compile error I can't understand. I placed >< around the line that
> > the debugger highlights. Any help is greatly appreciated - THANKS!
> >
> > Private Sub Country_Region_DblClick(Cancel As Integer)
> > On Error GoTo Err_Country_Region_DblClick
> > Dim lngCity As Long
> >
> > If IsNull(Me![Country_Region]) Then
> > Me![Country_Region].Text = ""
> > Else
> > lngCountry_Region = Me![Country_Region]
> > Me![Country_Region] = Null
> > End If
> > DoCmd.OpenForm "frmCountriesLanguages", , , , , acDialog, "GotoNew"
> > Me![Country_Region].Requery
> > If lngCountry_Region <> 0 Then Me![Country_Region] = lngCountry_Region
> >
> > Exit_City_DblClick:
> > Exit Sub
> >
> > Err_City_DblClick:
> > MsgBox Err.Description
> > >Resume Exit_Country_Region_DblClick<
> > End Sub
> > --
> > www.Marzetti.com

You're welcome! Always remember that two sets of eyes are better than one!

Gunny

See http://www.QBuilt.com for all your database needs.
See http://www.Access.QBuilt.com for Microsoft Access tips and tutorials.
http://www.Access.QBuilt.com/html/ex...ributors2.html for contact
info.


"JohnLute" <(E-Mail Removed)> wrote in message
news:E7A58B02-9197-46E3-B2EE-(E-Mail Removed)...
> Thanks! Good grief - I can't believe I didn't see that!
>
> --
> www.Marzetti.com
>
>
> "'69 Camaro" wrote:
>
>> Hi, John.
>>
>> >I have a compile error
>>
>> Replace this line:
>>
>> Resume Exit_Country_Region_DblClick
>>
>> . . . with this one:
>>
>> Resume Exit_City_DblClick
>>
>> So that I never have to make changes to labels in my error handling code,
>> I
>> use a generic error handler for procedures. For example:
>>
>> Private Sub OpenOEBtn_Click()
>>
>> On Error GoTo ErrHandler
>>
>> ' Code goes here.
>>
>> CleanUp:
>>
>> ' Cleanup code goes here.
>>
>> Exit Sub
>>
>> ErrHandler:
>>
>> MsgBox "Error in OpenOEBtn_Click( ) in " & Me.Name & " form." & _
>> vbCrLf & vbCrLf & _
>> "Error #" & Err.Number & vbCrLf & Err.Description, _
>> vbExclamation + vbOKOnly, "Error!"
>> Err.Clear
>> GoTo CleanUp
>>
>> End Sub
>>
>> HTH.
>> Gunny
>>
>> See http://www.QBuilt.com for all your database needs.
>> See http://www.Access.QBuilt.com for Microsoft Access tips and tutorials.
>> http://www.Access.QBuilt.com/html/ex...ributors2.html for contact
>> info.
>>
>>
>> "JohnLute" wrote:
>>
>> > I have a compile error I can't understand. I placed >< around the line
>> > that
>> > the debugger highlights. Any help is greatly appreciated - THANKS!
>> >
>> > Private Sub Country_Region_DblClick(Cancel As Integer)
>> > On Error GoTo Err_Country_Region_DblClick
>> > Dim lngCity As Long
>> >
>> > If IsNull(Me![Country_Region]) Then
>> > Me![Country_Region].Text = ""
>> > Else
>> > lngCountry_Region = Me![Country_Region]
>> > Me![Country_Region] = Null
>> > End If
>> > DoCmd.OpenForm "frmCountriesLanguages", , , , , acDialog, "GotoNew"
>> > Me![Country_Region].Requery
>> > If lngCountry_Region <> 0 Then Me![Country_Region] =
>> > lngCountry_Region
>> >
>> > Exit_City_DblClick:
>> > Exit Sub
>> >
>> > Err_City_DblClick:
>> > MsgBox Err.Description
>> > >Resume Exit_Country_Region_DblClick<
>> > End Sub
>> > --
>> > www.Marzetti.com