Discussion :

[papilou86]

Bonjour
je sais programmer en perl, asp, php, mais je ne sais pas faire un programme tout bêtement avec les modules access. je ne sais pas démarer .
Par exemple j'ai fait un module dans le quel j'ai mis ce programme. mais quand je clique dessus, access ne lance pas le programme, il m'affiche le contenu du module.
Que dois je faire pour lancer ce module.

Sub essai()

Dim db As Database
Dim reponse As Recordset
Dim sql As String

Set db = CurrentDb()
sql = "SELECT Ligne, PK_deb, PK_fin, ELECT FROM Dec_ligne WHERE Ligne LIKE '930000';"

Set reponse = db.OpenRecordset(sql, dbOpenDynaset)

While Not reponse.EOF
List1.AddItem reponse.Fields("Ligne") & " " & rs.Fields("ELECT")
reponse.MoveNext
Wend
reponse.Close: Set reponse = Nothing
db.Close: Set db = Nothing

End Sub

[SfJ5Rpw8]

eu... list1... c'est un list box .. non ? tu n'as pas une Form .. dans ton projet ?

[pgz]

Bonjour,

Pour exécuter le module, place le curseur à l'intérieur et F5.

Ensuite, on lance généralement sur un évènement de formulaire ou contrôle.

pgz

[SfJ5Rpw8]

je pensais que cela allez s'afficher comme une requête access.
Comment ecrire cela?

tu peu remplacer la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

     List1.AddItem reponse.Fields("Ligne") & " " & rs.Fields("ELECT")

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Debug.print reponse.Fields("Ligne") & " " & rs.Fields("ELECT")

le résultat s'affichera dans fenêtre exécution... de VBE...

sinon fais un tour dans les FAQ/Cours/tutoriels.. cela t'aidera à commencer...

[Heureux-oli]

Je pense que tu mets la charrue avant les boeufs.

Pour débuter, fais un formulaire et essaie d'écrire des actions sur certains évènements qui peuvent se produire sur les contrôles.

De ces actions ou évènement, tu peux faire alors appel à des modules, ou plus précisément des procédures ou fonctions stockées dans des modules.