test si edit est rempli

**bullrot** · 21/10/2007, 13h03

Bonjour a tous.

Voila je suis entrain de créer un formulaire pour ajouter des nouveaux clients dans une base de données paradox 7.

J'aimerais faire un test sur un Edit pour savoir si elle est remplie ou non et si dans le cas elle est remplie alors ajouter l'information dans la bde sinon mettre un message d'erreur.

J'ai fais ceci mais il me met toukours un message d'erreur...

void __fastcall TNclients::Button1Click(TObject *Sender)
{
if ( Edit2.Text <> "" )
{
Table1->Edit(); // Positionne la table en mode Edition
Table1->FieldByName("Nom")->Value=Edit2->Text; //Place le nom dans le TEdit dans la table
Table1->FieldByName("Prenom")->Value = Edit3->Text;
Table1->FieldByName("Adresse")->Value = Edit4->Text;
Table1->FieldByName("Numero")->Value = Edit5->Text;
Table1->FieldByName("Ville")->Value = Edit7->Text;
Table1->FieldByName("Cp")->Value = Edit6->Text;
Table1->FieldByName("Telephone")->Value = Edit8->Text;
Table1->FieldByName("Mail")->Value = Edit9->Text;
Table1->Post(); // Valide l'édition dans la base de données

Edit2->Text="";
Edit3->Text="";
Edit4->Text="";
Edit5->Text="";
Edit6->Text="";
Edit7->Text="";
Edit8->Text="";
Edit9->Text="";

ShowMessage("Nouveau membre créer");

else { ShowMessage("Veuillez remplir la case Nom");}

}

j'ai un probleme dans mon If mais je connais pas exactement la syntaxe j'ai deja essayer plusieurs solution

merci

**ac/dc** · 21/10/2007, 13h37

Salut, voici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
void __fastcall TNclients::Button1Click(TObject *Sender)
{
    if (Edit2.Text == "")
    {
        Table1->Edit(); // Positionne la table en mode Edition
        ...
        Table1->Post(); // Valide l'édition dans la base de données
 
        Edit2->Text = "";
        ...
        Edit9->Text = "";
 
        ShowMessage("Nouveau membre créer");
    }
    else
    {
        ShowMessage("Veuillez remplir la case Nom");
    }
}