Avatar billede rosco Novice
01. maj 2003 - 14:07 Der er 12 kommentarer og
1 løsning

Select Case for at fjerne Focus på knap

Access 2000, Videokartotek
Jeg har et afkrydsningsfelt der hedder udlånt
Focus på knappen "Se låner", skal afhænge af om udlånt er afkrydset
Jeg har brugt denne kode, men knappen "Se låner" kan ikke få focus,
uanset om der er afkrydset eller ej. Hvad har jeg gjort galt.

Select Case Me.Udlånt
        Case 1
            Me!LåntKnap.Enabled = True
        Case Else
            Me!LåntKnap.Enabled = False
    End Select
Avatar billede sidewinder Nybegynder
01. maj 2003 - 14:14 #1
Prøv med

Select Case Me.Udlånt
        Case -1
            Me!LåntKnap.Enabled = True
        Case Else
            Me!LåntKnap.Enabled = False
    End Select
Avatar billede stry Nybegynder
01. maj 2003 - 14:14 #2
knappen skal som udgangspunkt være Enabled = True for at kunne få fokus.
Avatar billede mugs Novice
01. maj 2003 - 16:54 #3
Private Sub udlånt_Click()
If udlånt = True Then
Me.Selåner.SetFocus
End If
End Sub
Avatar billede rosco Novice
01. maj 2003 - 19:55 #4
Det opfylder ikke det jeg havde tænkt mig.
Knappen "LåntKnap", skal som udgangspunkt ikke være enabled
Avatar billede rosco Novice
01. maj 2003 - 20:15 #5
mugs: Jeg omskrev din kode til.
Private Sub udlånt_Click()
If udlånt = False Then
Me.LåntKnap.Enabled
End If
End Sub
Den gjorde det jeg ønskede,(at "LåntKnap" er Disabled når der ikke er markering i "Udlånt"). men ved klik på udlånt får jeg fejlmeddelelsen,
Compile Error: Invalid use of property, med focus på Enabled.
Avatar billede mugs Novice
01. maj 2003 - 20:21 #6
Me.LåntKnap.Enabled: skal være enten False eller True

Men hvad mener du med "enabled"?
Avatar billede rosco Novice
01. maj 2003 - 20:24 #7
Jeg fik løst problemet Takket være dig mugs. du fik led mig på vej.
det endte med at se sådan ud.

Private Sub udlånt_Click()
'Hvis afkrysningsfelt "Udlånt" er afkydset skal Lånt knap være enabled.
If Udlånt = False Then
Me.LåntKnap.Enabled = True
End If
End Sub
Så nu virker det.
Avatar billede mugs Novice
01. maj 2003 - 20:27 #8
Tak for point.
Avatar billede rosco Novice
01. maj 2003 - 20:29 #9
Enabled: Knappen må ikke kunne anvendes af brugeren medmindre der er sat kryds i feltet "Udlånt".
sådan kunne jeg selvfølgelig have udtrykt det fra starten.:)
Avatar billede mugs Novice
01. maj 2003 - 20:39 #10
Så skal du vel have en Else med:

If udlånt = False Then
Me.LåntKnap.Enabled = True
Else:
Me.LåntKnap.Enabled = False
End If
Avatar billede mugs Novice
01. maj 2003 - 20:43 #11
Du kan også benytte egenskaben synlig Ja eller Nej:

Private Sub Form_Current()
If udlånt = False Then
Me.LåntKnap.Visible = True
Else:
Me.LåntKnap.Visible = False
End If
End Sub
Avatar billede rosco Novice
02. maj 2003 - 15:09 #12
Helt rigtigt: Databasen drillede da jeg åbnede den i dag, jeg manglede Else
Tak for hjælpen.
Avatar billede mugs Novice
02. maj 2003 - 15:10 #13
Selv tak - og god weekend :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