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.Text '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]

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" <ka******@hotmail.com> skrev i en meddelelse
news:7c**************************@posting.google.c om...

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.Text '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