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 33 34 35 36 37 38 39 40 41
| Private Sub lstNotes_Click()
Me.cmdValider.Enabled = False
Me.cmdModifier.Enabled = True
Me.cmdSupprimer.Enabled = True
Me.cmdCommentaire.Enabled = True
Me.cmdImprimer.Enabled = True
'----- debut nouvelle section -----
Dim strSqlAvoir As String
Dim i As Long
strSqlAvoir = "SELECT [LibMotif], [NumMotif], " + _
"[NumMotif] IN (SELECT NumMotif FROM Avoir WHERE NumNote=Forms![frmContratIrregulier].Lstnotes) AS EstPresent " + _
"FROM MOTIF"
lstMotif.RowSource = strSqlAvoir
For i = 0 To lstMotif.ListCount - 1
lstMotif.Selected(i) = CInt(lstMotif.Column(2, i)) 'EstPresent
Next i
For i = 0 To lstAssu.ListCount - 1
lstAssu.Selected(i) = (lstAssu.Column(1, i) = lstNotes.Column(12)) ' [NumEmploye]=[NumVendeur]?
Next i
'----- fin nouvelle section -----
Me.txtNumNote = lstNotes.Column(0)
Me.txtDate = lstNotes.Column(1)
Me.lstNumContrat = lstNotes.Column(2)
Me.txtDateCrea = lstNotes.Column(3)
Me.lstNumCli = lstNotes.Column(4)
Me.lstNomCli = lstNotes.Column(5)
Me.txtDateEffet = lstNotes.Column(6)
Me.txtNature = lstNotes.Column(7)
Me.lstNomVendeur = lstNotes.Column(8)
Me.lstAssu = lstNotes.Column(9)
Me.txtNumAgence = lstNotes.Column(10)
Me.lstAgence = lstNotes.Column(11)
Me.txtNumVendeur = lstNotes.Column(12)
End Sub |