El código siguiente aparece en la liga que aquí les paso:
Pero como yo siempre busco lo mismo, lo voy a escribir aquí:
|
1 |
<br/><code class="">Private Sub Combo0_AfterUpdate()<br/> ' Find the record that matches the control.<br/> Dim rs As Object<br/><br/> Set rs = Me.Recordset.Clone<br/> rs.FindFirst "[ProductID] = " & Str(Nz(Me![Combo20], 0))<br/> If Not rs.EOF Then Me.Bookmark = rs.Bookmark<br/>End Sub |
Armando Franco tiene amplia experiencia en las áreas de sistemas, compras y proyectos. Cuenta con una Maestría en Administración de Tecnologías de Información, y las certificaciones Certified Purchasing Manager, Microsoft Office 2010 Specialist, Expert y Master.
Deja un comentario