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
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
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
Synes godt om
Ny brugerNybegynder
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.