arnelgp
..forever waiting... waiting for jellybean!
- Local time
- Today, 17:48
- Joined
- May 7, 2009
- Messages
- 20,368
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
