AJOUTER ENREGISTREMENT

4D v16.3


AJOUTER ENREGISTREMENT ( {laTable}{;}{*} )

Paramètre	Type	Description
laTable	Table	Table dans laquelle ajouter des données ou Table par défaut si ce paramètre est omis
*		Cacher les barres de défilement

Description

La commande AJOUTER ENREGISTREMENT permet à l'utilisateur de créer un nouvel enregistrement dans laTable ou dans la table par défaut si ce paramètre est omis.

AJOUTER ENREGISTREMENT crée un nouvel enregistrement pour laTable, en fait l'enregistrement courant pour le process courant et l'affiche dans le formulaire entrée courant. En mode Application, une fois que l'utilisateur a validé le nouvel enregistrement, la sélection courante est réduite à ce seul enregistrement.

L'écran suivant présente un formulaire typiquement utilisé pour la saisie de données :

Le formulaire est affiché dans la fenêtre se trouvant au premier plan du process. Elle comporte des barres de défilement et une case de contrôle de taille. Si vous passez le paramètre optionnel astérisque (*), les barres de défilement n'apparaissent pas et la fenêtre du formulaire ne peut être réduite :

AJOUTER ENREGISTREMENT affiche le formulaire jusqu'à ce que l'utilisateur valide ou annule l'enregistrement. Si l'utilisateur ajoute plusieurs enregistrements, la commande doit être appelée pour chaque nouvel enregistrement.

L'enregistrement est sauvegardé si l'utilisateur clique sur un bouton du type Valider ou appuie sur la touche Entrée, ou encore si la commande VALIDER est exécutée.

L'enregistrement n'est pas sauvegardé si l'utilisateur clique sur un bouton du type Annuler ou appuie sur la touche d'annulation (Echap sous Windows, Esc sous Mac OS), ou encore si la commande NE PAS VALIDER est exécutée.

Note : Cette commande ne nécessite pas que laTable soit en mode lecture/écriture. Elle peut être utilisée même lorsque la table est en mode lecture seulement (cf. section Verrouillage d'enregistrements).

Après un appel à AJOUTER ENREGISTREMENT, la variable système OK prend la valeur 1 si l'enregistrement est validé et 0 s'il est annulé.

Note : Même lorsqu'il est annulé, l'enregistrement reste en mémoire et peut être sauvegardé avec la commande STOCKER ENREGISTREMENT si celle-ci est exécutée avant que le pointeur d'enregistrement courant ne soit modifié.

Exemple 1

L'exemple suivant est une boucle souvent utilisée pour créer des enregistrements dans une base :

 FORM FIXER ENTREE([Clients];"SaisieClients") ` Désigner le formulaire entrée de la table [Clients]

 Repeter ` Boucle jusqu'à ce que l'utilisateur annule

    AJOUTER ENREGISTREMENT([Clients];*) ` Ajouter un enregistrement dans la table [Clients]

 Jusque(OK=0) ` Jusqu'à ce que l'utilisateur annule

Exemple 2

L'exemple suivant permet de rechercher un client dans la base. Le déroulement de la méthode dépend du résultat de la recherche. Si aucun client n'a été trouvé, l'utilisateur est autorisé à créer un nouveau client à l'aide de la commande AJOUTER ENREGISTREMENT. Si au moins un client a été trouvé, le premier enregistrement est affiché pour modification, à l'aide de la commande MODIFIER ENREGISTREMENT :

 LECTURE ECRITURE([Clients])

 FORM FIXER ENTREE([Clients];"Entrée1") ` Désigner le formulaire entrée

 vlClientNo:=Num(Demander("Saisissez un numéro de client :") ` On récupère le numéro du client

 Si(OK=1)

    CHERCHER([Clients];[Clients]ClientNo=vlClientNo) ` Recherche du client

    Si(Enregistrements trouves([Clients])=0) ` Si aucun client n'a été trouvé…

       AJOUTER ENREGISTREMENT([Clients]) `Ajout d'un nouveau client

    Sinon

       Si(Non(Enregistrement verrouille([Clients])))

          MODIFIER ENREGISTREMENT([Clients]) `Modifier l'enregistrement

          LIBERER ENREGISTREMENT([Clients])

       Sinon

          ALERTE("Cet enregistrement est en train d'être modifié.")

       Fin de si

    Fin de si

 Fin de si

Variables et ensembles système

La variable système OK prend la valeur 1 si l'enregistrement est validé et 0 s'il est annulé.

Voir aussi

CREER ENREGISTREMENT
MODIFIER ENREGISTREMENT
NE PAS VALIDER
STOCKER ENREGISTREMENT
VALIDER