the below code will check the table for the employee number(text1.text) I assumed the first field in the table is empno.

DataEnvironment.RsEmp.movefirst
a = 1
while DataEnvironment.RsEmp.EOF = false

if DataEnvironment.RsEmp.fields(0) = text1.text then
msgbox("Empno found")
a= 0
exit do
else
DataEnvironment.RsEmp.movenext
end if

wend

if a = 1 then
msgbox("Empno not found")
end if

Instead coding like this we can use

DataEnvironment.RsEmp.find "emp_no= '"+text1.text+"'"


text2.text = DataEnvironment.RsEmp.fields(1)
text3.text = DataEnvironment.RsEmp.fields(2)
You can get the record information as above

Filter
DataEnvironment.RsEmp.find "dept= '"+text1.text+"'"

It will position to the first record of dept = text1.text
We can move to the records matching by giving

DataEnvironment.RsEmp.movenext

Please complete the following information:

REGISTER / LOG-IN TO DISCUSS

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Submit your e-mail address below to continue

E-mail: 

E-mail: 

Handle:   

Password: 

Forgot Password?

Create Handle: 

Your handle identifies you in ITKnowledgeExchange. Max 30 char.

Create Password: 

Confirm Password: 

Yes, I agree to the IT Knowledge Exchange  Terms and Conditions.

hidden modal window