29-04-10, 21:02
|
 | Συντονιστής Όνομα: Νίκος Έκδοση λογισμικού Office: Ms-Office 2007 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 28-12-2008 Περιοχή: Θεσσαλονίκη
Μηνύματα: 1.033
| |
Αγαπητέ Βασίλη...
Φτιάξε ένα κουμπί στη φόρμα (Koubi) και βάλε τον κώδικα. Νομίζω οτι κάτι τέτοιο θες. Κώδικας:
Private Sub koubi_Click()
Dim listsum As Single, x As Integer
With Me!List1
.Requery
For x = 1 To .ListCount - 1
listsum = listsum + Nz(.Column(5, x), 0)
Next
End With
Me.Κείμενο19 = listsum
End Sub
Τα ξαναλέμε ...αν χρειαστεί.
Φιλικά / Νίκος Δ.
|