Aide List Box

[Orphenia]

Bonjour à tous,

Je travaille actuellement sur un projet utilisant Access 2000/VB6 et je rencontre des difficultés sur un point. Le "google it" n'ayant toujours pas répondu à mon problème, je requière votre aide.

Contexte:

Un formulaire contenant un sous formulaire (=résultat d'une requête SQL sur ma base Access).

Une fonction pour un click sur l'un des champs de mon sous formulaire ("Statut_fonction": oui/non).

Lorsque l'utilisateur coche ce champs je désire effectuer divers traitements (calculs, Insert, Update, etc.).
Pour cela l'utilisateur doit actuellement insérer une date en format string via un(e) inputbox.
C'est une solution de fortune qui fonctionne mais qui n'est pas vraiment terrible...


Souhait:

Je désire que l'utilisateur choisisse parmi une liste de propositions.
J'ai déjà réalisé la requête permettant de récupérer ces propositions.


Problème:
Je n'arrive pas à faire de listbox avec ces champs.


Code Actuel:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Private Sub Statut_fonction_Click()
 
'Valeurs Calculs
Dim poidsimportance, poidstotal, NOM, Activite, avancement As Single
 
'Divers
Dim mysql As String
Dim cnn1 As ADODB.Connection
Set cnn1 = CurrentProject.Connection
Dim myRecordSet As New ADODB.Recordset
Set myRecordSet.ActiveConnection = cnn1
 
'InputBox
Dim message, title As String Dim myValue As String 
 
NOM = Forms![Mark/ListeFctMO].Sup
Activite = Forms![Mark/ListeFctMO].Activite
 
 
message = "Entrer la date de fin de [" & NOM & "] sous la forme: dd/mm/yyy"
title = "Insérer date"
 
 
 
 
 
If Forms![Mark/ListeFctMO].gestion = "Weighted milestone" Then
 
Me.Statut_fonction.SetFocus
 
If Me.Statut_fonction.Value = "-1" Then
'MsgBox "Coché"
 
myValue = InputBox(message, title)

Cela viendrait de la ligne 31 du code.

Merci d'avance,
Mark

[ProgElecT]

Salut

1° question le language de programmation est il bien du VB6 ou du VBA
Comment savoir si l'on utilise VBA (Visual basic pour application) ou VB6 ?

Code :

Dim poidsimportance As ?, poidstotal As ?, NOM As ?, Activite As ?, avancement As Single

Il faut renseigner chaque type de variable, sinon tes 4 premières sont de type variant, seul la dernière et du type déclaré Single.

[Orphenia]

Comme renseigné plus haut j'utilise bien VB6 (et non VBA).

Pour les types non déclarés (et donc variant), cela ne pose aucun problème par la suite.

[OhMonBato]

J'ai aussi un doute sur le VBA/VB6 (VBA s'appelle VB6 aussi... mais tu as certainement vérifié comme indiqué dans le lien donné par ProgElect), j'avoue que j'ignorais totalement la syntaxe de type "Forms![Mark/ListeFctMO].Sup"
Dernière remarque qui facilite la lecture du code : respecter le "standard" d'appellation des controles.

[Orphenia]

Je suis allé voir le lien VBA/VB6 et c'est plutôt mitigé :/
Icone VBA (avec les 4 carrés) mais c'est bien marqué "Visual Basic 6.0".

Le message indiquant une ligne de code erronée provient d'un edit modérateur.

Il n'y a pas d'erreur dans le code fourni, sinon le standard non respecté.
Je recherche une solution de remplacement à ma ligne 34.

En bref remplacer un(e) inputbox qui laisse trop de marge d'erreurs par une ListBox

[OhMonBato]

Ce n'est pas mitigé du tout : C'est VBA comme expliqué dans le lien donné par ProgElect.

[Orphenia]

Autant pour moi

[dumas.blr]

Bonjour, Orphenia

Pourquoi ne pas utiliser un formulaire modal ne contenant qu'un champs de type textbox, avec un masque de saisie de type jj/mm/aaa,
voire même avec la possibilité d'intégrer le calendrier en utilisant la proriété "utiliser le sélecteur de date" ?

Tu pourrais même proposer une valeur par défaut (ex : now())