Privé SubcmbFindSatf_AfterUpdate ()
Schemerige rs als Voorwerp
'Me.FilterOn = Vals
Reeks rs = Me.Recordset.Clone
rs.FindFirst „[SATF_NO] =“ & me! [cmbFindSatf]. Kolom (1)
Als niet rs.EOF toen Me.Bookmark = rs. Referentie
Me.Refresh
Sub van het eind
'als het gebied [SATF_NO] het gebruik is van de Tekst codeert dit
Privé SubcmbFindSatf_AfterUpdate ()
Schemerige rs als Voorwerp
'Me.FilterOn = Vals
Reeks rs = Me.Recordset.Clone
rs.FindFirst „[SATF_NO] = „“ & me! [cmbFindSatf]. Kolom (1) & „“ „
Als niet rs.EOF toen Me.Bookmark = rs. Referentie
Me.Refresh
Sub van het eind
|