[VBA] Trovare record (aiuto!)

[DeBe99]

al posto di Marche.EOF prova ad usare MArche.NoMatch (insica se non sono stati trovati record:

...
Do Until origine.EOF
    strCriterio = "txtMarca = '" & origine!MARCA & "'"
    marche.FindFirst strCriterio
    If marche.NoMatch  Then 
        marche.AddNew
        marche!txtMarca = CStr(origine!MARCA)
        marche.Update
    End If
    origine.MoveNext
Loop
...