Ayuda. Insertar registros tablas relacionadas
 

Muy buenas a todos, si alguien puede ayudarme le agradecere infinitamente. Tengo una base de datos MDB (access), debo de insertar registros en dos tablas relacionadas. Tome como ejemplo estas dos tablas:

Distribuidor---------------Articulos
------------------------------------------
id_distribuidor (*) -----> id_distribuidor (*)
cif_distribuidor+++++++++id_articulo (*)
tipo_articulos++++++++++nombre_articulos

clave primaria id_distribuidor-------clave primarias:id_distribuidor
------------------------------------------------id_articulo
Probe hacerlo con ADOTable de esta forma (abreviadamente):

Código Delphi [-]
begin
  ---ADOTAbleDistribuidor.open;
  ---ADOTableDistribuidor.insert; ---ADOTableDistribuidor.FieldByName('id_distribuidor').AsString:='0001';
  ---...
  ---... //demas registros
  ADOTableDistribuidor.post;

  ---ADOTAbleArticulos.open;
  ---ADOTableArticulos.insert;
  ---ADOTAbleArticulos.FieldByName('id_articulo').AsString:='000A';
  ---...
  ---...//demas registros
  ---ADOTableArticulos.post;
end;

El asunto es que no me graba nada y me da un error que dice que la clave primaria no puede contener un valor NULL.

1)¿Cómo debo de insertar datos a estas dos tablas, sin que use dbnavigator para cada tabla?
2)¿Cuál es la forma correcta?
3)¿Por qué no me deja guardar registros?

De antemano muy agradecido con todos, siempre me han ayudado.

Una consulta adicional... ¿cómo puedo personalizar mis consultas para no insertar guiones (-) ni signos (+)? veo que al insertar códigos lo alinea hacia la izquierda...

Hola Fenixgt, bienvenido a clubdelphi.

Para "cuadrar" el código debes usar las etiquetas oportunas, echa un vistazo a la guía de estilo de clubdelphi.
Las etiquetas puedes ponerla seleccionando el código y pinchando en uno de los iconos para ello: código, php, delphi, sql, etc.
En tu caso es [delphi] y para cerrarlo con la barra [/delphi ]