--------------------------------------------------------------------------------
Je souhaite executer une requete sql via VBA mais j'ai tjs une erreur
d'incompatibilité de type presente.
L'inconvénient c'est que lorsque je clic sur le bouton qui lance cette
commande, ce message d'erreur apparait mais cela ne m'indique pas sur
quoi j'ai mon erreur car VB ne s'ouvre pas. Je n'ai pas la possibilité
de debuger.
Je remet le code.Code:
Private Sub Commande59_Click()
On Error GoTo Err_Commande59_Click
Dim qy As QueryDef, rs As Recordset
Dim stDocName As String, SQL As String
SQL = "SELECT affaire.numcom, affaire.date, CLIENTS.SOCIETE,
affaire.codcli, affaire.libaff, affaire.désignation, affaire.reliquat,
affaire.solde, affaire.[A livrer], tbl_articles.PAHT tbl_articles
INNER JOIN (CLIENTS INNER JOIN affaire ON CLIENTS.codecli =
affaire.codcli) ON tbl_articles.code_article = affaire.libaff WHERE
(((Affaire.numcom) Like [Numéro Commande] & " * ")) "
Set qy = CurrentDb.CreateQueryDef("", SQL)
Set rs = qy.OpenRecordset()
While Not rs.EOF
If rs!désignation = "MARTEAUX*" Then
stDocName = "ET_08_:_FEUILLEDETRAVAILMARTEAUX"
ElseIf rs!désignation = "GRILLE*" Then
stDocName = "ET_09_:_BT_GRILLES"
End If
rs.MoveNext
Wend
Set rs = Nothing
Set qy = Nothing
DoCmd.OpenReport stDocName, acPreview
J'ai essayé avec la biblio DAO mais cela ne change rien j'ai tjs
incompatilite de type.
J'ai chercher un peut partout sur le net est partout ou je vois que
l'on parle de ce type d'erreur apparement VB s'ouvre et il peuvent
identifier de la ligne d'ou ça provient.
Je souhaite executer une requete sql via VBA mais j'ai tjs une erreur d'incompatibilité de type presente. L'inconvénient c'est que lorsque je clic sur le bouton qui lance cette commande, ce message d'erreur apparait mais cela ne m'indique pas sur quoi j'ai mon erreur car VB ne s'ouvre pas. Je n'ai pas la possibilité de debuger.
Je remet le code.Code: Private Sub Commande59_Click() On Error GoTo Err_Commande59_Click Dim qy As QueryDef, rs As Recordset Dim stDocName As String, SQL As String
SQL = "SELECT affaire.numcom, affaire.date, CLIENTS.SOCIETE, affaire.codcli, affaire.libaff, affaire.désignation, affaire.reliquat, affaire.solde, affaire.[A livrer], tbl_articles.PAHT tbl_articles INNER JOIN (CLIENTS INNER JOIN affaire ON CLIENTS.codecli > affaire.codcli) ON tbl_articles.code_article = affaire.libaff WHERE (((Affaire.numcom) Like [Numéro Commande] & " * ")) "
Set qy = CurrentDb.CreateQueryDef("", SQL) Set rs = qy.OpenRecordset() While Not rs.EOF If rs!désignation = "MARTEAUX*" Then stDocName = "ET_08_:_FEUILLEDETRAVAILMARTEAUX" ElseIf rs!désignation = "GRILLE*" Then stDocName = "ET_09_:_BT_GRILLES" End If rs.MoveNext Wend Set rs = Nothing Set qy = Nothing DoCmd.OpenReport stDocName, acPreview
J'ai essayé avec la biblio DAO mais cela ne change rien j'ai tjs incompatilite de type.
J'ai chercher un peut partout sur le net est partout ou je vois que l'on parle de ce type d'erreur apparement VB s'ouvre et il peuvent identifier de la ligne d'ou ça provient.
Bonjour,
La référence "Microsoft DAO 3.6 Object Library" est-elle cochée avant
"Microsoft ActiveX Data Objects..."?
Sinon, précise par exemple: DAO.Recordset
Philippe
"djool" <djool3000@noos.fr> a écrit dans le message de
news:f2281b18.0311250313.2ed606cb@posting.google.com...
Je souhaite executer une requete sql via VBA mais j'ai tjs une erreur
d'incompatibilité de type presente.
L'inconvénient c'est que lorsque je clic sur le bouton qui lance cette
commande, ce message d'erreur apparait mais cela ne m'indique pas sur
quoi j'ai mon erreur car VB ne s'ouvre pas. Je n'ai pas la possibilité
de debuger.
Je remet le code.Code:
Private Sub Commande59_Click()
On Error GoTo Err_Commande59_Click
Dim qy As QueryDef, rs As Recordset
Dim stDocName As String, SQL As String
SQL = "SELECT affaire.numcom, affaire.date, CLIENTS.SOCIETE,
affaire.codcli, affaire.libaff, affaire.désignation, affaire.reliquat,
affaire.solde, affaire.[A livrer], tbl_articles.PAHT tbl_articles
INNER JOIN (CLIENTS INNER JOIN affaire ON CLIENTS.codecli > affaire.codcli) ON tbl_articles.code_article = affaire.libaff WHERE
(((Affaire.numcom) Like [Numéro Commande] & " * ")) "
Set qy = CurrentDb.CreateQueryDef("", SQL)
Set rs = qy.OpenRecordset()
While Not rs.EOF
If rs!désignation = "MARTEAUX*" Then
stDocName = "ET_08_:_FEUILLEDETRAVAILMARTEAUX"
ElseIf rs!désignation = "GRILLE*" Then
stDocName = "ET_09_:_BT_GRILLES"
End If
rs.MoveNext
Wend
Set rs = Nothing
Set qy = Nothing
DoCmd.OpenReport stDocName, acPreview
J'ai essayé avec la biblio DAO mais cela ne change rien j'ai tjs
incompatilite de type.
J'ai chercher un peut partout sur le net est partout ou je vois que
l'on parle de ce type d'erreur apparement VB s'ouvre et il peuvent
identifier de la ligne d'ou ça provient.
Je souhaite executer une requete sql via VBA mais j'ai tjs une erreur d'incompatibilité de type presente. L'inconvénient c'est que lorsque je clic sur le bouton qui lance cette commande, ce message d'erreur apparait mais cela ne m'indique pas sur quoi j'ai mon erreur car VB ne s'ouvre pas. Je n'ai pas la possibilité de debuger.
Je remet le code.Code: Private Sub Commande59_Click() On Error GoTo Err_Commande59_Click Dim qy As QueryDef, rs As Recordset Dim stDocName As String, SQL As String
SQL = "SELECT affaire.numcom, affaire.date, CLIENTS.SOCIETE, affaire.codcli, affaire.libaff, affaire.désignation, affaire.reliquat, affaire.solde, affaire.[A livrer], tbl_articles.PAHT tbl_articles INNER JOIN (CLIENTS INNER JOIN affaire ON CLIENTS.codecli > affaire.codcli) ON tbl_articles.code_article = affaire.libaff WHERE (((Affaire.numcom) Like [Numéro Commande] & " * ")) "
Set qy = CurrentDb.CreateQueryDef("", SQL) Set rs = qy.OpenRecordset() While Not rs.EOF If rs!désignation = "MARTEAUX*" Then stDocName = "ET_08_:_FEUILLEDETRAVAILMARTEAUX" ElseIf rs!désignation = "GRILLE*" Then stDocName = "ET_09_:_BT_GRILLES" End If rs.MoveNext Wend Set rs = Nothing Set qy = Nothing DoCmd.OpenReport stDocName, acPreview
J'ai essayé avec la biblio DAO mais cela ne change rien j'ai tjs incompatilite de type.
J'ai chercher un peut partout sur le net est partout ou je vois que l'on parle de ce type d'erreur apparement VB s'ouvre et il peuvent identifier de la ligne d'ou ça provient.
djool3000
Oui les références sont bien cochées. DAo 3.6 est avant active X DATA object...
J'ai essayé en spécifiant : Dim qy As DAO.QueryDef, rs As DAO.Recordset mais j'obtient exactement la même erreur. Je ne comprend pas.
"Philippe Pham Minh [MS]" wrote in message news:...
Bonjour,
La référence "Microsoft DAO 3.6 Object Library" est-elle cochée avant "Microsoft ActiveX Data Objects..."?
Je souhaite executer une requete sql via VBA mais j'ai tjs une erreur d'incompatibilité de type presente. L'inconvénient c'est que lorsque je clic sur le bouton qui lance cette commande, ce message d'erreur apparait mais cela ne m'indique pas sur quoi j'ai mon erreur car VB ne s'ouvre pas. Je n'ai pas la possibilité de debuger.
Je remet le code.Code: Private Sub Commande59_Click() On Error GoTo Err_Commande59_Click Dim qy As QueryDef, rs As Recordset Dim stDocName As String, SQL As String
SQL = "SELECT affaire.numcom, affaire.date, CLIENTS.SOCIETE, affaire.codcli, affaire.libaff, affaire.désignation, affaire.reliquat, affaire.solde, affaire.[A livrer], tbl_articles.PAHT tbl_articles INNER JOIN (CLIENTS INNER JOIN affaire ON CLIENTS.codecli > > affaire.codcli) ON tbl_articles.code_article = affaire.libaff WHERE (((Affaire.numcom) Like [Numéro Commande] & " * ")) "
Set qy = CurrentDb.CreateQueryDef("", SQL) Set rs = qy.OpenRecordset() While Not rs.EOF If rs!désignation = "MARTEAUX*" Then stDocName = "ET_08_:_FEUILLEDETRAVAILMARTEAUX" ElseIf rs!désignation = "GRILLE*" Then stDocName = "ET_09_:_BT_GRILLES" End If rs.MoveNext Wend Set rs = Nothing Set qy = Nothing DoCmd.OpenReport stDocName, acPreview
J'ai essayé avec la biblio DAO mais cela ne change rien j'ai tjs incompatilite de type.
J'ai chercher un peut partout sur le net est partout ou je vois que l'on parle de ce type d'erreur apparement VB s'ouvre et il peuvent identifier de la ligne d'ou ça provient.
Oui les références sont bien cochées. DAo 3.6 est avant active X DATA object...
J'ai essayé en spécifiant : Dim qy As DAO.QueryDef, rs As DAO.Recordset
mais j'obtient exactement la même erreur.
Je ne comprend pas.
"Philippe Pham Minh [MS]" <phipham@online.microsoft.com> wrote in message news:<OOpRFn0sDHA.2208@TK2MSFTNGP10.phx.gbl>...
Bonjour,
La référence "Microsoft DAO 3.6 Object Library" est-elle cochée avant
"Microsoft ActiveX Data Objects..."?
Sinon, précise par exemple: DAO.Recordset
Philippe
"djool" <djool3000@noos.fr> a écrit dans le message de
news:f2281b18.0311250313.2ed606cb@posting.google.com...
Je souhaite executer une requete sql via VBA mais j'ai tjs une erreur
d'incompatibilité de type presente.
L'inconvénient c'est que lorsque je clic sur le bouton qui lance cette
commande, ce message d'erreur apparait mais cela ne m'indique pas sur
quoi j'ai mon erreur car VB ne s'ouvre pas. Je n'ai pas la possibilité
de debuger.
Je remet le code.Code:
Private Sub Commande59_Click()
On Error GoTo Err_Commande59_Click
Dim qy As QueryDef, rs As Recordset
Dim stDocName As String, SQL As String
SQL = "SELECT affaire.numcom, affaire.date, CLIENTS.SOCIETE,
affaire.codcli, affaire.libaff, affaire.désignation, affaire.reliquat,
affaire.solde, affaire.[A livrer], tbl_articles.PAHT tbl_articles
INNER JOIN (CLIENTS INNER JOIN affaire ON CLIENTS.codecli > > affaire.codcli) ON tbl_articles.code_article = affaire.libaff WHERE
(((Affaire.numcom) Like [Numéro Commande] & " * ")) "
Set qy = CurrentDb.CreateQueryDef("", SQL)
Set rs = qy.OpenRecordset()
While Not rs.EOF
If rs!désignation = "MARTEAUX*" Then
stDocName = "ET_08_:_FEUILLEDETRAVAILMARTEAUX"
ElseIf rs!désignation = "GRILLE*" Then
stDocName = "ET_09_:_BT_GRILLES"
End If
rs.MoveNext
Wend
Set rs = Nothing
Set qy = Nothing
DoCmd.OpenReport stDocName, acPreview
J'ai essayé avec la biblio DAO mais cela ne change rien j'ai tjs
incompatilite de type.
J'ai chercher un peut partout sur le net est partout ou je vois que
l'on parle de ce type d'erreur apparement VB s'ouvre et il peuvent
identifier de la ligne d'ou ça provient.
Je souhaite executer une requete sql via VBA mais j'ai tjs une erreur d'incompatibilité de type presente. L'inconvénient c'est que lorsque je clic sur le bouton qui lance cette commande, ce message d'erreur apparait mais cela ne m'indique pas sur quoi j'ai mon erreur car VB ne s'ouvre pas. Je n'ai pas la possibilité de debuger.
Je remet le code.Code: Private Sub Commande59_Click() On Error GoTo Err_Commande59_Click Dim qy As QueryDef, rs As Recordset Dim stDocName As String, SQL As String
SQL = "SELECT affaire.numcom, affaire.date, CLIENTS.SOCIETE, affaire.codcli, affaire.libaff, affaire.désignation, affaire.reliquat, affaire.solde, affaire.[A livrer], tbl_articles.PAHT tbl_articles INNER JOIN (CLIENTS INNER JOIN affaire ON CLIENTS.codecli > > affaire.codcli) ON tbl_articles.code_article = affaire.libaff WHERE (((Affaire.numcom) Like [Numéro Commande] & " * ")) "
Set qy = CurrentDb.CreateQueryDef("", SQL) Set rs = qy.OpenRecordset() While Not rs.EOF If rs!désignation = "MARTEAUX*" Then stDocName = "ET_08_:_FEUILLEDETRAVAILMARTEAUX" ElseIf rs!désignation = "GRILLE*" Then stDocName = "ET_09_:_BT_GRILLES" End If rs.MoveNext Wend Set rs = Nothing Set qy = Nothing DoCmd.OpenReport stDocName, acPreview
J'ai essayé avec la biblio DAO mais cela ne change rien j'ai tjs incompatilite de type.
J'ai chercher un peut partout sur le net est partout ou je vois que l'on parle de ce type d'erreur apparement VB s'ouvre et il peuvent identifier de la ligne d'ou ça provient.
djool3000
j'ai bien essayé comme cela en mettant cela "Dim qy As DAO.QueryDef, rs As DAO.Recordset" mais rien y fait (djool) wrote in message news:...
-------------------------------------------------------------------------------- Je souhaite executer une requete sql via VBA mais j'ai tjs une erreur d'incompatibilité de type presente. L'inconvénient c'est que lorsque je clic sur le bouton qui lance cette commande, ce message d'erreur apparait mais cela ne m'indique pas sur quoi j'ai mon erreur car VB ne s'ouvre pas. Je n'ai pas la possibilité de debuger.
Je remet le code.Code: Private Sub Commande59_Click() On Error GoTo Err_Commande59_Click Dim qy As QueryDef, rs As Recordset Dim stDocName As String, SQL As String
SQL = "SELECT affaire.numcom, affaire.date, CLIENTS.SOCIETE, affaire.codcli, affaire.libaff, affaire.désignation, affaire.reliquat, affaire.solde, affaire.[A livrer], tbl_articles.PAHT tbl_articles INNER JOIN (CLIENTS INNER JOIN affaire ON CLIENTS.codecli > affaire.codcli) ON tbl_articles.code_article = affaire.libaff WHERE (((Affaire.numcom) Like [Numéro Commande] & " * ")) "
Set qy = CurrentDb.CreateQueryDef("", SQL) Set rs = qy.OpenRecordset() While Not rs.EOF If rs!désignation = "MARTEAUX*" Then stDocName = "ET_08_:_FEUILLEDETRAVAILMARTEAUX" ElseIf rs!désignation = "GRILLE*" Then stDocName = "ET_09_:_BT_GRILLES" End If rs.MoveNext Wend Set rs = Nothing Set qy = Nothing DoCmd.OpenReport stDocName, acPreview
J'ai essayé avec la biblio DAO mais cela ne change rien j'ai tjs incompatilite de type.
J'ai chercher un peut partout sur le net est partout ou je vois que l'on parle de ce type d'erreur apparement VB s'ouvre et il peuvent identifier de la ligne d'ou ça provient.
j'ai bien essayé comme cela en mettant cela
"Dim qy As DAO.QueryDef, rs As DAO.Recordset"
mais rien y fait
djool3000@noos.fr (djool) wrote in message news:<f2281b18.0311250313.2ed606cb@posting.google.com>...
--------------------------------------------------------------------------------
Je souhaite executer une requete sql via VBA mais j'ai tjs une erreur
d'incompatibilité de type presente.
L'inconvénient c'est que lorsque je clic sur le bouton qui lance cette
commande, ce message d'erreur apparait mais cela ne m'indique pas sur
quoi j'ai mon erreur car VB ne s'ouvre pas. Je n'ai pas la possibilité
de debuger.
Je remet le code.Code:
Private Sub Commande59_Click()
On Error GoTo Err_Commande59_Click
Dim qy As QueryDef, rs As Recordset
Dim stDocName As String, SQL As String
SQL = "SELECT affaire.numcom, affaire.date, CLIENTS.SOCIETE,
affaire.codcli, affaire.libaff, affaire.désignation, affaire.reliquat,
affaire.solde, affaire.[A livrer], tbl_articles.PAHT tbl_articles
INNER JOIN (CLIENTS INNER JOIN affaire ON CLIENTS.codecli > affaire.codcli) ON tbl_articles.code_article = affaire.libaff WHERE
(((Affaire.numcom) Like [Numéro Commande] & " * ")) "
Set qy = CurrentDb.CreateQueryDef("", SQL)
Set rs = qy.OpenRecordset()
While Not rs.EOF
If rs!désignation = "MARTEAUX*" Then
stDocName = "ET_08_:_FEUILLEDETRAVAILMARTEAUX"
ElseIf rs!désignation = "GRILLE*" Then
stDocName = "ET_09_:_BT_GRILLES"
End If
rs.MoveNext
Wend
Set rs = Nothing
Set qy = Nothing
DoCmd.OpenReport stDocName, acPreview
J'ai essayé avec la biblio DAO mais cela ne change rien j'ai tjs
incompatilite de type.
J'ai chercher un peut partout sur le net est partout ou je vois que
l'on parle de ce type d'erreur apparement VB s'ouvre et il peuvent
identifier de la ligne d'ou ça provient.
j'ai bien essayé comme cela en mettant cela "Dim qy As DAO.QueryDef, rs As DAO.Recordset" mais rien y fait (djool) wrote in message news:...
-------------------------------------------------------------------------------- Je souhaite executer une requete sql via VBA mais j'ai tjs une erreur d'incompatibilité de type presente. L'inconvénient c'est que lorsque je clic sur le bouton qui lance cette commande, ce message d'erreur apparait mais cela ne m'indique pas sur quoi j'ai mon erreur car VB ne s'ouvre pas. Je n'ai pas la possibilité de debuger.
Je remet le code.Code: Private Sub Commande59_Click() On Error GoTo Err_Commande59_Click Dim qy As QueryDef, rs As Recordset Dim stDocName As String, SQL As String
SQL = "SELECT affaire.numcom, affaire.date, CLIENTS.SOCIETE, affaire.codcli, affaire.libaff, affaire.désignation, affaire.reliquat, affaire.solde, affaire.[A livrer], tbl_articles.PAHT tbl_articles INNER JOIN (CLIENTS INNER JOIN affaire ON CLIENTS.codecli > affaire.codcli) ON tbl_articles.code_article = affaire.libaff WHERE (((Affaire.numcom) Like [Numéro Commande] & " * ")) "
Set qy = CurrentDb.CreateQueryDef("", SQL) Set rs = qy.OpenRecordset() While Not rs.EOF If rs!désignation = "MARTEAUX*" Then stDocName = "ET_08_:_FEUILLEDETRAVAILMARTEAUX" ElseIf rs!désignation = "GRILLE*" Then stDocName = "ET_09_:_BT_GRILLES" End If rs.MoveNext Wend Set rs = Nothing Set qy = Nothing DoCmd.OpenReport stDocName, acPreview
J'ai essayé avec la biblio DAO mais cela ne change rien j'ai tjs incompatilite de type.
J'ai chercher un peut partout sur le net est partout ou je vois que l'on parle de ce type d'erreur apparement VB s'ouvre et il peuvent identifier de la ligne d'ou ça provient.
