Gli faccio fare questo confronto:

codice:
Private Sub Codice_BeforeUpdate(Cancel As Integer)
If Codice = Form_magazzino.Codice Then
    scheda = Form_magazzino.scheda
End If
End Sub
cioè vado a richiamare i dati nalla maschera magazzino.