Jejejeje vaya fallo el mio... no estaba habilitado, al cerrarlo de forma abrupta anoche (corte de luz) y al abrirlo hoy me habia bloqueado el contenido access. lo he habilitado he ejecutado con el siguiente código:
Código:
Private Sub Comando1_Click()
Dim rst1 As Recordset
Dim rst2 As Recordset
Dim rst3 As Recordset
Dim y As Integer
Set rst1 = CurrentDb.openrecordset("select cod, valor1 from Descripcion")
While Not rst1.EOF
Set rst2 = CurrentDb.openrecordset("select sum (valor1) as suma1 FROM Descripcion Where cod = " & rst1("cod"))
Set rst3 = CurrentDb.openrecordset("select valor2 FROM Maestro where cod = " & rst1("cod"))
y = (rst3("valor2") / rst2("suma1")) * rst1("valor1")
DoCmd.RunSQL "INSERT INTO Descripcion.valor_final (" & y & ")"
rst2.Close
rst3.Close
rst1.MoveNext
Wend
rst1.Close
Set rst1 = Nothing
End Sub
como lo tenía inicialmente y ahora si que me devuelve un error 13 en tiempo de ejecución en la siguiente linea:
Set rst1 = CurrentDb.openrecordset("select cod, valor1 from Descripcion")