Déclaration de type de données defini par l'utilisateur
4 réponses
Mrs Pomemboo
Bien le bonjour à tous,
Je tente de créer un type de données utilisateur que je veux peupler à
l'ouverture de mon application avec les données d'une table. Pour ce
faire, j'ai contruit le type suivant :
Const intNombreDonneeSysteme As Integer = 7
Public Type TYPEDONNEE
lngNoTypeDonnee As Long
blnLiaisonCommunication As Boolean
strNomDonnee As String
End Type
Maintenant, puisque j'ai plusieurs type de données, je tente de créer un
type avec dimension dont le upper sera ma constante, mais ça marche pas
!
Public Type TYPEDONNEE(1 TO intNombreDonneeSysteme) as integer
J'ai fait des tentatives, mais décidément, je comprends pas la syntaxe à
utiliser pour définir ma dimension.
Ce tableau sera utilisé dans l'ensemble de mes formulaires du genre
TypeDonnee(conTypeDonnee).lngTypeDonnee.
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
Bonjour Mrs Pomemboo.
faut pas donner le même nom. exemple:
Const intNombreDonneeSysteme As Integer = 7 Private Type TYPEDONNEE lngNoTypeDonnee As Long blnLiaisonCommunication As Boolean strNomDonnee As String End Type
Private Sub Commande0_Click() Dim montype(0 To intNombreDonneeSysteme) As TYPEDONNEE montype(0).lngNoTypeDonnee = 100 montype(0).blnLiaisonCommunication = True montype(0).strNomDonnee = "azerty" montype(1).lngNoTypeDonnee = 200 montype(1).blnLiaisonCommunication = False montype(1).strNomDonnee = "wxcvbn" End Sub
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"Mrs Pomemboo" a écrit dans le message de news:
Bien le bonjour à tous,
Je tente de créer un type de données utilisateur que je veux peupler à l'ouverture de mon application avec les données d'une table. Pour ce faire, j'ai contruit le type suivant :
Const intNombreDonneeSysteme As Integer = 7
Public Type TYPEDONNEE lngNoTypeDonnee As Long blnLiaisonCommunication As Boolean strNomDonnee As String End Type
Maintenant, puisque j'ai plusieurs type de données, je tente de créer un type avec dimension dont le upper sera ma constante, mais ça marche pas ! Public Type TYPEDONNEE(1 TO intNombreDonneeSysteme) as integer
J'ai fait des tentatives, mais décidément, je comprends pas la syntaxe à utiliser pour définir ma dimension.
Ce tableau sera utilisé dans l'ensemble de mes formulaires du genre TypeDonnee(conTypeDonnee).lngTypeDonnee.
Const intNombreDonneeSysteme As Integer = 7
Private Type TYPEDONNEE
lngNoTypeDonnee As Long
blnLiaisonCommunication As Boolean
strNomDonnee As String
End Type
Private Sub Commande0_Click()
Dim montype(0 To intNombreDonneeSysteme) As TYPEDONNEE
montype(0).lngNoTypeDonnee = 100
montype(0).blnLiaisonCommunication = True
montype(0).strNomDonnee = "azerty"
montype(1).lngNoTypeDonnee = 200
montype(1).blnLiaisonCommunication = False
montype(1).strNomDonnee = "wxcvbn"
End Sub
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.
"Mrs Pomemboo" <pomemboo@lino.com> a écrit dans le message de
news:OdbS6VVdDHA.2732@tk2msftngp13.phx.gbl...
Bien le bonjour à tous,
Je tente de créer un type de données utilisateur que je veux peupler à
l'ouverture de mon application avec les données d'une table. Pour ce
faire, j'ai contruit le type suivant :
Const intNombreDonneeSysteme As Integer = 7
Public Type TYPEDONNEE
lngNoTypeDonnee As Long
blnLiaisonCommunication As Boolean
strNomDonnee As String
End Type
Maintenant, puisque j'ai plusieurs type de données, je tente de créer un
type avec dimension dont le upper sera ma constante, mais ça marche pas
!
Public Type TYPEDONNEE(1 TO intNombreDonneeSysteme) as integer
J'ai fait des tentatives, mais décidément, je comprends pas la syntaxe à
utiliser pour définir ma dimension.
Ce tableau sera utilisé dans l'ensemble de mes formulaires du genre
TypeDonnee(conTypeDonnee).lngTypeDonnee.
Const intNombreDonneeSysteme As Integer = 7 Private Type TYPEDONNEE lngNoTypeDonnee As Long blnLiaisonCommunication As Boolean strNomDonnee As String End Type
Private Sub Commande0_Click() Dim montype(0 To intNombreDonneeSysteme) As TYPEDONNEE montype(0).lngNoTypeDonnee = 100 montype(0).blnLiaisonCommunication = True montype(0).strNomDonnee = "azerty" montype(1).lngNoTypeDonnee = 200 montype(1).blnLiaisonCommunication = False montype(1).strNomDonnee = "wxcvbn" End Sub
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"Mrs Pomemboo" a écrit dans le message de news:
Bien le bonjour à tous,
Je tente de créer un type de données utilisateur que je veux peupler à l'ouverture de mon application avec les données d'une table. Pour ce faire, j'ai contruit le type suivant :
Const intNombreDonneeSysteme As Integer = 7
Public Type TYPEDONNEE lngNoTypeDonnee As Long blnLiaisonCommunication As Boolean strNomDonnee As String End Type
Maintenant, puisque j'ai plusieurs type de données, je tente de créer un type avec dimension dont le upper sera ma constante, mais ça marche pas ! Public Type TYPEDONNEE(1 TO intNombreDonneeSysteme) as integer
J'ai fait des tentatives, mais décidément, je comprends pas la syntaxe à utiliser pour définir ma dimension.
Ce tableau sera utilisé dans l'ensemble de mes formulaires du genre TypeDonnee(conTypeDonnee).lngTypeDonnee.
Une tite question, pourquoi si mon type est défini dans un module de classe, je n'y ai pas accès à partir des autres modules même si je déclare mon type Public ?
Bonne fin de weekend ! -- Mrs Pomemboo (Québec, Canada) Charte : ...http://users.skynet.be/mpfa/ ...
Raymond wrote: || Bonjour Mrs Pomemboo. || || faut pas donner le même nom. exemple: || || Const intNombreDonneeSysteme As Integer = 7 || Private Type TYPEDONNEE || lngNoTypeDonnee As Long || blnLiaisonCommunication As Boolean || strNomDonnee As String || End Type || || Private Sub Commande0_Click() || Dim montype(0 To intNombreDonneeSysteme) As TYPEDONNEE || montype(0).lngNoTypeDonnee = 100 || montype(0).blnLiaisonCommunication = True || montype(0).strNomDonnee = "azerty" || montype(1).lngNoTypeDonnee = 200 || montype(1).blnLiaisonCommunication = False || montype(1).strNomDonnee = "wxcvbn" || End Sub || || || -- || @+ || Raymond Access MVP. || http://access.seneque.free.fr/ || http://users.skynet.be/mpfa/charte.htm pour une meilleure || efficacité de tes interventions sur MPFA. || || || "Mrs Pomemboo" a écrit dans le message de || news: ||| Bien le bonjour à tous, ||| ||| Je tente de créer un type de données utilisateur que je veux ||| peupler à l'ouverture de mon application avec les données d'une ||| table. Pour ce faire, j'ai contruit le type suivant : ||| ||| Const intNombreDonneeSysteme As Integer = 7 ||| ||| Public Type TYPEDONNEE ||| lngNoTypeDonnee As Long ||| blnLiaisonCommunication As Boolean ||| strNomDonnee As String ||| End Type ||| ||| Maintenant, puisque j'ai plusieurs type de données, je tente de ||| créer un type avec dimension dont le upper sera ma constante, mais ||| ça marche pas ! ||| Public Type TYPEDONNEE(1 TO intNombreDonneeSysteme) as integer ||| ||| J'ai fait des tentatives, mais décidément, je comprends pas la ||| syntaxe à utiliser pour définir ma dimension. ||| ||| Ce tableau sera utilisé dans l'ensemble de mes formulaires du genre ||| TypeDonnee(conTypeDonnee).lngTypeDonnee. ||| ||| Quelqu'un pourrait-il m'éclairer ma lanterne :-) ||| Bonne journée ! ||| -- ||| Mrs Pomemboo (Québec, Canada) ||| Charte : ...http://users.skynet.be/mpfa/ ...
Ahhhhhhhhhh.... ok... :-)
Merci bien Raymond, ça fonctionne tempête !
Une tite question, pourquoi si mon type est défini dans un module de
classe, je n'y ai pas accès à partir des autres modules même si je
déclare mon type Public ?
Bonne fin de weekend !
--
Mrs Pomemboo (Québec, Canada)
Charte : ...http://users.skynet.be/mpfa/ ...
Raymond wrote:
|| Bonjour Mrs Pomemboo.
||
|| faut pas donner le même nom. exemple:
||
|| Const intNombreDonneeSysteme As Integer = 7
|| Private Type TYPEDONNEE
|| lngNoTypeDonnee As Long
|| blnLiaisonCommunication As Boolean
|| strNomDonnee As String
|| End Type
||
|| Private Sub Commande0_Click()
|| Dim montype(0 To intNombreDonneeSysteme) As TYPEDONNEE
|| montype(0).lngNoTypeDonnee = 100
|| montype(0).blnLiaisonCommunication = True
|| montype(0).strNomDonnee = "azerty"
|| montype(1).lngNoTypeDonnee = 200
|| montype(1).blnLiaisonCommunication = False
|| montype(1).strNomDonnee = "wxcvbn"
|| End Sub
||
||
|| --
|| @+
|| Raymond Access MVP.
|| http://access.seneque.free.fr/
|| http://users.skynet.be/mpfa/charte.htm pour une meilleure
|| efficacité de tes interventions sur MPFA.
||
||
|| "Mrs Pomemboo" <pomemboo@lino.com> a écrit dans le message de
|| news:OdbS6VVdDHA.2732@tk2msftngp13.phx.gbl...
||| Bien le bonjour à tous,
|||
||| Je tente de créer un type de données utilisateur que je veux
||| peupler à l'ouverture de mon application avec les données d'une
||| table. Pour ce faire, j'ai contruit le type suivant :
|||
||| Const intNombreDonneeSysteme As Integer = 7
|||
||| Public Type TYPEDONNEE
||| lngNoTypeDonnee As Long
||| blnLiaisonCommunication As Boolean
||| strNomDonnee As String
||| End Type
|||
||| Maintenant, puisque j'ai plusieurs type de données, je tente de
||| créer un type avec dimension dont le upper sera ma constante, mais
||| ça marche pas !
||| Public Type TYPEDONNEE(1 TO intNombreDonneeSysteme) as integer
|||
||| J'ai fait des tentatives, mais décidément, je comprends pas la
||| syntaxe à utiliser pour définir ma dimension.
|||
||| Ce tableau sera utilisé dans l'ensemble de mes formulaires du genre
||| TypeDonnee(conTypeDonnee).lngTypeDonnee.
|||
||| Quelqu'un pourrait-il m'éclairer ma lanterne :-)
||| Bonne journée !
||| --
||| Mrs Pomemboo (Québec, Canada)
||| Charte : ...http://users.skynet.be/mpfa/ ...
Une tite question, pourquoi si mon type est défini dans un module de classe, je n'y ai pas accès à partir des autres modules même si je déclare mon type Public ?
Bonne fin de weekend ! -- Mrs Pomemboo (Québec, Canada) Charte : ...http://users.skynet.be/mpfa/ ...
Raymond wrote: || Bonjour Mrs Pomemboo. || || faut pas donner le même nom. exemple: || || Const intNombreDonneeSysteme As Integer = 7 || Private Type TYPEDONNEE || lngNoTypeDonnee As Long || blnLiaisonCommunication As Boolean || strNomDonnee As String || End Type || || Private Sub Commande0_Click() || Dim montype(0 To intNombreDonneeSysteme) As TYPEDONNEE || montype(0).lngNoTypeDonnee = 100 || montype(0).blnLiaisonCommunication = True || montype(0).strNomDonnee = "azerty" || montype(1).lngNoTypeDonnee = 200 || montype(1).blnLiaisonCommunication = False || montype(1).strNomDonnee = "wxcvbn" || End Sub || || || -- || @+ || Raymond Access MVP. || http://access.seneque.free.fr/ || http://users.skynet.be/mpfa/charte.htm pour une meilleure || efficacité de tes interventions sur MPFA. || || || "Mrs Pomemboo" a écrit dans le message de || news: ||| Bien le bonjour à tous, ||| ||| Je tente de créer un type de données utilisateur que je veux ||| peupler à l'ouverture de mon application avec les données d'une ||| table. Pour ce faire, j'ai contruit le type suivant : ||| ||| Const intNombreDonneeSysteme As Integer = 7 ||| ||| Public Type TYPEDONNEE ||| lngNoTypeDonnee As Long ||| blnLiaisonCommunication As Boolean ||| strNomDonnee As String ||| End Type ||| ||| Maintenant, puisque j'ai plusieurs type de données, je tente de ||| créer un type avec dimension dont le upper sera ma constante, mais ||| ça marche pas ! ||| Public Type TYPEDONNEE(1 TO intNombreDonneeSysteme) as integer ||| ||| J'ai fait des tentatives, mais décidément, je comprends pas la ||| syntaxe à utiliser pour définir ma dimension. ||| ||| Ce tableau sera utilisé dans l'ensemble de mes formulaires du genre ||| TypeDonnee(conTypeDonnee).lngTypeDonnee. ||| ||| Quelqu'un pourrait-il m'éclairer ma lanterne :-) ||| Bonne journée ! ||| -- ||| Mrs Pomemboo (Québec, Canada) ||| Charte : ...http://users.skynet.be/mpfa/ ...
Raymond
Tu ne peux avoir accès à la classe qu'en déclarant un objet de classe et il est interdit d'avoir des constantes, tableaux et types définis Public dans un module de classe.
tu peux très bien déclarer ceci dans un module standard:
Public Const intNombreDonneeSysteme As Integer = 7 Public Type TYPEDONNEE lngNoTypeDonnee As Long blnLiaisonCommunication As Boolean strNomDonnee As String End Type
et le reste dans un formulaire:
Dim montype(0 To intNombreDonneeSysteme) As TYPEDONNEE montype(0).lngNoTypeDonnee = 100 montype(0).blnLiaisonCommunication = True montype(0).strNomDonnee = "azerty" montype(1).lngNoTypeDonnee = 200 montype(2).blnLiaisonCommunication = False montype(3).strNomDonnee = "wxcvbn" End Sub
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"Mrs Pomemboo" a écrit dans le message de news:
Ahhhhhhhhhh.... ok... :-)
Merci bien Raymond, ça fonctionne tempête !
Une tite question, pourquoi si mon type est défini dans un module de classe, je n'y ai pas accès à partir des autres modules même si je déclare mon type Public ?
Bonne fin de weekend !
Tu ne peux avoir accès à la classe qu'en déclarant un objet de classe et il
est interdit d'avoir des constantes, tableaux et types définis Public dans
un module de classe.
tu peux très bien déclarer ceci dans un module standard:
Public Const intNombreDonneeSysteme As Integer = 7
Public Type TYPEDONNEE
lngNoTypeDonnee As Long
blnLiaisonCommunication As Boolean
strNomDonnee As String
End Type
et le reste dans un formulaire:
Dim montype(0 To intNombreDonneeSysteme) As TYPEDONNEE
montype(0).lngNoTypeDonnee = 100
montype(0).blnLiaisonCommunication = True
montype(0).strNomDonnee = "azerty"
montype(1).lngNoTypeDonnee = 200
montype(2).blnLiaisonCommunication = False
montype(3).strNomDonnee = "wxcvbn"
End Sub
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.
"Mrs Pomemboo" <pomemboo@lino.com> a écrit dans le message de
news:OZyGu1VdDHA.1932@TK2MSFTNGP10.phx.gbl...
Ahhhhhhhhhh.... ok... :-)
Merci bien Raymond, ça fonctionne tempête !
Une tite question, pourquoi si mon type est défini dans un module de
classe, je n'y ai pas accès à partir des autres modules même si je
déclare mon type Public ?
Tu ne peux avoir accès à la classe qu'en déclarant un objet de classe et il est interdit d'avoir des constantes, tableaux et types définis Public dans un module de classe.
tu peux très bien déclarer ceci dans un module standard:
Public Const intNombreDonneeSysteme As Integer = 7 Public Type TYPEDONNEE lngNoTypeDonnee As Long blnLiaisonCommunication As Boolean strNomDonnee As String End Type
et le reste dans un formulaire:
Dim montype(0 To intNombreDonneeSysteme) As TYPEDONNEE montype(0).lngNoTypeDonnee = 100 montype(0).blnLiaisonCommunication = True montype(0).strNomDonnee = "azerty" montype(1).lngNoTypeDonnee = 200 montype(2).blnLiaisonCommunication = False montype(3).strNomDonnee = "wxcvbn" End Sub
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"Mrs Pomemboo" a écrit dans le message de news:
Ahhhhhhhhhh.... ok... :-)
Merci bien Raymond, ça fonctionne tempête !
Une tite question, pourquoi si mon type est défini dans un module de classe, je n'y ai pas accès à partir des autres modules même si je déclare mon type Public ?
Bonne fin de weekend !
Mrs Pomemboo
Ok je vois. C'est ce que j'ai fait, déclarer le tout dans un module standard et l'appeller à partir d'un autre module !
Raymond wrote: || Tu ne peux avoir accès à la classe qu'en déclarant un objet de || classe et il est interdit d'avoir des constantes, tableaux et types || définis Public dans un module de classe. || || tu peux très bien déclarer ceci dans un module standard: || || Public Const intNombreDonneeSysteme As Integer = 7 || Public Type TYPEDONNEE || lngNoTypeDonnee As Long || blnLiaisonCommunication As Boolean || strNomDonnee As String || End Type || || et le reste dans un formulaire: || || Dim montype(0 To intNombreDonneeSysteme) As TYPEDONNEE || montype(0).lngNoTypeDonnee = 100 || montype(0).blnLiaisonCommunication = True || montype(0).strNomDonnee = "azerty" || montype(1).lngNoTypeDonnee = 200 || montype(2).blnLiaisonCommunication = False || montype(3).strNomDonnee = "wxcvbn" || End Sub || || || -- || @+ || Raymond Access MVP. || http://access.seneque.free.fr/ || http://users.skynet.be/mpfa/charte.htm pour une meilleure || efficacité de tes interventions sur MPFA. || || || "Mrs Pomemboo" a écrit dans le message de || news: ||| Ahhhhhhhhhh.... ok... :-) ||| ||| Merci bien Raymond, ça fonctionne tempête ! ||| ||| Une tite question, pourquoi si mon type est défini dans un module de ||| classe, je n'y ai pas accès à partir des autres modules même si je ||| déclare mon type Public ? ||| ||| Bonne fin de weekend !
Ok je vois. C'est ce que j'ai fait, déclarer le tout dans un module
standard et l'appeller à partir d'un autre module !
Raymond wrote:
|| Tu ne peux avoir accès à la classe qu'en déclarant un objet de
|| classe et il est interdit d'avoir des constantes, tableaux et types
|| définis Public dans un module de classe.
||
|| tu peux très bien déclarer ceci dans un module standard:
||
|| Public Const intNombreDonneeSysteme As Integer = 7
|| Public Type TYPEDONNEE
|| lngNoTypeDonnee As Long
|| blnLiaisonCommunication As Boolean
|| strNomDonnee As String
|| End Type
||
|| et le reste dans un formulaire:
||
|| Dim montype(0 To intNombreDonneeSysteme) As TYPEDONNEE
|| montype(0).lngNoTypeDonnee = 100
|| montype(0).blnLiaisonCommunication = True
|| montype(0).strNomDonnee = "azerty"
|| montype(1).lngNoTypeDonnee = 200
|| montype(2).blnLiaisonCommunication = False
|| montype(3).strNomDonnee = "wxcvbn"
|| End Sub
||
||
|| --
|| @+
|| Raymond Access MVP.
|| http://access.seneque.free.fr/
|| http://users.skynet.be/mpfa/charte.htm pour une meilleure
|| efficacité de tes interventions sur MPFA.
||
||
|| "Mrs Pomemboo" <pomemboo@lino.com> a écrit dans le message de
|| news:OZyGu1VdDHA.1932@TK2MSFTNGP10.phx.gbl...
||| Ahhhhhhhhhh.... ok... :-)
|||
||| Merci bien Raymond, ça fonctionne tempête !
|||
||| Une tite question, pourquoi si mon type est défini dans un module de
||| classe, je n'y ai pas accès à partir des autres modules même si je
||| déclare mon type Public ?
|||
||| Bonne fin de weekend !
Raymond wrote: || Tu ne peux avoir accès à la classe qu'en déclarant un objet de || classe et il est interdit d'avoir des constantes, tableaux et types || définis Public dans un module de classe. || || tu peux très bien déclarer ceci dans un module standard: || || Public Const intNombreDonneeSysteme As Integer = 7 || Public Type TYPEDONNEE || lngNoTypeDonnee As Long || blnLiaisonCommunication As Boolean || strNomDonnee As String || End Type || || et le reste dans un formulaire: || || Dim montype(0 To intNombreDonneeSysteme) As TYPEDONNEE || montype(0).lngNoTypeDonnee = 100 || montype(0).blnLiaisonCommunication = True || montype(0).strNomDonnee = "azerty" || montype(1).lngNoTypeDonnee = 200 || montype(2).blnLiaisonCommunication = False || montype(3).strNomDonnee = "wxcvbn" || End Sub || || || -- || @+ || Raymond Access MVP. || http://access.seneque.free.fr/ || http://users.skynet.be/mpfa/charte.htm pour une meilleure || efficacité de tes interventions sur MPFA. || || || "Mrs Pomemboo" a écrit dans le message de || news: ||| Ahhhhhhhhhh.... ok... :-) ||| ||| Merci bien Raymond, ça fonctionne tempête ! ||| ||| Une tite question, pourquoi si mon type est défini dans un module de ||| classe, je n'y ai pas accès à partir des autres modules même si je ||| déclare mon type Public ? ||| ||| Bonne fin de weekend !
