Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Sicherheitshinweis ---> für registrierte Mitglieder <-
AllowEdits
Gehe zu Seite 1, 2  Weiter
zurück: Variablen Name weiterzählen weiter: mehrere Daten aus Tabelle auslesen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
randy
Im Profil kannst Du frei den Rang ändern


Verfasst am:
20. Jul 2006, 16:13
Rufname:

AllowEdits - AllowEdits

Nach oben
       

randy am 13. Jul 2006 um 07:49 hat folgendes geschrieben:
guten morgen,

möchte gerne das dateneingeben in einem frm nur einer person ermöglichen, die anderen sollen aber filtern dürfen.

jetzt funktioniert das eigentlich ganz gut, bis auf den filter, der bleibt weiterhin gesperrt.

help me please.
Code:
Private Sub Form_Current()
    If (Me!ufrm_user1!Name) = "meinName" Then
        Me.AllowEdits = True
      Else
        Me.AllowEdits = False
        Me.AllowFilters = True
    End If
End Sub

Danke

hallo zusammen,

also wie es aussieht kann ich das filtern nicht erlauben, wenn edit auf false steht?
jens05
Moderator


Verfasst am:
20. Jul 2006, 20:44
Rufname:
Wohnort: ~~~~~


AW: allowed edits - AW: allowed edits

Nach oben
       

Hallo,
welchen Filter meinst du eigentlich?
Der Formularfilter geht bei mir auch wenn AllowEdits False ist.?

_________________
mfg jens05 Wink
Gast



Verfasst am:
24. Jul 2006, 08:52
Rufname:

AW: AllowEdits - AW: AllowEdits

Nach oben
       

hallo jens,

jetzt muss ich mich wieder einmal als profi outen aber es hilft nicht... Rolling Eyes

ich filtere über ein kombinationsfeld beim "nach änderung" ereignis.
Code:
Private Sub comFilter_AfterUpdate()
    If IsNull(Me!comFilter) Then
        'Filter deaktivieren
        Me.FilterOn = False
        'Me.comFilter = ""
      Else
        Me.FilterOn = True
        Me.Filter = "MeinFeld Like '" & Me!comFilter & "*'"
    End If
End Sub
ich kann zwar das feld öffnen und die auswahl wird angezeigt, aber eine auswahl ist nicht möglich.

schöne grüße
andi
jens05
Moderator


Verfasst am:
24. Jul 2006, 09:52
Rufname:
Wohnort: ~~~~~

AW: AllowEdits - AW: AllowEdits

Nach oben
       

Hallo,
mit AllowEdits untersagst du die Bearbeitung, auch des Kombis.
markiere alle Elemente des Formulares, die geschützt werden sollen (außer der Kombibox). Suche in den Eigenschaften die Zeile "Marke" (Tag) und schreibe dort ein X rein. Deinen Code kannst du dann so anpassen.
Code:
Private Sub Form_Current()
    Dim ctl As Control

    For Each ctl In Me.Controls
        If ctl.Tag = "x" Then
            ctl.Locked = Not (Me!ufrm_user1!Name = "meinName")
            ctl.Enabled = (Me!ufrm_user1!Name = "meinName")
        End If
    Next ctl 
End Sub

_________________
mfg jens05 Wink
Gast



Verfasst am:
24. Jul 2006, 10:22
Rufname:


AW: AllowEdits - AW: AllowEdits

Nach oben
       

Vielen Dank Jens!!! Razz

dieses meiner problemchen gehört der vergangenheit an... Very Happy
daniel gast
Gast


Verfasst am:
30. März 2009, 09:46
Rufname:

AW: AllowEdits - AW: AllowEdits

Nach oben
       Version: Office 2003

daniel gast am 30. März 2009 um 09:37 hat folgendes geschrieben:
Hi Leute,

der Code ist so schon echt gut, ich brauche ihn aber nur, wenn jemand das Passwort falsch eingegeben hat. Hat jemand eine Idee?

G d

Apropos,

kann jemand die obige Formel erklären, ich verstehe Sie nicht richtig Smile.

Vielen Dank
Willi Wipp
Moderator


Verfasst am:
30. März 2009, 10:22
Rufname:
Wohnort: Raum Wiesbaden

Re: AllowEdits - Re: AllowEdits

Nach oben
       Version: Office 2003

Hi daniel gast,

welchen Code genau meinst Du?
Wo und wie willst Du das Passwort eingeben?
Was genau soll passieren, wenn das Passwort falsch ist?
...

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Gast



Verfasst am:
30. März 2009, 12:02
Rufname:

AW: AllowEdits - AW: AllowEdits

Nach oben
       

Hi Willi,

Die Passworteingabe funktioniert bereits hervorragend!
Wenn das Passwort falsch eingegeben wird, soll der Detailbereich des Formulars "schreibgeschützt" werden.

...Ich glaube dieser Code könnte mir helfen? :
Code:
Private Sub Form_Current()
    Dim ctl As Control

    For Each ctl In Me.Controls
        If ctl.Tag = "x" Then
            ctl.Locked = Not (Me!ufrm_user1!Name = "meinName")
            ctl.Enabled = (Me!ufrm_user1!Name = "meinName")
        End If
    Next ctl 
End Sub
...kann ich den auch ohne unterformular benutzen? Bei mir würde es reichen, wenn der gesamte Detailbereich gesperrt wird.

Das Passwort mit Schreibschutz bei flascher Passworteingabe habe ich folgendermaßen hinterlegt:
Code:
Option Compare Database
Const SW_HIDE = 0       ' Fenster ausblenden
Const SW_NORMAL = 1     ' Fenster wiederherstellen bzw. einblenden
Private Declare Function ShowWindow Lib "user32" _
    (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Private Sub Form_Load()
    Dim hWindow As Long
    Dim nResult As Long
    Dim nCmdShow As Long

    hWindow = Application.hWndAccessApp
    nCmdShow = SW_HIDE ' nCmdShow = SW_HIDE 'Edit by Willi Wipp
    nResult = ShowWindow(ByVal hWindow, ByVal nCmdShow)
    ShowWindow Me.hwnd, SW_NORMAL
End Sub

Private Sub Form_Open(Cancel As Integer)
    SetTimer Application.hWndAccessApp, NV_INPUTBOX, 10, AddressOf TimerProc
    If InputBox("Passwort eingeben", "Passwort") = "geheim" Then
        Msgbox "Richtig"
      Else                             Hier müsste ich das doch irgendwie hinterlegen?oder?
        Msgbox "Falsch"
        Me.AllowEdits = False
        Me.AllowAdditions = False
        Me.AllowDeletions = False
    End If                                          bis hier!?
End Sub
Das Problem beim obigen code ist, dass mir dann wie bei Gast auch leider das Kombifeld gesperrt wird. Deshalb wollte ich nur den Detailbereich "schreibschützen"(Kombifeld ist in der Kopfzeile)....und wie bereits erwähnt soll dies nur bei einer falschen Passworteingabe beim öffnen der DB in Kraft treten. Deswegen habe ich Dir zur Hilfe meinen Code eingefügt.

Ich hoffe, ich konnte es einigermaßen verständlich erklären Smile
Willi Wipp
Moderator


Verfasst am:
30. März 2009, 14:33
Rufname:
Wohnort: Raum Wiesbaden

Re: AllowEdits (II) - Re: AllowEdits (II)

Nach oben
       Version: Office 2003

Hi daniel gast,

wie waere es etwa so
Code:
Private Sub SetControls(frm As Form, bln As Boolean)
    Dim ctl As Control

    For Each ctl In frm.Controls
        If ctl.Tag = "x" Then
            ctl.Locked = Not bln
            ctl.Enabled = bln
        End If
    Next ctl
    frm.AllowAdditions = True
    frm.AllowDeletions = True
End Sub

Private Sub Form_Open(Cancel As Integer)
    SetTimer Application.hWndAccessApp, NV_INPUTBOX, 10, AddressOf TimerProc
    If InputBox("Passwort eingeben", "Passwort") = "geheim" Then
        MsgBox "Richtig"
        SetControls Me, True
      Else
        MsgBox "Falsch"
        SetControls Me, False
    End If
End Sub

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)


Zuletzt bearbeitet von Willi Wipp am 30. März 2009, 15:35, insgesamt 2-mal bearbeitet
danielgast
Gast


Verfasst am:
30. März 2009, 15:25
Rufname:

AW: AllowEdits - AW: AllowEdits

Nach oben
       Version: Office 2003

Hi Willi,

wenn ich deinen code benutze meckert er noch folgende Stelle an?:
Code:
Private Sub Form_Open(Cancel As Integer)
    SetTimer Application.hWndAccessApp, NV_INPUTBOX, 10, AddressOf TimerProc
    If InputBox("Passwort eingeben", "Passwort") = "geheim" Then
        Msgbox "Richtig"
        SetControls True    '<---------wird gelb markiert
      Else
        Msgbox "Falsch"
        SetControls False   '<---------wird gelb markiert
    End If
End Sub
ist das ein normaler code der ins Formular kommt, oder ist das ein neues modul?
Was muss ich beachten, damit es hinhaut?

Liebe Grüße

Daniel
Willi Wipp
Moderator


Verfasst am:
30. März 2009, 15:37
Rufname:
Wohnort: Raum Wiesbaden

Re: AllowEdits (III) - Re: AllowEdits (III)

Nach oben
       Version: Office 2003

Hi daniel gast,

hatte Oben den Bezug auf das Formular (1. Parameter) vergessen.
Da es Formular-Ereignisse sind, ist sicher das Formular-Modul der geeignete Platz Wink

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Danielgast
Gast


Verfasst am:
30. März 2009, 15:51
Rufname:

AW: AllowEdits - AW: AllowEdits

Nach oben
       Version: Office 2003

Hi Willi,

entschuldige, dass ich so unbedarft fragen muss?...Wie genau meinst du das mit dem Bezug?

Zitat:
Da es Formular-Ereignisse sind, ist sicher das Formular-Modul der geeignete Platz
Meinst du damit, dass ich ein neues modul, oder im bestehenden Codetext des Formulars arbeiten muss? Smile

LG

Daniel
Willi Wipp
Moderator


Verfasst am:
31. März 2009, 01:40
Rufname:
Wohnort: Raum Wiesbaden

Re: AllowEdits (IV) - Re: AllowEdits (IV)

Nach oben
       Version: Office 2003

Hi daniel gast,

ich meinte damit das Me, im SetControls Me, True.
Ein Formular kann nur ein Klassen-Modul (VBA) d.h. Formular-Modul besitzen!

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
DanielGast
Gast


Verfasst am:
31. März 2009, 14:03
Rufname:

AW: AllowEdits - AW: AllowEdits

Nach oben
       Version: Office 2003

Hi Willi,

habe jetzt eine ganze Weile dran getüftelt.

Leider funktioniert es bei mir nicht mit diesem code.

Hast du vielleicht eine andere Idee bzw. Link, wo ich mich irgendwie in die Richtung informieren kann? Bräuchte es dringendst.

Vielen Dank

Daniel
derArb
getting better


Verfasst am:
31. März 2009, 14:13
Rufname: derArb
Wohnort: Berlin


AW: AllowEdits - AW: AllowEdits

Nach oben
       

hallo,

was geht denn nicht?
Etwas genauer wäre hilfreich

mfg
derArb

_________________
MfG
derArb

Scio me nihil scire...Εν οίδα οτι ουδέν οίδα... Ich weiss, dass ich nichts weiss (Sokrates)
Ich bevorzuge Beiträge mit korrekter deutscher Grammatik.
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Gehe zu Seite 1, 2  Weiter
Diese Seite Freunden empfehlen

Seite 1 von 2
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 Formulare: AllowEdits = False Problem 1 relaxo 113 28. Feb 2013, 22:47
reeky AllowEdits = False Problem
Keine neuen Beiträge Access Formulare: AllowEdits für einzelne Textbox ? 4 Olli10 294 15. Jun 2012, 18:42
Olli10 AllowEdits für einzelne Textbox ?
Keine neuen Beiträge Access Programmierung / VBA: allowedits nur für bestimmte felder? 2 Gast 204 25. Mai 2012, 16:39
JMalberg allowedits nur für bestimmte felder?
Keine neuen Beiträge Access Formulare: AllowEdits und acFormEdit funktioniert nicht 6 helpwanted 585 21. März 2012, 11:26
helpwanted AllowEdits und acFormEdit funktioniert nicht
Keine neuen Beiträge Access Formulare: AllowEdits 1 Gast 167 08. Feb 2011, 10:13
Trubel AllowEdits
Keine neuen Beiträge Access Programmierung / VBA: AllowEdits auf False aber trotzdem Bearbeitung möglich... 10 Sebbi2010 604 30. Apr 2010, 22:27
KlausMz AllowEdits auf False aber trotzdem Bearbeitung möglich...
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Access Formulare: Allowedits Funktion funktioniert nicht 4 Dummy84 829 23. Okt 2009, 17:15
jens05 Allowedits Funktion funktioniert nicht
Keine neuen Beiträge Access Programmierung / VBA: AllowEdits wird ignoriert 14 SusannaW 625 21. Aug 2009, 08:28
SusannaW AllowEdits wird ignoriert
Keine neuen Beiträge Access Formulare: Formular ignoriert AllowEdits = False 6 schreddi 894 28. Aug 2008, 13:49
Pizzaleberkäs Formular ignoriert AllowEdits = False
Keine neuen Beiträge Access Formulare: AllowEdits im Ufo ändern 2 kohli-mohli 492 07. Sep 2007, 09:01
kohli-mohli AllowEdits im Ufo ändern
Keine neuen Beiträge Access Formulare: Merkwürdiges Verhalten bei AllowEdits 3 wdseifert 553 28. Jun 2007, 11:04
JörgG Merkwürdiges Verhalten bei AllowEdits
Keine neuen Beiträge Access Formulare: AllowEdits Eigenschaft im Unterformular 2 prello 2623 02. März 2007, 20:50
prello AllowEdits Eigenschaft im Unterformular
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML Editoren Forum