Office: (Office 2016) Code funktioniert nicht mehr

Hallo zusammen,

ich habe ein Formular,
dort gebe ich in zwei Feldern einen Benutzernamen und ein Passwort ein.
im Bericht soll mir das Passwort als Barcode angedruckt werden.

das hat bisher immer funktioniert,

nun haben wir auf Office 365 umgestellt und es funktioniert nicht mehr

beim Aufruf des Berichts kommt die Fehlermeldung
Laufzeitfehler 13
Typen unverträglich

Me.bcUser.Visible = Forms![Benutzerdaten]![txtUser].Value
Me.bcPwd.Visible = Forms![Benutzerdaten]![txtPwd].Value

kann jemand helfen?

Danke

:)

 

In welcher Form hast Du Dich mit den (Daten)Typen bereits auseinandergesetzt?

Die Visible-Eigenschaft erfordert offensichtlich Boolean (True/False). Jetzt müsste man schauen, was die Textfelder liefern.

 

naja, ich habe im Forum gesucht und auch gegoogelt, die Umstellung auf Office 365(64 Bit-Version) wird viel beschrieben und da heißt es, dass der Code komplett umgeschrieben werden muss
-> das kann ich aber nicht und so viel Code haben wir hier ja nicht

die Typen
in dem Form -> Text
in dem Bericht -> Axbarcode Control

ja, der Code Me.bcUser.Visible = -> erwartet jetzt wohl ein true oder false, aber vor der Office-Umstellung hat es doch funktioniert(ohne true oder false)

 

Teilweise wurde/wird 0 als False und etwas anderes als 0 als True interpretiert. Da verlässt man sich aber auf die Interpretation und Fehlertoleranz, und die kann irgendwann "abhanden" kommen.


Mit einer sauberen Programmierung kann man solchen Überraschungen vorbeugen.

 

d.h. man kann nicht einfach diese beiden Code-Zeilen korrigieren, sondern man muss das komplett neu programmieren?

 

Wenn Unsauberkeiten und Schlampigkeiten verbreitet sind, ist eine generelle Überarbeitung keine schlechte Idee, aber eben auch unabhängig von 32 oder 64 Bit oder einer Accessversion. So ein zwischendurch nötiges Hotfix kann ähnliche Effekte haben.

Hier im Fall würde ich mich aber erst einmal WIRKLICH dafür interessieren, WAS da zurückgegeben wird:
Code:

Es ist ja nicht unüblich zu schauen, was man hat, ehe man reagiert. Übrigens nicht nur in der Programmierung ...

 

Hallo,

du könntest mal testen ob diese Art funktioniert.
Ich weiß ja nicht, wann es angezeigt werden soll und wann nicht.
Denke aber, wenn Feld ist Null, dann nicht und umgekehrt.
Code:

 

Was genau ist das Axbarcode Control? Ist das ein 32-Bit Active-X Control?
Jetzt läuft Office 365 64-Bit. Das könnte die Probleme verursachen. Ob man das einfach so umprogrammieren kann ist fraglich.

Grüße
Ingo

 

Bei einer Umstellung sollte man tunlichst prüfen, welche Office-Version man installiert. Standardmäßig wird Office 365 (leider) mit einer 64-Bit Installation gestartet, wer nicht weiß, dass man explizit die 32-Bit Version auswählen kann läuft ins Messer - so wie hier bei Reiner18 geschehen.
Die Nachteiule einer 64-Bit Version überwiegen; auch die Probleme bei Active-X Control's lassen nur einen Rat zu: Deinstallation der 64-Bit Version, Windows Neustart; Office 365 in der 32-Bit Version installieren und der Spuk hat ein Ende.

 

In der Regel musst du beim Hersteller schauen, ob es eine 64 bit OCX Barcode Version gibt. Wenn die installiert wird, sollte es wieder laufen.

Gruß
Jo

 

der Code von Kyron9000 funktioniert,
aber es wird dann nur ein leeres Blatt gedruckt
auch wenn ich den Code komplett weg lasse, kommt keine Fehlermeldung, aber es wird nur ein leeres Blatt gedruckt
d.h. wir brauchen die 64 bit OCX Barcode Version, verstehe ich das richtig?

 

...wird der Barcode im Bericht, in der Seitenansicht angezeigt?
Wird überhaupt etwas im Bericht angezeigt?
Hast schon mal getestet ob es in einem Formular funktioniert?
Ich habe bei mir gar keinen Code vom Barcode-Scanner im Programm.
Ich verwende als Schriftart [Bar-Code 39]
In der Abfrage: BC: "*" & [IDMaterial] & "*"
Habe es getestet funkt auch mit String z.B. "*" & Material & Seriennummer & "*"
Oder hast vielleicht "Private Declare Function..." im Programm, das könntest für 64 Bit so lösen...
Code:

dann hast es für 32 Bit und für 64 Bit.
Mehr fällt mit dann iM nicht dazu ein.