Hi,

Why this code is written for. Could somebody help me to understand the code?

Private Sub text5_Change()
If rs.RecordCount <> 0 Then
ctrl_unlock
Else
ctrl_lock
End If
End Sub

____________________________
user777

you should search for some kind of sub or function defined somewhere in your code (in a module) named "ctrl_unlock" and "ctrl_lock", these are not biult-in commands.

____________________________
AndreaVB

Hi,
judging from the name of the routines (ctrl_lock and ctrl_unlock), this is the "english" version of this code:

"Whenever the contents of the textbox called Text5 are changed (by code or by user typing), check if there are records in the recordset called rs. If there are, then enable the controls (presumably to allow editing), if not, disable the controls."

It doesn't seem very logical to check this on a change of a text value to me, but that is what it appears to do!

Hope this helps,
Kieron


____________________________
Build it better, faster, quicker, easier.. then fix it (non-offical MS mission statement)

To add on what Admin said, It means that, there is a control (most lokely a textbox) named text5. When the text in the text in the control changes then a recordset named rs is checked, if its not empty then a module named ctrl_unlock is run otherwise another module named ctrl_lock is run.

kibzama

I agree with other suggestions. I also suspected that the code is using or calling ActiveX control or funtion.

____________________________
Im JAMES  

Hi TJ,
How do you deduce the presence of an ActiveX control from the sample code?  
Curious Kieron

____________________________
Build it better, faster, quicker, easier.. then fix it (non-offical MS mission statement)

quote:

---

How do you deduce the presence of an ActiveX control from the sample code?

---

quote:

---

stickleprojects wrote:
Hi TJ,
How do you deduce the presence of an ActiveX control from the sample code?  
Curious Kieron

---