j'ai récupéré ce code dans un MDB exemple chez MS
'===================================
Public Function DMedian(FieldName As String, _
TableName As String, _
Optional Criteria As Variant) As Double
On Error GoTo Err_DMedian
'Returns the median of a given field in a given table.
'Returns -1 if no recordset is created
Dim conn As Connection
Dim rs As New ADODB.Recordset
Dim strSQL As String
Dim RowCount As Long
Dim LowMedian As Double, HighMedian As Double
'Open a recordset on the table.
Set conn = CurrentProject.Connection
strSQL = "SELECT " & FieldName & " FROM " & TableName
' et ça continue ...
'==========================================
Dans le MDB de l'exemple ça passe bien mais quand je récupère ce code dans
mon MDB, ça accroche à la ligne :
Set conn= CurrentProject.Connection
(qui est redirrigé par le : On Error GoTo Err_DMedian)
J'ai vérifié mes références et tout semble identique. SVP aidez-moi en me
précisant où chercher pour résoudre ce problème.
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
Ma Dalton
Tiens donc, j'ai trouvé une équivalence de ce code en DAO que je maitrise mieux, et ça passe maintenant correctement dans mon MDB.
Mais si vous trouvez une réponse à ma question pour ADO, je suis encore intéressé d'apprendre.
"Ma Dalton" a écrit dans le message de news:%
Bonjour,
j'ai récupéré ce code dans un MDB exemple chez MS '================================== > Public Function DMedian(FieldName As String, _ TableName As String, _ Optional Criteria As Variant) As Double On Error GoTo Err_DMedian 'Returns the median of a given field in a given table. 'Returns -1 if no recordset is created
Dim conn As Connection Dim rs As New ADODB.Recordset Dim strSQL As String Dim RowCount As Long Dim LowMedian As Double, HighMedian As Double
'Open a recordset on the table. Set conn = CurrentProject.Connection strSQL = "SELECT " & FieldName & " FROM " & TableName ' et ça continue ... '========================================= > Dans le MDB de l'exemple ça passe bien mais quand je récupère ce code dans mon MDB, ça accroche à la ligne : Set conn= CurrentProject.Connection (qui est redirrigé par le : On Error GoTo Err_DMedian)
J'ai vérifié mes références et tout semble identique. SVP aidez-moi en me précisant où chercher pour résoudre ce problème.
merci
Tiens donc,
j'ai trouvé une équivalence de ce code en DAO que je maitrise mieux, et ça
passe maintenant correctement dans mon MDB.
Mais si vous trouvez une réponse à ma question pour ADO, je suis encore
intéressé d'apprendre.
"Ma Dalton" <Rantanplan@farwest.net> a écrit dans le message de
news:%23RWJxL5vFHA.1168@TK2MSFTNGP10.phx.gbl...
Bonjour,
j'ai récupéré ce code dans un MDB exemple chez MS
'================================== > Public Function DMedian(FieldName As String, _
TableName As String, _
Optional Criteria As Variant) As Double
On Error GoTo Err_DMedian
'Returns the median of a given field in a given table.
'Returns -1 if no recordset is created
Dim conn As Connection
Dim rs As New ADODB.Recordset
Dim strSQL As String
Dim RowCount As Long
Dim LowMedian As Double, HighMedian As Double
'Open a recordset on the table.
Set conn = CurrentProject.Connection
strSQL = "SELECT " & FieldName & " FROM " & TableName
' et ça continue ...
'========================================= >
Dans le MDB de l'exemple ça passe bien mais quand je récupère ce code dans
mon MDB, ça accroche à la ligne :
Set conn= CurrentProject.Connection
(qui est redirrigé par le : On Error GoTo Err_DMedian)
J'ai vérifié mes références et tout semble identique. SVP aidez-moi en me
précisant où chercher pour résoudre ce problème.
Tiens donc, j'ai trouvé une équivalence de ce code en DAO que je maitrise mieux, et ça passe maintenant correctement dans mon MDB.
Mais si vous trouvez une réponse à ma question pour ADO, je suis encore intéressé d'apprendre.
"Ma Dalton" a écrit dans le message de news:%
Bonjour,
j'ai récupéré ce code dans un MDB exemple chez MS '================================== > Public Function DMedian(FieldName As String, _ TableName As String, _ Optional Criteria As Variant) As Double On Error GoTo Err_DMedian 'Returns the median of a given field in a given table. 'Returns -1 if no recordset is created
Dim conn As Connection Dim rs As New ADODB.Recordset Dim strSQL As String Dim RowCount As Long Dim LowMedian As Double, HighMedian As Double
'Open a recordset on the table. Set conn = CurrentProject.Connection strSQL = "SELECT " & FieldName & " FROM " & TableName ' et ça continue ... '========================================= > Dans le MDB de l'exemple ça passe bien mais quand je récupère ce code dans mon MDB, ça accroche à la ligne : Set conn= CurrentProject.Connection (qui est redirrigé par le : On Error GoTo Err_DMedian)
J'ai vérifié mes références et tout semble identique. SVP aidez-moi en me précisant où chercher pour résoudre ce problème.
merci
Eric
Bonsoir,
Remplaces : Dim conn As Connection par: Dim conn As New ADODB.Connection
et tu ne devrais plus avoir d'erreur.
Tiens donc, j'ai trouvé une équivalence de ce code en DAO que je maitrise mieux, et ça passe maintenant correctement dans mon MDB.
Mais si vous trouvez une réponse à ma question pour ADO, je suis encore intéressé d'apprendre.
"Ma Dalton" a écrit dans le message de news:%
Bonjour,
j'ai récupéré ce code dans un MDB exemple chez MS '================================== >>Public Function DMedian(FieldName As String, _ TableName As String, _ Optional Criteria As Variant) As Double On Error GoTo Err_DMedian 'Returns the median of a given field in a given table. 'Returns -1 if no recordset is created
Dim conn As Connection Dim rs As New ADODB.Recordset Dim strSQL As String Dim RowCount As Long Dim LowMedian As Double, HighMedian As Double
'Open a recordset on the table. Set conn = CurrentProject.Connection strSQL = "SELECT " & FieldName & " FROM " & TableName ' et ça continue ... '========================================= >> --
A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonsoir,
Remplaces :
Dim conn As Connection
par:
Dim conn As New ADODB.Connection
et tu ne devrais plus avoir d'erreur.
Tiens donc,
j'ai trouvé une équivalence de ce code en DAO que je maitrise mieux, et ça
passe maintenant correctement dans mon MDB.
Mais si vous trouvez une réponse à ma question pour ADO, je suis encore
intéressé d'apprendre.
"Ma Dalton" <Rantanplan@farwest.net> a écrit dans le message de
news:%23RWJxL5vFHA.1168@TK2MSFTNGP10.phx.gbl...
Bonjour,
j'ai récupéré ce code dans un MDB exemple chez MS
'================================== >>Public Function DMedian(FieldName As String, _
TableName As String, _
Optional Criteria As Variant) As Double
On Error GoTo Err_DMedian
'Returns the median of a given field in a given table.
'Returns -1 if no recordset is created
Dim conn As Connection
Dim rs As New ADODB.Recordset
Dim strSQL As String
Dim RowCount As Long
Dim LowMedian As Double, HighMedian As Double
'Open a recordset on the table.
Set conn = CurrentProject.Connection
strSQL = "SELECT " & FieldName & " FROM " & TableName
' et ça continue ...
'========================================= >>
--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Remplaces : Dim conn As Connection par: Dim conn As New ADODB.Connection
et tu ne devrais plus avoir d'erreur.
Tiens donc, j'ai trouvé une équivalence de ce code en DAO que je maitrise mieux, et ça passe maintenant correctement dans mon MDB.
Mais si vous trouvez une réponse à ma question pour ADO, je suis encore intéressé d'apprendre.
"Ma Dalton" a écrit dans le message de news:%
Bonjour,
j'ai récupéré ce code dans un MDB exemple chez MS '================================== >>Public Function DMedian(FieldName As String, _ TableName As String, _ Optional Criteria As Variant) As Double On Error GoTo Err_DMedian 'Returns the median of a given field in a given table. 'Returns -1 if no recordset is created
Dim conn As Connection Dim rs As New ADODB.Recordset Dim strSQL As String Dim RowCount As Long Dim LowMedian As Double, HighMedian As Double
'Open a recordset on the table. Set conn = CurrentProject.Connection strSQL = "SELECT " & FieldName & " FROM " & TableName ' et ça continue ... '========================================= >> --
A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Ma Dalton
Salut, C'est exact, l'ajout de « New ADODB. » corrige parfaitement le problème merci
"Eric" a écrit dans le message de news:
Bonsoir,
Remplaces : Dim conn As Connection par: Dim conn As New ADODB.Connection
et tu ne devrais plus avoir d'erreur.
Tiens donc, j'ai trouvé une équivalence de ce code en DAO que je maitrise mieux, et ça
passe maintenant correctement dans mon MDB.
Mais si vous trouvez une réponse à ma question pour ADO, je suis encore intéressé d'apprendre.
"Ma Dalton" a écrit dans le message de news:%
Bonjour,
j'ai récupéré ce code dans un MDB exemple chez MS '================================== > >>Public Function DMedian(FieldName As String, _ TableName As String, _ Optional Criteria As Variant) As Double On Error GoTo Err_DMedian 'Returns the median of a given field in a given table. 'Returns -1 if no recordset is created
Dim conn As Connection Dim rs As New ADODB.Recordset Dim strSQL As String Dim RowCount As Long Dim LowMedian As Double, HighMedian As Double
'Open a recordset on the table. Set conn = CurrentProject.Connection strSQL = "SELECT " & FieldName & " FROM " & TableName ' et ça continue ... '========================================= > >> --
A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Salut,
C'est exact, l'ajout de « New ADODB. » corrige parfaitement le problème
merci
"Eric" <f_framZZ@hotmail.com> a écrit dans le message de
news:e2Nbed8vFHA.3688@tk2msftngp13.phx.gbl...
Bonsoir,
Remplaces :
Dim conn As Connection
par:
Dim conn As New ADODB.Connection
et tu ne devrais plus avoir d'erreur.
Tiens donc,
j'ai trouvé une équivalence de ce code en DAO que je maitrise mieux, et
ça
passe maintenant correctement dans mon MDB.
Mais si vous trouvez une réponse à ma question pour ADO, je suis encore
intéressé d'apprendre.
"Ma Dalton" <Rantanplan@farwest.net> a écrit dans le message de
news:%23RWJxL5vFHA.1168@TK2MSFTNGP10.phx.gbl...
Bonjour,
j'ai récupéré ce code dans un MDB exemple chez MS
'================================== > >>Public Function DMedian(FieldName As String, _
TableName As String, _
Optional Criteria As Variant) As Double
On Error GoTo Err_DMedian
'Returns the median of a given field in a given table.
'Returns -1 if no recordset is created
Dim conn As Connection
Dim rs As New ADODB.Recordset
Dim strSQL As String
Dim RowCount As Long
Dim LowMedian As Double, HighMedian As Double
'Open a recordset on the table.
Set conn = CurrentProject.Connection
strSQL = "SELECT " & FieldName & " FROM " & TableName
' et ça continue ...
'========================================= > >>
--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Salut, C'est exact, l'ajout de « New ADODB. » corrige parfaitement le problème merci
"Eric" a écrit dans le message de news:
Bonsoir,
Remplaces : Dim conn As Connection par: Dim conn As New ADODB.Connection
et tu ne devrais plus avoir d'erreur.
Tiens donc, j'ai trouvé une équivalence de ce code en DAO que je maitrise mieux, et ça
passe maintenant correctement dans mon MDB.
Mais si vous trouvez une réponse à ma question pour ADO, je suis encore intéressé d'apprendre.
"Ma Dalton" a écrit dans le message de news:%
Bonjour,
j'ai récupéré ce code dans un MDB exemple chez MS '================================== > >>Public Function DMedian(FieldName As String, _ TableName As String, _ Optional Criteria As Variant) As Double On Error GoTo Err_DMedian 'Returns the median of a given field in a given table. 'Returns -1 if no recordset is created
Dim conn As Connection Dim rs As New ADODB.Recordset Dim strSQL As String Dim RowCount As Long Dim LowMedian As Double, HighMedian As Double
'Open a recordset on the table. Set conn = CurrentProject.Connection strSQL = "SELECT " & FieldName & " FROM " & TableName ' et ça continue ... '========================================= > >> --
A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
