Go4Expert - Code Not Working

Go4Expert (http://www.go4expert.com/)

- Visual Basic ( VB ) (http://www.go4expert.com/forumdisplay.php?f=22)

- - Code Not Working (http://www.go4expert.com/showthread.php?t=21836)

Code Not Working

can you pliz help me i have a code i want to use but i can't create a form from it

Code:

[ Dim r As New Recordset

Dim ct As Control

Dim cn As New Connection

Private Sub cmdexit_Click()

Unload Me

End Sub

Private Sub cmdstart_Click()

r.MoveFirst

Do While Not r.EOF

If UCase(Trim(TXTUN)) = UCase(Trim(r!Username)) And 

Trim(TXTPASS) = Trim(r!Password) Then

i = 1

frmMain.Show

frmlogin.Hide

Exit Do

End If

r.MoveNext

Loop

If i = 0 Then

MsgBox "Invalid user."

TXTUser = ""

TXTPASS = ""

End If

End Sub

Private Sub Form_Activate()

TXTUN.Text = ""

TXTPASS.Text = ""

End Sub

Private Sub Form_Load()

Dim i As Integer

With cn

.Provider = "Microsoft.Jet.OLEDB.4.0"

   .ConnectionString = "data source=" & App.Path & 

"\library.mdb"

    .Open

    End With

   r.Open "select * from login", cn, adOpenDynamic, 

adLockOptimistic

i = 0

End Sub]

Re: Message to all members

I'm a beginner in programming can you pliz help me create a form from this login form code
looking fowad to a helpfull reply on malvy01@hotmail.com

Code:

 

[Dim r As New Recordset

Dim ct As Control

Dim cn As New Connection

Private Sub cmdexit_Click()

Unload Me

End Sub

Private Sub cmdstart_Click()

r.MoveFirst

Do While Not r.EOF

If UCase(Trim(TXTUN)) = UCase(Trim(r!Username)) And 

Trim(TXTPASS) = Trim(r!Password) Then

i = 1

frmMain.Show

frmlogin.Hide

Exit Do

End If

r.MoveNext

Loop

If i = 0 Then

MsgBox "Invalid user."

TXTUser = ""

TXTPASS = ""

End If

End Sub

Private Sub Form_Activate()

TXTUN.Text = ""

TXTPASS.Text = ""

End Sub

Private Sub Form_Load()

Dim i As Integer

With cn

.Provider = "Microsoft.Jet.OLEDB.4.0"

   .ConnectionString = "data source=" & App.Path & 

"\library.mdb"

    .Open

    End With

   r.Open "select * from login", cn, adOpenDynamic, 

adLockOptimistic

i = 0

End Sub]

Re: Code Not Working

You have posted this under Introduction forum and I have moved it to VB forum

Re: Code Not Working

here is your forms

change TXTUN --->TXTuser in your code
and put the code int the right place