Go Back   Access World Forums > Microsoft Access Discussion > General

 
Reply
 
Thread Tools Rate Thread Display Modes
Old 09-18-2019, 04:36 AM   #1
stu_c
Newly Registered User
 
Join Date: Sep 2007
Posts: 270
Thanks: 7
Thanked 1 Time in 1 Post
stu_c is on a distinguished road
ddd

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

stu_c is offline   Reply With Quote
Old 09-18-2019, 04:45 AM   #2
isladogs
Part time moderator
 
isladogs's Avatar
 
Join Date: Jan 2017
Location: Somerset, UK
Posts: 10,328
Thanks: 112
Thanked 2,838 Times in 2,588 Posts
isladogs is a splendid one to behold isladogs is a splendid one to behold isladogs is a splendid one to behold isladogs is a splendid one to behold isladogs is a splendid one to behold isladogs is a splendid one to behold
There are various issues affecting the site today. Thanks for letting us know about this one.
isladogs is offline   Reply With Quote
Old 09-18-2019, 04:52 AM   #3
stu_c
Newly Registered User
 
Join Date: Sep 2007
Posts: 270
Thanks: 7
Thanked 1 Time in 1 Post
stu_c is on a distinguished road
<P>I don't know why the title is DDD when I put a title name in either </P>

stu_c is offline   Reply With Quote
Reply

Thread Tools
Display Modes Rate This Thread
Rate This Thread:

Forum Jump




All times are GMT -8. The time now is 08:45 AM.


Microsoft Access Help
General
Tables
Queries
Forms
Reports
Macros
Modules & VBA
Theory & Practice
Access FAQs
Code Repository
Sample Databases
Video Tutorials

Featured Forum post


Sponsored Links


Powered by vBulletin®
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
(c) copyright 2017 Access World