Discussion :

[Dafbau]

Bonjour
J'ai deux sous formulaires dans un formulaire principal.
Une case à cocher dans le sous formulaire 2 recopie certains champs de l'enregistrement concerné dans le sous formulaire 1.
Cela fonctionne
J'aimerai en décochant la case à cocher, supprimer l'enregistrement dans le formulaire 1.
Mon problème je n'arrive pas à sélectionner l'enregistrement concerné dans le formulaire 1.
Un seul champ est commun entre les deux "NumTTdetail" dans le 1 et "NETT" dans le 2.
J'ai essayé avec DoCmd.FindRecord, mais je dois être dans les choux pour la syntaxe !

Code :

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

1
2
3
4
5
6
7
8
Dim stNETT as integer
stNETT=Nz([[ssformNelleSortieDetail]![NETT], 0)
Forms![formNelleSortie].SetFocus
Forms![formNelleSortie]![ssformNelleSortieDetail].SetFocus
DoCmd.GoToRecord acActiveDataObject, , acLast
Forms![formNelleSortie]![ssformNelleSortieDetail]![NumTTdetail].SetFocus
stNETT1 ="& Nz(Me![NumTTdetail], 0)"
DoCmd.FindRecord stNETT2

Mais à chaque fois c'est le dernier enregistrement qui est supprimé !
Merci

[Dafbau]

C'est bien la première fois que je n'ai pas de réponse !
j'ai trouvé une solution

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
stannulesortie = MsgBox("Etes vous sur de vouloir annuler la sortie ?", vbYesNo, "Attention Confirmez")
If stannulesortie = 7 Then
Exit Sub
Else
Dim stNETT1 As Integer
stNETT1 = Nz(Me![NETT], 0)
Forms![formNelleSortie].SetFocus
Forms![formNelleSortie]![ssformNelleSortieDetail].SetFocus
Forms![formNelleSortie]![ssformNelleSortieDetail]![NumTTdetail].SetFocus
DoCmd.GoToRecord acActiveDataObject, , acLast
 
Dim stNETT2 As Integer
stNETT2 = Forms![formNelleSortie]![ssformNelleSortieDetail]![NumTTdetail]
If stNETT2 <> stNETT1 Then
Do
DoCmd.GoToRecord acActiveDataObject, , acPrevious
Dim stNETT3 As Integer
stNETT3 = Forms![formNelleSortie]![ssformNelleSortieDetail]![NumTTdetail]
Loop While stNETT3 <> stNETT1
Else
End If
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
 
 
End If