Avatar billede petersen7913 Forsker
29. marts 2016 - 13:20 Der er 10 kommentarer og
1 løsning

SetFocus .. og så har jeg IKKE focus. Hvorfor?

Jeg har en form, som bygger på en forespørgsel. Man kan vælge nogle søgekriterier (ubundne felter) og se resultatet, eller man kan bruge en 'ClearForm' knap, som nulstiller vha. af denne funktion:

Public Sub ClearFields(pForm As Form)
    Dim ctl As Control
   
    pForm.Filter = "1 "
    pForm.FilterOn = True
    pForm.tglFilter.Value = False
   
    For Each ctl In pForm.Controls
        If ctl.ControlType = acComboBox Then
            With ctl
                .SetFocus
                .Text = ""    'Fejler i denne linie
            End With
        End If
    Next ctl
End Sub

De fleste gange fungerer det upåklageligt men det ser ud til!, at hvis der ikke er data i forespørgslen fejler den i linien med Text.

Og grunden til at jeg har en tom forespørgsel er, at systemet er ved at blive gjort klart til brugertest.

Nogen der har en god forklaring?
Avatar billede petersen7913 Forsker
29. marts 2016 - 13:22 #1
Glemte lige:

Jeg får runtime error 2185:

Du kan ikke referere til en egenskab eller metode for et kontrolelement, hvis det ikke har fokus
29. marts 2016 - 15:54 #2
Hej
Har du prøvet med .Value i stedet for?
http://stackoverflow.com/questions/20703479/run-time-error-2185
(scroll lidt ned)

Med venlig hilsen

Birthe Lauridsen
Praktisk IT
Avatar billede petersen7913 Forsker
30. marts 2016 - 10:12 #3
Tak, det ser ud til at fungere :)

Læg et svar så jeg kan lukke
30. marts 2016 - 10:13 #4
Egenskaben .Text er lidt besværlig, så jeg ville bare sætte ctl = Null (eller "")

"" kan også være problematisk, hvis datatypen f.eks. er numerisk.

Jeg ville prøve F.eks:

Public Sub ClearFields(pForm As Form)
    Dim ctl As Control
   
    pForm.Filter = "1 "
    pForm.FilterOn = True
    pForm.tglFilter.Value = False
   
    For Each ctl In pForm.Controls
        If ctl.ControlType = acComboBox Then
            ctl = Null
        End If
    Next ctl
End Sub
30. marts 2016 - 10:23 #5
Super :)
Avatar billede petersen7913 Forsker
30. marts 2016 - 12:14 #6
thomasjepsen, det med svaret var møntet på Birthe Lauridsen ;)
30. marts 2016 - 12:25 #7
Nå, sorry - men fint nok :). Pointene betyder ikke så meget, bare du fik løst problemet :)
30. marts 2016 - 15:36 #8
Godt jeg kunne hjælpe

mvh
Birthe
Avatar billede fdata Forsker
30. marts 2016 - 21:36 #9
Thomas Jepsen is back on e !!! ;O)
30. marts 2016 - 22:41 #10
Hehe, Hej FData 😊
Long time, No see ;)
Er her kun for en kort bemærkning - mindst 2 år siden sidst, kan jeg se. Men hyggeligt :)
Avatar billede terry Ekspert
03. april 2016 - 18:38 #11
Hi Thomas, what you doing here, almost forgot you existed.
Hope your being kept busy with makeiteasy :-)
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

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