Discussion :

[chartreuse]

Bonsoir,
J'ai créé une base "nombre" ou je rentre des numéros de colis.
J'ai créé un formulaire ou je scanne des numéros de colis dans un champ [txtNuméroduColis] qui s'enregistre dans une autre base "reception".
Je voudrais qu'un formulaire "alerte" s'ouvre automatiquement si le numéro que j'ai scanné dans le champ [txtNuméroduColis] table "reception" soit le même que le numéro de colis dans la base "nombre".
Je pensais créer un code VBA avec un événement sur clic en utilisant la condition if.
Malheureusement je sais pas aller plus loin.
Merci

[loufab]

Bonjour,

Tu peux utiliser un l'évènement avant MAJ (before update) de la zone texte plutôt que l'évènement sur clic.

ça permet de lancer ta vérification avant que la valeur soit écrite dans la table et de l'annuler ou non.

Dans le code suivant on utilise le dlookup() pour rechercher un enregistrement qui contient déjà la valeur saisie dans la zone de texte "moncode". Si c'est le cas la fonction renvoi l'id (que toute table normalement constituée doit posséder) et pas Null.
On affiche le message "existe" et on annule l'enregistrement (cancel = true).

Code :

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

1
2
3
4
If Not IsNull(DLookup("[id]", "[table1]", "[moncode]=""" & Me.moncode.Text & """")) Then
   MsgBox "existe"
   Cancel = True
End If

Cordialement,

[chartreuse]

Bonjour,
j'ai ce message d'erreur



voilà mon code

Code :

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

1
2
3
4
5
6
Private Sub txtNuméroduColis_BeforeUpdate(Cancel As Integer)
If Not IsNull(DLookup("[numerodecolis]", "[shipment]", "[Texte0]=""" & Me.Texte0.Text & """")) Then
   DoCmd.OpenForm "f_alerte"
   Cancel = True
End If
End Sub

[numerodecolis] est l'id de ma table shipment
[shipment] est la table ou il y a les n° de colis
[Texte0] est le nom de me champ dans le formulaire ou j'enregistre les numéros de colis
"f_alerte" est le formulaire qui m'affiche le message d'alerte.
Pourquoi (cancel = true) on annule l'enregistrement ?
Merci

[loufab]

Bonjour,

quand tu tapes :

Code :

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

Me.T

Une liste apparait, est-ce que Texte0 y est ?

Cancel = true permet d'annuler l'enregistrement de la valeur, tu n'es pas obligé de l'utiliser. Si tu ne fais rien il enregistre. Tout dépend du fonctionnement que tu désires.

Cordialement,

[tee_grandbois]

bonsoir,

[Texte0] est le nom de me champ dans le formulaire ou j'enregistre les numéros de colis

Code :

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

If Not IsNull(DLookup("[numerodecolis]", "[shipment]", "[Texte0]=""" & Me.Texte0.Text & """")) Then

tu ne peux pas utiliser un contrôle du formulaire, il faut que cela soit un champ de la table shipment

[chartreuse]

Non Texte0 n'apparait pas

[chartreuse]

Voilà mon code avec toujours le même message d'erreur

Code :

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

1
2
3
4
5
Private Sub txtNuméroduColis_BeforeUpdate(Cancel As Integer)
If Not IsNull(DLookup("[idnum]", "[shipment]", "[numerodecolis]=""" & Me.numerodecolis.Text & """")) Then
   DoCmd.OpenForm "f_alerte"
   End If
End Sub

numerodecolis est mon champ dans la table shipment

[tee_grandbois]

oui mais là, il faut mettre le champ du formulaire:

Code :

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

If Not IsNull(DLookup("[idnum]", "[shipment]", "[numerodecolis]=""" & Me.numerodecolis.Text & """")) Then

et selon moi, ce devrait être Me.txtNuméroduColis (et .Text n'est pas utile)

[chartreuse]

Cà marche le code fonctionne

Code :

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

1
2
3
4
5
Private Sub txtNuméroduColis_BeforeUpdate(Cancel As Integer)
If Not IsNull(DLookup("[idnum]", "shipment", "[numerodecolis]=""" & Me.txtNuméroduColis & """")) Then
   DoCmd.OpenForm "f_alerte"
   End If
End Sub

Merci