Setting multiple values in Datasheet

[Jerry Maiapu]

Hi, am trying to change all the values for a specific column in a subform (datasheet) from the parent form. (ie Change NO to Yes for all records in datasheet.
The On click event of the button on the main form is as follows:

Private Sub txtselectall_Click()
     Dim a
     Dim i As Long
     Dim F As Form
     Dim RS As Recordset
 
     ' Get the form and its recordset.
     Set F = Me.qry_Aknowledgement_subform     Set RS = F.RecordsetClone
 
 
If IsNull(Me.[qry_Aknowledgement_subform]!FName) Then
MsgBox "One or more Applicants missing to Aknowledge for this position. Please select another Position", vbQuestion + vbOKOnly, "No Applicant"
Exit Sub
End If
a = MsgBox("You are about to set the applicants shown as Acknowledged. Are you sure", vbExclamation + vbYesNo, "Proceed with aknowledgement?")
If a = vbYes Then
' Move to the first record in the recordset.
     RS.MoveFirst
 
     ' Enumerate the list of selected records
         Do Until RS.RecordCount = 0
        RS!AckIssu = "Yes"
        Loop
        RS.MoveNext
    Else
    Exit Sub
    End If
    End Sub

However, does not seem to work. Any suggestions.

Subform: qry_Aknowledgement_subform
Datasheet Column: AckIssu

Thanks in advance.
Jerry

[Jerry Maiapu]

I found the way around myself. Ta
For those interested this is what I did.

Private Sub txtselectall_Click()
     Dim a
     Dim i As Long
 
     Dim RS As DAO.Recordset 'Create a variable named rst as a DAO Recordset object
     ' Get the form and its recordset.
 
    Set RS = Me.qry_Aknowledgement_subform.Form.RecordsetClone
 
If IsNull(Me.[qry_Aknowledgement_subform]!FName) Then 'name is missing
MsgBox "One or more Applicants missing to Aknowledge for this position. Please select another Position", vbQuestion + vbOKOnly, "No Applicant"
Exit Sub
End If
a = MsgBox("You are about to set the applicants shown as Acknowledged. Are you sure", vbExclamation + vbYesNo, "Proceed with aknowledgement?")
If a = vbYes Then
' Move to the first record in the recordset.
 
     RS.MoveFirst
          ' Enumerate the list of selected records
         While Not RS.EOF
        RS.Edit
        RS!AckIssu = "Yes"
        RS.Update
         RS.MoveNext
        Wend
    Else
    Exit Sub
    End If
    RS.Close  'Close the recordset object
    Set RS = Nothing 'Clear the variable to nothing
 
    End Sub