[AC-2007] Ajouter Contacts depuis Outllok avec la fonctionalité Access 2007

[brg2009]

Bonjour,
J’ai crée une base de données qui fonctionnait parfaitement. Afin de permettre à plusieurs utilisateurs de travailler sur cette base je l’ai mise sur réseau et je l’ai scindé en deux bases.
La base dorsale contient toutes les tables
La base frontale : contient ; formulaires ; états, Marcos et modules.
Dans un des formulaires : l’utilisais la commande « DoCmd.RunCommand acCmdAddFromOutlook » pour ajouter des contacts depuis Outlook. Cette commande marchais très bien quand la base de données était unique. Par contre elle ne fonctionne plus quand j’ai scindé la base de données en deux bases.
Merci de votre aide

[robyseb]

Salut j'ai fait quelques recherche et la solution serait de créer une table temporaire dans ta base frontale et d'utiliser le

Code :

DoCmd.RunCommand acCmdAddFromOutlook

sur cette table temporaire ensuite tu créer un formulaire qui te demande de confirmer l'addition et tu met un code qui copiera tous vers ta base dorsale pour ensuite supprimer les informations stocké temporairement avec un

Code :

1
2
docmd.runsql Delete * from
tmpTblOutlook

ou tmpTblOutlook le nom de ta table ou autre ...

[robyseb]

comment dois-je copier les eregistrements de cette table temporaire vers ma table de la base dorsale.

merci pour ton aide.

Tu peut utiliser un code du genre :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub AjoutContactOutlook_Click()
 
dim PremiereValeur as string
dim deuxiemeValeur as string
 
 
PremiereValeur = NZ(Dlookup("ChampPremierevaleur" , "tmpTblOutlook"), "")
etc ...
If not IsNull(PremiereValeur) Or PremiereValeur <> "" Then
 
Dim MaTable As Recordset
Set MaTable = CurrentDb.OpenRecordset("Table_Externe")
            MaTable.AddNew
                    MaTable("ChampPremiereValeur") = PremiereValeur
                    MaTable("ChampDeuxiemeValeur") = etc...
            MaTable.Update
MaTable.Close
Else
msgbox "Il n'y a aucun enregistrement à copier" , vbcritical , "Erreur"
 
End If
End Sub

[robyseb]

Excuse-moi de te déranger. Si j’ai bien compris je dois faire ce qui suit :
• Créer une table temporaire dans ma base de données frontale
• Créer un formulaire sur la base frontale basée sur cette table temporaire
• Ajouter le contact depuis Outlook avec la commande « DoCmd.RunCommand acCmdAddFromOutlook »
• Utiliser le code que tu m’a fourni pour transférer l’enregistrement ajouté dans la table temporaire dans la table de la base dorsale
• Effacer l’enregistrement ajouté dans la table temporaire avec la commande « docmd.runsql Delete * from tmpTblOutlook »
• Refaire la même procédure pour tout nouvel enregistrement.
Merci de bien vouloir confirmer

oui ces ca ...

[brg2009]

Bonjour Tous,
quel est l'événement quis e produit après l'ajout d'un contact depuius Outllok avec la commande " DoCmd.RunCommand acCmdAddFromOutlook".
j'ai également remarque que si même si le formulaire est verrouillé en ajout et en modification on peut toujours ajouter des enregistrements avec cette commande

merci

[robyseb]

C'est normal puisque tu ajoute tes enregistrements dans ta table et non dans ton formulaire. Que veut tu faire exactement

[brg2009]

OK tu répond à ma question.