arnelgp
..forever waiting... waiting for jellybean!
- Local time
- Today, 23:34
- Joined
- May 7, 2009
- Messages
- 20,371
i already changed the code to this one:
private sub subUnCheckOtherRecords()
Dim strActiveControlName as string
Dim c As Control
strActiveControlName = Screen.ActiveControl.Name
For Each c In Me.Controls
If c.Name Like "chk*" And c.Name <> strActiveControlName Then c.Value=False
Next
End Sub
private sub subUnCheckOtherRecords()
Dim strActiveControlName as string
Dim c As Control
strActiveControlName = Screen.ActiveControl.Name
For Each c In Me.Controls
If c.Name Like "chk*" And c.Name <> strActiveControlName Then c.Value=False
Next
End Sub
