Beim öffnen einer UF Bezeichnungsfelder und J/N felder ein oder ausblenden

Computer: Software & Programmierung Programmierung allgemein
#1

Hallo VBA-ler,
Ich brauch mal wieder Hilfe:
ich öffne aus einer UF1 per Klick eine andere UF mit Namen „Prüfprotokolle“.
Beim Öffnen dieser UF „Prüfprotokolle“ sollen nun verschiedene CheckBoxes mit Ihnen Bezeichnungsfeldern ein- oder ausgeblendet werden.
Sieht so aus:
If strVertriebskanal = „Berater“ Then
Debug.Print „Berater“
DoCmd.OpenForm stDocName
Bezeichnungsfeld2.Visible = False 'Zusatzspalten
Bezeichnungsfeld29.Visible = True 'Emailadressen
Bezeichnungsfeld32.Visible = True 'Anschriften
Bezeichnungsfeld33.Visible = False
Bezeichnungsfeld34.Visible = False
Bezeichnungsfeld35.Visible = False
Bezeichnungsfeld36.Visible = True
Bezeichnungsfeld44.Visible = False

ElseIf "Zentrales Mailing" Then
    Debug.Print "Zentrales Mailing"
        Bezeichnungsfeld28.Visible = True    'Zusatzspalten
        Bezeichnungsfeld29.Visible = False  'Emailadressen
        Bezeichnungsfeld32.Visible = True   'Anschriften
        Bezeichnungsfeld33.Visible = True
        Bezeichnungsfeld34.Visible = True
        Bezeichnungsfeld35.Visible = True
        Bezeichnungsfeld36.Visible = False
        Bezeichnungsfeld44.Visible = True
ElseIf "Zentrales Mailing (Post)" Then
    Debug.Print "Zentrales Mailing (Post)"
        
End If

Leider bekomme ich beim Einzelschritt jedes mal die Mitteilung:
„Fehler beim Kompilieren - Variable nicht definiert“
und zwar schon beim Bezeichnungsfeld 2.

Brauch Hilfe
Christian

#2

Moin,

DoCmd.OpenForm stDocName

was steht denn in stDocname?

Gruß Ralf

#3

stDocName = „Prüfprotokolle“

:sunglasses:

#4

Hallo Christian,

auf die Gefahr hin, dass das zu einfach ist. In deinem Posting schreibst du einmal:

und danach:

Prüfe mal, wie denn das Feld nun benannt ist: …2 oder …28

fg

Dirk_P

#5

Hallo Dirk,

„Bezeichnungsfeld 2“ ist richtig.

die Notiz mit Zusatzspalten ist Blödsinn.

Eines ist noch merkwürdig.
Unter „strVertriebskanal“ hat er zwar die Value ausgelesen, aber er hat zusätzlich
"<div>.......</div>" vor und hinter den Begriff gesetzt.
Als Meldung „Error.Description“ bringt er Typen unverträglich…

Christian

#6

Hallo Christian,

wenn ich das so lese…

stDocName ist eine Form und wird aus UF1 geöffnet.
Der Code, der dann folgen soll, liegt in UF1.
Auf der Form stDocName gibt es das Bezeichnungsfeld2.

Dann kann der Code in UF1 das nicht ansprechen.

Ich glaube, du must den Code, der nach dem öffnen des Formulars folgt, in die zu öffnende Form legen und dort bi onOpen (oder so etwas) ablaufen lassen.

oder es geht so etwas:
stDocName.Bezeichnungsfeld2,Visible = True

Frage am Rande ist das in EXCEL?

fg

Dirk_P