Deselect all

[webisti]

Hi Guys

I gave a code that runs well on selecting items :

Private Sub Sselect_all_Click()
Set rstBUYList = Me.RecordsetClone
If rstBUYList.RecordCount <> 0 Then
    rstBUYList.MoveFirst
    Do While Not rstBUYList.EOF
            With rstBUYList
                .Edit
                If IsNull(!FLAGED_BY) And IsNull(!PURCHASE_ORDER) Then
                    !SEND_MAIL = True
                    !FLAGED_BY = fOSUserName()
                                    End If
                .update
            End With
        rstBUYList.MoveNext
    Loop
End If
Me.Requery
End Sub

I need to change it, so that after the user is sending the mail to deselect the items where the FLAGED_BY = fOSUserName()
It was working fine until the FLAGED_BY was just populated with username but now is populated also with value : AUTO, therefore the auto deselection won`t work anymore.


Any ideas?

[pbaldy]

So are you saying the field is never Null now? You can test for it containing more than "AUTO" with:

If Len(!FLAGED_BY) > 4 Then