Multiplicar un dato de un Form por uno de una tabla en ACCESS

[quimfv]

Código vb:

Private Sub num_klm_AfterUpdate()
Dim rs As New ADODB.Recordset
Dim Sql as String
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
 

No te da más pistas.... eso debe funcionar.... puede que te falten referéncias a ADO...

Incluso podrias hacer depender el calculo del registro si el id lo tienes en un campo...

Código vb:

Private Sub num_klm_AfterUpdate()
Dim rs As New ADODB.Recordset
Dim Sql as String
Sql = "SELECT euros_km FROM sala_maquinas WHERE id=" & me.id & ";"
rs.Open Sql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Me.kilometraje = Me.num_klm * rs!euros_km
End Sub
 

Claro que estamos suponiendo que "sala_maquinas" tiene como mínimo el registro buscado.

Quim