Einzele Felder eines Formulars bearbeiten, sperren ( Access 2010 VBA )
Mozi
Gesendet: 14.06.14 15:58
Betreff: RE: Einzele Felder eines Formulars bearbeiten, sperren ( Access 2010 VBA )


New user

Beiträge: 3

Hallo Karl,
Danke für die Antwort.
Zu Punkt 2:
2. Nicht jeder Control-Typ besitzt die Eigenschaft "Enabled". Bei den Nichtbesitzern haut's den Code auf.
Ich erhalte den Laufzeitfehler 438
Objekt unterstützt diese Eigenschaft oder Methode nicht


Hab mal folgenden Code zum testen eingefügt:
Select Case ctl.Name
Case "Einrichter" ‘ Textfeld Control Typ 109
MsgBox (ctl.Name & vbCrLf & Me.Einrichter.Properties.Item(2))
Me.Einrichter.Enabled = True 'Wenn ich das Control mit Name anspreche geht es
Me(ctl.Name).Enable = True 'Wenn ich über den ctl.Name gehe kommt der Laufzeitfehler 438

Case "Excel" 'Schaltfläche Control Typ 104
MsgBox (ctl.Name & vbCrLf & Me.Excel.Properties.Item(2))
Me.Excel.Enabled = True 'Wenn ich das Control mit Name anspreche geht es
Me(ctl.Name).Enable = False 'Wenn ich über den ctl.Name gehe kommt der Laufzeitfehler 438


Da mein Formular in nächster Zeit immer wieder geändert werde soll würde ich gerne alle Controls durchlaufen und alle bis auf 2 Definierte freigeben.

For Each ctl In Me.Controls

Select Case ctl.Name
Case "Sperren_Entsperren"
Me.Sperren_Entsperren.Enabled = True

Case "SuchtextName"
Me.SuchtextName.Enabled = True

Case "SuchTelNr"
Me.SuchtextName.Enabled = True

Case Else

Select Case ctl.Properties.Item(2)
Case 109 ' Textfeld zur Eingabe eines Wertes
Me(ctl.Name).enable = False

Case 104 ' Schaltfläche Um Befehle / Macrods auszuführen
Me(ctl.Name).enable = True


Case Else ' Für alle anderen Fälle( Wenn der Typ eines Feldes ausgelesen werden soll, einfach
' Kommentar der MsgBox Zeile entfernen
'MsgBox (ctl.Name & vbCrLf & "Typ ID: " & ctl.Properties.Item(2))

End Select
End Select




Gruß
Mozi



Top of the page Bottom of the page