Sujet Précédent Sujet Suivant

Tuto VB/Access

Fermé
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 - 5 juin 2008 à 11:53
Rikkunter Messages postés 6021 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 9 novembre 2011 - 22 août 2008 à 16:18
Bonjour,

Je dois réaliser une base de temps avec le couple VB6 / Access.

Je recherche donc des tutos car je n'ai jamais utilisé ni l'un, ni l'autre.

Merci.
A voir également:

284 réponses

Précédent
Réponse 81 / 284
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
11 juin 2008 à 14:50
OUUUIIIIIIIIIIIIIIINNNNNNNNNNNNNNNNNNNNNNNNNNNN !!!!!!!!!!!!!!!!!!!!

0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
11 juin 2008 à 14:50
Qu'est ce que j'ai encore fait comme connerie ? :(
0
Réponse 82 / 284
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
11 juin 2008 à 14:56
Tu manipules des données directement de l'IHM vers la base de données ......... :(((
Alors qu'il y a un module pour faire la transition ....

Tu veux ajouter dans Table Ent_STD ... ModESEnt_STD sert à ça ... il suffit d'ajouter la méthode pour le faire. Comme ça, ensuite, n'importe où dans ton code tu pourras passer par cette méthode pour ajouter des enregistrement dans la table Ent_STD ... sans être obligé de tout réécrire ... et je pense que ta méthode ne marche pas ...
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
11 juin 2008 à 14:58
La prochaine fois que je vois mes profs je les engueulent.
Ils avaient qu'à nous apprendre le vb.

Bon j'éssaye ça. ;)
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204 > MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011
11 juin 2008 à 15:05
Oui tu peux les engueuler mais VB n'a rien à voir la dedans ... ils t'ont "appris" quoi comme langages ?
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146 > Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016
11 juin 2008 à 15:12
En gros Java.
Mais ils ont commencé l'objet alors qu'on avait quasiment pas les bases.

Ils ont essayé avec le C, mais en quelques heures à peines. (j'ai toujours du mal avec l'histoire des pointeurs).

Heureusement que j'ai pas mal travaillé chez moi pour le PHP/HTML/CSS, sinon j'aurais été mal.

Un peu de XML aussi.

Mais quand je suis arrivé ça ne faisait qu'un an que cette section était ouverte.
Et ça c'est vu ... :S
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204 > MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011
11 juin 2008 à 15:16
si tu as fait du PHP/HTML/CSS, tu n'as surement pas tout mélangé ... enfin je l'espère, sinon je prie pour ne pas à avoir un jour de la maintenance à y faire ... XD
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146 > Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016
11 juin 2008 à 15:21
Naaaan.

J'arrive même à faire de l'objet en php.

Pis je met tout le CSS dans une feuille séparée. S'plus clair. :)
0
Réponse 83 / 284
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
11 juin 2008 à 15:38
Je crois que je vais te demander un petit coup de main là parce que je me noie.

Déjà je ne sais pas si je dois affecter ma requête à une variable et utiliser cette variable après, ou utiliser CommandText.
0
Réponse 84 / 284
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
11 juin 2008 à 15:39
Eh bien résonne en objet, même avec VB ... le principe reste identique. D'ailleur VB manipule des objets, ça doit pouvoir t'aider.

Pour info : je ne suis venu à l'informatique que pour une réorientation professionnelle (j'ai été 15 ans qualiticien et 8 ans responsable commercial avant) ... j'ai suivi une formation de 12 mois avec un stage en entreprise de 2 mois. Pendant la formation, on a survolé le VB, le HTML, PHP et autres langages. La formation était plutôt orientée base de données (client/serveur), spécifications et conceptions.
Le langage n'est qu'une question de syntaxe. Mais les mécaniques et raisonnement pour faire fonctionner une appli restent les mêmes quelque soit le langage. J'ai fait des appli en Java, en C et C++, en VB et même des applis pour du net avec PHP, Ajax, Javascript etc ... sans parler des bases de données ...

Il y a assez de tutos ou forums sur le net pour trouver des solutions à un problème. Il y a aussi de très bons livres dédiés à chaque langage.

Si tu as appris le Java en cours, tu dois savoir ce qu'est l'encapsulation des données et des méthodes liées aux données, je pense. Il en est de même pour VB.

voili voilou ...

Ne fais pas une fixation sur le langage, mais concentres toi sur l'organisation de tes données ...
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 85 / 284
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
11 juin 2008 à 15:48
Si j'ai bonne mémoire (j'en doute) ... ce qui est chiant avec access c'est qu'il n'accepte pas les insert en SQL ... ça a peut être changer, mais il me semble qu'il faille faire un Add avant d'inserer les données.

Je vais regarder ça ...
0
Réponse 86 / 284
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
11 juin 2008 à 16:01
Bon ma journée est finie, je rentre chez moi.

Je reprendrais tout ça au calme demain matin après un peu de repos. :)

Bonne soirée à toi.
0
Réponse 87 / 284
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
11 juin 2008 à 16:02
Merci .. bonne soirée

A demain
0
Réponse 88 / 284
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
12 juin 2008 à 08:48
Salut, salut.

J'espère que vous allez bien. :)

Ba voui, je suis encore là.

Dites moi (si vous le savez bien entendu ^^), j'ai une erreur(pour changer) : "type défini par l'utilisateur non défini", sur la ligne "Set rs = New ADOBD.Recordset" de ma fonction.

Voici mon code : 
Function Insertion(ByVal un As String, ByVal deux As String, ByVal trois As String)
Dim rs As New ADODB.Recordset
Dim requete As String
Dim vrai As Boolean

    requete = "Insert into ent_std values ('" & un & "','" & deux & "','" & trois & "','','','','','','','','','')"
    Set rs = New ADOBD.Recordset
    rs.Open requete, ModuleBdD.cnx
    Insertion = True
     
End Function


Donc si vous avez une idée de mon problème, et si vous voulez m'aider (il y en a peut être qui ne veulent pas), j'accepte vos solutions avec grand plaisir.

Merci. :)
0
Rikkunter Messages postés 6021 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 9 novembre 2011 180
12 juin 2008 à 08:50
'Jour

Vous ai pas trop manqué hier :D ?

Désolée MrSlave, pas trop bossé avec ADOBD (je devrais mébon), donc pas trop d'idée là-dessus...
0
Réponse 89 / 284
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
12 juin 2008 à 08:57
SI tu nous as manquée.

http://www.commentcamarche.net/forum/affich 6743129 tuto vb access?page=4#238
0
Rikkunter Messages postés 6021 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 9 novembre 2011 180
12 juin 2008 à 08:59
Pour une fois que je manque à quelqu'un. (Ou que je parais manquer à quelqu'un :D)
0
Réponse 90 / 284
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
12 juin 2008 à 09:21
Salut les p'tits loups ... :o))

Alors pour l'erreur :

Dim rs As New ADODB.Recordset << ----- elle est là ...

Ceci dit ... je ne pense pas que ça marche quand même ... :DDD ... ça, c'est fait ...

Kikou Rikki ...

Si tu relis les posts d'hier tu verras que oui ton absence nous a chagriné ...

Voili voilu voilou et hop --->>> je suis parti boire mon café ...

;o)
0
Réponse 91 / 284
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
12 juin 2008 à 09:31
J'ai partiellement reglé mon problème. :)

Maintenant c'est une erreur "type donnée incompatible dans l'expression du critère"

Je n'ai plus que ça dans ma fonction : 
    Set rs = New ADODB.Recordset
    rs.Open "Insert into ent_std(id_std, lib_complement, lib_sujet, top_debut, top_fin, lib_std, mod_cal_retenu, date_last_calc, th_act, taux_alea, mod_cal_dernier_trn, lien_photo) values ('" & un & "','" & deux & "','" & trois & "','','','','','','','','','')", ModuleBdD.cnx
    rs.Close


C'est bizarre parce que tous mes champs sont des champs de texte. (Enfin 12 champs de texte et 1 champs numérique auto-incrémental).

Je vais bien finir par réussir une requête d'insertion, nom d'une pipe en bois ! :P
0
Réponse 92 / 284
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
12 juin 2008 à 09:40
Comme je te l'ai dit hier ... il ne faut pas indiquer l'identifiant qui est auto incrémenté en insertion automatique ... tu donnes plus de champs à mettre à jour que de données (ca va pas le faire) et pourquoi mettre les champs vides ???

Ca corrige ta requête SQL mais je doute que ça fasse ce que tu veux faire ...


Rikki qui est sur Access a peut être une idée ??

;o)

0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
12 juin 2008 à 09:43
Le champ auto incrémenté je ne l'ai mis que dans la définition de la table, pas dans les valeurs à insérées.

Et pis, avec SQL tu met les champs vides, je pensais donc que c'était la même chose ici.
0
Rikkunter Messages postés 6021 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 9 novembre 2011 180
12 juin 2008 à 09:48
Nop, comme je l'ai dit, pas encore touché à ADOBD, mais je peux regarder ce que je trouve...

(Pas tout compris le problème aussi .. ?)
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146 > Rikkunter Messages postés 6021 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 9 novembre 2011
12 juin 2008 à 09:48
Je veux juste pouvoir insérer des valeurs dans la table. -_-"
0
Rikkunter Messages postés 6021 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 9 novembre 2011 180 > MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011
12 juin 2008 à 09:53
Pardon pardon, mal lu...

Y a un petit truc qui me chipote par contre, où est-ce que tu montres que c'est en auto increment ?

Si je reprends ton code... 
rs.Open "Insert into ent_std(id_std, lib_complement, lib_sujet, top_debut, top_fin, lib_std, mod_cal_retenu, date_last_calc, th_act, taux_alea, mod_cal_dernier_trn, lien_photo) values ('" & un & "','" & deux & "','" & trois & "','','','','','','','','','')", ModuleBdD.cnx


C'est indiqué dans la déclaration de id_std ? Parce que j'ai pas tout le code moi hein, oublie pas ^^.
Donc vu que tu commences directement par qqch qui n'est pas numérique... Ca doit poser problème par là j'suppose (En gros je répète ce qu'à déjà dit Polux :( )
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146 > Rikkunter Messages postés 6021 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 9 novembre 2011
12 juin 2008 à 09:54
C'est Polux qui m'a dit de ne rien mettre. xD

Ma table est déjà créée (Access).
J'ai donc défini lors de la création le type du champ.
0
Réponse 93 / 284
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
12 juin 2008 à 10:00
dans un Insert tu indiques les champs où tu veux mettre des valeurs ... ce n'est pas la définition de la table ... 

Table maTable(id, champ1, champ2, champ3)

Insert Into myTable(champ1, champ3) value ('Papa', 'Maman')

ID   champ1    champ2     champ3
--------------------------------------------------
1     Papa                Maman


Pour Rikkounette ... l'insertion dans une table Access (ou autre) n'a rien à voir avec le type de connexion ... ADODB est un gestionnaire de connexion (on dit aussi "driver") ...

Vous avez les mêmes profs ??? :DDD

je vous laisse encore plancher sur le sujet ... j'ai une big réunion dans pas longtemps et je ne serai dispo que cet aprem ...

Et comme c'est en sciant que Léonard devint scie, c'est en programmant qu'on devient programmeur ...

;o)

EDIT: correction ... non vous avez pas les mêmes profs ... bien vue Rikki ;o)
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
12 juin 2008 à 10:05
...

Je suis deg'.

M'enfin ça marche.

En même temps, je n'ai jamais utilisé quelque chose après MaTable. :P

Moi je remplissait toujours avec des champs vide.

Je te remercie tout de même. Je vais pouvoir avancer maintenant.
Tu es mon sauveur. \o/
0
Rikkunter Messages postés 6021 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 9 novembre 2011 180
12 juin 2008 à 10:13
Ouaip désolée, pis suis pas trop réveillée et plutôt mal en point ce matin, donc bon faut pas m'en vouloir si je dis n'importe quoi xD

Rah j'm'en veux, des trucs aussi basiques en + ...
0
Réponse 94 / 284
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
12 juin 2008 à 11:19
Il y a un truc que je ne comprend pas dans ton code Polux.

Tu as une méthode fillStruct qui fait appel à inittab. 

With entStd
        .id_STD = -1
        .Lib_Verbe = ""
        .Lib_Complement = ""
        .Lib_Sujet = ""
        .Mod_cal_retenu = ""
    End With


Vu que Mod_cal_retenu est un champ de type texte je l'ai mis à "" et non à 0.
Mais quand je pointe sur Mod_cal_retenu, ça m'affiche .Mod_cal_retenu = 0.
Je ne comprend pas d'où vient le 0.

Idem, tout à l'heure sur le code : 
If Not IsNull(rs.Fields(8)) Then
            .Mod_cal_retenu = rs.Fields(8)
        Else
            .Mod_cal_retenu = ""
        End If


Si je pointais vers rs.Fields(8), ça m'affichait rs.Fields(8) = "M1" (donc là ça va).
Mais si je pointais toute la ligne, j'avais .Mod_cal_retenu = 0.

J'ai repris le code du début, mais je dois avouer que je ne comprend pas.

Je suis vraiment désolé de te prendre tout ton temps comme ça.
J'espère pouvoir te rendre la pareille un jour (m'enfin ça m'étonnerais vu mes connaissances par rapport aux tiennes ^^).
0
Réponse 95 / 284
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
12 juin 2008 à 12:48
dans le module modent_std il faut aussi changer le type dans la structure : 
Private Type TabEnt_STD
    id_STD As Long
    Lib_Verbe As String
    Lib_Complement As String
    Lib_Sujet As String
    Mod_calc_retenu As String
End Type


ça doit le faire ...
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
12 juin 2008 à 12:55
J'enchaine les questions stupides. ^^

Encore une fois merci. :)
0
Réponse 96 / 284
Rikkunter Messages postés 6021 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 9 novembre 2011 180
12 juin 2008 à 12:55
J'espère vous avez bien mangé :)

Je viens de me rendre compte d'une nouvelle catastrophe naturelle, après avoir recommencé un bout de mon applic sur Access avec un backup tout moisi, je vois que tous les formulaires sont effacés après que je sois allée manger...

Je sais plus quoi penser.

EDIT : Aha. En supprimant puis rajoutant les tables liées, les formulaires se font la malle ? Génial, ça ...
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
12 juin 2008 à 13:04
Moi j'ai bien mangé. J'espère que vous aussi.

Un petit digestif ?

Quand à toi Rikk, passe sur Mysql. xD
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
12 juin 2008 à 13:05
Pas eu le temps de manger ... la réunion a fini tard. Je vais aller grignoter à la cafette.

Peux pas te dire pour tes formulaires ...dsl :-(

;o)

PS: café bien fort à mon retour, svp ...
0
Rikkunter Messages postés 6021 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 9 novembre 2011 180 > MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011
12 juin 2008 à 13:10
Je suis sur MySQL...
0
Rikkunter Messages postés 6021 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 9 novembre 2011 180 > Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016
12 juin 2008 à 13:11
Non là j'ai un truc encore plus drôle... J'ai tous mes formulaires, mais ils sont en copies genre 40-50x chacun, voire plus...

Personne n'a de corde, dites ?

EDIT : En fait ça se rapproche plutôt des 200-300 copies.... *couic*
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146 > Rikkunter Messages postés 6021 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 9 novembre 2011
12 juin 2008 à 13:27
ctrl + A ; ctrl + X

Bonne journée. :)
0
Réponse 97 / 284
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
12 juin 2008 à 13:43
Bon alors et ce café bien fort ???.... l'est zou ???

Il est gros ton projet Rikki ?

0
Rikkunter Messages postés 6021 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 9 novembre 2011 180
12 juin 2008 à 13:46
Je laisse Slave servir le café ... ;)

Sinon euh, bah c'est censé gérer les absences de tous les élèves de l'école m'enfin...

Ca va être refait dans deux semaines vu que je connais déjà les solutions sur ce que je coincais... Mais ça frustre...
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146 > Rikkunter Messages postés 6021 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 9 novembre 2011
12 juin 2008 à 13:52
/me sert 2 café et un thé.

Si on peut t'aider .... :)
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204 > Rikkunter Messages postés 6021 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 9 novembre 2011
12 juin 2008 à 13:53
C'est clair ... que ça fout les boules ... mais, il faut voir le bon coté ... tu feras plus souvent des backup maintenant :DD

"Censé gérer les absences des élèves" ... vous programmez les absences chez vous ???
avec un planning et tout et tout ? ^^

mouais c'est moyen ...

MrSlave a l'air de mieux s'en sortir maintenant ... il fait des Insert à tour de bras with two fingers in the nose ...
0
Rikkunter Messages postés 6021 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 9 novembre 2011 180 > Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016
12 juin 2008 à 13:59
Na na, pas les prévoir... Les enregistrer, et aussi gérer les coches des élèves, et les compensations (retenues chez le concierge, itou itou)

Pour le moment, ça va. C'est le courage qu'il me faut.

Contente que Slave se débrouille with two fingers in the nose :p
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146 > Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016
12 juin 2008 à 14:01
Euh ... Polux ?

Est ce que tu sais à quoi correspond l'erreur :
"Méthode ou membre de donnée introuvable" ?

Parce qu'en fait au lieu d'utiliser la table ent_std pour verbes, sujets ... je dois utiliser une table element (qui comporte des champs différents).
J'ai donc changer tout ce qui avait attrait à ent_std mais je une erreur dans le id_element de fillstruct.

Est que tu sais d'où ça pourrait venir ?

Ps : finger in the nose ?
Mwai, on verra demain. xD
0
Réponse 98 / 284
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
12 juin 2008 à 14:04
vu d'ici ... non je vois pas ... mais si tu mets ton code ... je vais peut être entrevoir le pourquoi du comment ...
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
12 juin 2008 à 14:09
Je ne vais peut être pas tout mettre. ^^ 

Private Type TabElement
    id_element As Long
    type_element As String
    Lib_element As String
    actif As Boolean
End Type

Public element As TabElement


Public Function getId_element() As Long
    getId_element = element.id_element
End Function


Public Sub initTableElement()
Dim query As String
Dim vrai As Boolean

    query = "Select Distinct * from element"
    Set rs = New ADODB.Recordset
    vrai = ModuleBdD.OpenRecordset(query, rs)
    If vrai = False Then
        MsgBox "Erreur initialisation table Element", vbExclamation, "ERREUR"
        Exit Sub
    Else
        Call fillStruct(rs)
    End If
    
End Sub

Public Sub initTab()

    With element
        .id_element = -1
        .type_element = ""
        .Lib_element = ""
        .actif = ""
    End With
    
End Sub


FillStruct : 
Public Sub fillStruct(rs As ADODB.Recordset)

    initTab
    With entStd
    
        If Not IsNull(rs.Fields(0)) Then
            .id_element = rs.Fields(0)
        Else
            .id_element = 0
        End If ...


Besoin d'autre chose ? ;)
0
Réponse 99 / 284
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
12 juin 2008 à 14:16
Première erreur: 
Public Sub fillStruct(rs As ADODB.Recordset)

    initTab
    With entStd     '<<--------- l'erreur ici   Mettre With element
...


Deuxième erreur 
Public Sub initTab()

    With element
        .id_element = -1
        .type_element = ""
        .Lib_element = ""
        .actif = ""    <<-------------------- type booléen dans la structure mettre False par défaut.
    End With
    
End Sub


Voili voilou :O))

0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
12 juin 2008 à 14:19
...

J'suis désolé de t'embêter pour des erreurs comme ça.
Ce n'est que de l'inattention.

Merci. :)
0
Réponse 100 / 284
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
12 juin 2008 à 14:21
bâh, ça arrive à tout le monde ... même au plus expérimenté, quand on a la tête dans le guidon on ne voit pas toujours tout ... :o)
0

Discussions similaires

Exemple de base de données access
Abdlahsaki -
Fleptche -

9 réponses
Erreur 403: You don't have permission to access on this server ?
yamelle -
WolfTenBA -

19 réponses
Sécurité réseau
Astafor99 -
Astafor99 -

4 réponses