Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
979 connectés 

  FORUM HardWare.fr
  Programmation
  SQL/NoSQL

  Probleme Access

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Probleme Access

n°876648
betsamee
Asterisk Zeperyl
Posté le 19-10-2004 à 00:32:07  profilanswer
 

Tout d'abbord bonjour a tous
Je developpe une application en Access et j'ai quelque questions:
-Est il possible de faire disparaitre le message d'avertissement avant l'effacement d'une table cree par une requete creation(contenant Into ,j'ai reussi a enlever tous les autres messages d'avertissements sauf celui la en decochant les onglets dans les options)
-Je fais une fusion avec un document word d'une de mes tables mais j'aimerais pouvoir l'envoyer en mail automatiquement a partir de access (avec sendmail) mais impossible de rentrer automatiquement l'addresse destination
-J'aimerais savoir si il est possible de decouper un etat en plusieurs (selon un champ "NumerodeFacture" )
 
Je sais ca fait beaucoup de questions et merci a celui qui m'aidera

mood
Publicité
Posté le 19-10-2004 à 00:32:07  profilanswer
 

n°876750
Xav_
The only one...
Posté le 19-10-2004 à 09:43:32  profilanswer
 

betsamee a écrit :

Tout d'abbord bonjour a tous
Je developpe une application en Access et j'ai quelque questions:
-Est il possible de faire disparaitre le message d'avertissement avant l'effacement d'une table cree par une requete creation(contenant  


 
Je faisait diparaitre tous les messages à l'époque pour mettre les miens à la place.
Mais je faisait ça par le code en VBA avec une commande (je me rappelle plus exactement la syntaxe, ça fait plus de 4 ans):
setwarnings=false avant d'envoyer la requete
setwarnings=true pour réactiver les messages après ta requete


---------------
- Xav - ...There are no crimes when there are no laws... -- Xav's World
n°876751
betsamee
Asterisk Zeperyl
Posté le 19-10-2004 à 09:53:09  profilanswer
 

Merci

n°876811
betsamee
Asterisk Zeperyl
Posté le 19-10-2004 à 10:57:20  profilanswer
 

Bonjour
J'ecris une appli en access qui entre autres doit envoyer de la doc par email a des clients appeles
J'ai un bouton sense ouvrir un document word ,le fusioner avec les donnees de mon client (a partir d'une table cree par une requete) ,l'envoyer par email a une addresse contenue dans un champ de la form puis fermer ce document word.
Le probleme c'est que l'envoi ne marche que pour le premier client ,quand je passe de record et que je rappuie sur mon bouton l'envoi ne se fait plus.
J'ai egalement un pb de raffraichissement des donnees contenues dans le document de fusion
Voici mon code (je suis novice c'est pas de l'art) , si quelqu'un peut m'aider...
 
Private Sub FusionEtEmail_Click()
On Error GoTo Err_FusionEtEmail_Click
 
Dim oApp As Object
Dim stDocName As String
Dim destinataire As String
'Creation de la table contenant l'enregistrement courant
DoCmd.SetWarnings False
stDocName = "FusionBL"
DoCmd.OpenQuery stDocName, acNormal, acEdit
 
'NE PAS OUBLIER DANS TOOLS-->REFERENCES DE COCHER LES CASES
'----------------------------------------MICROSOFT OFFICE 10.0 OBJECTS LIBRARY
'----------------------------------------MICROSOFT WORD 10.0 OBJECTS LIBRARY
 
'Ouverture du document de fusion Word
Set oApp = CreateObject("Word.Application" )
oApp.Visible = True
oApp.Documents.Open ("C:\Appli\BLVitallioFAX.doc" )
 
ActiveDocument.MailMerge.OpenDataSource Name:= _
"C:\Appli\B_EnrCourant.mdb", _
ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
Format:=wdOpenFormatAuto, Connection:= _
"Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=C:\Appli\B_EnrCourant.mdb;Mode=Read;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password=""""" _
, SQLStatement:="SELECT * FROM `T_EnrCourant`", SQLStatement1:="", _
SubType:=wdMergeSubTypeAccess
CommandBars("Task Pane" ).Visible = False
destinataire = Form_Clientèle.NumTélécopie & "@xxxxx.fr"
 
'Rafraichissement de l'affichage et de la fusion
ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdToggle
 
 
ActiveDocument.MailEnvelope.Item.Recipients.Add destinataire
ActiveDocument.MailEnvelope.Item.Send
''Probleme impossible d'envoyer un deuxieme mail
''Problemepour fermer le document
 
Err_FusionEtEmail_Click:
Exit Sub
 
End Sub
 
Merci d'avance

n°876877
betsamee
Asterisk Zeperyl
Posté le 19-10-2004 à 11:46:04  profilanswer
 

meme en rajoutant  
oApp.Close
Set oApp = Nothing
 
avant Err_FusionEtEmail_Click:  
j'ai toujours rien

n°877037
betsamee
Asterisk Zeperyl
Posté le 19-10-2004 à 15:13:22  profilanswer
 

je me decourage j ai essaye toute sortes de manieres
il me semble que qu il est tres delicat d'ouvrir a la fois une appli outlook et ala fois une appli word et de les faire interagir  
Visiblement cela ne marche que la premiere fois


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  SQL/NoSQL

  Probleme Access

 

Sujets relatifs
Problème d'enregistrement ACCESS via site Web[VB] Probleme d'acces a une base Access en mise a jour.
access excel problème de caractères retour à la ligne, etc...Problème Access récupération value d'une TextBox dans une Requête
Problème lié à la création de MDE sur une application ACCESS[Access / Word / VB] Problème de module et publipostage
probleme transfert de données d'access vers excel[Access]Problème date pour faire une recherche genre "mois dernier"
[ C# ] problème "access denied"probleme Visual Basic Access
Plus de sujets relatifs à : Probleme Access


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR