Message requete ajout
Résolu
JAFAR
-
Jean_Jacques Messages postés 1040 Date d'inscription Statut Membre Dernière intervention -
Jean_Jacques Messages postés 1040 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
A voir également:
- Message requete ajout
- Recuperer message whatsapp supprimé - Guide
- Message supprimé whatsapp - Guide
- Message absence thunderbird - Guide
- Epingler un message whatsapp - Accueil - Messagerie instantanée
- Message du pere noel gratuit whatsapp - Accueil - Messagerie instantanée
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.
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
diablesse-star@hotmail.com
cordialement
JAFAR