J'ai un ancien programme en VB5 avec un Data Control
Il me dit que j'ai une erreur de compilation
Voici l'erreur :
Fonction ou interface est mentionnée avec restriction ou la fonction utilise
un type Automation
non géré par Visual Basic.
Avant tout fonctionnais bien
Voici le code ou l'erreur arrive
Sub remplirListeLieu()
'Remplir la liste des lieux
cmbListeLieu.Visible = False
cmbListeLieu.Clear
If DataLieu.Recordset.RecordCount > 0 Then ******** mon erreur sur cet
ligne ******
DataLieu.Recordset.MoveFirst
Do While Not DataLieu.Recordset.EOF
cmbListeLieu.AddItem DataLieu.Recordset.Fields("Lieu")
DataLieu.Recordset.MoveNext
Loop
End If
cmbListeLieu.Visible = True
End Sub
-------------------------------------
Sur le load de ma feuille:
DataLieu.DatabaseName = SYS_appname + "\" + strNomBase
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
Axel Guerrier [MS]
Bonjour Yves,
Peut-être que DAO350.dll (ou DAO360) est mal enregistrée sur le poste...
Essaie un Regsvr32.exe...
-- Axel GUERRIER Microsoft France -------------------- Merci de bien vouloir répondre à ce message dans le newsgroup où il a été posté. Je le consulte régulièrement.
"Yves" wrote in message news:
Bonjour à tous,
J'ai un ancien programme en VB5 avec un Data Control
Il me dit que j'ai une erreur de compilation
Voici l'erreur :
Fonction ou interface est mentionnée avec restriction ou la fonction
utilise
un type Automation non géré par Visual Basic.
Avant tout fonctionnais bien
Voici le code ou l'erreur arrive Sub remplirListeLieu() 'Remplir la liste des lieux cmbListeLieu.Visible = False cmbListeLieu.Clear If DataLieu.Recordset.RecordCount > 0 Then ******** mon erreur sur cet ligne ****** DataLieu.Recordset.MoveFirst Do While Not DataLieu.Recordset.EOF cmbListeLieu.AddItem DataLieu.Recordset.Fields("Lieu") DataLieu.Recordset.MoveNext Loop End If cmbListeLieu.Visible = True End Sub ------------------------------------- Sur le load de ma feuille: DataLieu.DatabaseName = SYS_appname + "" + strNomBase
Programmeur/Analyste _________________________________________ Merci de répondre dans le newsgroup ,`:O)
La FAQ VB http://faq.vb.free.fr
API-Guide, indispensable pour les APIs http://www.allapi.net/agnet/apiguide.shtml
Mz-Tools, add-in pour VB http://www.mztools.com/
Bonjour Yves,
Peut-être que DAO350.dll (ou DAO360) est mal enregistrée sur le poste...
Essaie un Regsvr32.exe...
--
Axel GUERRIER
Microsoft France
--------------------
Merci de bien vouloir répondre à ce message dans le newsgroup où il a été
posté. Je le consulte régulièrement.
"Yves" <cpsqinfo@globetrotter.qc.ca> wrote in message
news:erW0SBeVDHA.2052@TK2MSFTNGP10.phx.gbl...
Bonjour à tous,
J'ai un ancien programme en VB5 avec un Data Control
Il me dit que j'ai une erreur de compilation
Voici l'erreur :
Fonction ou interface est mentionnée avec restriction ou la fonction
utilise
un type Automation
non géré par Visual Basic.
Avant tout fonctionnais bien
Voici le code ou l'erreur arrive
Sub remplirListeLieu()
'Remplir la liste des lieux
cmbListeLieu.Visible = False
cmbListeLieu.Clear
If DataLieu.Recordset.RecordCount > 0 Then ******** mon erreur sur cet
ligne ******
DataLieu.Recordset.MoveFirst
Do While Not DataLieu.Recordset.EOF
cmbListeLieu.AddItem DataLieu.Recordset.Fields("Lieu")
DataLieu.Recordset.MoveNext
Loop
End If
cmbListeLieu.Visible = True
End Sub
-------------------------------------
Sur le load de ma feuille:
DataLieu.DatabaseName = SYS_appname + "" + strNomBase
Peut-être que DAO350.dll (ou DAO360) est mal enregistrée sur le poste...
Essaie un Regsvr32.exe...
-- Axel GUERRIER Microsoft France -------------------- Merci de bien vouloir répondre à ce message dans le newsgroup où il a été posté. Je le consulte régulièrement.
"Yves" wrote in message news:
Bonjour à tous,
J'ai un ancien programme en VB5 avec un Data Control
Il me dit que j'ai une erreur de compilation
Voici l'erreur :
Fonction ou interface est mentionnée avec restriction ou la fonction
utilise
un type Automation non géré par Visual Basic.
Avant tout fonctionnais bien
Voici le code ou l'erreur arrive Sub remplirListeLieu() 'Remplir la liste des lieux cmbListeLieu.Visible = False cmbListeLieu.Clear If DataLieu.Recordset.RecordCount > 0 Then ******** mon erreur sur cet ligne ****** DataLieu.Recordset.MoveFirst Do While Not DataLieu.Recordset.EOF cmbListeLieu.AddItem DataLieu.Recordset.Fields("Lieu") DataLieu.Recordset.MoveNext Loop End If cmbListeLieu.Visible = True End Sub ------------------------------------- Sur le load de ma feuille: DataLieu.DatabaseName = SYS_appname + "" + strNomBase
Programmeur/Analyste _________________________________________ Merci de répondre dans le newsgroup ,`:O)
La FAQ VB http://faq.vb.free.fr
API-Guide, indispensable pour les APIs http://www.allapi.net/agnet/apiguide.shtml
Mz-Tools, add-in pour VB http://www.mztools.com/
Yves
Merci je vais essayer ça.
A+
"Axel Guerrier [MS]" a écrit dans le message de news:
Bonjour Yves,
Peut-être que DAO350.dll (ou DAO360) est mal enregistrée sur le poste...
Essaie un Regsvr32.exe...
-- Axel GUERRIER Microsoft France -------------------- Merci de bien vouloir répondre à ce message dans le newsgroup où il a été posté. Je le consulte régulièrement.
"Yves" wrote in message news: > Bonjour à tous, > > J'ai un ancien programme en VB5 avec un Data Control > > Il me dit que j'ai une erreur de compilation > > Voici l'erreur : > > Fonction ou interface est mentionnée avec restriction ou la fonction utilise > un type Automation > non géré par Visual Basic. > > Avant tout fonctionnais bien > > Voici le code ou l'erreur arrive > Sub remplirListeLieu() > 'Remplir la liste des lieux > cmbListeLieu.Visible = False > cmbListeLieu.Clear > If DataLieu.Recordset.RecordCount > 0 Then ******** mon erreur sur
cet
> ligne ****** > DataLieu.Recordset.MoveFirst > Do While Not DataLieu.Recordset.EOF > cmbListeLieu.AddItem DataLieu.Recordset.Fields("Lieu") > DataLieu.Recordset.MoveNext > Loop > End If > cmbListeLieu.Visible = True > End Sub > ------------------------------------- > Sur le load de ma feuille: > DataLieu.DatabaseName = SYS_appname + "" + strNomBase > > > msg = "SELECT DISTINCTROW [lieu].lieu " > msg = msg + "From [lieu] " > msg = msg + "ORDER BY [lieu].lieu DESC;" > DataLieu.RecordSource = msg > DataLieu.Refresh > > -- > -- > Cordialement > Yves > > Programmeur/Analyste > _________________________________________ > Merci de répondre dans le newsgroup ,`:O) > > La FAQ VB > http://faq.vb.free.fr > > API-Guide, indispensable pour les APIs > http://www.allapi.net/agnet/apiguide.shtml > > Mz-Tools, add-in pour VB > http://www.mztools.com/ > >
Merci je vais essayer ça.
A+
"Axel Guerrier [MS]" <axelg@online.microsoft.com> a écrit dans le message de
news:eL1BORpVDHA.2000@TK2MSFTNGP09.phx.gbl...
Bonjour Yves,
Peut-être que DAO350.dll (ou DAO360) est mal enregistrée sur le poste...
Essaie un Regsvr32.exe...
--
Axel GUERRIER
Microsoft France
--------------------
Merci de bien vouloir répondre à ce message dans le newsgroup où il a été
posté. Je le consulte régulièrement.
"Yves" <cpsqinfo@globetrotter.qc.ca> wrote in message
news:erW0SBeVDHA.2052@TK2MSFTNGP10.phx.gbl...
> Bonjour à tous,
>
> J'ai un ancien programme en VB5 avec un Data Control
>
> Il me dit que j'ai une erreur de compilation
>
> Voici l'erreur :
>
> Fonction ou interface est mentionnée avec restriction ou la fonction
utilise
> un type Automation
> non géré par Visual Basic.
>
> Avant tout fonctionnais bien
>
> Voici le code ou l'erreur arrive
> Sub remplirListeLieu()
> 'Remplir la liste des lieux
> cmbListeLieu.Visible = False
> cmbListeLieu.Clear
> If DataLieu.Recordset.RecordCount > 0 Then ******** mon erreur sur
cet
> ligne ******
> DataLieu.Recordset.MoveFirst
> Do While Not DataLieu.Recordset.EOF
> cmbListeLieu.AddItem DataLieu.Recordset.Fields("Lieu")
> DataLieu.Recordset.MoveNext
> Loop
> End If
> cmbListeLieu.Visible = True
> End Sub
> -------------------------------------
> Sur le load de ma feuille:
> DataLieu.DatabaseName = SYS_appname + "" + strNomBase
>
>
> msg = "SELECT DISTINCTROW [lieu].lieu "
> msg = msg + "From [lieu] "
> msg = msg + "ORDER BY [lieu].lieu DESC;"
> DataLieu.RecordSource = msg
> DataLieu.Refresh
>
> --
> --
> Cordialement
> Yves
>
> Programmeur/Analyste
> _________________________________________
> Merci de répondre dans le newsgroup ,`:O)
>
> La FAQ VB
> http://faq.vb.free.fr
>
> API-Guide, indispensable pour les APIs
> http://www.allapi.net/agnet/apiguide.shtml
>
> Mz-Tools, add-in pour VB
> http://www.mztools.com/
>
>
"Axel Guerrier [MS]" a écrit dans le message de news:
Bonjour Yves,
Peut-être que DAO350.dll (ou DAO360) est mal enregistrée sur le poste...
Essaie un Regsvr32.exe...
-- Axel GUERRIER Microsoft France -------------------- Merci de bien vouloir répondre à ce message dans le newsgroup où il a été posté. Je le consulte régulièrement.
"Yves" wrote in message news: > Bonjour à tous, > > J'ai un ancien programme en VB5 avec un Data Control > > Il me dit que j'ai une erreur de compilation > > Voici l'erreur : > > Fonction ou interface est mentionnée avec restriction ou la fonction utilise > un type Automation > non géré par Visual Basic. > > Avant tout fonctionnais bien > > Voici le code ou l'erreur arrive > Sub remplirListeLieu() > 'Remplir la liste des lieux > cmbListeLieu.Visible = False > cmbListeLieu.Clear > If DataLieu.Recordset.RecordCount > 0 Then ******** mon erreur sur
cet
> ligne ****** > DataLieu.Recordset.MoveFirst > Do While Not DataLieu.Recordset.EOF > cmbListeLieu.AddItem DataLieu.Recordset.Fields("Lieu") > DataLieu.Recordset.MoveNext > Loop > End If > cmbListeLieu.Visible = True > End Sub > ------------------------------------- > Sur le load de ma feuille: > DataLieu.DatabaseName = SYS_appname + "" + strNomBase > > > msg = "SELECT DISTINCTROW [lieu].lieu " > msg = msg + "From [lieu] " > msg = msg + "ORDER BY [lieu].lieu DESC;" > DataLieu.RecordSource = msg > DataLieu.Refresh > > -- > -- > Cordialement > Yves > > Programmeur/Analyste > _________________________________________ > Merci de répondre dans le newsgroup ,`:O) > > La FAQ VB > http://faq.vb.free.fr > > API-Guide, indispensable pour les APIs > http://www.allapi.net/agnet/apiguide.shtml > > Mz-Tools, add-in pour VB > http://www.mztools.com/ > >
