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

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:43
Décidément ça n'en fini plus.
Je crois que je vais avoir besoin d'un petit conseil. :)

Parce qu'en fait les verbes, sujets et complément seront tous mélangés dans lib_element.
Ce qui les différenciera sera type_element (V, S ou C).

Je pensais donc faire (pour récupérer les verbes):
queryV = "Select Distinct lib_element from element where type_element = V"
    Set rsV = New ADODB.Recordset
    vraiV = ModuleBdD.OpenRecordset(queryV, rsV)

Ainsi que :
Public Function getlib_verbe() As String
    getlib_verbe = rsV.Fields(0)
End Function

Et après j'appelle getlib_verbe.

Mais j'ai une erreur qui me dit que mon objet est fermé.
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 à 14:49
l'erreur vient de là:
Public Function getlib_verbe() As String 
   getlib_verbe = rsV.Fields(0)  <<------ ça ne marche pas ça .. 
End Function


Si tu remplis bien la structure avec fillStruct(), tu dois faire :
Public Function getlib_verbe() As String 
   getlib_verbe = element.lib_element
End Function


Ou tetechozekomecha ...
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 à 15:07
Bon c'est ce que j'ai fait.

J'ai quasiment tout repris pour element. (tabElement ...) et j'en ai recréé un pour mon truc.

M'enfin il me met que l'opération n'est pas autorisée si l'objet est fermé.
(et il pointe sur .lib_verbe = rsV.Fields(0)).

Est ce que tu sais de quoi ça vient ?
Une définition manquante, .... ?
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 à 15:17
peux-tu me faire passer le module stp ...

De plus je viens de voir ça:
queryV = "Select Distinct lib_element from element where type_element = V"

ca doit être plutôt ça :
queryV = "Select Distinct lib_element from element where type_element = 'V'"

toujours le problème de chaine de caractères dans un code SQL ...

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 à 15:21
http://www.cijoint.fr/cjlink.php?file=cj200806/cijVQz7Rwa.zip

Mais je n'ai pas encore touché aux dernières fonctions. :S
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 à 15:39
Bon j'ai situé l'erreur.

Ça bloque au niveau du lirePremier.
Ça rentre dans :
If ModuleBdD.RSLireSuivant(rs) = False Then
        LireSuivant = False
        Exit Function
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 à 15:23
6 pages exclusivement pour MrSlave, ça mérite une ovation \o/

Mon applic reprends peu à peu des couleurs, et je la fait encore mieux que la V1... À tout malheur est bon gnagna.... Je sais plus le proverbe exact :D
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 à 15:26
Pour le geek moyen :

A tout malheur, tu te fais chier des heures.

(ba oui quand faut que tu te retape quelques milliers de lignes de codes à cause d'une save qui n'a pas fonctionné).
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 à 15:28
Merci quand même pour la compassion.
0

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

Posez votre question
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 à 15:45
Au café il aurait fait un tabac ....

Bon, Slave je crois que tu te fais des trous dans le cerveau là ...

La fonction searchIdByItem() est adaptée à ce que tu recherches. Tu passes en paramètre à ta fonction le champ sur lequel il faut faire la recherche qui est égal à l'item passé en paramètre ... tu n'as pas besoin de faire une structure uniquement pour ça. Ce qui existe déjà (comme dans ModEsEnt_STD) est largement suffisant.

Il suffit de faire dans le module qui a besoin de récup lib_element:

vrai = ModESElement.searchIdByItem("type_element", "V")


Ensuite pour lire, il suffit de faire :
maVariable = ModESElement.getLib_element


;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 à 15:55
Je crois que je vais aller me coucher, ça vaut mieux.

Ps : je crois que mon pc est aussi décalé que moi. xD
Maintenant VisualStudio bloque dès que je tente de compiler le code.
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 à 15:56
Je crois que je vais aller me coucher, ça vaut mieux.

Traduire par : Il est 16h, jenaimarre, j'me casse


Pfff, encore 1 heure >:)
Bonne soirée Slave.
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 à 15:58
Tu veux me jeter dehors ? :'(

J'ai pas encore fini. Il me reste 2 min. ^^
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 à 15:59
Je te hais :(
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 à 16:00
Puisque c'est comme ça je vais y aller.

Direction l'IUT pour finir, imprimer et rendre le rapport.

Je pense rentrer chez moi vers 20/21h. Sauf si je sors. :)

Bonne soirée à vous.
Et à demain (j'aurais encore pleins de questions).
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 à 16:11
Oups ... j'ai manqué la sortie de Slave ... bon ben, bonne soirée à toi ...

Moi avec tout ça, j'ai pas tout fini ma maquette pour demain ... mais bon, j'ai fait l'essentiel, le reste c'est la garniture pas indispensable.

Bonne soirée à toi aussi Rikki.

kissouuu à demain

;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 à 16:15
Tu devrais te faire payer par Slave ;p

Bonne soirée à toi aussi :)

À d'main :)
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 à 16:25
arfff c'est dans le cadre d'un stage qu'il a besoin d'aide ... je ne le ferai pas sinon.

Merci ... bye bye
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 à 16:26
Je sais bien, et puis, je plaisantais :o)

~
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 à 16:30
A vous les suisses, vous plaisantez avec l'argent ... ^^
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 à 16:31
Raaah pff >:)
Sache que ce ne sont pas les Suisses qui sont favorisés en Banque, mais les étrangers qui viennent poser leur argent en Suisse... Nous, on a rien :)
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 à 16:38
Voilà j'ai fini les garnitures ... c'est tout beau ...

Je vais me rentrer chez mon moi ...

Bonne fin de soirée. reKisssouuu

;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 à 16:40
Félicitations :p

Encore 10 minutes moi, puis aspirine je pense ;x

Bonne soirée Polux, à demain :)
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
13 juin 2008 à 08:19
Salut les gens comment ça va bien ?

Toujours en forme sous ce beau soleil ?
0
Rikkunter Messages postés 6021 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 9 novembre 2011 180
13 juin 2008 à 08:23
Coucou bande de gens.

Beau soleil ? Le temps n'en fait qu'à sa tête depuis quelques jours, tout gris, pluie, éclaircie, grand soleil, chaud, nuages, tout gris, pluie, ...

Faim et soif aussi.
Mais ça va.

Et vous ?
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
13 juin 2008 à 08:33
Moi il fait beau, j'ai du kawa à portée de main, et j'ai demandé mon aprem pour pouvoir corriger, imprimer, relier et rendre mon rapport avant 16h.
Pis évidemment, je l'ai eu mon aprem.

Donc je fini ma journée à 12h. :)
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
13 juin 2008 à 08:45
Pourriture :)

T'arrives enfin au bout de ton stage ^^.
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
13 juin 2008 à 08:50
Je le fini vendredi prochain.

Mais je reste dans la société pour les mois de juillet de d'aout pour travailler. :)
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
13 juin 2008 à 08:52
Bonjour l'autre monde :o))

Eh ben je vois que ça commence fort ... que des mots aimables ... :o)

Et en plus une demi-journée pour l'ami Slave ... chouette ça !

Ici soleil aussi mais fraîcheur et ça va pas aller en s'arrangeant d'après la météo.

Je file au café et j'épluche ma boîte mail avant de commencer les hsotilités ...

@ ++

;o)
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
13 juin 2008 à 08:55
Salut Polux.

Pis t'as vu, c'est pas moi qui est méchant. :P
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
13 juin 2008 à 08:59
Tu m'as forcé la main faut dire.

Coucou Polux.

(Et je crève la dalle, ça n'arrange rien à mon humeur. Ca ira mieux dans une heure.)
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
13 juin 2008 à 09:07
Arrrffffffffff je le crois pas ... j'ai pas du me réveillé ce matin et je rêve encore là ... j'ai mis ma maquette sur le réseau hier soir ... ben y a des malins qui l'ont essayé et qui m'envoient des mails de beug parce que ça marche pas ..... c'est écris en gros que c'est une maquette ..... y a vraiment des tâches quand même... m'enfin ...

Rikki, tu n'as pas déjeuné ce matin ? ou alors tu es en pleine croissance :D ... ou alors c'est un truc de filles :DD

Bon quoiqu'il en soit, c'est vendredi et ce soir c'est le week .... alors journée cool et zen ...

;o)
0
Rikkunter Messages postés 6021 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 9 novembre 2011 180
13 juin 2008 à 09:14
Pas déjeuné T.T levée trop tard, juste le temps de me lever, préparer, partir pour le train...

La prochaine fois, écris Maquette en Caps Lock, au début et à la fin du nom du fichier, ptete ils comprendront :)

Waip, vendredi, journée tranquille... Vendredi 13 qui plus est pour les supersticieux, rien qu'un jour ordinaire :)
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
13 juin 2008 à 09:19
Tu prend le train tous les jours ? Oô

Pis je viens de finir mes combos, enfin .... :D
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
13 juin 2008 à 09:20
Bawai, je prends le train tous les jours, et ce, deux fois par jour. oo

Et encore, avant c'était 4.
Ma vie est passionnante :DD Stoo.
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
13 juin 2008 à 09:23
T'as combien de bornes à faire ?

Et ça te prend combien de temps tous les jours ?
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
13 juin 2008 à 09:24
~13 bornes, ~1mn/borne

:p
Ca va, ça réveille.

Vélo jusqu'à la gare, train jusqu'à la ville de l'école, marche jusqu'à ladite école.
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
13 juin 2008 à 09:37
p'tin ... c'est dur la vie en Suisse ...
Mais c'est si beau ...
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
13 juin 2008 à 09:38
Rien ne vaut les pyrénées. ;)
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
13 juin 2008 à 09:40
Je ne vois pas en quoi une chaîne de montagnes c'est beau x.u
Je déteste la montagne et tout ce qui touche à la neige, heureusement que je vis où y a pas de montagnes plein de neige, de chalet de bois et autre c*nneries du même style >:)

M'enfin, rancoeur personnelle... J'préfère une belle plage de sable, avec le soleil tapant...♥
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
13 juin 2008 à 09:48
Pour les Pyrénées, j'suis ok avec Slave ...

Par contre Rikki, énorme déception pour moi ... je t'imaginais comme Candie, vivant dans un petit chalet de bois au flan de la montagne au sommet blanc de neige, au milieu de vertes prairies peuplées de vaches ruminantes et toi courrant, tes tresses blondes au vent, parmis les fleurs des champs...

:O°
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
13 juin 2008 à 09:49
J'aime pas la plage.

Au moins en montagne la présence de l'Homme est moins flagrante.

On peut marcher tranquillement sans qu'un conn*** de vendeur de chouchou ou de beignets vienne te gueuler dans les oreilles.
On peut profiter du calme et de la tranquillité sans que le gamin d'un autre couple vienne t'exploser la tête avec un ballon pendant que tu essaye de dormir.
Tu peux prendre ton temps et profiter de la vie tout simplement sans être entouré de monde.

Je ne suis pas contre les gens, mais parfois ils me saoulent. ^^
J'aime la montagne, parce qu'un peu de calme ça fait un bien fou.

Et puis j'adore le fait de pouvoir marcher perdu dans ses pensées.
J'adore la sensation que tu as rendu en haut, quand tu te dis : "Je suis arrivé en haut".
J'adore voir le soleil se coucher derrière des pics enneigés.
J'adore voir ces montagnes dressées qui nous rappellent à chaque instant que l'Homme évolue peut être depuis des milliers d'année, mais elle étaient là avant nous et seront là bien après.
Et ce que j'aime par dessus, c'est apprécier le calme des cimes, et me dire que le monde devrait être comme ça :"calme, en paix, où tout le monde pourrait cohabiter".

Utopique, non ? :)
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
13 juin 2008 à 09:49
Pis avec la jupe volant au vent également. xD
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
13 juin 2008 à 10:12
Kisonkon, mékisonkon ... j'hallucine ... j'ai viré la maquette du réseau .. maintenant je reçois des mails pour me demander le runtime ou la dll parce qu'ils ont fait un raccourci sur le bureau et que ça marche plus ...
Je crois que je vais faire comme Slave ... à midi je pars en week end ... j'ai une grande fatigue là ...

:-s
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
13 juin 2008 à 10:15
xD

Sont terribles les gens dans ta boite.

/me va chercher un autre kawa pour Polux.
0
Rikkunter Messages postés 6021 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 9 novembre 2011 180
13 juin 2008 à 10:17
Bienvenue en France :) ...

Oooh c'était méchant ça.
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
13 juin 2008 à 10:23
Oui c'est vrai ...

D'un autre coté, chez nous, on fait des backups de nos bases de données très très régulièrement .. :DDD

et toc ... gna!

Merci pour le café ... me faut une cafetière pleine, je vais peut-être me réveiller comme ça ...

;o)
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
13 juin 2008 à 10:50
Je suis désolé de casser cette discussion avec mes problèmes mais j'ai une nouvelle question. :)

Je suis dans le moduleElement et je voudrais récupérer l'Id de l'en-tête standard (Id_std).
Je pensais donc utiliser getIdstd, mais il me renvoi 0. Je suppose que c'est parce que je ne lui indique pas vers quelle en-tête ponter.
Le problème c'est que je ne vois pas trop comment lui dire : "tu prend l'id de cette en-tête là !".
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
13 juin 2008 à 10:54
getIdStd est dans le module ModESEnt_STD, je crois ... dis moi ce que tu veux faire exactement. l'Id que tu veux récupérer doit surement être lié à une condition ?

;o)
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
13 juin 2008 à 11:00
Ba en fait je veux rajouter le mode de calcul par exemple dans une ligne de table que j'ai déjà créé.

Ex :
Id_std lib_verbe .... mod_cal_retenu
1 couper .... ?

Donc je récupère l'ID du std que je viens de créer pis je rajoute dans le champ mod_cal_retenu le mode de calcul que je passe en paramètre.
Je ne sais pas si je suis bien clair.
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
13 juin 2008 à 11:11
Si c'est le dernier enregistrement, il faut faire ModESEnt_STD.InitTableEnt_Std et ensuite faire LireDernier(). Tu auras le dernier Id_Std avec getId_STD.
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
13 juin 2008 à 11:29
J'ai fais ModESEnt_STD.InitTableEnt_Std
Puis vrai = ModESEnt_STD.LireDernier.
Et après je met l'insert dans une boucle : if vrai = true.

Mais il ne rentre pas dans ma boucle. :(
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
13 juin 2008 à 11:30
tu es dans quel module quand tu fais ça ?
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
13 juin 2008 à 11:33
J'ai éssayé dans ModESElement et MosESEnt_std. ^^
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
13 juin 2008 à 11:42
alors modifie liredernier dans ModESEnt_STD comme ça :
Public Function LireDernier(rs As ADODB.Recordset) As Boolean

    If ModuleBdD.RSLireDernier(rs) = False Then
        LireDernier = False
        Exit Function
    Else
        Call fillStruct(rs)
        LireDernier = True
    End If
    
End Function


Ensuite tu fais :
vrai = ModESEnt_STD.LireDernier(ModuleBdD.getRs)


et dis moi le résultat ...
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
13 juin 2008 à 11:47
Euh ... tu es sur que c'est ModuleBdD ?
Si c'est ça, il me met utilisation incorrecte de la propriété.
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
13 juin 2008 à 11:52
ok dans module ModuleBdb fait ça:

dans l'entête du module



et dans getRs :



EDIT :::: grosse erreur de ma part ... j'avais pas vérifié
Tu as raison c'est dans ModEsEnt_STD pas dans moduleBdD
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
13 juin 2008 à 11:55
Ça n'inscrit rien dans ma table.

Peut être une erreur de fonction ?
Function InsertionModCal(ByVal mod_cal As String)
Dim ValueId As Integer
Dim vrai As Boolean
     
     ModESEnt_STD.initTableEnt_STD
     vrai = ModESEnt_STD.LireDernier(ModuleBdD.getRs)
     If vrai = True Then
        ValueId = ModESEnt_STD.getIdStd
        Set rs = New ADODB.Recordset
        rs.Open "Insert into ent_std(id_std, mod_cal_retenu) values ('" & ValueId & "','" & mod_cal & "')", ModuleBdD.cnx
     End If
     
End Function
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
13 juin 2008 à 11:58
Id_Std est de type string ? et plus en mode auto incrémenté ???

rs.Open "Insert into ent_std(id_std, mod_cal_retenu) values ('" & ValueId & "','" & mod_cal & "')", ModuleBdD.cnx
End If
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
13 juin 2008 à 12:01
D'habitude je n'en met pas assez, là j'en met trop.

M'enfin ça ne marche toujours pas. :(
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
13 juin 2008 à 12:05
la requête doit faire un truc comme ça

"Insert into Ent_STD (mod_cal_retenu) values('" & mod_cal &"') Where id_Std = " & ModESEnt_Std.getIdStd & ";"

;o)
0