Select Case, Felter visible

Denne er afprøvet og fungerer:

Private Sub Form_Current()
Select Case Me.Type
Case 1, 2, 6, 7
    Me![Båndmærke].Visible = True
    Me![Båndlængde].Visible = True
    Case Else
    Me![Båndmærke].Visible = False
    Me![Båndlængde].Visible = False
End Select
End Sub

Når din Case betingelse er opfyldt er felterne synlige som de skal være, men du mangler at fortælle om de skal være synlige eller usynlige hvis betingelsen ikke er opfyldt (Case Else).

Jeg kan da se, at jeg har læst dit spørgsmål med de forkerte briller. Venligst afvis mit svar.

Private Sub Form_Load()

' gør felterne "Båndmærke, Båndlængde eller videofiltype usynlige.
' alt efter hvad der er valgt i typefeltet.
Select Case Me!Type
Case 1, 2, 6, 7
    Me![Båndmærke].Visible = True
    Me![Båndlængde].Visible = True
    Me![VideofilType].Visible = False
Case Else
    Me![Båndmærke].Visible = False
    Me![Båndlængde].Visible = False
    Me![VideofilType].Visible = True
End Select
(Case Else) gjorde et par andre ting nemmere for mig.
Mit problem var at jeg ikke kunne få feltene Me![Regionskode]og Me![Region].
til at forsvinde jeg prøvede at lave 2 stk Select Case. det var løsningen.
Så koden kom til at se sådan ud.
Select Case Me!Type
Case 3, 11, 12, 13, 14
    Me![Regionskode].Visible = True
    Me![Region].Visible = True
Case Else
    Me![Regionskode].Visible = False
    Me![Region].Visible = False
End Select
End Sub

Tak for hjælpen Mogens.

Det blev vist noget rodet. Kopier og indsæt kan vist godt give problemer.
Som sagt før.

(Case Else) gjorde et par andre ting nemmere for mig.
Mit problem var at jeg ikke kunne få feltene Me![Regionskode]og Me![Region].
til at forsvinde jeg prøvede at lave 2 stk Select Case. det var løsningen.
Så koden kom til at se sådan ud.

' gør felterne "Båndmærke, Båndlængde eller videofiltype usynlige.
' alt efter hvad der er valgt i typefeltet.
Select Case Me!Type
Case 1, 2, 6, 7
    Me![Båndmærke].Visible = True
    Me![Båndlængde].Visible = True
    Me![VideofilType].Visible = False
Case Else
    Me![Båndmærke].Visible = False
    Me![Båndlængde].Visible = False
    Me![VideofilType].Visible = True
End Select

Select Case Me!Type
Case 3, 11, 12, 13, 14
    Me![Regionskode].Visible = True
    Me![Region].Visible = True
Case Else
    Me![Regionskode].Visible = False
    Me![Region].Visible = False
End Select
End Sub

Har arbejdet i min have det meste af dagen, så jeg er sikkert for træt af al den friske luft. Det kan umuligt være sundt.

Men når blot skidtet fungerer så er alle jo glade.

Du fik afligevel de 30 point for tippet med Case Else, det sparer mig for at skrive alle de øvrige værdier. Smart :).
Nu vil jeg til køjs.
tak for i aften.

Som vi siger på disse kanter: o'langs
Godnat.