<P><P>hi all</P><BR><P>I am trying to post on the forum but for some strange reason my text goes all strange, never had this issue before?</P></P><BR><P>as per its doing now, also when I past code it appears </P><BR><P>like below</P><BR><P> </P><BR><P>
</P>
Code:
<BR>Private Sub frm1Btn_Click()<BR> If IsNull(Me.tb_ID) Or IsNull(Me.tb_pwd) Then<BR> MsgBox "You must enter password and login ID.", vbOKOnly + vbInformation, "Required Data"<BR> Me.tb_ID.SetFocus<BR> Exit Sub<BR> End If</P><BR><P> If Me.tb_pwd.Value = DLookup("[Login_Pwd]", "login_tbl", "[Empl ID]='" & Me.tb_ID.Value & "'") Then<BR> If DLookup("[User_Type]", "login_tbl", "[Empl ID]='" & Me.tb_ID.Value & "'") = "Admin" Then<BR> DoCmd.OpenForm "admin_menu"<BR> DoCmd.Close acForm, "login", acSaveNo<BR> Else<BR> DoCmd.OpenForm "user_menu"<BR> DoCmd.Close acForm, "login", acSaveNo<BR> End If<BR> Else<BR> MsgBox "Password or login ID incorrect. Please Try Again", vbOKOnly + vbExclamation, "Invalid Entry!"<BR> Me.tb_pwd.SetFocus<BR> End If<BR>End Sub<BR>