per2edb Professor
16. september 2020 - 11:43 Der er 4 kommentarer og
2 løsninger

DoCmd.FindRecord fejler

Jeg har et dataark med et feld (fldName) hvor jeg søger en værdi (fldValue)
Jeg får fejlen 2137 Du kan ikke bruge søg eller erstat nu
Kan i hjælpe med at sætte DoCmd.FindRecord rigtigt


  Frm.SetFocus
  Frm.Requery
   
      Frm(fldName).SetFocus

        DoCmd.FindRecord fldValue, acEntire, False, acSearchAll, False, acCurrent, True
Gustav Juniormester
16. september 2020 - 12:26 #1
Prøv at søge direkte i formularens poster:

Frm.SetFocus
Frm.Requery
 
Dim Records as DAO.Recordset

Set Records = Frm.RecordsetClone
If Records.RecordCount > 0 Then
    Records.MoveFirst

    ' Søg tekst.
    Records FindFirst "[" & filName & "] = '" & fldValue & "'"
    ' Søg tal.
    ' Records FindFirst "[" & filName & "] = " & Str(fldValue) & ""

    If Not Records.NoMatch Then
        Frm.Bookmark = Records.Bookmark
    End If
End If
Records.Close

Frm(fldName).SetFocus
per2edb Professor
16. september 2020 - 14:22 #2
OK Tak men den løsning har jeg.
Jeg vilde imidlertid godt have DoCmd.FindRecord til at virke da den er simplere
Gustav Juniormester
16. september 2020 - 14:40 #3
Du kunne jo godt have skrevet, at du havde en løsning, der virker, men at du blot undrer dig over, at DoCmd.FindRecord ikke virker som tilsigtet.

Simplere er den måske, men den opererer i brugerfladen, så det kan være derfor, den ikke virker.
per2edb Professor
16. september 2020 - 14:56 #4
Det er nu ikke så simpelt endda. Jeg ikke blot undre mig, jeg skal faktisk bruge DoCmd.FindRecord da den indgår mange steder i programmet.
Du kan være på rette vej da det tyder på der er forskel på om det er popup form eller
ikke
Gustav Juniormester
16. september 2020 - 15:17 #5
Det lyder rigtigt. Hvis DoCmd virker, hvis formularen åbnes normalt, er det derfor.

Hvis du skal bruge noget tilsvarende mange steder, kunne du oprette en hjælpefunktion, der kan kaldes i én linje:

Public Function FindPost( _
    ByRef Frm As Form, _
    ByVal Criteria As String) _
    As Boolean

    Dim Records As DAO.Recordset
    Dim Match  As Boolean

    Set Records = Frm.RecordsetClone
    If Records.RecordCount > 0 Then
        Records.MoveFirst
        Records FindFirst Criteria
        Match = Not Records.NoMatch
        If Match Then
            Frm.Bookmark = Records.Bookmark
        End If
    End If
    Records.Close

    FindPost = Match

End Function
per2edb Professor
18. september 2020 - 18:02 #6
1000 tak for den flotte anvisning af en søgefunktion som kan anvendes af mange.

Desværre fik jeg ikke løst problemerne med  DoCmd.FindRecord så jeg går i gang med at skifte dem ud (Nb har over 100 - øv)
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

Opret Preview

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





Premium
ATP har bygget it-system til udbetaling af feriepenge på tre måneder: "Mange har arbejdet nat og weekender for at nå det"
Interview: ATP-medarbejdere har måttet droppe sommerferien og arbejde om natten, men nu er løsningen til udbetaling af danskernes indefrosne feriemidler klar. "Lige nu har vi 300.000 i kø, og der er en ventetid på omkring to timer," siger ATP-underdirektør Jesper Juel-Helwig. Bliv klogere på, hvordan ATP har skabt den nye løsning på tre måneder.
Computerworld
Elon Musk præsenterede fremtidens Tesla-batteri - og straks styrtdykkede aktien
Tesla-stifteren Elon Musk præsenterede tirsdag selskabets visioner og strategier inden for fremtidens elbils-batteri. Men nyhederne - eller mangel på samme - fik investorerne til sende aktien ned med 5,6 procent.
CIO
Torben Fabrin og Arla måtte på få dage omstille hele deres produktion da coronaen ramte
Da coronaen ramte verden måtte mejerigiganten Arla på få dage omstille sin produktion. Samtidig voksede salget massivt til supermarkeder mens institutioner og restauranter gik næsten i stå. Hør hvordan Arla kom gennem krisen ved blandt andet være klar med realtime analytics.
Job & Karriere
På jagt efter et it-job i Jylland? Her er 10 stillinger fra Aabenraa til Aalborg, der ledige netop nu
Vi har fundet en række spændende stillinger til dig, der jagter et it-job. Her kan du vælge og vrage mellem ledige stillinger lige fra Aabenraa til Aalborg.
White paper
Beskyt virksomhedens data og digitale værdier i døgndrift – målrettet, hurtigt og effektivt
Et konstant skiftende trusselsbillede og ændrede behov for eksempelvis flere hjemmearbejdspladser udfordrer virksomheden drift, indtjening og – i værste fald – eksistens. Men her er ofte allerede ganske mange sikkerhedssystemer i drift, og derfor er løsningen sjældent endnu flere tiltag og lag. De vil ofte blot bidrage til forvirringen, øge antallet af alarmer og måske endda ende med at gøre virksomhedens mere sårbar. I stedet kan det give mening at vælge en ekstern leverandør, der kan overvåge og sikre de digitale aktiver fokuseret, effektivt og i døgndrift. Helt uden behov for at sætte kostbare og ressourcekrævende projekter i søen – og uden at skulle tilkøbe dyre konsulentydelser og specialressourcer. Det kan du læse meget mere om i denne hvidbog.