addNew en 2 tablas

[diegof18]

para ser mas especificos ahi elijo las 2 tablas

Temp="Select * From (URWT_PROMOCIONES INNER JOIN URWT_PROMOCIONES_IDIOMAS ON URWT_PROMOCIONES.PRO_CODPRO=URWT_PROMOCIONES_IDIOM AS.PRI_CODPRO) Where UCase(PRO_NOMBRE)='" & UCase(Request("nombre")) &"'"
Tabla.Open Temp,Conexion,3,3

aca ingreso los datos del formulario
Tabla.AddNew
Tabla("PRO_PROVINCIA") = Request("provincia")
Tabla("PRO_NOMBRE") = Request("nombre")
Tabla("PRO_LOCALIDAD") = Request("ubicacion")
Tabla("PRO_ESTADO") = Request("estado")
Tabla("PRO_NUMVIVIENDAS") = Request("nviviendas")
Tabla("PRI_DESCRIPCION_LARGA") =Request("descripcion")
Tabla("PRI_DIRECCION") = Request("direccion")
Tabla("PRI_CODIDI") = "1"
Tabla.Update

y supongo que el dato que falta es el de pri_codpro que deberia de ser igual al Pro_codpro que es el autonumerico de la primera tabla.

el mensaje de error es asi

Microsoft JET Database Engine error '80040e21'

No se puede agregar o cambiar el registro porque se necesita un registro relacionado en la tabla 'URWT_PROMOCIONES'.

/flash/controlpanel/presentacion2.asp, línea 52

linea 52 = Tabla.Update