Discussion :

[lg022]

bonjour
je sui un petit peu nul en programmation
donc voila mon dilemme
j'ai une table "contrat "avec dedans des champs :simple, etendu,2 visite,4 visite et ceux sont des champs oui/non
et j'ai une table "intervention" avec des champs dépannage,travaux,reparation, Visite legale d'entretien,date intervention,date prochaine intervention
j'ai fais une requete entre les 2
et dans un formulaire j'aimerais que lorsque je coche VLE(Visite légale entretien) et que je sais que simple est coché on m'affiche dans le champ date prochaine intervention=date intervention +42
je pense que l'algo est comme ca
Si simple=1 et VLe=1 alors [date prochaine intervention].Value=DateAdd("d",42,[date intervention ])
mais pour mettre sous VBA gros probleme

si quelqu'un peux m'aider merci beaucoup

[marot_r]

Dans l'événement AfterUpdate (Après MAJ) de VLE

Code :

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

1
2
3
4
 
if me.VLE and me.simple then
  me.[date prochaine intervention]=DateAdd("d",42,me.[date intervention ])
end if

Les champs VLE et simple étant des booleens (Oui/Non) tu peux les utiliser directement dans ton if.

'if me.VLE' then est équivalent à 'if me.VLE=true'

Une bonne habitude est d'utiliser True (vrai) et False (faux) au lieu de -1 et 0, ça rend le code beaucoup plus lisible et ça évite de se mélanger quand on travail avec plusieurs langages.

Le me. est pour s'assurer de faire référence au Form courrant et puis ça te présente la liste des variables disponibles, y'a plus qu'à choisir celle que tu veux. Ça fait moins de frappe et ça évite les erreurs de syntaxe.

Par précaution évite les espaces, préfère les '_', et les accents (la plus part système sont d'origine américaine et l'anglais n'a pas d'accents) dans les noms de champ. Tu peux aussi jouer avec les majuscules minuscules ex : DateProchaineIntervention.

A+

[laurent.w]

tu fais une simple requete qu tu insere en vba, et tu fais un update sur changement sur ta case à cocher

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
 
Private Sub CocherIR2_Click()
 
If Me.Cocher Then
    call case_cocher
End If
 
End Sub
 
public function case_cocher()
 
dim sql as string
dim rdsfiles as recordset
dim dbs as database
Set dbs = CurrentDb
 
SQL = "SELECT... ";"
 
        ''' Open the recordset
        Set dbs = CurrentDb
        Set rdsfiles = dbs.OpenRecordset(strSQL, dbOpenSnapshot)
 
''' Exit si  ton enregistrement n'existe pas, who knows ?
        If rdsfiles.EOF or rdsfiles.BOF Then
 
             exit function
        else
             DoCmd.RunSQL "UPDATE ..... where ta condition;"
        end if
 
end function

oups dan ton update set champ oui/non= true..
.

je suis fatigué, troisième message:
tu mets à jour ton champ correspondnat et après le update tu fais me.etc

comme a fait l'autre posteur et çà devrait fonctionner

çà marche en gros comme çà (oups c'est pas Kamini)

[lg022]

merci marot ton code m'a bien aidé et ca marche
donc j'ai une autre question
voila
maintenant je veux dans un etat que si ma date prochaine inter est dépassé que dans un grpe d'option oui/non elle m'affiche oui
dons j'explique le sujet
j'ai une requete designé "appareil en retard d'intervention" avec comme table:client,contrat,intervention
donc dans un etat je veux afficher le nom client, l'@ ...
et ma date de prochaine intervention
pour cela je créé un grpe d'option avec des boutons oui/non qui m'indiqueront que ma date est dépassé ou pas
je sais que c dans la propriété du grpe que tout se joue mais j'arrive pas a lui dire que si [Date prochaine inter]<[Date aujourd'hui] ->affiche oui
deja pour [Date aujourd'hui]il ne comprends pas ou c moi!!!(fort probable) en sachant que [Date aujourd'hui]change tout le temps!!!!!

merci d'avance

[lg022]

je c pas si c ca mais j'ai trouvé un truc
dans source controle:=[Date prochaine intervention]<Maintenant()
et ca marche
mais si tu as autre chose a proposer n'hesite pas

[marot_r]

Non c'est une de façon les plus efficasse de le faire, c'est une équation booleene.

A+