Avatar billede puppetmaster Nybegynder
18. april 2002 - 09:26 Der er 7 kommentarer og
2 løsninger

Checkbokse og VBA

Hvordan checker man om en checkbox er afkrydset eller ej?

Private Sub frmSpørgeskema_BeforeUpdate(Cancel As Integer)
  If chkNej.Value = Checked Then
    txtUndersøgelsesdato.Enabled = False
  Else
    txtUndersøgelsesdato.Enabled = True
  End If
End Sub
18. april 2002 - 09:57 #1
if checkbox.value = true then
[kode]
else
[kode]
Avatar billede puppetmaster Nybegynder
18. april 2002 - 10:00 #2
Hmmm....der får jeg en fejl:
"Du har indtastet et udtryk, der ingen værdi har"
Og når jeg placerer musen over den highlighted tekst i VBA editoren, får jeg følgende: "True = True"
Avatar billede puppetmaster Nybegynder
18. april 2002 - 10:03 #3
Ups, glemte lige en ting: Jeg har 2 checkbokse, som "connecter" til det samme felt i tabellen (har det nogen betydning?).
Dvs. hvis den ene checkbox er valgt, er den anden ikke (det er lavet vha. Gruppeboks i Access' toolbox)
18. april 2002 - 10:05 #4
husk at dimentionere..

evt.

X=checkbox.value
if X = true then
osv..
Avatar billede jkrons Professor
18. april 2002 - 10:07 #5
Jeg bruger bare følgende

If Me!chkNej = True Then.....
Avatar billede puppetmaster Nybegynder
18. april 2002 - 10:13 #6
Med følgende koder, får jeg samme fejl:

Private Sub frmSpørgeskema_BeforeUpdate(Cancel As Integer)
  If chkNej = true Then
    txtUndersøgelsesdato.Enabled = False
  Else
    txtUndersøgelsesdato.Enabled = True
  End If
End Sub
************************************************************
Private Sub frmSpørgeskema_BeforeUpdate(Cancel As Integer)
  If chkNej.value = true Then
    txtUndersøgelsesdato.Enabled = False
  Else
    txtUndersøgelsesdato.Enabled = True
  End If
End Sub
*****************************************************
Private Sub frmSpørgeskema_BeforeUpdate(Cancel As Integer)
  If chkNej.value = 1 Then
    txtUndersøgelsesdato.Enabled = False
  Else
    txtUndersøgelsesdato.Enabled = True
  End If
End Sub
Avatar billede puppetmaster Nybegynder
18. april 2002 - 10:18 #7
Sorry, jeg checker på værdien af checkboksen, ikke værdien af "rammen", som jeg burde gøre! :(
I får point for ihærdighed.

Her er koden der kører:
Private Sub frmSpørgeskema_BeforeUpdate(Cancel As Integer)
  If frmSpørgeskema.value = 0 Then
    txtUndersøgelsesdato.Enabled = False
  Else
    txtUndersøgelsesdato.Enabled = True
  End If
End Sub
'Checker hvilket af de 2 checkbokse der er krydset af (checkbox1 har værdien 0, checkbox2 værdien 1)
Avatar billede jkrons Professor
18. april 2002 - 10:22 #8
Takker!
18. april 2002 - 15:03 #9
Takker ligeledes - ak ja hvor kan det drille
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