Message requete ajout
Résolu/Fermé
JAFAR
-
1 nov. 2008 à 10:28
Jean_Jacques Messages postés 1040 Date d'inscription mercredi 30 avril 2008 Statut Membre Dernière intervention 1 août 2014 - 2 nov. 2008 à 07:08
Jean_Jacques Messages postés 1040 Date d'inscription mercredi 30 avril 2008 Statut Membre Dernière intervention 1 août 2014 - 2 nov. 2008 à 07:08
A voir également:
- Message requete ajout
- Recuperer message whatsapp - Guide
- Message d'absence thunderbird - Guide
- Forwarded message ✓ - Forum Mail
- La requête graphql n’est pas autorisée - Forum Facebook Messenger
- Diff message ✓ - Forum Mobile
3 réponses
Jean_Jacques
Messages postés
1040
Date d'inscription
mercredi 30 avril 2008
Statut
Membre
Dernière intervention
1 août 2014
112
1 nov. 2008 à 16:48
1 nov. 2008 à 16:48
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.
Jean_Jacques
Messages postés
1040
Date d'inscription
mercredi 30 avril 2008
Statut
Membre
Dernière intervention
1 août 2014
112
1 nov. 2008 à 17:41
1 nov. 2008 à 17:41
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
Jean_Jacques
Messages postés
1040
Date d'inscription
mercredi 30 avril 2008
Statut
Membre
Dernière intervention
1 août 2014
112
2 nov. 2008 à 07:08
2 nov. 2008 à 07:08
Bonjour,
Je viens de renouveler mon envoi à
diablesse-star@hotmail.com
Bonne journée
La science ne fait que trouver ce qui existe depuis toujours.
REEVES Hubert.
Je viens de renouveler mon envoi à
diablesse-star@hotmail.com
Bonne journée
La science ne fait que trouver ce qui existe depuis toujours.
REEVES Hubert.
1 nov. 2008 à 17:32
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