Discussion :

[cybernini230]

Bonjour à tous,

J 'aimerais avoir votre aide pour résoudre le problème suivant :

Dans ma base Events2011, je remplis une table [contacts] qui contient un certain nombre de champs (Nom, prénom, Adresse, Ville, date de naissance, adresse email, etc...) à l'aide d'un formulaire classique (frmcontacts).

Je voudrais, lorsque je remplis le champ Nom et Prénom dans mon formulaire frmcontacts

1º aller vérifier si ce contact existe dans la base distante Events2010 (dans la table [contacts], (recherche sur nom complet et deux ou trois première lettres du prénom) et
si oui, - récupérer les infos pour remplir automatiquement certains champs de la table [contacts] de la base Events2011 (tels que telephone, adresseEmail, etc) puis me redonner la main pour compléter les autres champs du formulaire,
2º Si le contact n'existe pas, il me redonne la main et me laisse remplir tous les champs.

Une procédure attachée au formulaire frmcontacts devrait pouvoir faire l'affaire, mais je ne suis pas encore assez douée pour la réaliser toute seule.
Un petit coup de pouce serait le bienvenu.
Les deux bases sont dans le même répertoire, et les tables [contacts] ont des noms de champs identiques (même structure).

Mille Mercis

ANNIE

[loufab]

Bonjour,

Commence par attacher la table contacts.
Elle se nommera probablement contacts1 ce n'est pas génant.
Crée ensuite un bout de code pour la recherche dans la nouvelle table.
Le plus simple est de le mettre pour l'instant derriere un bouton de commande éventuellement derriere le dernier controle (après MAJ) nécessaire à la recherche.
ex :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
dim rst as recordset
set rst = currentdb.openrecordset("contacts1",dbopensnapshot)
if not rst.eof then
   rst.findfirst "Nom=""" & forms.frmcontacts.champnom & """ AND Prenom=""" & forms.frmcontacts.champprenom & """"
   if not rst.nomatch then
       forms.frmcontacts.champadresse = rst.fields("Adresse")
       ...
   endif
rst.close
set rst = nothing

En adaptant les noms (table, champ, controle) avec ton cas tu devrais y arriver sans mal.
En gros ce code ouvre un recordset (voir le tuto DAO pour plus d'info sur cet objet) recherche l'enregistrement qui correspond à ta saisie. Ensuite il affecte chaque valeur de l'enregistrement au controle (champnom, champprenom...) correspondant dans ton formulaire (ce sont les points de suspension à renseigner sur le même modèle que la ligne précédente).

Cordialement,

[cybernini230]

MERCI MILLE FOIS....

Epatant, ça marche du tonnerre de Brest... (juste un petit End If qui manquait)

J'ai adapté avec mes tables et noms de champs..
Il ne me reste plus qu'à fignoler :
- créer un deuxième bouton pour chercher les enregistrements approchants à travers une requête paramétrée (souvent les prénoms sont orthographiés différemment [je suis à l'Ile Maurice et les noms et prénoms orientaux sont souvent mélangés et approximatifs].). Ça, je devrais pouvoir le bricoler toute seule.

Par contre, impossible d'importer les photos des contacts qui étaient stockées dans le champ spécialement créé par access (champ pieces jointes je crois) dans ma table et base initiales. Sûrement il existe une astuce, ... Oui ! mais laquelle ???

RE-Merci... You are the

ANNIE