Delete Account

[DarkX]

Hey guys/girls as you know I started from a blank version of MSE, but I noticed a problem with it's frmDeleteAccount.... I was looking at it for a few minutes, and well I'll just give the code.

Code:

Private Sub lblConnect_Click()
If Trim(txtName.Text)  "" And Trim(txtPassword.Text)  "" Then
Call MenuState(MENU_STATE_LOGIN)
ElseIf Trim(txtName.Text) = "" And Trim(txtPassword.Text) = "" Then
Call MsgBox("Please enter your login name and password!", vbOKOnly)
ElseIf Trim(txtName.Text) = "" Then
Call MsgBox("Please enter your login name!", vbOKOnly)
ElseIf Trim(txtPassword.Text) = "" Then
Call MsgBox("Please enter your password!", vbOKOnly)
End If
End Sub

Note: this is from MSE frmDeleteAccount

and then theres this one

Code:

Private Sub lblConnect_Click()
If Trim(txtName.Text)  "" And Trim(txtPassword.Text)  "" Then
Call MenuState(MENU_STATE_LOGIN)
ElseIf Trim(txtName.Text) = "" And Trim(txtPassword.Text) = "" Then
Call MsgBox("Please enter your login name and password!", vbOKOnly)
ElseIf Trim(txtName.Text) = "" Then
Call MsgBox("Please enter your login name!", vbOKOnly)
ElseIf Trim(txtPassword.Text) = "" Then
Call MsgBox("Please enter your password!", vbOKOnly)
End If
End Sub

this is from form login... Now I'm pretty sure if you look over both of them you'll see what I noticed was wrong. Now I'm not sure if this whats up with it but no player can delete there account(you actually have to ask a admin to delete it for you) could someone please assisst me in fixing this, becaus I have tried multiple things but nothing works.

Thanks in advance,
Korrey D.


:::::::::::::::::::::::::::::::EDIT:::::::::::::::::::::::::::::::::::::::::::

Nevermind I fixed it... for anyone who has the same problem I did(which seems to be just in general in MSE) open your frmDeleteAccount and double click picconnect and replace the code

Code:

Private Sub lblConnect_Click()
If Trim(txtName.Text)  "" And Trim(txtPassword.Text)  "" Then
Call MenuState(MENU_STATE_LOGIN)
ElseIf Trim(txtName.Text) = "" And Trim(txtPassword.Text) = "" Then
Call MsgBox("Please enter your login name and password!", vbOKOnly)
ElseIf Trim(txtName.Text) = "" Then
Call MsgBox("Please enter your login name!", vbOKOnly)
ElseIf Trim(txtPassword.Text) = "" Then
Call MsgBox("Please enter your password!", vbOKOnly)
End If
End Sub

with

Code:

Private Sub picConnect_Click()
    If Trim(txtName.Text)  "" And Trim(txtPassword.Text)  "" Then
        Call MenuState(MENU_STATE_DELACCOUNT)
    End If
End Sub