Office: (Office 2007) Felder in Abhängigkeit von cbo Sperren

Hallo liebe Forengemeinde,

wie in der Überschrift schon angedeutet, suche ich nach einer Möglichkeit, Textboxen in einem Form zu sperren, je nach dem was in einem cbo ausgewählt wurde (gleiches Form). Die Felder sollten 1. gesperrt und 2. grau hinterlegt werden.

Es werden zu verschiedenen Auswahlmöglichkeiten des cbo natürlich entsprechend Textboxen gesperrt oder nicht.

Eigentlich, hab ich die üblichen Verdächtigen (Google und co) durch.... nichts klappt oder funktioniert annähernd. Die Felder sind durch bedingte Formartierung so gemacht, das sie bei Fokus gelb werden. K.a. ob es damit zusammenhängt. Vielleicht klappt das ja auch ohne VBA sondern nur mit bedingter Formatierung ?

:)

 

Servus Stadtbub,
gib uns eine Demo DB, bitte.
Vorher über die Accessoptionen Reparieren/Komprimieren und dann als zip- oder rarFile ins Forum setzen.
Es dürfte nicht besonders schwierig sein, da eine Lösung zu finden.

 

Statt Google und co hättest du vielleicht die VBA Hilfe konsultieren sollen.
Du kannst entweder Locked oder Enabled setzen (True/False), abhängig davon was du genau erreichen willst.

Und wie hast du das versucht?
Fehlermeldung?
Vielleicht zeigst du das Code Fragment.

LG M

 

Hier mal die DB - leider funktioniert einiges nun nicht mehr nachdem ich die Daten alle Rausgelöscht habe - ich habe keine Ahnung wieso (z.b. im frmGeraet kann ich keine Wartungsdatensätze mehr speichern oder Ausgabedatensätze...es kommt eine Fehlermeldung "Benutzerdefinierter Typ nicht definiert" ????? . Es geht aber erstmal um das frmNeuesGeraet.....dort möchte ich diese Felder sperren in Abhängigkeit vom cbo - Inhalt.

Leider kann ich die Links hier nicht reinstellen und ich kann es nicht gut erklären. Es waren Tips bzw Vorgehensweisen aus dem Forum von www.Office-Loesung.de

 

Hallo,
eine Zip mit 22 Bytes kann keine DB enthalten. Mit anderen Worten, der Anhang ist leer.

 

Aber jetzt *Smilie

ABER....ich kann seit gestern Abend nichts mehr speichern....auch nicht im Realbetrieb mehr - folgender VBA Code lief bis jetzt ohne Probleme :

Code:

Jetzt kommt eine Fehlermeldung : Fehler beim Kompilieren : Benutzerdefinierter Typ nicht definiert !!!

 

Vorab:
Der Verweis auf Microsoft DAO hat gefehlt - daher der Compiler-Fehler.

 

Moin,

da fehlt eine Library. Anhängen mit Extras > Verweise.

 

Tja... da ist dann wohl der Fehler....

Zuhause arbeite ich mit Office 2007

Im Betrieb mit 2010 - Sobald ich dort den Haken bei DAO Reinmache kommt ein Fehler :

DLL nicht gefunden => Lt. Microsoft wäre diese DLL auch nicht mehr nötig ??

 

Seit Office 2007 - auch ohne Accessinstallation - kommt das Microsoft Office XX.0 Access Database Engine Object daher. Dieses ist ein "aufgebohrtes" DAO und macht die Umsetzung neuerer Features wie Anlagenfelder, mehrwertige Felder, DataMacros u.a. möglich, beinhaltet aber auch komplett das alte DAO.

 

Problem selbst gelöst xD = Zuhause jetzt die DAO Verweise gemacht und die DB dann per Teamviewer hochgeladen. Jetzt klappt wieder alles....keine Ahnung wieso aber gut. Dann wäre ich jetzt für die Hilfe mit den Feldern sehr Dankbar *Smilie

Bzw jetzt die Library wie von ebs geschrieben aktiviert und den DAO raus - Klappt alles Bestens *Smilie

 

Einer ne Idee mit den Textboxen ?

 

Hallo,

kannst du die Frage evtl. noch etwas präziser formulieren?

 

Moin,

aus meiner Kruschdkiste:
Code:

 

Hmm... okay...

Leider kann ich als VBA - Noob damit jetzt ja garnichts wirklich anfangen *frown.gif*

Also zur Erklärung Maggie :

Ich habe Ein Formular über das ich Daten eingebe - im Formular gibt es ein cbo mit verschiedenen Werten drin. Nun sollen Textfelder in in Abhängigkeit der Auswahl im CBO gesperrt und grau hinterlegt werden (Hintergrundfarbe).... mehr nicht.


Ich hab es jetzt mal so versucht :

Private Sub TextBox_Disable()

If Me.cboGeraetetyp = "Lungenautomat" Then
Me.TUV.Locked = True
Me.DruckmindererNR.Locked = True
Me.LungenautomatNR.Locked = True
Me.Sprachmembrantausch.Locked = True
Me.Ventilscheibenwechsel.Locked = True
Else
Me.TUV.Locked = False
Me.DruckmindererNR.Locked = False
Me.LungenautomatNR.Locked = False
Me.Sprachmembrantausch.Locked = False
Me.Ventilscheibenwechsel.Locked = False

End If

End Sub



vG