none
Codigo en Microsoft Access 2010

Respuestas

  • Hola!
    puedes en el evento al actualizar del primer cuadro de texto, mediante Dlookup, aplicar el resultado al segundo cuadro de texto.

    Private Sub txtCodigo_AfterUpdate()
    Me.txtNombre = DLookup("NombreCompañía", "Clientes", "IDCliente = '" & Me.txtCodigo & "'")
    End Sub

    Saludos a todos desde Huelva
    http://www.mvp-access.es/emilio/
    jueves, 26 de enero de 2012 18:06
  • Hola

    No tengo ahora un Access 2010 a mano, pero imagino que no habrá mucha diferencia (en esto) con versiones anteriores.

    Te pongo un ejemplo con la base de Northwind de 2003. En el formulario de clientes, introduzco un cuadro de texto no vinculado a ningún campo. Este código te permite localizar los registros de cliente mediante su ID

    Private Sub txtIDBuscar_AfterUpdate()
        ' Buscar el registro que coincida con el control.
        Dim RS As Object
        Set RS = Me.Recordset.Clone
        RS.FindFirst "[IdCliente] = '" & Me.txtBuscar.Value & "'"
        If Not RS.EOF Then Me.Bookmark = RS.Bookmark
    End Sub
    
    Espero te sirva
    Salu2,

    José Mª Fueyo [MS MVP Access]
    viernes, 27 de enero de 2012 9:02

Todas las respuestas

  • Hola!
    puedes en el evento al actualizar del primer cuadro de texto, mediante Dlookup, aplicar el resultado al segundo cuadro de texto.

    Private Sub txtCodigo_AfterUpdate()
    Me.txtNombre = DLookup("NombreCompañía", "Clientes", "IDCliente = '" & Me.txtCodigo & "'")
    End Sub

    Saludos a todos desde Huelva
    http://www.mvp-access.es/emilio/
    jueves, 26 de enero de 2012 18:06
  • Hola

    No tengo ahora un Access 2010 a mano, pero imagino que no habrá mucha diferencia (en esto) con versiones anteriores.

    Te pongo un ejemplo con la base de Northwind de 2003. En el formulario de clientes, introduzco un cuadro de texto no vinculado a ningún campo. Este código te permite localizar los registros de cliente mediante su ID

    Private Sub txtIDBuscar_AfterUpdate()
        ' Buscar el registro que coincida con el control.
        Dim RS As Object
        Set RS = Me.Recordset.Clone
        RS.FindFirst "[IdCliente] = '" & Me.txtBuscar.Value & "'"
        If Not RS.EOF Then Me.Bookmark = RS.Bookmark
    End Sub
    
    Espero te sirva
    Salu2,

    José Mª Fueyo [MS MVP Access]
    viernes, 27 de enero de 2012 9:02