16. marts 2010 - 11:02Der er
12 kommentarer og 1 løsning
Søgning i Form
Hej Eksperter
Jeg har en form der er låst for indtasning. Denne form har et felt [navn] Når jeg vil søge i navn med Access Søgefunktion, så skal jeg hver gang vælge "Any part of field" også selvom jeg har fulgt denne opsætning: Tools-options-Edit/find-Default find and... sat til general search. eller direkte i applikationen: Application.SetOption "Default Find/Replace Behavior",1
Hvordan kommer jeg uden om dette problem, og får den til at søge i Any part of Field som default? Kunne man lave noget med at når man dobbelt klikker på [navn] kommer en boks op hvor man indtaster det man vil søge efter og trykker enter?
Når du afbryder funktionen får du en fejl, fodi Access jo forventer et input.
Du kan lave en errorhandler i stil med dette:
Dim VARa As String On error goto errrorhandler VARa = InputBox(Prompt:="Indtast Navn.", Title:="Find kunde.", Default:="") DoCmd.GoToControl "Navn" DoCmd.FindRecord VARa, acEntire, False, , True, acCurrent, True errorhandler: If errnumber = og her følger fejlnummeret then Exit sub end if
Private Sub KundeFornavn_DblClick(Cancel As Integer) Dim VARa As String On Error GoTo errrorhandler VARa = InputBox(Prompt:="Indtast søgeord.", Title:="Find kunde.", Default:="") DoCmd.GoToControl "KundeFornavn" DoCmd.FindRecord VARa, acAnywhere, False, , True, acCurrent, True errorhandler: If Err.Number = 2142 Then Exit Sub End If End Sub
Jeg har et problem med søgningen og det er at promptvinduet forsvinder så man ikke har muligheden for at sige find næste. Er det muligt at lave prompten som en form, som så ikke forsvinder eller andet?
Du kan filtrere kunderne efter at have fundet navnet:
Dim VARa As String VARa = InputBox(Prompt:="Indtast navn.", Title:="Find navn.", Default:="") DoCmd.GoToControl "Kundefornavn" DoCmd.FindRecord VARa, acEntire, False, , True, acCurrent, True Me.Filter = "Kundefornavn = '" & Me!Kundefornavn & "' " Me.FilterOn = True
Hvis du vuk sæge i alle felter, vil jeg anbefale Thomas Jepsen's fremragende "Dynamiske- søge og filtrering" på hjemmesiden:
mekaiteasy.dk
Oppe til højre under downloads. Den er uforlignelig.
Synes godt om
Ny brugerNybegynder
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.
