Message requete ajout
Résolu
JAFAR
-
Jean_Jacques Messages postés 1045 Date d'inscription Statut Membre Dernière intervention -
Jean_Jacques Messages postés 1045 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
j'ai une BDD access (win xp prof ; office 2003)
j'ai un formulaire sur lequel j'ai collé un bouton pour l'execution d'une requete ajout
qui demande à l'user d'introduire un identifiant .
si l'dentifiant existe le résultat est affiché
question:
si l'identifiant est inexistant comment introduire dans le code relatif au bouton d'execution de la requete
un message de l'inexistance de l'dentifiant introduit par erreur par l'eventuel utilisateur.
voici le code du bouton qui execute la requete ajout:
Private Sub Commande18_Click()
On Error GoTo Err_Commande18_Click
Dim stDocName As String
stDocName = "Requête1"
DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_Commande18_Click:
Exit Sub
Err_Commande18_Click:
MsgBox Err.Description
Resume Exit_Commande18_Click
End Sub
mes remerciements d'avance
jafar
j'ai une BDD access (win xp prof ; office 2003)
j'ai un formulaire sur lequel j'ai collé un bouton pour l'execution d'une requete ajout
qui demande à l'user d'introduire un identifiant .
si l'dentifiant existe le résultat est affiché
question:
si l'identifiant est inexistant comment introduire dans le code relatif au bouton d'execution de la requete
un message de l'inexistance de l'dentifiant introduit par erreur par l'eventuel utilisateur.
voici le code du bouton qui execute la requete ajout:
Private Sub Commande18_Click()
On Error GoTo Err_Commande18_Click
Dim stDocName As String
stDocName = "Requête1"
DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_Commande18_Click:
Exit Sub
Err_Commande18_Click:
MsgBox Err.Description
Resume Exit_Commande18_Click
End Sub
mes remerciements d'avance
jafar
Configuration: Windows XP Internet Explorer 6.0
A voir également:
- Message requete ajout
- Recuperer message whatsapp supprimé - Guide
- Message absence thunderbird - Guide
- Epingler un message whatsapp - Accueil - Messagerie instantanée
- Message non envoyé - Forum Mobile
- Ajout rapide snap - Forum Snapchat
3 réponses
Bonjour,
Je vous joins un copier-coller d'un code qui se rapproche de ce que vous recherchez.
Il fonctionne chez moi sous ACCESS 2000.
Il vous reste à l'adapter à votre contexte en le combinant avec votre existant.
With CodeContextObject
DoCmd.GoToControl "[Référence]"
DoCmd.FindRecord Affichage_Référence, , True, , True
If Référence <> Affichage_Référence Then
MsgBox "Ce code est inconnu : " & Me!Affichage_Référence
Me!Affichage_Référence = ""
End If
End With
La science ne fait que trouver ce qui existe déjà.
REEVES Hubert.
Je vous joins un copier-coller d'un code qui se rapproche de ce que vous recherchez.
Il fonctionne chez moi sous ACCESS 2000.
Il vous reste à l'adapter à votre contexte en le combinant avec votre existant.
With CodeContextObject
DoCmd.GoToControl "[Référence]"
DoCmd.FindRecord Affichage_Référence, , True, , True
If Référence <> Affichage_Référence Then
MsgBox "Ce code est inconnu : " & Me!Affichage_Référence
Me!Affichage_Référence = ""
End If
End With
La science ne fait que trouver ce qui existe déjà.
REEVES Hubert.
Bonsoir JAFAR,
Je vous joins via mail la petite base de données "Enzo" en question.
C'est un bricolo dans lequel je fais des essais.
Ce que vous demandez se trouve dans le formulaire : F_Recherche_sur_Référence
Au boulot
AJJ
Je vous joins via mail la petite base de données "Enzo" en question.
C'est un bricolo dans lequel je fais des essais.
Ce que vous demandez se trouve dans le formulaire : F_Recherche_sur_Référence
Au boulot
AJJ
Rebonsoir Mr JJ
j'apprecie vraiment votre geste
cependant je n'ai rien trouvé dans la boite
[email protected]
ca sera gentil de votre part si vous pouvez me le renvoyer
dans cette boite
mes remerciements
jafar
cordialement
j'apprecie vraiment votre geste
cependant je n'ai rien trouvé dans la boite
[email protected]
ca sera gentil de votre part si vous pouvez me le renvoyer
dans cette boite
mes remerciements
jafar
cordialement
Bonjour,
Je viens de renouveler mon envoi à
[email protected]
Bonne journée
La science ne fait que trouver ce qui existe depuis toujours.
REEVES Hubert.
Je viens de renouveler mon envoi à
[email protected]
Bonne journée
La science ne fait que trouver ce qui existe depuis toujours.
REEVES Hubert.
Je vous remercie d'avoir répondre à ma question,
je vous informe que je ne suis pas fort en VBA , seulement je voudrais si vous me le permttez me guider
un peu pour adapter votre code à mon contexte ; pour cela:
With CodeContextObject
DoCmd.GoToControl "[Référence]" ==== pour moi c'est IDF (identifiant) ou le résultat de la requete
DoCmd.FindRecord Affichage_Référence, , True, , True===
If Référence <> Affichage_Référence Then====quelle difference y a t il entre Réference et Affichage_Réference
MsgBox "Ce code est inconnu : " & Me!Affichage_Référence ====quel code ?
Me!Affichage_Référence = "" =====c'est normal puisque la requete n'a rien trouvé!
End If
End With
afin que je puisse tester votre code je vous prie de bien vouloir
me communiquer votre exemple , ca sera gentil de votre part
je vous répéte mes remrciements
[email protected]
cordialement
JAFAR