Avatar billede ffsoft Praktikant
27. oktober 2006 - 20:21 Der er 7 kommentarer og
1 løsning

Søge funktion i Access

I følge min bog kan dette godt lade sig gøre:

Dim rst As ADODB.Recordset
Set rst = Me.RecordsetClone

rst.Find "FirmaID = 3"

Me.BookMark = rst.BookMark

men allerede i linie 2
Set rst = Me.RecordsetClone
får jeg en kørselsfejl: type mismatch

Det hele bliver startet fra en knap, der sidder på en
form, der som kilde har tabellen tblFirma som indeholder
feltet FirmaID (PK - Autonummer).
Jeg får ingen kompileringsfejl. Jeg kan sagtens lave en
søge funktion med et DAO recordset, men det ville være
lidt tyndt.
Avatar billede mugs Novice
27. oktober 2006 - 20:27 #1
Fejlen kommer jo typisk hvis du prøver at sammenligne alfanumeriske felter med numeriske. Men det antager jeg du allerede har kontrolleret. Til en simpel søgefunktion plejer jeg at anvende denne:

Dim VARa As String
VARa = InputBox(Prompt:="Indtast kundenr.", Title:="Find kunde.", Default:="")
DoCmd.GoToControl "kundenr"
DoCmd.FindRecord VARa, acEntire, False, , True, acCurrent, True
Avatar billede mugs Novice
27. oktober 2006 - 20:32 #2
Er du interesseret, kan jeg sende dig et par eksempler på søgefunktioner jeg plejer at anvende dels her på ekspeerten og dels på mit arbejde.

Blot læg din e-mail.

Og nej - Thomas Jepsen's fremragende dynamiske søgefunktion er ikke iblandt dem ;o)
Avatar billede ffsoft Praktikant
27. oktober 2006 - 20:45 #3
Jeg fandt denne på Internet:

Dim strSearch As String

strSearch = "FirmaID = 3"
Me.RecordsetClone.FindFirst strSearch
Me.BookMark = Me.RecordsetClone.BookMark

og det virker. FirmaID er et numerisk felt (autonummer).

Jeg vil stadig gerne se dine løsninger og give dig pointene for dem.
Send løsninger til tom(at)ffsoft.dk og læg et svar her.
Avatar billede mugs Novice
27. oktober 2006 - 21:15 #4
strSearch = "FirmaID = 3"

Ok det fungerer, men det giver jo ikke en dynamisk løsning. Du skal ind i VBA-editoren for at ændre kriteriet.
Eksempler er sendt.
Avatar billede ffsoft Praktikant
27. oktober 2006 - 22:34 #5
Point !!
Avatar billede ffsoft Praktikant
27. oktober 2006 - 22:34 #6
Point
Avatar billede ffsoft Praktikant
27. oktober 2006 - 22:35 #7
Jeg bøvlede lige lidt med at give point
Avatar billede mugs Novice
27. oktober 2006 - 22:38 #8
Tak for point - Håber du kan bruge mine små test db ;o)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester



Seneste spørgsmål Seneste aktivitet
I dag 06:10 Excel åbner fil i kæmpe format Af Aske i Excel
I går 22:00 Datafordeler Af Lsk i PHP
I går 12:37 Summere beløb pr. dato Af TTA i Excel
31/1022:44 Tilslutte chassic fans Af viking69 i PC
31/1020:28 LED lysstofrør Af ErikHg i Fri debat