Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access dlook

dlook

1 réponse
Avatar
Docteur Jekyll
Dans la série dlook:
> If Not IsNull(Me.Designation) Then
>
>
> If IsNull(DLookup("produit", "tab_produits", _
> "produit=forms!fen_devfac!sf_lignes.form!designation")) Then
>
> Reponse = MsgBox("Ce produit n'existe pas, voulez vous l'ajouter?", _
> vbYesNo)
> If (Reponse = vbYes) Then
> DoCmd.SetWarnings False
> DoCmd.OpenQuery "req_AjoutProduit"
> DoCmd.SetWarnings True
> End If
> End If
> End If
>
> Le problème est que s'il y a une apostrophe dans la [designation] j'ai une
> erreur.
>
> Cpmment puis-je résoudre cette erreur?
>
> Merci
Signaler un problème avec ce contenu

1 réponse

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
RaphK34
Salut,
ça n'a rien à voir avec Dlook, mais pourquoi ne pas utilisé l'évènement
NotInList ?

sinon dans la clause Where, tu peux tester:
"produit='forms!fen_devfac!sf_lignes.form!designation'"
mais sans garantie (et de toute façon je ne passerai pas par là !)

--
@+ Raph.

--------------------------------------------
Merci de répondre sur le NG
Toutes remarques bienvenues !
--------------------------------------------
"Docteur Jekyll" a écrit dans le message de news:
480cebb5$0$30350$
Dans la série dlook:
If Not IsNull(Me.Designation) Then


If IsNull(DLookup("produit", "tab_produits", _
"produit=forms!fen_devfac!sf_lignes.form!designation")) Then

Reponse = MsgBox("Ce produit n'existe pas, voulez vous l'ajouter?", _
vbYesNo)
If (Reponse = vbYes) Then
DoCmd.SetWarnings False
DoCmd.OpenQuery "req_AjoutProduit"
DoCmd.SetWarnings True
End If
End If
End If

Le problème est que s'il y a une apostrophe dans la [designation] j'ai
une
erreur.

Cpmment puis-je résoudre cette erreur?

Merci