cmbFindSatf_AfterUpdate secondaire privé ()
Faibles rs comme objet
'Me.FilterOn = faux
Placer les rs = le Me.Recordset.Clone
rs.FindFirst « [SATF_NO] = » et moi ! [cmbFindSatf]. Colonne (1)
Sinon rs.EOF puis Me.Bookmark = rs. Repère
Me.Refresh
Sous-marin d'extrémité
'si le champ [SATF_NO] est utilisation des textes ceci des codes
cmbFindSatf_AfterUpdate secondaire privé ()
Faibles rs comme objet
'Me.FilterOn = faux
Placer les rs = le Me.Recordset.Clone
rs.FindFirst « [SATF_NO] = « » et moi ! [cmbFindSatf]. Colonne (1) et « » «
Sinon rs.EOF puis Me.Bookmark = rs. Repère
Me.Refresh
Sous-marin d'extrémité
|