Bonjour Guy. Dans la feuille des propriétés du contrôle "Acompte0x", tu écris sur la ligne "Source contrôle": =VraiFaux(Acompte0x>0;Date();date0x)
"Guy" <André> a écrit dans le message de news:
Bonjour à tous,
Dans un formulaire j'ai 5 dates pour le versement d'acomptes
[Acompte01] [date01] sous forme jj/mm/aa [Acompte02] [date02] etc...
Comment automatiser le champs date0x avec la date jour si Acompte0x est > 0 evidemment ne pas ecraser les anciennes dates
Acompte01 date 01/01/01 Acompte02 date 02/03/01 Acompte03 = date du jour du versement de l'acompte -- Amicalement et merci
Raymond [mvp]
Bonjour.
tu peux calculer par code lorsque tes deux champs montant et date sont composés
Dim I As Integer For I = 1 To 5 If Nz(Me.Controls("acompte0" & I), 0) = 0 Then Me.Controls("acompte0" & I) = montantacompte Me.Controls("date0" & I) = dateversement total = total + Me.Controls("acompte0" & I) Exit For Else total = total + Me.Controls("acompte0" & I) End If Next I
le champ total contiendra en même temps la somme globale des acomptes versés. -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ Pour débuter sur le forum: http://www.mpfa.info/ PowerShell, une nouvelle approche de l'administration de l'environnement Windows http://www.comscamp.com/Tracker/Redirect.ashx?linkid_73b247-3260-4fed-861f-bb587f7ef413
"Guy" <André> a écrit dans le message de news:
| Bonjour à tous, | | Dans un formulaire j'ai 5 dates pour le versement d'acomptes | | [Acompte01] [date01] sous forme jj/mm/aa | [Acompte02] [date02] | etc... | | Comment automatiser le champs date0x avec la date jour si Acompte0x est > 0 | evidemment ne pas ecraser les anciennes dates | | Acompte01 date 01/01/01 | Acompte02 date 02/03/01 | Acompte03 = date du jour du versement de l'acompte | -- | Amicalement et merci
Bonjour.
tu peux calculer par code lorsque tes deux champs montant et date sont
composés
Dim I As Integer
For I = 1 To 5
If Nz(Me.Controls("acompte0" & I), 0) = 0 Then
Me.Controls("acompte0" & I) = montantacompte
Me.Controls("date0" & I) = dateversement
total = total + Me.Controls("acompte0" & I)
Exit For
Else
total = total + Me.Controls("acompte0" & I)
End If
Next I
le champ total contiendra en même temps la somme globale des acomptes
versés.
--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/
PowerShell, une nouvelle approche de l'administration de l'environnement
Windows
http://www.comscamp.com/Tracker/Redirect.ashx?linkid_73b247-3260-4fed-861f-bb587f7ef413
"Guy" <André> a écrit dans le message de news:
8F1F67B1-AF63-47C6-AF42-EEA200B0B326@microsoft.com...
| Bonjour à tous,
|
| Dans un formulaire j'ai 5 dates pour le versement d'acomptes
|
| [Acompte01] [date01] sous forme jj/mm/aa
| [Acompte02] [date02]
| etc...
|
| Comment automatiser le champs date0x avec la date jour si Acompte0x est >
0
| evidemment ne pas ecraser les anciennes dates
|
| Acompte01 date 01/01/01
| Acompte02 date 02/03/01
| Acompte03 = date du jour du versement de l'acompte
| --
| Amicalement et merci
tu peux calculer par code lorsque tes deux champs montant et date sont composés
Dim I As Integer For I = 1 To 5 If Nz(Me.Controls("acompte0" & I), 0) = 0 Then Me.Controls("acompte0" & I) = montantacompte Me.Controls("date0" & I) = dateversement total = total + Me.Controls("acompte0" & I) Exit For Else total = total + Me.Controls("acompte0" & I) End If Next I
le champ total contiendra en même temps la somme globale des acomptes versés. -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ Pour débuter sur le forum: http://www.mpfa.info/ PowerShell, une nouvelle approche de l'administration de l'environnement Windows http://www.comscamp.com/Tracker/Redirect.ashx?linkid_73b247-3260-4fed-861f-bb587f7ef413
"Guy" <André> a écrit dans le message de news:
| Bonjour à tous, | | Dans un formulaire j'ai 5 dates pour le versement d'acomptes | | [Acompte01] [date01] sous forme jj/mm/aa | [Acompte02] [date02] | etc... | | Comment automatiser le champs date0x avec la date jour si Acompte0x est > 0 | evidemment ne pas ecraser les anciennes dates | | Acompte01 date 01/01/01 | Acompte02 date 02/03/01 | Acompte03 = date du jour du versement de l'acompte | -- | Amicalement et merci