Muchas gracias por tu respuesta.
No me funciona.
Código:
Private Sub num_klm_AfterUpdate()
Dim rs As New ADODB.Recordset
SQL = "SELECT euros_km FROM sala_maquinas WHERE id=1;"
rs.Open SQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Me.kilometraje = Me.num_klm * rs!euros_km
End Sub
Me da error de compilación. "No se ha definido el tipo definido por el usuario"
Alguna idea?
Gracias.