asked on

Select all using a checkbox

I created 2 buttons a form to select and deselct all records on a subform, based on a checkbox. When I select all records, the subform records are selected. If I then deselect records, the code dosen't work, unless I exit the form and reopen.. Any suggestions ???

Private Sub SelectAllButton_Click()

    Dim db As Database
    Dim rs As DAO.Recordset
    
    Set db = CurrentDb
    Set rs = Forms![ContactMainF]![CertSubF].Form.RecordsetClone
    
    Do While Not rs.EOF
    rs.Edit
    rs!Print = True
    rs.Update
    rs.MoveNext
    Loop
    
    rs.Close
    db.Close
    Set rs = Nothing
    Set db = Nothing
    
    
 Forms![ContactMainF]![CertSubF].Form.Requery
 

End Sub

Open in new window

Rey Obrero (Capricorn1)

change this

Set rs = Forms![ContactMainF]![CertSubF].Form.RecordsetClone

with

Set rs = Forms![ContactMainF]![CertSubF].Form.Recordset

ml-sd

ASKER

I tried that your comment, but after I run the code, the subrecords were deleted ...?

Rey Obrero (Capricorn1)

what is the recordsource of the subform [CertSubF] ?

ml-sd

ASKER

yes

ml-sd

ASKER

sorry i hit send to fast... recordsource is certQ

Rey Obrero (Capricorn1)

what is certQ? table or query? if query, post the sql view of the query.

ml-sd

ASKER

crtq is a querey. sql view attached

thanks

SELECT CertT.ID, CertT.MCDID, CertT.CertificateDate, CertT.CertificateComments, CertT.CertName, CertT.CertCompany, CertT.CertAddress1, CertT.CertAddress2, CertT.CertCity, CertT.CertState, CertT.CertZip, CertT.Print
FROM CertT
WHERE (((CertT.MCDID)=[Forms]![ContactMainF]![MCDID]));

Open in new window

Rey Obrero (Capricorn1)

can you upload a copy of your db..

what is your intention on selecting all the records?

ml-sd

ASKER

After the selection i am printing records... i need to change the data to dummy data before sending,..

ml-sd

ASKER

Heres the saple data Thanks
Cert.mdb

ml-sd

ASKER

I guess the question was harder than i thought :)