J ai cree une base de donnees sur access 2003. Je ne vais
pas vous la decrire mais vous donnez l equivalent
simplifie: deux tables, client et produit ... un etat qui
me montre la liste des produits de chaque client. Je
voudrais pouvoir envoyer cet etat a mes clients via mon
logiciel de fax "winfax". le numero de fax etant
enregistre dans ma table client.
J ai pense devoir passer par la fonction "printout"
sachant que mon fax est enregistre comme une imprimante...
Quelqu un aurait il une idee ?? ou des adresses ou je
pourrais trouver ca ??
Merci
Ghislain
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond [mvp]
Bonjour.
une adresse : http://ourworld.compuserve.com/homepages/attac-cg/ACGWFL.htm
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Ghislain" a écrit dans le message de news:330f01c48f36$8eb885c0$
Bonjour a tous,
J ai cree une base de donnees sur access 2003. Je ne vais pas vous la decrire mais vous donnez l equivalent simplifie: deux tables, client et produit ... un etat qui me montre la liste des produits de chaque client. Je voudrais pouvoir envoyer cet etat a mes clients via mon logiciel de fax "winfax". le numero de fax etant enregistre dans ma table client. J ai pense devoir passer par la fonction "printout" sachant que mon fax est enregistre comme une imprimante... Quelqu un aurait il une idee ?? ou des adresses ou je pourrais trouver ca ?? Merci Ghislain
Bonjour.
une adresse : http://ourworld.compuserve.com/homepages/attac-cg/ACGWFL.htm
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Ghislain" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:330f01c48f36$8eb885c0$a501280a@phx.gbl...
Bonjour a tous,
J ai cree une base de donnees sur access 2003. Je ne vais
pas vous la decrire mais vous donnez l equivalent
simplifie: deux tables, client et produit ... un etat qui
me montre la liste des produits de chaque client. Je
voudrais pouvoir envoyer cet etat a mes clients via mon
logiciel de fax "winfax". le numero de fax etant
enregistre dans ma table client.
J ai pense devoir passer par la fonction "printout"
sachant que mon fax est enregistre comme une imprimante...
Quelqu un aurait il une idee ?? ou des adresses ou je
pourrais trouver ca ??
Merci
Ghislain
une adresse : http://ourworld.compuserve.com/homepages/attac-cg/ACGWFL.htm
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Ghislain" a écrit dans le message de news:330f01c48f36$8eb885c0$
Bonjour a tous,
J ai cree une base de donnees sur access 2003. Je ne vais pas vous la decrire mais vous donnez l equivalent simplifie: deux tables, client et produit ... un etat qui me montre la liste des produits de chaque client. Je voudrais pouvoir envoyer cet etat a mes clients via mon logiciel de fax "winfax". le numero de fax etant enregistre dans ma table client. J ai pense devoir passer par la fonction "printout" sachant que mon fax est enregistre comme une imprimante... Quelqu un aurait il une idee ?? ou des adresses ou je pourrais trouver ca ?? Merci Ghislain
Ghislain
Merci beaucoup Raymond ... c exactement ca que je cherchais !
Merci beaucoup Raymond ... c exactement ca que je
cherchais !
Merci beaucoup Raymond ... c exactement ca que je cherchais !
Alain Scatizzi
Bonjour Ghislain Ci joint le module que je me sert pour envoyer des fax avec DelrinaxFax qui fonctionne très bien '************Début******************************* Option Compare Database Dim VarNomEtat As Variant Function EnvoiFax() If ctrTypeEtat = 1 Then VarNomEtat = "EtatCommande_Fax" End If If ctrTypeEtat = 2 Then VarNomEtat = "EtatCommandeAspims_Fax" End If
Dim stDocName As String, DateCom As Date DateCom = Date
'Ouverture de Delfax Dim stAppName As String stAppName = "C:Program FilesDelFaxWFXCTL32.EXE" Call Shell(stAppName, 1)
On Error GoTo StartUp 'Si le Delfax n'a pas encore commencé, cela est récupéré maintenant ChanNum1 = DDEInitiate("FAXMNG32", "CONTROL") 'sur le canal 1 DDE à dialogue avec des Delfax à la transmission de données organiser StartUp: If Err = DDE_ERROR Then
Resume 'de retour à la ligne celui avant de apparaître de l'erreur a été exporté End If On Error GoTo End1 'Si une nouvelle erreur apparaît, on doit interrompre DDEExecute ChanNum1, ("GoIdle") 'Déactive la reception des télécopies ChanNum1 = DDEInitiate("FAXMNG32", "TRANSMIT") 'sur le canal 2 DDEDialog avec des Delfax à la transmission de données
'Récupération du numéro du fournisseur Dim NumFour As Integer NumFour = [Forms]![FrmPanierCommande]! [ModifChoixFournisseur]
'**************************** Dim bds As Database Dim rs As Recordset Dim rq As String rq = " SELECT TabFournisseur. [NomFournisseur],TabFournisseur.[FaxFournisseur]" _ & "FROM TabFournisseur WHERE ((TabFournisseur. [NumFournisseur])=" & NumFour & ");"
Set bds = CurrentDb Set rs = bds.OpenRecordset(rq) Do While Not rs.EOF rs.Edit
M2 = MsgBox("L'envoi des fax c'est bien déroulé!", vbInformation, "Information...")
DoCmd.Close acForm, "FrmApercuEtat"
Exit Function End1:
Ende: Exit Function End Function '*********************Fin********************** En expérant vous avoir aidé Alain
-----Message d'origine----- Bonjour a tous,
J ai cree une base de donnees sur access 2003. Je ne vais pas vous la decrire mais vous donnez l equivalent simplifie: deux tables, client et produit ... un etat qui me montre la liste des produits de chaque client. Je voudrais pouvoir envoyer cet etat a mes clients via mon logiciel de fax "winfax". le numero de fax etant enregistre dans ma table client. J ai pense devoir passer par la fonction "printout" sachant que mon fax est enregistre comme une imprimante... Quelqu un aurait il une idee ?? ou des adresses ou je pourrais trouver ca ?? Merci Ghislain .
Bonjour Ghislain
Ci joint le module que je me sert pour envoyer des fax
avec DelrinaxFax qui fonctionne très bien
'************Début*******************************
Option Compare Database
Dim VarNomEtat As Variant
Function EnvoiFax()
If ctrTypeEtat = 1 Then
VarNomEtat = "EtatCommande_Fax"
End If
If ctrTypeEtat = 2 Then
VarNomEtat = "EtatCommandeAspims_Fax"
End If
Dim stDocName As String, DateCom As Date
DateCom = Date
'Ouverture de Delfax
Dim stAppName As String
stAppName = "C:Program FilesDelFaxWFXCTL32.EXE"
Call Shell(stAppName, 1)
On Error GoTo StartUp 'Si le Delfax n'a pas encore
commencé, cela est récupéré maintenant
ChanNum1 = DDEInitiate("FAXMNG32", "CONTROL") 'sur le
canal 1 DDE à dialogue avec des Delfax à la transmission
de données organiser
StartUp:
If Err = DDE_ERROR Then
Resume 'de retour à la ligne celui avant de
apparaître de l'erreur a été exporté
End If
On Error GoTo End1 'Si une nouvelle erreur apparaît, on
doit interrompre
DDEExecute ChanNum1, ("GoIdle") 'Déactive la reception
des télécopies
ChanNum1 = DDEInitiate("FAXMNG32", "TRANSMIT") 'sur le
canal 2 DDEDialog avec des Delfax à la transmission de
données
'Récupération du numéro du fournisseur
Dim NumFour As Integer
NumFour = [Forms]![FrmPanierCommande]!
[ModifChoixFournisseur]
'****************************
Dim bds As Database
Dim rs As Recordset
Dim rq As String
rq = " SELECT TabFournisseur.
[NomFournisseur],TabFournisseur.[FaxFournisseur]" _
& "FROM TabFournisseur WHERE ((TabFournisseur.
[NumFournisseur])=" & NumFour & ");"
Set bds = CurrentDb
Set rs = bds.OpenRecordset(rq)
Do While Not rs.EOF
rs.Edit
M2 = MsgBox("L'envoi des fax c'est bien déroulé!",
vbInformation, "Information...")
DoCmd.Close acForm, "FrmApercuEtat"
Exit Function
End1:
Ende:
Exit Function
End Function
'*********************Fin**********************
En expérant vous avoir aidé
Alain
-----Message d'origine-----
Bonjour a tous,
J ai cree une base de donnees sur access 2003. Je ne vais
pas vous la decrire mais vous donnez l equivalent
simplifie: deux tables, client et produit ... un etat qui
me montre la liste des produits de chaque client. Je
voudrais pouvoir envoyer cet etat a mes clients via mon
logiciel de fax "winfax". le numero de fax etant
enregistre dans ma table client.
J ai pense devoir passer par la fonction "printout"
sachant que mon fax est enregistre comme une imprimante...
Quelqu un aurait il une idee ?? ou des adresses ou je
pourrais trouver ca ??
Merci
Ghislain
.
Bonjour Ghislain Ci joint le module que je me sert pour envoyer des fax avec DelrinaxFax qui fonctionne très bien '************Début******************************* Option Compare Database Dim VarNomEtat As Variant Function EnvoiFax() If ctrTypeEtat = 1 Then VarNomEtat = "EtatCommande_Fax" End If If ctrTypeEtat = 2 Then VarNomEtat = "EtatCommandeAspims_Fax" End If
Dim stDocName As String, DateCom As Date DateCom = Date
'Ouverture de Delfax Dim stAppName As String stAppName = "C:Program FilesDelFaxWFXCTL32.EXE" Call Shell(stAppName, 1)
On Error GoTo StartUp 'Si le Delfax n'a pas encore commencé, cela est récupéré maintenant ChanNum1 = DDEInitiate("FAXMNG32", "CONTROL") 'sur le canal 1 DDE à dialogue avec des Delfax à la transmission de données organiser StartUp: If Err = DDE_ERROR Then
Resume 'de retour à la ligne celui avant de apparaître de l'erreur a été exporté End If On Error GoTo End1 'Si une nouvelle erreur apparaît, on doit interrompre DDEExecute ChanNum1, ("GoIdle") 'Déactive la reception des télécopies ChanNum1 = DDEInitiate("FAXMNG32", "TRANSMIT") 'sur le canal 2 DDEDialog avec des Delfax à la transmission de données
'Récupération du numéro du fournisseur Dim NumFour As Integer NumFour = [Forms]![FrmPanierCommande]! [ModifChoixFournisseur]
'**************************** Dim bds As Database Dim rs As Recordset Dim rq As String rq = " SELECT TabFournisseur. [NomFournisseur],TabFournisseur.[FaxFournisseur]" _ & "FROM TabFournisseur WHERE ((TabFournisseur. [NumFournisseur])=" & NumFour & ");"
Set bds = CurrentDb Set rs = bds.OpenRecordset(rq) Do While Not rs.EOF rs.Edit
M2 = MsgBox("L'envoi des fax c'est bien déroulé!", vbInformation, "Information...")
DoCmd.Close acForm, "FrmApercuEtat"
Exit Function End1:
Ende: Exit Function End Function '*********************Fin********************** En expérant vous avoir aidé Alain
-----Message d'origine----- Bonjour a tous,
J ai cree une base de donnees sur access 2003. Je ne vais pas vous la decrire mais vous donnez l equivalent simplifie: deux tables, client et produit ... un etat qui me montre la liste des produits de chaque client. Je voudrais pouvoir envoyer cet etat a mes clients via mon logiciel de fax "winfax". le numero de fax etant enregistre dans ma table client. J ai pense devoir passer par la fonction "printout" sachant que mon fax est enregistre comme une imprimante... Quelqu un aurait il une idee ?? ou des adresses ou je pourrais trouver ca ?? Merci Ghislain .
