>I have this inventory program that is done minus a simple password.scx file I have created
>and the form works but does not validate anything this is the code I am using on command button OK
>
>
>

>
>if Seek(rtrim(thisform.txtUserID.value), 'Users','UserID')
>   if rtrim(Users.Password) = rtrim(thisform.txtPassword.value)
>        * This is a valid user
>   else
>
>      * The password is not valid
>  endif
>else
>  * The User is not found
>endif
>	DO FORM C:\HPRC\MANAGEMENT.SCX
>	release thisform
>
>

>
>Basically there is no validation I am still new to this this is borrowed code all parameters as far as form and layout are correct.
>
>Any ideas???
>
>Thanks in advance
>
>
>Fred W.

if Seek(PADR(thisform.txtUserID.value, length of the UserId field here), 'Users','UserID') AND;
   rtrim(Users.Password) == rtrim(thisform.txtPassword.value)
   DO FORM C:\HPRC\MANAGEMENT.SCX
   release thisform
  endif
endif