Fonction Iif + Msgbox

Version imprimable

Bonjour à tous.
Nouveau sur le forum, j'ai passé une partie de ma vie de fonctionnaire à programmer sous Access...mais 1997 voire 2000. Moralité: ayant arrêté depuis plus de 10 ans, je suis un peu perdu!
Je cherche à faire un petit programme pour un ami qui a une entreprise, et j'ai du mal avec ce code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private Sub REFERENCE_LostFocus() Dim res As String, res1 As String Dim Msg, Style, Title, Response, MyString Msg = "CET APPAREIL EXISTE DEJA, SOUHAITEZ-VOUS EN MODIFIER LE PRIX?" Style = vbYesNo + vbCritical Title = "ATTENTION" Response = MsgBox(Msg, Style, Title) IIf (res = DLookup([MODELE],[APPAREILS], Me.MODELE) And res1 = DLookup([REFERENCE], [APPAREILS], Me.REFERENCE),response=MsgBox (msg,style,title),Docmd.GotoControl ([COULEUR])) If Response = vbOK Then DoCmd.OpenTable [APPAREILS], acViewNormal, acEdit Else: DoCmd.RunCommand acCmdUndo End If End Sub
Cela me donne un "attendu:=" que je ne comprend pas dans la ligne Iif.
Un cerveau plus jeune pourrait-il me donner un coup de main?
Merci d'avance
Ben

06/07/2016, 14h09
mc.schmer

Bonjour benji124,

Peux-tu nous en dire un peu plus sur ce que tu veux faire et décrire plus précisément ton environnement (Tables utiles, formulaires, champs...)
J'avoue que pour moi ton objectif n'est pas très clair dans le code. Tu cherches simplement à valider une saisie dans un formulaire en fonction d'un champ de table?

PS: Utilise la balise code (bouton #) lorsque tu écris du code...
06/07/2016, 16h53
benji124

Bonjour et merci de ta réponse.
Je veux tout simplement vérifier qu'un enregistrement n'existe pas déjà dans la table "APPAREILS", par contrôle des champs "MODELE" et "REFERENCE". Je ne veux pas deux enregistrements soient identiques au niveau de ces deux champs. Ils pourraient être de même modèle mais ne pas avoir la même référence (à cause de la couleur par exemple).
Donc, si ces deux champs s'avéraient identiques: boite message qui permettrait soit de changer le prix de l'appareil existant déjà, soit d'annuler l'enregistrement.
Merci d'avance.
Excuses pour la balise.
Ben
06/07/2016, 17h33
mc.schmer

Alors si j'ais bien compris (il manque toujours pas mal d'info...), la solution à ton problème est toute simple (enfin, il me semble)

Il te suffit de lié ton formulaire à ta table appareil (si ce n'est pas déjà le cas!)
Dans tous les cas, il m'étonnerait fort que deux appareils puissent avoir la même référence. Donc, dans la table appareil, en mode création, déclare ton champ référence en tant que clé primaire et indexe le sans doublons.
Ensuite tu dois ouvrir ton formulaire en mode ajout.
Lorsque tu valides une clé déjà existante, Access va te crier fort dessus en disant que cette clé existe déjà :mrgreen:
Il ne te reste plus qu'à capter cette erreur dans le code, puis de rouvrir le formulaire en mode modif en ciblant l'enregistrement en question.
06/07/2016, 17h42
benji124

Oui, mon formulaire est déjà lié à ma table et fonctionne correctement en utilisation normale.
J'ai bien pensé à créer un index sur ces deux champs, mais je veux qu'un utilisateur(trice...) lamda puisse avoir le choix entre annuler l'enregistrement ou retourner au premier et modifier son prix, par exemple, s'il a reçu un nouveau catalogue.
Donc il faut une Msgbox pour ce choix.
Merci.
Ben

Bonjour Ben,

Voici un exemple de gestion d'erreur qui te permet de questionner l'utilisateur sur la suite à donner en cas de doublon:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim strRef As String

On Error GoTo err

'*********************
' Traitement éventuel
'*********************

'Gestion erreur
err:
    '** Si l'erreur est égal à 0 (En l’occurrence, doublon sur la clé primaire)
    If err.Number = 0 Then
        ' On demande à l'utilisateur ce qu'il veut faire
        If MsgBox("Cette référence existe déjà. Voulez-vous modifier l'article éxistant?" & vbCrLf & vbCrLf & _
                    "Cliquez sur OUI pour modifiez ou sur NON pour annuler.", _
                    vbYesNo, "Article existant") = vbYes Then
        '** Si l'utilisateur clique sur OUI
            ' on mémorise la référence
            strRef = Me.TonChampReference.Value
            ' on annule la modification en cours
            Me.Undo
            ' on ferme le formulaire
            DoCmd.Close acForm, Me.Name
            ' et on l'ouvre à nouveau en se positionnant sur l'enregistrement à modifier
            DoCmd.OpenForm "NomDeTonFormulaire", acNormal, , "REFERENCE = " & strRef
            
        '** sinon
        Else
            ' on annule la modification en cours
            Me.Undo
            ' on ferme le formulaire
            DoCmd.Close acForm, Me.Name
        End If
        
    '** si l'erreur est différente de zéro
    Else
        ' on affiche cette erreur
        MsgBox err.Number & vbCrLf & err.Description, vbCritical, "Erreur innatendue"
    End If
End Sub

07/07/2016, 10h34
benji124

Merci beaucoup de ta contribution.
Deux soucis cependant:
Il me faut créer un index entre les champs "modele" et "reference" de la table "appareils", car je peux avoir un même modèle mais avec référence différente (à cause de la couleur par exemple).
Donc il me faut récupérer les deux valeurs.
J'ai rajouté un strRef1 pour la valeur du modèle.
Mais j'obtiens une impossibilité pour la fermeture du formulaire:
"err 2585 impossible d'exécuter cette action pendant le traitement d'un formulaire ou d'un état".
Il faudrait peut-être que je me serve d'un "docmd.gotorecord" pour aller se placer sur l'enregistrement avec les deux valeurs (strRef et strRef1).
Je creuse, je creuse...merci encore.
Ben
07/07/2016, 11h37
mc.schmer

Oui tu as raison, le GotoRecord me parait même plus approprié!
Si Access te met quelques messages d'avertissement disgracieux (du style "Access ne peut pas sauvegarder l'enregistrement..."), tu peux te servir de la commande suivante avant ton traitement:

Code:

DoCmd.SetWarnings = False

Ne pas oublier de repasser les avertissements à True après ton traitement:

Code:

DoCmd.SetWarnings = True
07/07/2016, 11h50
benji124

OK merci, je testerai plus tard, je dois m'absenter.
A plus
Ben