---

(lister alle data fra tblTabel1)
Kode virker:
Dim strSQL As String
strSQL = "Select *"
strSQL = strSQL & " from tblTabel1 "
Me!Liste1.RowSourceType = "Table/Query"
Me!Liste1.RowSource = strSQL
-------------------
(Skal vise alle data, hvor Felt1 indeholder det indtastet i inputboxen
inFind)
Kode virker ikke:
Dim strSQL As String
Dim strFind As String
strFind = "*" & Me.inFind & "*"
strSQL = "Select *"
strSQL = strSQL & " from tblTabel1 Where Felt1 = " & strFind 'tror fejlen
er her.
Me!Liste1.RowSourceType = "Table/Query"
Me!Liste1.RowSource = strSQL

Jeg mener at det er fordi der kommer til at mangle et " efter strFind, men
jeg kan ikke finde ud af at få sat ", så koden vil genkende dette.

Håber der er hjælp at hente.

---

On Fri, 9 Mar 2001 11:23:25 +0100, "TM" <thomas.madsen@adr.dk> wrote:

> strSQL = strSQL & " from tblTabel1 Where Felt1 = " & strFind 'tror fejlen

Prøv med

....Where Felt1 Like '" & strFind & "'"

Altså:
Like [apostrof][anførselstegn] & strFind &
[anførselstegn][apostrof][anførselstegn]

Når du benytter */? skal du bruge Like.

--
Morten Snedker
www.access-dk.mobilixnet.dk
/www.global-it.dk

---

> ...Where Felt1 Like '" & strFind & "'"
>
Mange tak Morten