1:
DoCmd.OpenReport "rpt_SingleArchiveRecord", acViewPreview, , "[ID]=Forms![Form_allClients]!AND[Archive number]=Forms![ArchiveTable]![ArchiveNumber]"