MS VB 2008 noob here, need sum help plz

GTO656 · 31 May 2012 at 23:14

Hey guys, I have made a program on VB 2008 that can make calculation.
I want to make the password box appear first with the form not visible but after I enter the correct password(in 3 attempts). it only happens when I press the start button here the password box would come up.

any help plz?

Avathar77 · 31 May 2012 at 23:20

Couple of things,
1.Your variable for "Tries" is declared as a "String" (it should be Integer).
2.By the naming I guess you have a label called "lblAccess"? what does this do?

Avathar77 · 31 May 2012 at 23:32

'Assuming you have a form called frmMain and it is set to hide at startup.

Dim strPassword, strEnterPassword As String
Dim intTries As Integer

strPassword = "sausages"
intTries = 0

Do

intTries = intTries + 1
strEnterPassword = InputBox("Please enter the password. Attempt: " & intTries)

If strEnterPassword = strPassword Then
MsgBox ("Your Password is correct")
frmMain.Show
Else
MsgBox ("Password Incorrect. Access Denied!")

End If

Loop Until intTries = 3 Or strEnterPassword = strPassword

GTO656 · 31 May 2012 at 23:36

Avathar77 said:
Couple of things,
1.Your variable for "Tries" is declared as a "String" (it should be Integer).
2.By the naming I guess you have a label called "lblAccess"? what does this do?

Hmm well if I try putting Integer in and debugging it it gives me a error, leaving it as string works out.

the lblAccess wud be visible if I enter the correct password, and the form will appear up.

Avathar77 · 31 May 2012 at 23:57

What is the error you get?
so is lblAccess a label in a form you have created?

GTO656 · 1 Jun 2012 at 00:06

Conversion from string "sausage" to type 'Integer' is not valid, it highlights the password part. yeh lblAccess is a created label.

Avathar77 · 1 Jun 2012 at 00:09

yep, so that is a data type mismatch error(you are trying to use both string and numeric data on a string variable)
Try my code, with frmMain.Show replaced by lblAccess.Visible = True

GTO656 · 1 Jun 2012 at 00:26

Avathar77 said:
yep, so that is a data type mismatch error(you are trying to use both string and numeric data on a string variable)
Try my code, with frmMain.Show replaced by lblAccess.Visible = True

Thanks, I tried debugging but the password dialog still doesn't appear first, dont know where im going wrong. A real noob here lol

Avathar77 · 1 Jun 2012 at 00:28

Have you set the startup object correctly?
When the project starts, it should execute the above code procedure first.

EDIT:
I think it is in the IDE, project options section.

GTO656 · 1 Jun 2012 at 00:41

Would this be right, just uploaded a pic:

I've selected the Set as Startup project, ran it but still doesnt show up first.

Avathar77 · 1 Jun 2012 at 00:43

Should be in "Exam1 Properties"

GTO656 · 1 Jun 2012 at 00:47

not too sure which 1 to pick, thx again

Avathar77 · 1 Jun 2012 at 00:51

So you have just 1 form! in that case,
You have to make the form visible = false on development environment and call for the above procedure in "form load event".

GTO656 · 1 Jun 2012 at 01:21

Avathar77 said:
So you have just 1 form! in that case,
You have to make the form visible = false on development environment and call for the above procedure in "form load event".

any examples, really lost it here lol

cheers.

namnoc · 4 Jun 2012 at 14:39

Have two forms. A main one and a startup one that shows the password entry box. Then on the first form show the second form and use Me.hide to hide the startup one.