A03 arbeitet nicht unter A07

29/01/2010 - 22:06 von Lupus Goebel | Report spam
Hallöschen,

drehe gerade ein bissel durch.

Meine A03 Anwendung (mde) abreitet bei mir reibungslos. Doch auf dem
Zielrechner gibt es ein Textfeld in dem kein Text erfasst werden kann.
Alle andere Felder in dem Formular können bearbeitet werden. Alles die
gleiche Tabelle!

Nun habe ich in dem Formular, Textfelder, Kombifelder etc.
unterschiedliche Berechtigungen in den Eigenschaften eingestellt. Diese
werden je nach dem welcher User angemeldet ist, geàndert.

Nun passiert folgendes:
Test 1:
Textfeld: Adresse1 --> Eigenschaften --> Daten gesperrt *Nein*
Prüfung ob User àndern darf --> gesperrt
Unter A03 ist es nicht gesperrt, unter A07 ist es gesperrt


Test 2
Textfeld: Adresse1 --> Eigenschaften --> Daten gesperrt *Ja*
Prüfung ob User àndern darf --> Nichtgesperrt
Unter A03 ist es gesperrt, unter A07 ist es nicht gesperrt


Es verhàlt sich also irgendwie genau annersdrum.

Zufall oder mache ich einen groben Fehler? Oder wird der Code evtl.
sogar aus Sicherheitsgründen gar nicht ausgeführt? Wobei der restliche
VBA Code seine Arbeit verrichtet.

Der relevante Code dazu:
\\\
Function Berechtigungen(strStatus As String)
Dim ctl As Control
With CodeContextObject
If strStatus = "gesperrt" Then
For Each ctl In .Controls
If ctl.Tag = "1" Then
Select Case ctl.Properties.Count
Case 91 ' Textfelder
ctl.Locked = True
Case 92 ' Kompinationsfelder
ctl.Locked = True
Case 30 ' Unterformulare
ctl.Enabled = False
Case 51 ' Schalter
ctl.Enabled = False
Case Else
End Select
End If
Next ctl
Else
For Each ctl In .Controls
If ctl.Tag = "1" Then
Select Case ctl.Properties.Count
Case 91 ' Textfelder
ctl.Locked = False
Case 92 ' Textfelder
ctl.Locked = False
Case 30 ' Unterformulare
ctl.Enabled = True
Case 51 ' Schalter
ctl.Enabled = True
Case Else
End Select
End If
Next ctl
End If
End With
End Function
///



MfG - Lupus Goebel
Der Sumpf- Morasthobbybastler und Anfaenger mit
Wissensdurst (http://www.lupusdw.de http://foto.lupusdw.de)
Urlaub macht man in Irland: http://www.eaglesnest-bb.com/
 

Lesen sie die antworten

#1 Jörg Ackermann
29/01/2010 - 22:17 | Warnen spam
Hallo Lupus,

Lupus Goebel meinte:


Select Case ctl.Properties.Count



Seltsame Prüfung...

A2007 hat wohl einige zusàtzliche Properties
Dat wird so nicht gehen.

Mache es doch so:

For Each ctl In Me.Controls

Select Case True

Case TypeOf ctl Is TextBox
'
Case TypeOf ctl Is ComboBox
'...
End Select

Next ctl


Gruß

Mitglied im DBDEV http://www.dbdev.org
Access-FAQ: http://www.donkarl.com

Ähnliche fragen