How do I target records on an Access form that meet certain criteria?

I have a form on which I want to do something in records that meet certain criteria.  In my test code below, I loop through the recordset for the form, but my code sets the values for every record to the values appropriate to the first record.  The code below sets Text304 on every record to True if "rst!DateEntered > #9/27/2018 9:02:36 AM#" is true for the first record and every record to false otherwise.

Right now I'm just writing to a text field to diagnose the problem, but what I want to do is to make a field on certain records editable. How do I do that?



Private Sub Form_Load()

    Me.txtTitle.SetFocus
    Dim rst As DAO.Recordset
    Dim fld As Field
 
    Set rst = Me.Recordset
    Do While Not rst.EOF
        If rst!DateEntered > #9/27/2018 9:02:36 AM# Then
            Text304 = "True"
        Else
            Text304 = "False"
        End If
        rst.MoveNext
    Loop
    Me.Refresh
   
End Sub
Barry SweezeySoftware EngineerAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

aranaCommented:
Try adding a rst.movefirst before the "Do While" loop, see how it goes
 
with DAO, you must remember to populate the Recordset as it only takes the records that have already been accessed
Gustav BrockCIOCommented:
Sounds like  Text304 is an unbound textbox. It will always show the same value for every record.

For debugging, use something like this:

    Set rst = Me.RecordsetClone
    Do While Not rst.EOF
        Debug.Print rst!ID.Value ' your primary key.
        Debug.Print , rst!DateEntered.Value
        If rst!DateEntered.Value > #9/27/2018 9:02:36 AM# Then
            Debug.Print , "True"
        Else
            Debug.Print , "False"
        End If
        rst.MoveNext
    Loop

Open in new window

and study the output.
Barry SweezeySoftware EngineerAuthor Commented:
Thanks! That worked.  Now, I tried setting the locked property of my Update field (probably a bad name), but I can't change the data in that field in any record.


Private Sub Form_Load()

    Me.txtTitle.SetFocus
 'Sub Print_Field_Names()
    Dim rst As DAO.Recordset, intI As Integer
    Dim fld As Field
 
    Set rst = Me.Recordset
    Do While Not rst.EOF
        If rst!DateEntered > #9/27/2018 9:02:36 AM# Then
            Update.Locked = True
            Debug.Print rst!DateEntered & " " & "True"
        Else
            Update.Locked = False
            Debug.Print rst!DateEntered & " " & "False"
        End If
        rst.MoveNext
    Loop
    Me.Refresh
   
End Sub
Gustav BrockCIOCommented:
Try this:

Private Sub Form_Load()

    Me.txtTitle.SetFocus

    Dim rst As DAO.Recordset, intI As Integer
    Dim fld As DAO.Field
 
    Set rst = Me.RecordsetClone
    Do While Not rst.EOF
        If rst!DateEntered.Value > #9/27/2018 9:02:36 AM# Then
            Me!Update.Locked = True
            Debug.Print rst!DateEntered & " " & "True"
        Else
            Me!Update.Locked = False
            Debug.Print rst!DateEntered & " " & "False"
        End If
        rst.MoveNext
    Loop
    rst.Close

End Sub

Open in new window

But, again, all Update textboxes will be locked, not record by record.
For this to happen, use code in the OnCurrent event of the form.

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Barry SweezeySoftware EngineerAuthor Commented:
Thanks again.  I was thinking I had to loop through the records, but now the program just decides if the record is editable when the user clicks on it.
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Access

From novice to tech pro — start learning today.