Enregistrer champ qui incrémente automatiquement.

[mghari50]

Bonjour

Je développe une application sous vba en utilisant Ado j'ai un champ id numero de type numéro auto.
Je ne sais pas le code que je dois utiliser pour faire incrémenter lors du clic sur le bouton "Enregistrer".

2- Un champ date. Je voulais faire un contrôle de saisie. Par exemple une date lors de la saise ne doit être supérieure à la date du jour.
Merci

[GAYOT]

Bonjour
Si c'est un champ Auto, le fait d'ajouter un enregistrement va ajouter automatiquement un nombre à l'Id.
Pour le contrôle de la date. Il faut sur l'évènement après mise à jour de La Zone de texte mettre un code du type:

Code :

1
2
3
4
5
6
7
8
9
 
Private Sub TaZoneDeTexte_AfterUpdate()
    If Me.Txt_TaZoneDeTexte.Value > Date Then
        MsgBox "La date ne peut être supérieure à la date du jour"
        Me.TaZoneDeTexte.SetFocus 'remet le focus sur la zone
    Else
    End If
 
End Sub

[mghari50]

merci pour votre reponse mais ce qui concerne le champ id numero auto je veux qu'i icremente de 1 apres 2....
avant j'ai declarer le champ de type nuerique et j'ai supprimer les enregistrement et apres je declare ce champ numero auto il commence l'incrementation de 1200 moi je veux qu'il commence a partie de 1

[GAYOT]

une fois tous les champs supprimés, faire un compactage et la numérotation va repartir à 1.

[mghari50]

merci encore une fois pour votre reponse ca marche pour numero auto mais j'ai pas trouve levenement after update pur les dates ca marche rien pour le code que tu m'a donne

[GAYOT]

Je suppose que la date est inscrite dans une zone de texte.
En mode création, se placer sur cette zone, puis clic droit "Propriétés".
Chercher l'évènement "Après mise à jour" puis choisir "Procédure évènementielle" puis les 3 petits points. La fenêtre Vba va s'ouvrir sur l'évènement en question. Y saisir le code adapté.

[mghari50]

desole j'ai pas trouve l'evenement after update

[GAYOT]

Bonjour

[mghari50]

moi je developpe application sous vbaccess c'ai pas creer des formulaires sous access je veux lors de la saise dans application vb qontrol la saisie des donnees

[Philippe JOCHMANS]

Bonjour

Envoyé par mghari50

moi je developpe application sous vbaccess c'ai pas creer des formulaires sous access je veux lors de la saise dans application vb qontrol la saisie des donnees

Merci de vous relire et d'être plus clair dans vos explications, on ne comprend rien du tout.

Philippe