Filter On Focus On Combo Box Not Incrementing

[Whale]

Didn't know a better way to explain it.

I am making an advanced client search function. To do this I have created a continuous form and added a search text box to the header.



The intent is to type one or more letter as it applies to the client name and the list to filter according to the letters entered.

The problem is if I want to enter Pi for example I enter P and then enter I however instead of showing PI the combo box is showing I only. This is very annoying, and I can only see to move the focus to the other combo box and then click back in the original combo box as a fix...this isn't a fix, the sample database is some 5 or so clients, the actual is 5500 and the search must be fast at the counter.ExplainIssue.zip

[alansidman]

Here is a solution that might work for you if I am understanding your issue correctly

http://www.datapigtechnologies.com/f...tomfilter.html

[ssanfu]

You do know you are violating normalization rules??

As far as the combo box, you have set the insertion point to the end of the string in the combo box.
Try this:

Private Sub cboFilterName_Change()
    Dim FilterString As String

    If Nz(Me.cboFilterName.Text) = vbNullString Then
        Me.Form.Filter = vbNullString
        Me.FilterOn = False
    ElseIf Me.cboFilterName.ListIndex <> -1 Then
        Me.Form.Filter = "[CN] ='" & Replace(Me.cboFilterName.Text, "'", "''") & "'"
        Me.FilterOn = True

        'if a partial value is typed, filter for a partial match
    Else
        'Me.Form.Filter = "[CN] Like '*' &  '" & Replace(Me.cboFilterName.Text, "'", "''") & "'  & ' * '"""

        FilterString = "[CN] Like '*" & Replace(Me.cboFilterName.Text, " ' ", " '' ") & "*'"  '<< I modified this string
        '        Debug.Print FilterString

        Me.Form.Filter = FilterString
        Me.FilterOn = True

       '====================================
       'set the insertion point to the end of the combo box text property string
        Me.cboFilterName.SelStart = Len(Me.cboFilterName.Text) + 1
       '====================================

    End If
End Sub

[Whale]

Thanks Steve. That's perfect for the solution I am needing for this.

I am not sure what you mean by not following normalisation rules? Where? Nothing would surprise me now. Haven't done anything much with Access for nearly 10 years.

[aytee111]

There are many links out there explaining what "database normalisation" means, it is to do with table design and database structure. By following those rules you have a far stronger and more robust database design - and life becomes far easier!

[alansidman]

Take the time to read the white paper on db design at this link to understand normalization

http://r937.com/relational.html

[ssanfu]

Also see:

Normalization Parts I, II, III, IV, and V
http://rogersaccessblog.blogspot.ca/...on-part-i.html


Entity-Relationship Diagramming: Part I, II, III and IV
http://rogersaccessblog.blogspot.ca/...ng-part-i.html