Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access if then else...m'enfin

if then else...m'enfin

4 réponses
Avatar
fth
Bonjour,
le code suivant me semble limpide ...
mais pas pour access.
Pourquoi donc?

If IsNull(DLookup("NumItem", "item", NumItem = Form_MainScreen.NumItem))
Then
DoCmd.GoToRecord , , acNewRec

Else

Response = MsgBox(Msg, Style, Title)
Form_MainScreen.NumItem.SetFocus
End If

Ce qui en bon français, pourrais, devrais dire:
si le champs numitem de la table item n'est pa égal au champ numitem de mon
formulaire, creer un nv record
si le record existe, afficher le message (et pourquoi pas afficher l'item)

pouvez ovus me dépanner?
d'avance merci
(et bon début de vacance sous la flotte - enfin ici, en Belgique)

Frédéric
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Gilbert
Bonjour,

Je crois que c'est plutôt
If IsNull(DLookup("NumItem", "item", "NumItem = " &
Form_MainScreen.NumItem))


--
Gilbert


"fth" a écrit dans le message de news:

Bonjour,
le code suivant me semble limpide ...
mais pas pour access.
Pourquoi donc?

If IsNull(DLookup("NumItem", "item", NumItem = Form_MainScreen.NumItem))
Then
DoCmd.GoToRecord , , acNewRec

Else

Response = MsgBox(Msg, Style, Title)
Form_MainScreen.NumItem.SetFocus
End If

Ce qui en bon français, pourrais, devrais dire:
si le champs numitem de la table item n'est pa égal au champ numitem de
mon formulaire, creer un nv record
si le record existe, afficher le message (et pourquoi pas afficher l'item)

pouvez ovus me dépanner?
d'avance merci
(et bon début de vacance sous la flotte - enfin ici, en Belgique)

Frédéric



Avatar
fth
bonjour Gilbert,

Il s'agit de données numériques, d'ou l'absence de "
(dixit une infi reçue ici)
mais je refais un test avec ton code
merci

Frédéric

"Gilbert" wrote in message
news:%
Bonjour,

Je crois que c'est plutôt
If IsNull(DLookup("NumItem", "item", "NumItem = " &
Form_MainScreen.NumItem))


--
Gilbert


"fth" a écrit dans le message de news:

Bonjour,
le code suivant me semble limpide ...
mais pas pour access.
Pourquoi donc?

If IsNull(DLookup("NumItem", "item", NumItem = Form_MainScreen.NumItem))
Then
DoCmd.GoToRecord , , acNewRec

Else

Response = MsgBox(Msg, Style, Title)
Form_MainScreen.NumItem.SetFocus
End If

Ce qui en bon français, pourrais, devrais dire:
si le champs numitem de la table item n'est pa égal au champ numitem de
mon formulaire, creer un nv record
si le record existe, afficher le message (et pourquoi pas afficher
l'item)

pouvez ovus me dépanner?
d'avance merci
(et bon début de vacance sous la flotte - enfin ici, en Belgique)

Frédéric







Avatar
fth
Re bonjour Gilbert,

De plus, l'erreur vient surtout au moment de creer le nv record.
j'ai une erreur qui me dit que le record doit d'abord etre sauvé ...
Strange ...

A+

"Gilbert" wrote in message
news:%
Bonjour,

Je crois que c'est plutôt
If IsNull(DLookup("NumItem", "item", "NumItem = " &
Form_MainScreen.NumItem))


--
Gilbert


"fth" a écrit dans le message de news:

Bonjour,
le code suivant me semble limpide ...
mais pas pour access.
Pourquoi donc?

If IsNull(DLookup("NumItem", "item", NumItem = Form_MainScreen.NumItem))
Then
DoCmd.GoToRecord , , acNewRec

Else

Response = MsgBox(Msg, Style, Title)
Form_MainScreen.NumItem.SetFocus
End If

Ce qui en bon français, pourrais, devrais dire:
si le champs numitem de la table item n'est pa égal au champ numitem de
mon formulaire, creer un nv record
si le record existe, afficher le message (et pourquoi pas afficher
l'item)

pouvez ovus me dépanner?
d'avance merci
(et bon début de vacance sous la flotte - enfin ici, en Belgique)

Frédéric







Avatar
Guy DETIENNE
Salut ;O)

Donnée numérique ou pas, ton expression doit être de toute façon entre
guillemets.

Guy


"fth" a écrit dans le message de
news:%23$
bonjour Gilbert,

Il s'agit de données numériques, d'ou l'absence de "
(dixit une infi reçue ici)
mais je refais un test avec ton code
merci

Frédéric

"Gilbert" wrote in message
news:%
Bonjour,

Je crois que c'est plutôt
If IsNull(DLookup("NumItem", "item", "NumItem = " &
Form_MainScreen.NumItem))


--
Gilbert


"fth" a écrit dans le message de news:

Bonjour,
le code suivant me semble limpide ...
mais pas pour access.
Pourquoi donc?

If IsNull(DLookup("NumItem", "item", NumItem Form_MainScreen.NumItem))
Then
DoCmd.GoToRecord , , acNewRec

Else

Response = MsgBox(Msg, Style, Title)
Form_MainScreen.NumItem.SetFocus
End If

Ce qui en bon français, pourrais, devrais dire:
si le champs numitem de la table item n'est pa égal au champ numitem de
mon formulaire, creer un nv record
si le record existe, afficher le message (et pourquoi pas afficher
l'item)

pouvez ovus me dépanner?
d'avance merci
(et bon début de vacance sous la flotte - enfin ici, en Belgique)

Frédéric