champs calculer dans un listbox

Version imprimable

25/03/2007, 14h34
NAIMA2

champs calculer dans un listbox
bonjour, mon probleme est le voila j ai un listbox a 3 columns le premier champs il contien la date de debut le deuxieme la date de fin le troisieme c un champs calculer qui calculer la différence entre les 2 .
le voila le code
Code:

1 2 3 List.List(i, 0) = rstcode.Fields(1) ' ( type date) List.List(i, 1) = rstcode.Fields(2) ' ( type date) List.List(i, 2) = (rstcode.Fields(1) - rstcode.Fields(2)) ' ( type date)
merci d'avence .
aplus
j attend vous propositions
25/03/2007, 14h46
ProgElecT

NAIMA2, Inscrit le samedi 20 janvier 2007, Total message: 27, discussions ouvertes: 19, Nbr.de TAGs utilisés: 6, moyenne: 32/100, ma partitipation jusqua ce post: 6

(F2) dans la fenêtre de l'editeur VB, Explorateur d'objet--> DateTime --> DateDiff (F1) --> Exemple
25/03/2007, 14h56
NAIMA2

merci pour votre réponse, mais j ai pas bien saisie votre réponse
25/03/2007, 17h10
Delbeke

Je suis preneur, pour un listbox multicolonnes, ou on pourait ajouter/retirer/consulter un item x de la colonne y

Apparement tu sembles y arriver avec cette sytanxe si particulère

Code:

List1.List(i, 0)

Dis moi quel composant tu as utilisé, le ListBox standard n'admet pas cette syntaxe, tout ce qu'on peut obtenir avec la propriété colonne, c'est qu'il affiche sa liste sur x colonnes. Mais on ne peut qu'untiliser qu'un seul index, car il ne gere pas de tableau en interne, seulement une liste

Code:

List1.List(I)
25/03/2007, 17h48
OhMonBato

Citation:

Envoyé par Delbeke

Je suis preneur, pour un listbox multicolonnes, ou on pourait ajouter/retirer/consulter un item x de la colonne y

Ton bonheur se trouve dans la Microsoft Forms 2 Object Library que tu dois activer dans les composants ;)
La tu auras la combo list avec plein de propriétés concernant les colonnes, entre autre une propriété ColumnCount
26/03/2007, 10h03
NAIMA2

bonjour, ma réponse pour Mer PROG ELECT .
merci pour votre proposition jai suivi vous instruction mais malheuresement sa marche pas .
merci j'attend une notre proposition

bonjour, une réponse pour Mer Delbeke .
merci pour votre proposition , oui il existe un listbox multicolumns et voila le code qui vous permet de le remplire .
cette exemple il permet de remplir un listbox a 2 columns.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
List.ColumnCount = 2
                 strcode = "SELECT * FROM table WHERE ...................."
                 Set rstcode = dbsBaseMedic.OpenRecordset(strcode)
                 If rstcode.RecordCount <> 0 Then
                         rstcode.MoveLast
                         rstcode.MoveFirst
                         n = rstcode.RecordCount
                         For i = 0 To n - 1
                         List.AddItem ""
                         List.List(i, 0) = rstcode.Fields(1)
                         List.List(i, 1) = rstcode.Fields(2)
                         rstcode.MoveNext
                         Next i
                         List.TextColumn = 2
                         rstcode.Close
                         List.ListIndex = 0
                  End If

Si tu as 2 zones de texte, un controle list et un command button, tu peux essayer ça pour calculer la difference comptée en jours entre les 2 dates saisies dans les 2 zones texte.
J'ai appelé mon controle list CboDate
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub Command1_Click() Dim i As Integer CboDate.AddItem i = CboDate.ListCount - 1 CboDate.List(i, 0) = Text1 CboDate.List(i, 1) = Text2 CboDate.List(i, 2) = DateDiff("d", Text1, Text2) End Sub

26/03/2007, 11h23
NAIMA2

merci pour votre proposition , mais sa reste tj dans le meme contexte , le changement des noms des variable sa change pas beaucoup.
merci aplus
26/03/2007, 12h05
OhMonBato

Quelqu'un a compris ce qu'il veut ??
26/03/2007, 12h59
ProgElecT

je pense qu'il veut faire l'opération suivante:

Citation:

List.List(i, 2) = (rstcode.Fields(1) - rstcode.Fields(2)) ' ( type date)

Donc avec tous ce qui a été proposé, il aurai dut trouver ceci

Code:

List.List(i, 2) = DateDiff("d", rstcode.Fields(1) , rstcode.Fields(2))

:lol: Mer PROG ELECT :P
26/03/2007, 13h38
NAIMA2

jai fait sa mais en executant le code il m affiche argument ou appel de procédure incorrecte.
merci
26/03/2007, 13h47
OhMonBato

Naima, il serait peut etre bon que tu nous fasse un copier/coller de ton code et que tu nous indiques la ligne exacte où ça bloque.
Si tu ne mets pas un peu du tien, ça risque d'être assez difficile de t'aider.

salut, le voila le code.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
List.ColumnCount = 3
strcode = "SELECT * FROM entretien WHERE Cde = " & Chr(34) & Textcode(0).Text & Chr(34)
Set rstcode = dbsBaseMedic.OpenRecordset(strcode)
If rstcode.RecordCount <> 0 Then
  rstcode.MoveLast
  rstcode.MoveFirst
  n = rstcode.RecordCount
  For i = 0 To n - 1
    List.AddItem ""
    List.List(i, 0) = rstcode.Fields(1)
    List.List(i, 1) = rstcode.Fields(2)
    List.List(i, 2) = DateDiff("j", List.List(i, 0), List.List(i, 1)) ' ( ou sa bloc )
    rstcode.MoveNext
  Next i
  List.TextColumn = 3
  rstcode.Close
  List.ListIndex = 0
End If

merci.

26/03/2007, 15h03
OhMonBato

On n'aurait pas mis "d" plutot que "j" des fois dans nos differentes demo de DateDiff ?

soupir...
26/03/2007, 16h45
Vld44

excellent :D

Mais j'en peux plus arrêtez :aie: !!!

Il n'y a même pas d'option "j" dans la msdn ^^

Ca faisait plus joli c'est ça ?
26/03/2007, 16h51
NAIMA2

merci , sa marche .
ecoute Ohmonbato pour quoi 'd' pas 'j'.
aplus.
:D
26/03/2007, 16h57
OhMonBato

Citation:

Envoyé par NAIMA2

merci , sa marche .
ecoute Ohmonbato pour quoi 'd' pas 'j'.
aplus.
:D

Ben oui, pourquoi ? On se le demande hein ? Mais pourquoi donc "d" dans ce langage Basique Visuel ?

I wonder....
Signed :OhMyBoat ;)
26/03/2007, 17h15
Vld44

Héhé ^^

Citation:

Envoyé par OhMonBato

Signed :OhMyBoat ;)

OhMyBaot plutôt ? autant répercuter aussi les fautes d'orthographe !