Avatar billede tommyf Nybegynder
20. november 2007 - 09:55 Der er 11 kommentarer og
1 løsning

Bruge billede som chekbox

Jeg har en tabel med nogle JA/NEJ felter. Nu vil jeg så gerne lave en formular, indeholdende en række billeder. Som udgangspunkt er felterne ikke markeret og billederne grønne. Når der så klikkes på billederne, vil jeg gerne opdatere status til "afkrydset" og skifte billedet til et nyt (rødt).

Nogle forslag?

Hvis ovenstående ikke er klart, så spørg endelig ind.
Avatar billede rosco Novice
20. november 2007 - 10:19 #1
Har du overvejet at bruge et talfelt istedet og så anvende "Betinget formattering"?

Der kan du lægge farver på hver felt, afhængig af forskellige kriterier....

Du kan dog maks have 3 kriterier på hvert felt, men du har jo i princippet også kun 2 kriterier her.
Avatar billede rosco Novice
20. november 2007 - 10:21 #2
Så kunne du jo bruge dette,
Ved klik        Me!felt1.value = 1
Ved dobbeltklik Me!felt1.value = 2
Avatar billede tommyf Nybegynder
20. november 2007 - 13:57 #3
Jeg kan få "generer hændelsesforløb" frem på billeder, men ikke den med "betinget formattering". Hvad gør "Me!" delen i sætningen?
Avatar billede rosco Novice
20. november 2007 - 14:22 #4
Mit forslag var at udskifter billerne med et talfelt.
Avatar billede tommyf Nybegynder
20. november 2007 - 16:23 #5
Okay - sammen med en checkbox og en tekstboks virker det faktisk, selvom det ikke er optimalt. Det lille script du nævnte i 2. indlæg, brokker den sig dog over.
De to værdier i ja/nej-feltet er 0 og -1.
Avatar billede rosco Novice
20. november 2007 - 17:27 #6
Min ide var at droppe checkboxene og nøjes med tekstfelterne, på den her måde kan de jo erstatte checkboxene

Private Sub Felt1_Click()
Me!Felt1.Value = 1
End Sub

Private Sub Felt1_DblClick(Cancel As Integer)
Me!Felt1.Value = 2
End Sub

Var det noget?

værdien bestemmer du jo selv, og så bruge  betinget formatering.
Avatar billede rosco Novice
20. november 2007 - 17:42 #7
Hvis du vil bruge checkboxe, kan du bruge denne

Private Sub check_BeforeUpdate(Cancel As Integer)
Select Case check
   
        Case -1 'Red
            Me.Felt1.ForeColor = RGB(255, 0, 0)
            Me.Felt1.BackColor = RGB(255, 0, 0)
         
        Case 0 'Green
            Me.Felt1.ForeColor = RGB(0, 255, 0)
            Me.Felt1.BackColor = RGB(0, 255, 0)


    End Select
     

End Sub

Det samme på Form current
Avatar billede rosco Novice
20. november 2007 - 17:43 #8
Så behøver du ikke betinget formattering.
Avatar billede tommyf Nybegynder
11. december 2007 - 09:15 #9
Mange tak for hjælpen, smid lige et svar :)
Avatar billede rosco Novice
11. december 2007 - 14:14 #10
Lykkedes det ?
Svar fra mig
Avatar billede rosco Novice
11. december 2007 - 14:14 #11
!
Avatar billede tommyf Nybegynder
11. december 2007 - 16:22 #12
Ja, det lykkedes. Fik lige lidt hjælp til at sætte dit script ind, da det ikke rigtig kunne lykkes for mig :)
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