06. december 2004 - 13:02Der er
3 kommentarer og 1 løsning
Filter funktion
Hej,
Når jeg kører mit nedestående kode, så virker alt fint, bortset fra at når jeg beder den lave filter på et postnummer som ikke står i basen og jeg så skal indtaste et andet tal, brokker den sig over at feltet Inputfelt mangler fokus. Debuggeren stopper dér hvor den tjekker længden af feltet.
Private Sub Inputfelt_Change() If Len(Me.Inputfelt.Text) = 4 Then Me.Filter = "[Postnr] = '" & Me.Inputfelt.Text & " '" Me.FilterOn = True Else Me.FilterOn = False End If Me.Inputfelt.SetFocus
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
dim Vara as string VARa = Me.Postnr If DCount("*", "TABELNAVN", "[Postnr] =" & VARa) =0 Then MsgBox "Der er ingen poster med denne værdi." Exit sub If Len(Me.Inputfelt.Text) = 4 Then Me.Filter = "[Postnr] = '" & Me.Inputfelt.Text & " '" Me.FilterOn = True Else Me.FilterOn = False End If Me.Inputfelt.SetFocus
Når jeg prøver at køre din kode, så stopper den ved "Me.FilterOn = True" og siger "Du har annulleret den forrige handling".
Også selvom jeg rettede den anden fejl i koden, den med VARa til Me.Inputfelt.Text
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.
