1

Voilà actuellement je suis en train de monter une base de donnée avec tout ce qu'il faut. Mais j'aimerai savoir si il est possible par exemple à partir d'une fenetre qui donne le nom et prenom de la personne et faisant un double clic dessus qu'apparaisse sur la même feuille toutes les informations relative à la personne (adresse, tel. etc, mais sachant qu'avant de faire le double clic tout était cacher avant sauf la fenetre ou apparait nom et prénom smile)

Par quel moyen dois-je m'y prendre? Macro? Programmation? Ou existe-t-il un système dans Access qui permet de le faire?
avatar
Webmaster du site aB-)(-AwS http://www.ab-aws.fr.st/

2

le plus simple est d'utiliser VBA
avatar
Webmaster du site Ti-FRv3 (et aussi de DevLynx)
Si moins de monde enculait le système, alors celui ci aurait plus de mal à nous sortir de si grosses merdes !
"L'erreur humaine est humaine"©Nil (2006) // topics/6238-moved-jamais-jaurais-pense-faire-ca

3

Ok je vais mijoter alors quelques codes.
avatar
Webmaster du site aB-)(-AwS http://www.ab-aws.fr.st/

4

utilise pas access sick

5

Lol c'est dans mon programme pas le choix, la boîte où je suis l'utilise.

Voilà maintenant j'ai un autre problème. J'ai réussi donc à faire ce que je voulais faire avec ces lignes ci_dessous:

Private Sub Modifiable24_AfterUpdate()
On Error Resume Next
Me.PRENOM.Requery
Me.PRENOM = Me.Modifiable24.Column(1)
Me.NOM.Requery
Me.NOM = Me.Modifiable24.Column(2)
Me.SERVICE.Requery
Me.SERVICE = Me.Modifiable24.Column(6)
End Sub

Mais maintenant mon autre problème c'est que j'ai une case "chercher" où se trouve la recherche des noms et prénoms et dés que je clique dessus elle met à jour toutes mes autres boites de dialogues d'où les instructions au dessus roll . Met mon problème est que dans ma base de donnée il y a des cases vides (donc des Null).

Donc des fois quand je cherche un nom dans la case "service" j'ai rien, or il m'affichait une erreur pour l'enlever j'ai mis cette phrase "on error resume next".

Mais maintenant mon problème (et il est pas petit) c'est que si je trouve un "nom" avec un "service" et qu'après je recherche de nouveaux un nouveau "nom" mais sans "service", je conserve l'ancien "service" (car dans ma base de donnée ce nom possédait pas de service).

Comment puis-je mettre à jour cette case? (pour qu'il n y ait plus rien dedans).
avatar
Webmaster du site aB-)(-AwS http://www.ab-aws.fr.st/

6

On Error Goto 100 
Me.PRENOM.Requery 
Me.PRENOM = Me.Modifiable24.Column(1) 
101 On Error Goto 200
Me.NOM.Requery 
Me.NOM = Me.Modifiable24.Column(2) 
201 On Error Goto 300
Me.SERVICE.Requery 
Me.SERVICE = Me.Modifiable24.Column(6) 
301 On Error Goto 0
Exit Sub
100 Me.PRENOM = ""
Resume 101
200 Me.NOM = ""
Resume 201
300 Me.SERVICE = ""
Resume 301
End Sub
avatar
Mes news pour calculatrices TI: Ti-Gen
Mes projets PC pour calculatrices TI: TIGCC, CalcForge (CalcForgeLP, Emu-TIGCC)
Mes chans IRC: #tigcc et #inspired sur irc.freequest.net (UTF-8)

Liberté, Égalité, Fraternité

7

Bah maintenant plus aucune de mes cases se met à jour avec ce que tu as mis Kevin. En gros dés que je fais une recherche maintenant il met plus du tout à jour mes cases en me prétendant qu'il n'y a aucune information alors qu'avant de changer le code il y en avait.

J'ai pas trop compris tout ce que tu as mis (fait dire que VBA, je sais faire apparaitre des messages et quelques autres trucs c 'est tout).

avatar
Webmaster du site aB-)(-AwS http://www.ab-aws.fr.st/

8

J'ai mieux compris ce que tu as voulu faire en potassant mon bouquin. En théorie ça aurait dû marcher...
avatar
Webmaster du site aB-)(-AwS http://www.ab-aws.fr.st/

9

Non je crois que c'est bon ce que tu as mis... Mais c'est la bade de donnée SQL sur laquelle je travaille qui intedit les "chaînes vides".

avatar
Webmaster du site aB-)(-AwS http://www.ab-aws.fr.st/

10

Donc j'ai légèrement modifié le code pour que tout cela marche:

On Error Goto 100
Me.PRENOM.Requery
Me.PRENOM = Me.Modifiable24.Column(1)
101 On Error Goto 200
Me.NOM.Requery
Me.NOM = Me.Modifiable24.Column(2)
201 On Error Goto 300
Me.SERVICE.Requery
Me.SERVICE = Me.Modifiable24.Column(6)
301 On Error Goto 0
Exit Sub
100 Me.PRENOM = null
Resume 101
200 Me.NOM = null
Resume 201
300 Me.SERVICE = null
Resume 301
End Sub

Je dis encore merci à Kevin.
avatar
Webmaster du site aB-)(-AwS http://www.ab-aws.fr.st/

11

Mais maintenant j'ai un autre problème (et oui autant reste ici wink), voilà j'ai crée une nouvelle fenêtre mais j'aimerai que les informations de la fenêtre précédente soit récupérer et se mette automatiquement en affichage, comment puis-je faire?

A chaque fois moi ça se met jamais à jour... Je veux bien un nouveau coup de main de Kevin.


avatar
Webmaster du site aB-)(-AwS http://www.ab-aws.fr.st/

12

Tu peux passer les informations directement d'un Form à l'autre. Dans le premier Form, avant de faire ton Form2.Show, tu appelles une méthode Form2.InitializeFields. Dans le deuxième, tu définis cette méthode et l'utilises pour initialiser les champs. Pas très propre parce que tu passes à côté de la base de données, mais ça devrait marcher.

Pour une solution plus propre, essaye de forcer un commit dans la base de données.
avatar
Mes news pour calculatrices TI: Ti-Gen
Mes projets PC pour calculatrices TI: TIGCC, CalcForge (CalcForgeLP, Emu-TIGCC)
Mes chans IRC: #tigcc et #inspired sur irc.freequest.net (UTF-8)

Liberté, Égalité, Fraternité

13

Je voulais savoir j'arrive pas à récupérer dans ma base de donnée une information avec Requery. Base de donne accès (base sql en gros), ma principale information qui est mon numéro de client est qui mis en numéro. auto. je n'arrive pas à la récuperer!

Tu as une idée car là je sèche ?
avatar
Webmaster du site aB-)(-AwS http://www.ab-aws.fr.st/

14

Franchement, là, je n'ai aucune idée. sad
avatar
Mes news pour calculatrices TI: Ti-Gen
Mes projets PC pour calculatrices TI: TIGCC, CalcForge (CalcForgeLP, Emu-TIGCC)
Mes chans IRC: #tigcc et #inspired sur irc.freequest.net (UTF-8)

Liberté, Égalité, Fraternité

15

Erf va falloir que je travaille dessus plus profondement. J'ai posté un message dans un forum spécialisé Visual Basic, "wait and see".
avatar
Webmaster du site aB-)(-AwS http://www.ab-aws.fr.st/

16

"Tu peux passer les informations directement d'un Form à l'autre. Dans le premier Form, avant de faire ton Form2.Show, tu appelles une méthode Form2.InitializeFields. Dans le deuxième, tu définis cette méthode et l'utilises pour initialiser les champs. Pas très propre parce que tu passes à côté de la base de données, mais ça devrait marcher. "


C'est à dire? Tu n'as pas un exemple? Car là j'ai du mal à te suivre.
avatar
Webmaster du site aB-)(-AwS http://www.ab-aws.fr.st/

17

Car imaginons que ma 1ere fenêtre s'appelle "modifiable24" et que c'est là ou se trouve toutes les info genre Nom, Prenom etc.
Et que dans ma nouvelle fenetre appelé "modifiable25" je veux que les infos de la fenetre précédente (le 24) se remettent automatiquement sur celle-ci (la 25),
dois je mettre les forms uniquement dans le 25? Et as tu un exemple sur une ligne, car je vois comment tu peux tirer une info. comme ça?
avatar
Webmaster du site aB-)(-AwS http://www.ab-aws.fr.st/

18

Je ne suis pas vraiment un expert de Access (je connais le VB/VBA à la base, mais je ne connais pas du tout le modèle d'objets de Access), mais essaye un truc du genre:
modifiable25.SetData nom, prenom
avec dans ton modifiable25:
Public Sub SetData (nom$, prenom$)
Me.NOM=nom$
Me.PRENOM=prenom$
End Sub

Attention, ça m'étonnerait que ça marche tel quel, mais ça devrait te donner l'idée.
avatar
Mes news pour calculatrices TI: Ti-Gen
Mes projets PC pour calculatrices TI: TIGCC, CalcForge (CalcForgeLP, Emu-TIGCC)
Mes chans IRC: #tigcc et #inspired sur irc.freequest.net (UTF-8)

Liberté, Égalité, Fraternité