Une requete dans du VB ?

[elendil_de_sade]

J'ai créer une base, j'ai tout bien commencé, je suis en train de construire l'interface graphique de mon application.
J'ai des listes déroulantes, et un bouton, qui en fonction de la liste, renvoie sur un certain formulaire.
Le code donne ça :

Code: Tout sélectionner

Private Sub Commande12_Click()
'Declaration des variables
Dim nomeleve As String
Dim classeeleve As Integer
Dim categorieeleve As String

'Les variables prennent leurs valeurs
nomeleve = Modifiable5
classeeleve = Modifiable2
categorieeleve = Liste5


If Liste5 = "Retard" Or Liste5 = "Retenue" Then
    DoCmd.OpenForm "CasRetardRetenue"
Else
    If Liste5 = "Infirmerie" Then
        DoCmd.OpenForm "CasInfirmerie"
    Else
        If Liste5 = "Lettres envoyées" Then
            DoCmd.OpenForm "CasLettresEnvoyees"
        Else
            DoCmd.OpenForm "Cassinon"
        End If
    End If
End If
   
End Sub

Seulement. C'est que justement, ce bouton m'emmene sur un formulaire suivant. Et je veux qu'il affiche le nom de l'eleve qu'il y avais dans la liste déroulante (Modifiable5).
On m'as dit :

Code: Tout sélectionner

nomeleve=nom_de_ma_form.Modifiable5.list(nom_de_ma_form.Modifiable5.listindex)

Seulement, je ne sais pas s'il faut que je le mette dans le bouton "ok".
Et si sur la page suivante si c'est une etiquette ou une zone de texte que je dois mettre?

[PEx]

Hello,

Il me semble que les composants graphiques d'un formulaire (et le formulaire lui même) sont accessibles même s'ils ne sont pas ouvert.
Ainsi, dans tes formulaires suivants ("CasInfirmerie" par exemple) tu peux accéder à Modifiable5 et récupérer ses données avec
nom_de_ma_form.Modifiable5.list(nom_de_ma_form.Modifiable5.listindex)

A+.
PEx.

[elendil_de_sade]

Si on reste sur la meme page :
Modifiable5 est une liste déroulante
Texte20 se trouve sur le même formulaire

Code: Tout sélectionner

Texte20.Value = Modifiable5.Value

Ca marche !
Mais si texte 29 se trouve sur un autre formulaire

Code: Tout sélectionner

Texte29.Value = Modifiable5.Value

Ca ne marche pas

Code: Tout sélectionner

Texte29.Value = PageSaisieEleve.Modifiable5.list(PageSaisieEleve.Modifiable5.ListIndex)

Non plus...
Quelqu'un aurait il la bonne solution ?

[Franck78]

Fonces t'acheter un petit bouquin sur Access. Tu parles de truc basiques qui sont expliqués dans tout les sens.
Même dans l'aide en ligne.


Tu apprendras beaucoup plus et plus vite si c'est ton but...

Dans la propriété 'OnOpen' du formulaire tu places un bout de code qui pour résumer fait


GotoRecord ( ParamPasseAuFormulaireSiIlEstPresent);

[elendil_de_sade]

Probleme resolu :
Solution

Code: Tout sélectionner

forms![nomduformulaire]![texte29].value = Modifiable5.value

Merci qd même


J'aimerai maintenant si c'est possible savoir comment on peux remplir une table EVENEMENT
avec NoEvenement, Date, Durée, Motif
Il faudrai pas faire une requete genre :

Code: Tout sélectionner

INSERT INTO EVENEMENT([NoEvenement],[Date],[Durée],[Motif]) VALUES ('incrément','TexteDate','TexteDurée','TexteMotif');

Merci de repondre

[elendil_de_sade]

Qui sait comment executer une requete dans du code VB sous access ?