Pytanie : Dostęp 2007 dostawać pierwszy rejestr

The kod pod praca świetnie, oprócz gdy jeden the rejestr I potrzebować być the pierwszy rejestr w the recordset. I przypuszczać rejestr być ponieważ I używać FindNext i the kursor być na the pierwszy rejestr z, więc gdy I pytać następnie ono brakować następnie the pierwszy rejestr. W Ten Sposób jak I dostawać mój kod mój the pierwszy rejestr zadawalać?

loop_role = "y "
provider_id = Tworzyć! frm_list_external_companies.cmb_placing
strSQL =" [fk_role_provider] = "& provider_id
Do Podczas Gdy loop_role = "y "
rs_roles.FindNext strSQL
Jeżeli rs_roles.NoMatch Then
loop_role = "n "
Else
…
Końcówka If

Odpowiedź : Dostęp 2007 dostawać pierwszy rejestr

loop_role = "y"
provider_id = Forma! frm_list_external_companies.cmb_placing
strSQL = "[fk_role_provider] =" & provider_id
rs_roles.FindFirst
Robić Podczas Gdy loop_role = "y" I nie rs_roles.EOF
    Jeżeli rs_roles.NoMatch Wtedy
        loop_role = "n"
    Inny
      …
    Kończyć Jeżeli
    rs_roles.FindNext strSQL
Kończyć Podczas Gdy