Avatar billede pongobear Nybegynder
30. januar 2009 - 14:01 Der er 8 kommentarer og
1 løsning

Dynamisk Synlig Ja/Nej

Jeg har en tekstbox som indeholder en værdi 0 eller 1.

Jeg har et label på min form, som jeg ønsker at vise vis tekstboxens værdi er 1 eller skal label ikke være synlig.

Hvordan kan man det?

ITumpen
Avatar billede mugs Novice
30. januar 2009 - 14:07 #1
If me.tekstboks = 1 then
me.etiket.visible = True
Else:
Me.etiket.visible = false
end if

Jeg kan ikke lige præcis huske om 1 svarer til true eller false (afkrydset eller ej)
Avatar billede mugs Novice
30. januar 2009 - 14:09 #2
Værdien -1 svarer til at feltet er afkrydset.
Avatar billede fdata Forsker
30. januar 2009 - 14:20 #3
Eller turbo-udgaven  ;o)
me.etiket.visible = -me.tekstboks
Avatar billede pongobear Nybegynder
30. januar 2009 - 14:21 #4
Okay, jeg har forsøgt dette, men får beskeden "Du har indtastet udtryk som ingen værdi har"

Private Sub Report_Open(Cancel As Integer)
If Me.Tekst263 = 0 Then
Me.Tekst239.Visible = True
Else:
Me.Tekst239.Visible = False
End If
End Sub


Hvad gør jeg galt?
Avatar billede fdata Forsker
30. januar 2009 - 14:55 #5
Der skal ikke være : efter Else
Avatar billede mugs Novice
30. januar 2009 - 15:22 #6
Afprøvet og fungerer:


Private Sub Detaljesektion_Format(Cancel As Integer, FormatCount As Integer)
If Me.kryds = 0 Then
Me.kryds.Visible = False
Else:
Me.kryds.Visible = True
End If
End Sub
Avatar billede fdata Forsker
30. januar 2009 - 16:24 #7
OK så. Det var bare det eneste, der så atypisk ud  ;o)

2 forslag:

1. Tjek, om Tekst263 eller Tekst239 findes (eller om de skulle være blevet omdøbt)
2. Flyt koden til Detailsektionens OnFormat hændelse
Avatar billede mugs Novice
30. januar 2009 - 16:35 #8
Mit forslag går ud på datafeltet benævnt kryds. Hvis denne gøres usynlig, vil etiketten følge med. Hvis datafeltet kryds skal være synlig og etiketten skal være usynlig så denne:

Private Sub Detaljesektion_Format(Cancel As Integer, FormatCount As Integer)
If Me.kryds = 0 Then
Me.Etiket1.Visible = False
Else:
Me.Etiket1.Visible = True
End If
End Sub
Avatar billede pongobear Nybegynder
02. februar 2009 - 09:49 #9
Følgende virkede for mig:

Private Sub Report_Activate()
If Me!Tekst263 = 0 Then
Me!Tekst239.Visible = True
Me!Etiket31.Visible = True
Else
Me!Tekst239.Visible = False
Me!Etiket31.Visible = False
End If
End Sub
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