Logging in and problem......

[Mohammed Mazid]

As opposed to my previous post, I have alredy planned what to do but
stuck with a dillema.

Basically, I need to store a boolean value in the db after a user has
logged in. I tried to use an existing recordset and insert the code
there, but when I log in, I receive an error message saying "Incorrect
Password". I didn't show all the code to make the message short and I
am sure of the nature of error, but I need someone to suggest me how I
should update the boolean value. The db has a data type of 'Yes/No',
which is a check box, so a true equals to check and unchecked equals
false. Please help me here, I'll be appreciated.

UserName = txtUsername.Tex t 'May need in the future project
bStatus = True
If rs!Status <> bStatus Then 'If the status is not true, then make it
'true
rs.AddNew
rs!Status = bStatus
rs.Update
End If
frmInstruction. Show
Unload Me

[Steen Gellett]

Re: Logging in and problem......

The field you will store the value in must be "Boolean" ........in my
database manager I have the option "Boolean" when I create a field.
If it's to any help for you it's a "Type 1" field !!

"Mohammed Mazid" <kadmazid@hotma il.com> skrev i en meddelelse
news:7cfd7b4a.0 404150942.79bef 97c@posting.goo gle.com...[color=blue]
> As opposed to my previous post, I have alredy planned what to do but
> stuck with a dillema.
>
> Basically, I need to store a boolean value in the db after a user has
> logged in. I tried to use an existing recordset and insert the code
> there, but when I log in, I receive an error message saying "Incorrect
> Password". I didn't show all the code to make the message short and I
> am sure of the nature of error, but I need someone to suggest me how I
> should update the boolean value. The db has a data type of 'Yes/No',
> which is a check box, so a true equals to check and unchecked equals
> false. Please help me here, I'll be appreciated.
>
> UserName = txtUsername.Tex t 'May need in the future project
> bStatus = True
> If rs!Status <> bStatus Then 'If the status is not true, then make it
> 'true
> rs.AddNew
> rs!Status = bStatus
> rs.Update
> End If
> frmInstruction. Show
> Unload Me[/color]