create login screen with db2

2 Feb 2009 10:03 PM

Amy

I have an access application that is basically just a front end to look at
reports. The tables are all linked from a db2 database. On the startup
form, I use a macro to run a select query to get the db2 logon screen to come
up. I don't use access security at all since we have a security model on the
db2 database. It works fine, except I am trying to find a way to handle a
login failure. Right now, with a macro, it pops up odbc failure, and you
have to click halt. I tried using vb, and I get a runtime error, where you
can select end or debug. I'd like to figure out a way to determine if the
login fails(db2), then use a customized msg box to display a more user
friendly message and then let them try again. Any ideas?

3 Feb 2009 4:44 AM

Tom van Stiphout

On Mon, 2 Feb 2009 14:03:00 -0800, Amy <A**@discussions.microsoft.com>
wrote:

I would definitely use VBA for this. Debug would have been a good
option to choose, so you can step through the code, inspect variables,
and find out what is going on upon login failure.
Then you most likely need an error handler, and when it fires you know
the login failed and you can handle that condition. Something like:
public function TestLogin() as Boolean
dim blnSuccess as boolean
on error goto ErrHandler
'Do the login thing here.
'If we made it here, we must be golden.
blnSuccess = True
ExitFunction:
TestLogin = blnSuccess
Exit Function
ErrHandler:
Msgbox "Yo! That's not a valid login!", vbCritical
blnSuccess = False
resume ExitFunction
end function

-Tom.
Microsoft Access MVP

Show quoteHide quote

>I have an access application that is basically just a front end to look at
>reports. The tables are all linked from a db2 database. On the startup
>form, I use a macro to run a select query to get the db2 logon screen to come
>up. I don't use access security at all since we have a security model on the
>db2 database. It works fine, except I am trying to find a way to handle a
>login failure. Right now, with a macro, it pops up odbc failure, and you
>have to click halt. I tried using vb, and I get a runtime error, where you
>can select end or debug. I'd like to figure out a way to determine if the
>login fails(db2), then use a customized msg box to display a more user
>friendly message and then let them try again. Any ideas?

3 Feb 2009 10:07 PM

Amy

Thanks Tom, that was very helpful, it's working now!

Show quoteHide quote

"Tom van Stiphout" wrote:

> On Mon, 2 Feb 2009 14:03:00 -0800, Amy <A**@discussions.microsoft.com>
> wrote:
>
> I would definitely use VBA for this. Debug would have been a good
> option to choose, so you can step through the code, inspect variables,
> and find out what is going on upon login failure.
> Then you most likely need an error handler, and when it fires you know
> the login failed and you can handle that condition. Something like:
> public function TestLogin() as Boolean
> dim blnSuccess as boolean
> on error goto ErrHandler
> 'Do the login thing here.
> 'If we made it here, we must be golden.
> blnSuccess = True
> ExitFunction:
> TestLogin = blnSuccess
> Exit Function
> ErrHandler:
> Msgbox "Yo! That's not a valid login!", vbCritical
> blnSuccess = False
> resume ExitFunction
> end function
>
> -Tom.
> Microsoft Access MVP
>
>
> >I have an access application that is basically just a front end to look at
> >reports. The tables are all linked from a db2 database. On the startup
> >form, I use a macro to run a select query to get the db2 logon screen to come
> >up. I don't use access security at all since we have a security model on the
> >db2 database. It works fine, except I am trying to find a way to handle a
> >login failure. Right now, with a macro, it pops up odbc failure, and you
> >have to click halt. I tried using vb, and I get a runtime error, where you
> >can select end or debug. I'd like to figure out a way to determine if the
> >login fails(db2), then use a customized msg box to display a more user
> >friendly message and then let them try again. Any ideas?
>