champs calculer dans un listbox

**NAIMA2** · 25/03/2007, 14h34

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 :

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

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

**ProgElecT** · 25/03/2007, 14h46

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

**NAIMA2** · 25/03/2007, 14h56

merci pour votre réponse, mais j ai pas bien saisie votre réponse

**Delbeke** · 25/03/2007, 17h10

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 :

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

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 :

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

List1.List(I)

**OhMonBato** · 25/03/2007, 17h48

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

**NAIMA2** · 26/03/2007, 10h03

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

**NAIMA2** · 26/03/2007, 10h20

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 :

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

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

**OhMonBato** · 26/03/2007, 10h31

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 :

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

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

**NAIMA2** · 26/03/2007, 11h23

merci pour votre proposition , mais sa reste tj dans le meme contexte , le changement des noms des variable sa change pas beaucoup.
merci aplus

**OhMonBato** · 26/03/2007, 12h05

Quelqu'un a compris ce qu'il veut ??

**ProgElecT** · 26/03/2007, 12h59

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

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 :

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

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

Mer PROG ELECT

**NAIMA2** · 26/03/2007, 13h38

jai fait sa mais en executant le code il m affiche argument ou appel de procédure incorrecte.
merci

**OhMonBato** · 26/03/2007, 13h47

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.

**NAIMA2** · 26/03/2007, 14h49

salut, le voila le code.

Code :

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

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.