Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]


Groups > comp.databases.ms-access > #12180

Re: Combobox sometimes does not show all columns

From Jürgen Meyer <juergen.ul.meyer@gmx.de>
Newsgroups comp.databases.ms-access
Subject Re: Combobox sometimes does not show all columns
Date 2016-10-24 19:43 +0200
Organization A noiseless patient Spider
Message-ID <srhs0c1cqvkl4igfpv8a482vrtindim81u@4ax.com> (permalink)
References <4pbs0clud6n9id4l4bffsmh81gruvtbabi@4ax.com>

Show all headers | View raw


On Mon, 24 Oct 2016 09:57:44 -0600, KW <noemailaddress@....> wrote:

You must refer to the correct field (column)

Private Sub ComboField1_AfterUpdate()
Dim rs As DAO.Recordset
    If Not IsNull(Me!Combofield1) Then
        'Save before move.
        If Me.Dirty Then
            Me.Dirty = False
        End If
       
        'Search in the clone set.
        Set rs = Me.RecordsetClone
        'Change here:
        rs.FindFirst "[ClientID] = " & Me!Combofield1.Column(2)
        
        'VBA starts counting with 0, not with 1
        'So the field 3 of your table here becomes column 2
        
         Me.Bookmark = rs.Bookmark
        
        Set rs = Nothing
    End If
End Sub

Back to comp.databases.ms-access | Previous | Next — Previous in thread | Next in thread | Find similar | Unroll thread


Thread

Combobox sometimes does not show all columns KW <noemailaddress@....> - 2016-10-24 09:57 -0600
  Re: Combobox sometimes does not show all columns Jürgen Meyer <juergen.ul.meyer@gmx.de> - 2016-10-24 19:43 +0200
    Re: Combobox sometimes does not show all columns KW <noemailaddress@....> - 2016-10-25 14:21 -0600
  Re: Combobox sometimes does not show all columns Patrick Finucane <patrickfinucanetx@gmail.com> - 2016-10-24 12:27 -0700
    Re: Combobox sometimes does not show all columns KW <noemailaddress@....> - 2016-10-25 13:43 -0600
  Re: Combobox sometimes does not show all columns croy <hate@spam.invalid.net> - 2017-01-02 19:28 -0800

csiph-web