18. april 2002 - 09:26Der 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
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"
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)
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
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)
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.