Søgning i alle felter!!

Her er lidt:

  Dim strSQL As String
  Dim i As Integer
  Dim DB As Database
  Dim Recs As Recordset
  Dim strSøgestreng as String
 
  strSøgestreng = "blaa"
  Set DB = Workspaces(0).OpenDatabase("c\database.mdb")
  strSQL = "SELECT minRecord FROM minTabel "
  strSQL = strSQL & "WHERE minRecord Like ""*" & strSøgestreng _
                  & "*"" "
 
  'Hent liste af rec navne, med ID's fra databasen
  Set Recs = DB.OpenRecordset(strSQL, dbOpenSnapshot)
 
  'Start loop gennem Recs
  Do While Not recs.EOF
    Msgbox "Der blev fundet følgende: " & recs!Tabel
    recs.MoveNext
  Loop
  recs.Close
  DB.Close
  Set DB = Nothing

Håber den kan bruges - det der er værd er bemærke er linien
  WHERE minRecord Like ""*" & strSøgestreng  & "*"" "
hvor du søger med wildcards - det er det du efterspørger.

PS: som du ser kommer Recs til at indeholde alle poster i "minRecord", hvor strSøgestreng er en del af navnet.

minRecord og minTabel er navne defineret i din database, c:\database.mdb

For at være mere pædagogiske skulle strSøgestreng = "4567" og ikke "Blaa" ;o)

Ok.... lyder meget fint.... men ææææ.... hvad skal der oprettes og hvor??

Skal der nogle extra felter til?? Og hvor skal den finde kode der sættes ind???

"Jeg har en access database, som jeg har koblet op i VB 6.0...."

Der må du da kunne genkende en masse fra ovenstående..?

Men smid koden hvor du vil, f.eks. i en søgeknape _Click-event ;o)

Nååårh... ok... jamen jeg vidste jo ikke hvordan du havde forstået mit spørgsmål???

Men ok..... tusind takker.....

Håber du fik nok at vide - ellers spørg bare igen :o))

Hejsa igen....

Jeg har bakset med din kode... og er ikke kommet meget længere fordi den bliver ved med at gå istå ved denne linie:

Set Recs = DB.OpenRecordset(strSQL, dbOpenSnapshot)

Hvorfor gør den det??

Hvad er fejlmeddelsen ??