"Phil" <phil (AT) stantonfamily (DOT) co.uk> skrev i en meddelelse
news:jd1umk$jsp$1 (AT) speranza (DOT) aioe.org...
I now tried with the code in the link above, and it solwes the problem
partially...
When there is a text in the combo(An Updated record), with startletter after
"k" the sorting are correct...

But when its an empty / new record the combo is empty, even when i type
letters into the combo field(Me.YdelseTekst)
I think u can help me the last way, with this problem
I think im very close to the solution now...

For understanding the code I presume the combo should be filled with
suggestions, when I typed in min. 3 letters,
and it should come with new suggestions when I type more
letters...correct...???

In the top of the subform i got this code:
My code:
Option Compare Database
Option Explicit

Dim sSuburbStub As String
Const conSuburbMin = 3

Function ReloadSuburb(sSuburb As String)
Dim sNewStub As String ' First chars of Suburb.Text

sNewStub = Nz(Left(sSuburb, conSuburbMin), "")
' If first n chars are the same as previously, do nothing.
If sNewStub <> sSuburbStub Then
If Len(sNewStub) < conSuburbMin Then
'Remove the RowSource
'Me.YdelseTekst.RowSource
Form_frmTilbudLinje_uf!YdelseTekst.RowSource = "SELECT
tblYdelse.YdelseTekst, tblYdelse.YdelseID, tblYdelse.YdelsePris," & _
" tblVareGruppe.RabatProcent, tblVareGruppe.AvanceProcent" & _
" FROM tblVareGruppe INNER JOIN tblYdelse ON
tblVareGruppe.VaregruppeID = tblYdelse.VaregruppeID_ WHERE (False);"
sSuburbStub = ""
Else
'New RowSource
'Me.YdelseTekst.RowSource
Form_frmTilbudLinje_uf!YdelseTekst.RowSource = "SELECT
tblYdelse.YdelseTekst, tblYdelse.YdelseID, tblYdelse.YdelsePris," & _
" tblVareGruppe.RabatProcent, tblVareGruppe.AvanceProcent" & _
" FROM tblVareGruppe INNER JOIN tblYdelse ON
tblVareGruppe.VaregruppeID = tblYdelse.VaregruppeID_ WHERE
(tblYdelse.YdelseTekst Like """ & sNewStub & "*"")" & _
" ORDER BY tblYdelse.YdelseTekst;"
sSuburbStub = sNewStub
End If
End If

End Function
/My code:

And in the Current event I got this code:
My code:
Call ReloadSuburb(Nz(Me.YdelseTekst, ""))
/My code:

Bjarne

"bsn" <bsnSNABELAoncableDOTdk> skrev i en meddelelse
news:4ef5a610$0$56793$edfadb0f (AT) dtext02 (DOT) news.tele.dk...
Solved - i forgot the Change event...:-((
Thx for helping - much apreciated...
Bjarne

Statistical conclusions don't necessarily apply to real-world data...
real-world data might have only a single record prior to "k" in the sort
order (not accusing your data of being that skewed, but it could be). I've
worked on (someone else's) database application where every item of a Combo
Box dropdown began with the same identical character.

Fortunately, they were not trying to exceed the limits of either Access nor
human perception.

Regardless of your statistical conclusion, a scrollable dropdown, even with
AutoExpand enabled, anywhere near 32k (much less 140000) is going to have
"incredibly ucky" (highly technical term) performance and the user's company
better arrange a quantity discount for their users at a nearby "looney bin".

--
Larry

"bsn" <bsnSNABELAoncableDOTdk> wrote