je n'arrive pas à ajouter des enregistrements dans ma table
mais j'ai l'erreur indice hors limite (-1), j'ai bien eesayer de résoudre le probleme mais je n'y arrive pas. si quelqu'un pourra m'aider? merci d'avance

Bonjour,
Sans code , cela va être difficile, à moins d'avoir une boule de cristal ...
indice hors limite :ce la peut être dû à un accés à un élément d'un tableau qui n'existe pas ...
Dom

On aime bien t'aider mais on ne sais rien de ton code, alors es ce que tu utilise un boucle alors tu supprime un, ça peut etre  élément d'un tableau ou d'une list qui n'existe pas comme a dit @dominique.stock une case [-1] surement alors que son minimum est [0].....

Matrix

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Menus, Mask, DBCtrls;

type
  TForm1 = class(TForm)
    RadioGroup3: TRadioGroup;
    RadioGroup2: TRadioGroup;
    RadioGroup4: TRadioGroup;
    RadioGroup6: TRadioGroup;
    RadioGroup5: TRadioGroup;
    Label23: TLabel;
    Label24: TLabel;
    Label22: TLabel;
    Label25: TLabel;
    MainMenu1: TMainMenu;
    Fichier1: TMenuItem;
    RadioGroup10: TRadioGroup;
    RadioGroup21: TRadioGroup;
    RadioGroup7: TRadioGroup;
    RadioGroup8: TRadioGroup;
    RadioGroup9: TRadioGroup;
    RadioGroup11: TRadioGroup;
    Panel1: TPanel;
    RadioGroup13: TRadioGroup;
    DBRadioGroup13: TRadioGroup;
    RadioGroup14: TRadioGroup;
    RadioGroup15: TRadioGroup;
    Panel2: TPanel;
    RadioGroup16: TRadioGroup;
    RadioGroup17: TRadioGroup;
    RadioGroup18: TRadioGroup;
    RadioGroup19: TRadioGroup;
    Panel3: TPanel;
    Quitter1: TMenuItem;
    Button1: TButton;
    DBEdit1: TDBEdit;
    DBNavigator1: TDBNavigator;
    DBEdit2: TDBEdit;
    DBLookupComboBox1: TDBLookupComboBox;
    DBEdit6: TDBEdit;
    DBCheckBox1: TDBCheckBox;
    DBCheckBox2: TDBCheckBox;
    DBCheckBox3: TDBCheckBox;
    DBCheckBox4: TDBCheckBox;
    DBCheckBox5: TDBCheckBox;
    DBCheckBox6: TDBCheckBox;
    DBCheckBox7: TDBCheckBox;
    DBCheckBox8: TDBCheckBox;
    DBCheckBox9: TDBCheckBox;
    DBCheckBox10: TDBCheckBox;
    DBCheckBox11: TDBCheckBox;
    DBCheckBox12: TDBCheckBox;
    DBCheckBox13: TDBCheckBox;
    DBCheckBox14: TDBCheckBox;
    DBCheckBox15: TDBCheckBox;
    DBCheckBox16: TDBCheckBox;
    DBCheckBox17: TDBCheckBox;
    DBCheckBox18: TDBCheckBox;
    DBCheckBox19: TDBCheckBox;
    DBCheckBox20: TDBCheckBox;
    DBCheckBox21: TDBCheckBox;
    DBCheckBox22: TDBCheckBox;
    DBCheckBox23: TDBCheckBox;
    DBCheckBox24: TDBCheckBox;
    DBCheckBox25: TDBCheckBox;
    DBCheckBox26: TDBCheckBox;
    DBCheckBox28: TDBCheckBox;
    DBCheckBox29: TDBCheckBox;
    DBCheckBox27: TDBCheckBox;
    DBCheckBox30: TDBCheckBox;
    DBCheckBox31: TDBCheckBox;
    DBMemo1: TDBMemo;
    DBCheckBox32: TDBCheckBox;
    DBCheckBox33: TDBCheckBox;
    DBCheckBox34: TDBCheckBox;
    DBMemo2: TDBMemo;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBLookupComboBox2: TDBLookupComboBox;
    DBLookupComboBox3: TDBLookupComboBox;
    DBLookupComboBox4: TDBLookupComboBox;
    DBRadioGroup1: TDBRadioGroup;
    RadioGroup1: TRadioGroup;
    DBRadioGroup2: TDBRadioGroup;
    DBNavigator2: TDBNavigator;
    DBRadioGroup3: TDBRadioGroup;
    DBRadioGroup4: TDBRadioGroup;
    DBRadioGroup5: TDBRadioGroup;
    DBRadioGroup6: TDBRadioGroup;
    procedure Quitter1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure DBRadioGroup1Change(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.DFM}

procedure TForm1.Quitter1Click(Sender: TObject);
begin
Form1.Close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin

  form1.close;

end;

procedure TForm1.DBRadioGroup1Change(Sender: TObject);
begin
  if DBRadioGroup1.Items[DBRadioGroup1.ItemIndex] = 'Oui' then
    begin
     DBRadioGroup1.Columns:=1;
    DBRadioGroup2.Visible := True;
    DBCheckBox1.Visible := True;
    DBCheckBox2.Visible := True;
    DBCheckBox3.Visible := True;
    DBCheckBox4.Visible := True;
    DBCheckBox5.Visible := True;
    DBCheckBox1.Checked:=False;
    DBCheckBox2.Checked:=False;
    DBCheckBox3.Checked:=False;
    DBCheckBox4.Checked:=False;
    DBCheckBox5.Checked:=False;
    end
    else
    begin
     DBRadioGroup1.Columns:=2;
    DBRadioGroup2.Visible := False;
    DBCheckBox1.Visible := False;
    DBCheckBox2.Visible := False;
    DBCheckBox3.Visible := False;
    DBCheckBox4.Visible := False;
    DBCheckBox5.Visible := False;
    DBCheckBox1.Checked:=False;
    DBCheckBox2.Checked:=False;
    DBCheckBox3.Checked:=False;
    DBCheckBox4.Checked:=False;
    DBCheckBox5.Checked:=False;
    end;
end;

end.