/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Ugensopgave - Ret fejl i koden
Fra : TM


Dato : 09-03-01 11:23

(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.



 
 
Morten Snedker (09-03-2001)
Kommentar
Fra : Morten Snedker


Dato : 09-03-01 13:04

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

TM (09-03-2001)
Kommentar
Fra : TM


Dato : 09-03-01 14:16

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



Søg
Reklame
Statistik
Spørgsmål : 177551
Tips : 31968
Nyheder : 719565
Indlæg : 6408825
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste