Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
AllowEdits
Gehe zu Seite Zurück  1, 2
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
Danielgast
Gast


Verfasst am:
31. März 2009, 15:15
Rufname:

AW: AllowEdits - AW: AllowEdits

Nach oben
       Version: Office 2003

Hi Leute,

vielen Dank erstmal für die Hilfe!

Habe erst ganz am Ende bemerkt, dass ich bei allen betroffenen Textfeldern bei den Eigenschaften, dort bei Marke das X setzen muss!! Rolling Eyes

Könnt Ihr mir jetzt sagen, wie ich diese Funktion auf andere Formulare ausweiten kann? ( Wie gehabt, ebenfalls nur, wenn dass Startpasswort der DB falsch eingegeben wurde?)

@ Willi, sorry bin überhaupt nicht so in der Materie Smile

Vielen Dank soweit!!

Daniel
Willi Wipp
Moderator


Verfasst am:
01. Apr 2009, 01:11
Rufname:
Wohnort: Raum Wiesbaden


Re: AllowEdits (V) - Re: AllowEdits (V)

Nach oben
       Version: Office 2003

Hi daniel gast,

verlagere die Prozedur SetControls als Public in ein allgemeines Modul.
Dann kannst Du den Code aus jedem Formular wie gezeigt aufrufen.

_________________
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:
01. Apr 2009, 10:51
Rufname:

AW: AllowEdits - AW: AllowEdits

Nach oben
       Version: Office 2003

Hi Willi,

habe folgende Funktion in ein Modul (via Public Function) ausgelagert.
Code:
Option Compare Database
Option Explicit 'Added by Willi Wipp!

Public Function 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 Function
und das steht jetzt noch im startformular:
Code:
Private Sub Form_Open(Cancel As Integer)
    If InputBox("Passwort eingeben", "Passwort") = "marketing" Then
        Msgbox "Richtig"
        SetControls Me, True
      Else
        Msgbox "Schreibschutz aktiv"
        SetControls Me, False
    End If
End Sub
Wie muss ich diesen zweiten Code für weitere Formulare umschreiben, damit es bei den Zusatz-Formularen ohne erneute Passworteingabe gleich automatisch schreibgeschützt bleibt.

Wenn ich den obigen Code auf der Seite hinterlege, werde ich ja erneut nach einem Passwort gefragt.

Vielen Dank für die tolle Hilfe!

Gruß

Daniel
Willi Wipp
Moderator


Verfasst am:
01. Apr 2009, 11:25
Rufname:
Wohnort: Raum Wiesbaden

Re: AllowEdits (VI) - Re: AllowEdits (VI)

Nach oben
       Version: Office 2003

Hi daniel gast,

OK das hatte ich anders verstanden.
Wenn das Start-Formular noch offen ist,
dann kannst Du z.B. pruefen ob ein bestimmtes Steuerelement darauf Gesperrt (Locked) ist.

_________________
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:
01. Apr 2009, 12:29
Rufname:

AW: AllowEdits - AW: AllowEdits

Nach oben
       Version: Office 2003

Hi Willi,

ich bin mir nicht sicher, ob wir uns gerade richtig verstehen.

Ich habe ein Startformular namens Marcs Seite
und
zwei weitere eigenständige Formulare : Gesamttabelle und Sonderaktionen.

Wenn ich die DB öffne, öffnet sich nach falscher oder richtiger PW-Eingabe (schreibgeschützt / oder auch nicht ) mein Startformular: Marcs Seite.

Die Formulare Gesamttabelle und Sonderaktionen werden durch ein Macro (Öffne Formular1 und öffne Formular2) auf Marcs Seite gestartet.

Wenn ich jetzt beim starten der DB, bzw. des Startformulars Marcs Seite, das Passwort falsch eingebe, sollen alle drei, also nun auch zusätzlich, Gesamttabelle und Sonderaktionen, schreibgeschützt sein.

Nur allein das Modul mit der Public Funktion & diesem code:
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 Me, True
      Else
        Msgbox "Schreibschutz aktiv"
        SetControls Me, False
    End If
End Sub
auf der Hauptseite (Marcs Seite) lässt bei falscher PW-Eingabe nicht automatisch die zwei weiteren (über Makros geöffneten) Formulare schreibgeschützt erscheinen.

Daher habe ich vermutet das ich den oben aufgeführten Code ändern und halt umgeschrieben in die zwei anderen Formulare eintragen muss.

Ps.: Das Startformular Marcs Seite ist jeder Zeit geöffnet, da die zwei anderen Formulare als Pop up Dialog Fenster darüber auftauchen.

Gruß und Dank an Dich Willli

Daniel
Willi Wipp
Moderator


Verfasst am:
02. Apr 2009, 02:03
Rufname:
Wohnort: Raum Wiesbaden


Re: AllowEdits (VII) - Re: AllowEdits (VII)

Nach oben
       Version: Office 2003

Hi daniel gast,

bei den anderen Formularen z.B.
Code:
Private Sub Form_Open(Cancel As Integer)
'   If Forms![frmStartformular]!tbxEinTextfeldMitEinemX.Enabled Then
'       Msgbox "Richtig"
'       SetControls Me, True
'     Else
'       Msgbox "Schreibschutz aktiv"
'       SetControls Me, False
'   End If
' bzw. einfacher
    SetControls Me, Forms![frmStartformular]!tbxEinTextfeldMitEinemX.Enabled
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)
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Gehe zu Seite Zurück  1, 2
Diese Seite Freunden empfehlen

Seite 2 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 Editor Forum