Pasar una tabla o base de dato a otra

[maxzama]

Aun me sigue dando error:

Error del sistema:

Código Delphi [-]
access violation at address 006D3BE5 in module Asistencia.exe write of address 0000000.

Este es el codigo que se tiene en el boton:

Código Delphi [-]
if application.MessageBox('DESEA GUARDAR?','guardar un Registro',
     MB_ICONQUESTION OR MB_YESNO) = ID_YES then
       begin
           Dmodulo.ASISTENCIA_MADRE.Close;
           Dmodulo.ASISTENCIA_MADRE.SQL.Text:='insert into ASISTENCIA_MADRE select * from DiasMadre';
           DMODULO.ASISTENCIA_MADRE.Open;
           Dmodulo.ASISTENCIA_MADRE.First;

           Dmodulo.ASISTENCIA_MADRE.ExecSQL;
               Dmodulo.ibt.Commit;  // ibt ibtrasaction
               Dmodulo.ASISTENCIA_MADRE.SQL.Clear ;
               Dmodulo.ASISTENCIA_MADRE.SQL.Add('select * from ASISTENCIA_MADRE ');
               Dmodulo.ASISTENCIA_MADRE.Open;

           SHOWMESSAGE('El Monto a sido Insertado');
       end;

Y en el IBQuery tengo el siguiente codigo:

Select * from ASISTENCIA_MADRE