i am making a project on inventory management in vb6 and mysql. i have created a form add product in which i want to ensure unique pid. but i am getting an error in my code

Question

0.00/5 (No votes)

See more:

VB

Private Sub txtpid_LostFocus()
Dim flag As Boolean
Do While 2 > 0
For i = 1 To rec.RecordCount
If rec!pid = Val(txtpid.Text) Then
MsgBox ("pid already exists,enter again")
flag = True
Exit For
End If
Next i
If flag = True Then
txtpid.SetFocus
Else
Exit Do
endif
Loop
End Sub

Posted 21-Oct-12 20:18pm

surbhi bhattar

Updated 21-Oct-12 20:39pm

v2

Add a Solution

Comments

vivektiwari97701 22-Oct-12 2:31am

can u explain a litile bit more and what error u r getting ????????

[no name] 22-Oct-12 2:41am

hey now i am not getting any error..i have put an end if statement but still its not working...its not giving me msg on entering duplicate id's...

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Bernhard Hiller · Answer 1 · 2012-10-21T20:32:00

Solution 1

"But I am getting error in my code" - what does it mean? Why do you hide the error message from us? And the expect us to see the solution?
Well, I see that after "Exit Do" an "End If" is missing.

Posted 21-Oct-12 20:32pm

Bernhard Hiller

Comments

[no name] 22-Oct-12 2:36am

yeah i am sorry the error was loop without do

surbhi bhattar · Answer 2 · 2012-10-21T21:40:00

Private Sub txtpid_LostFocus()
Dim flag As Boolean
Do While rec.EOF = False
If rec!pid = Val(txtpid.Text) Then
MsgBox ("pid already exists,enter again")
flag = True
End If
If flag = True Then
Exit Do
Else
rec.MoveNext
End If
Loop
If flag = True Then
txtpid.Text = ""
txtpid.SetFocus
End If
End Sub