Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Daten im Unterformular von bestimmten Benutzern sperren
zurück: Problem beim Löschen weiter: Bedingte Formatierung - Teilstring Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
NiciGast
Gast


Verfasst am:
09. Sep 2010, 10:30
Rufname:

Daten im Unterformular von bestimmten Benutzern sperren - Daten im Unterformular von bestimmten Benutzern sperren

Nach oben
       Version: Office 2003

Hallo Zusammen,

ich habe eine Datenbank in der ich ein Formular hab mit Unterformular. Ich möchte gern bestimmten Benutzern die Rechte geben die Datensätze zu sperren und zuentsperren.Die Rechte sind in einer Tabelle.

Das sperren soll über ein Ja/nein-Feld erfolgen, also ein Kontrollkästchen.
Kann mir einer hilfen wie ich das umsetzte.
NiciGast
Gast


Verfasst am:
09. Sep 2010, 12:01
Rufname:

AW: Daten im Unterformular von bestimmten Benutzern sperren - AW: Daten im Unterformular von bestimmten Benutzern sperren

Nach oben
       Version: Office 2003

Ich hab es nun hin bekommen das die Datensätze gesperrt werden können, aber ich möchte gern nur immer einen Datensatz sperren. Und ein weiteres problem ist das er sich das nicht sperren nicht speichert.

Kann mit bitte einer helfen. DAnke schon einmal im Voraus.

Code:

Private Sub Form_Current()
If Me.Dirty Then Me.Dirty = False
Me.AllowEdits = Not Me.sperren
Me.AllowAdditions = Me.AllowEdits
End Sub

^ist auch bei nach Aktuallisieren.


Und das ist beim Klicken auf das Ja/nein-feld:
Code:

Dim db      As DAO.Database
Dim rs      As DAO.Recordset
Dim strSQL  As String

Set db = CurrentDb
strSQL = "ABFRAGE"

Set rs = db.OpenRecordset(strSQL)
If Not rs.EOF And Not rs.BOF Then
Sperre_Feld = rs("admin")
End If
Set rs = Nothing
Set db = Nothing

If (Sperre_Feld= 0) Then
Feld1.Enabled = True
Feld2.Enabled = True
Feld3.Enabled = True
Feld4.Enabled = True
Else
Feld1.Enabled = False
Feld2.Enabled.Enabled = False
Feld3.Enabled= False
Feld4.Enabled  = False
End If
Sub end
NiciGast
Gast


Verfasst am:
09. Sep 2010, 12:02
Rufname:


AW: Daten im Unterformular von bestimmten Benutzern sperren - AW: Daten im Unterformular von bestimmten Benutzern sperren

Nach oben
       Version: Office 2003

Ich hab es nun hin bekommen das die Datensätze gesperrt werden können, aber ich möchte gern nur immer einen Datensatz sperren. Und ein weiteres problem ist das er sich das nicht sperren nicht speichert.

Kann mit bitte einer helfen. DAnke schon einmal im Voraus.

Code:

Private Sub Form_Current()
If Me.Dirty Then Me.Dirty = False
Me.AllowEdits = Not Me.sperren
Me.AllowAdditions = Me.AllowEdits
End Sub

^ist auch bei nach Aktuallisieren.


Und das ist beim Klicken auf das Ja/nein-feld:
Code:

Dim db      As DAO.Database
Dim rs      As DAO.Recordset
Dim strSQL  As String

Set db = CurrentDb
strSQL = "ABFRAGE"

Set rs = db.OpenRecordset(strSQL)
If Not rs.EOF And Not rs.BOF Then
Sperre_Feld = rs("admin")
End If
Set rs = Nothing
Set db = Nothing

If (Sperre_Feld= 0) Then
Feld1.Enabled = True
Feld2.Enabled = True
Feld3.Enabled = True
Feld4.Enabled = True
Else
Feld1.Enabled = False
Feld2.Enabled.Enabled = False
Feld3.Enabled= False
Feld4.Enabled  = False
End If
Sub end
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Unterformular über Kombinationsfeld aussuchen... 1 DJ1337 923 14. Feb 2005, 13:53
lothi Unterformular über Kombinationsfeld aussuchen...
Keine neuen Beiträge Access Tabellen & Abfragen: Unterformular öffnen 1 mike1967 1022 10. Feb 2005, 08:53
MirkoK Unterformular öffnen
Keine neuen Beiträge Access Tabellen & Abfragen: Datanorm Daten erzeugen 2 HH Hans 1531 08. Feb 2005, 10:49
HH Hans Datanorm Daten erzeugen
Keine neuen Beiträge Access Tabellen & Abfragen: Vergleich neue Daten mit alten Daten! 28 Sebowsky 3164 29. Jan 2005, 11:38
Sebowsky Vergleich neue Daten mit alten Daten!
Keine neuen Beiträge Access Tabellen & Abfragen: Summieren von gruppierten Daten 3 Thomas Theurer 1202 27. Jan 2005, 17:36
mapet Summieren von gruppierten Daten
Keine neuen Beiträge Access Tabellen & Abfragen: Daten aus Abfrage automatisch in Tabelle aktualisieren 4 Christian22 4080 15. Jan 2005, 13:13
Christian22 Daten aus Abfrage automatisch in Tabelle aktualisieren
Keine neuen Beiträge Access Tabellen & Abfragen: 1. Zeile in der Tabelle sperren ? 3 Marsi 598 13. Dez 2004, 11:47
lothi 1. Zeile in der Tabelle sperren ?
Keine neuen Beiträge Access Tabellen & Abfragen: Anzeigen der Daten einer vorhandenen Tabelle in einer Abfrag 6 brauzer 830 02. Dez 2004, 13:28
brauzer Anzeigen der Daten einer vorhandenen Tabelle in einer Abfrag
Keine neuen Beiträge Access Tabellen & Abfragen: Anzeige aller Daten älter als x Tage 2 abu 819 16. Nov 2004, 13:07
abu Anzeige aller Daten älter als x Tage
Keine neuen Beiträge Access Tabellen & Abfragen: Komment. u Daten in zelle schreiben, Zellenausrichtung festl 2 k@lle 816 06. Okt 2004, 11:49
k@lle Komment. u Daten in zelle schreiben, Zellenausrichtung festl
Keine neuen Beiträge Access Tabellen & Abfragen: Anzahl der Monate zwischen 2 Daten 2 master_tj 1837 22. Jul 2004, 13:17
master_tj Anzahl der Monate zwischen 2 Daten
Keine neuen Beiträge Access Tabellen & Abfragen: eine Abfrage automatisch zu einem bestimmten Zeitpkt starten 3 Carsten 1615 09. Jul 2004, 07:58
lothi eine Abfrage automatisch zu einem bestimmten Zeitpkt starten
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Word VBA