Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Felder sperren wenn..
zurück: Formular aktualisieren weiter: PivotChart sperren 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
Beniko
Küken


Verfasst am:
30. Jun 2011, 18:24
Rufname:

Felder sperren wenn.. - Felder sperren wenn..

Nach oben
       Version: Office 2003

Hallo zusammen
Nach dem Klicken auf dem Button "XYZ" erscheint ein Formular mit den eingetragenen Datensätzen. Die Textfelder sollten gesperrt sein, wenn zusätzlich in einem anderen Formular der Status "ERLEDIGT ist.

Habe es so probiert:
Code:
    If Forms![Liste]Status = "Erledigt" Then
        Nr.Enabled = False
        Datum.Enabled = False
        name.Enabled = False
        nr2.Enabled = False
        Text3.Enabled = False
        Text4.Enabled = False
        Text2.Enabled = False
        Befehl8.Enabled = False
        Kombinationsfeld01.Enabled = False
        [Frei].Enabled = False
Aber nun kommt die Meldung:
Zitat:
Laufzeitfehler '2450':
Liste DB kann das Formular "Liste" nicht finden, auf das in einem Makroausdruck oder in einer Visual Basic-Programmzeile verwiesen wird.
Was muss ich nun tun?
derArb
getting better


Verfasst am:
30. Jun 2011, 18:36
Rufname: derArb
Wohnort: Berlin


AW: Felder sperren wenn.. - AW: Felder sperren wenn..

Nach oben
       Version: Office 2003

Hallo,
die eckigen Klammern sind nur bei Sonderzeichen in einem Namen vonnöten.
Code:
    If Forms!Liste!status = "Erledigt" Then
        Me!Nr.Enabled = False
        Me!Datum.Enabled = False
        Me!name.Enabled = False
        Me!nr2.Enabled = False
        Me!Text3.Enabled = False
        Me!Text4.Enabled = False
        Me!Text2.Enabled = False
        Me!Befehl8.Enabled = False
        Me!Kombinationsfeld01.Enabled = False
        Me!Frei.Enabled = False
    End If

MfG
derArb

_________________
MfG
derArb

Scio me nihil scire...Εν οίδα οτι ουδέν οίδα... Ich weiss, dass ich nichts weiss (Sokrates)
Ich bevorzuge Beiträge mit korrekter deutscher Grammatik.
Beniko
Küken


Verfasst am:
01. Jul 2011, 08:40
Rufname:

Re: AW: Felder sperren wenn.. - Re: AW: Felder sperren wenn..

Nach oben
       Version: Office 2003

Hallo derArb,
hab die eckigen Klammern weggenommen, kommt aber immer noch die gleiche Meldung.

Grüsse
Beniko
derArb
getting better


Verfasst am:
01. Jul 2011, 10:49
Rufname: derArb
Wohnort: Berlin

AW: Felder sperren wenn.. - AW: Felder sperren wenn..

Nach oben
       Version: Office 2003

Hallo,
heißt das Formular denn "Liste" ?
Angenommen ja: Ist das Formular "Liste" auch geöffnet?
MfG
derArb

_________________
MfG
derArb

Scio me nihil scire...Εν οίδα οτι ουδέν οίδα... Ich weiss, dass ich nichts weiss (Sokrates)
Ich bevorzuge Beiträge mit korrekter deutscher Grammatik.
Beniko
Küken


Verfasst am:
01. Jul 2011, 11:30
Rufname:


AW: Felder sperren wenn.. - AW: Felder sperren wenn..

Nach oben
       Version: Office 2003

Hallo,
das Formular heisst "Liste" und ist nicht geöffnet.

Grüsse
Beniko
derArb
getting better


Verfasst am:
01. Jul 2011, 11:47
Rufname: derArb
Wohnort: Berlin

AW: Felder sperren wenn.. - AW: Felder sperren wenn..

Nach oben
       Version: Office 2003

Hallo,
auf geschlossene Formulare kann nicht zugegriffen werden.
Dazu musst Du auf die Tabelle zugreifen, welche die Datenherkunft dieses geschlossenen Formulars ist.
Code:
    If DCount("Status", "DeineTabelle", "Status= 'erledigt'") > 0 Then
        '...
        'obiger Code
        '...
    End If
Oder Du lädst dieses Formular "Liste" bei Start der DB als verborgen (acHidden).
Code:
    DoCmd.OpenForm "Liste", , , , , acHidden
Dann geht obiger Code auch direkt

MfG
derArb

_________________
MfG
derArb

Scio me nihil scire...Εν οίδα οτι ουδέν οίδα... Ich weiss, dass ich nichts weiss (Sokrates)
Ich bevorzuge Beiträge mit korrekter deutscher Grammatik.
Beniko
Küken


Verfasst am:
01. Jul 2011, 15:37
Rufname:

AW: Felder sperren wenn.. - AW: Felder sperren wenn..

Nach oben
       Version: Office 2003

Hallo derArb,
zuerst: danke viel mal für deine Hilfe!

Bei mir sieht der Code jetzt so aus:
Code:
Private Sub Form_Open(Cancel As Integer)
    DoCmd.OpenForm "Liste", , , , , acHidden
    If Forms!Liste!status = "Erledigt" Then
        Nr.Enabled = False
        Datum.Enabled = False
        name.Enabled = False
        nr2.Enabled = False
        Text3.Enabled = False
        Text4.Enabled = False
        Text2.Enabled = False
        Befehl8.Enabled = False
        Kombinationsfeld01.Enabled = False
        [Frei].Enabled = False
    End If
End Sub
Leider habe ich im Nachhinein gemerkt, dass das Anlegen von neuen Datensätzen nicht möglich ist.
Habe dann das noch hinzugefügt:
Code:
    If Not Forms!Liste!Status = "Erledigt" Then
        Me.DataEntry = True
        Me.DateChange = True
    End If
Aber dann wird nur das Feld "Name" grau hinterlegt...

Die schon eingetragenen Datensätze sollten nicht mehr veränderbar sein, wenn in dem anderen Formular "Liste" der Status "Erledigt" ist, aber neue Datensätze zu erfassen sollte gehen.. Crying or Very sad

Gruss
Beniko
derArb
getting better


Verfasst am:
01. Jul 2011, 16:03
Rufname: derArb
Wohnort: Berlin

AW: Felder sperren wenn.. - AW: Felder sperren wenn..

Nach oben
       Version: Office 2003

Hallo,

dann
Code:
Private Sub Form_Open(Cancel As Integer)
      DoCmd.OpenForm "Liste", , , , , acHidden
End Sub

Private Sub form_Current()
    If Not Me.NewRecord And Forms!Liste!Status = "Erledigt" Then
        Me.Nr.Enabled = False
        Me.Datum.Enabled = False
        Me.Name.Enabled = False
        Me.nr2.Enabled = False
        Me.Text3.Enabled = False
        Me.Text4.Enabled = False
        Me.Text2.Enabled = False
        Me.Befehl8.Enabled = False
        Me.Kombinationsfeld01.Enabled = False
        Me.[Frei].Enabled = False
      Else
        Me.Nr.Enabled = True
        Me.Datum.Enabled = True
        Me.Name.Enabled = True
        Me.nr2.Enabled = True
        Me.Text3.Enabled = True
        Me.Text4.Enabled = True
        Me.Text2.Enabled = True
        Me.Befehl8.Enabled = True
        Me.Kombinationsfeld01.Enabled = True
        Me.[Frei].Enabled = True
    End If
End Sub

MfG
derArb

_________________
MfG
derArb

Scio me nihil scire...Εν οίδα οτι ουδέν οίδα... Ich weiss, dass ich nichts weiss (Sokrates)
Ich bevorzuge Beiträge mit korrekter deutscher Grammatik.
Beniko
Küken


Verfasst am:
06. Jul 2011, 09:08
Rufname:


AW: Felder sperren wenn.. - AW: Felder sperren wenn..

Nach oben
       Version: Office 2003

Danke, hat geklappt!
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: aktualisierungsabfrage nur für felder mit wert 2 Gast290306 895 29. März 2006, 10:40
Gast290306 aktualisierungsabfrage nur für felder mit wert
Keine neuen Beiträge Access Tabellen & Abfragen: Vier Felder in eins zusammenfassen... 3 jmk 4283 27. März 2006, 10:37
Alwin Vier Felder in eins zusammenfassen...
Keine neuen Beiträge Access Tabellen & Abfragen: Leere Felder abfragen 3 Flintstone 795 15. März 2006, 12:16
jens05 Leere Felder abfragen
Keine neuen Beiträge Access Tabellen & Abfragen: Leer und ausgefüllte Felder anzeigen 1 Fabs 613 23. Feb 2006, 09:38
rita2008 Leer und ausgefüllte Felder anzeigen
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage: Verknüpfung von 3 Tabellen, einige Felder leer 1 Gast655 1438 16. Feb 2006, 09:27
rita2008 Abfrage: Verknüpfung von 3 Tabellen, einige Felder leer
Keine neuen Beiträge Access Tabellen & Abfragen: Tabellen sperren 1 Andreas B. 497 05. Okt 2005, 08:45
rita2008 Tabellen sperren
Keine neuen Beiträge Access Tabellen & Abfragen: Einer bestehenden Tabelle/Abfrage Felder hinzufügen 3 Nindigo 1430 03. Okt 2005, 14:18
stpimi Einer bestehenden Tabelle/Abfrage Felder hinzufügen
Keine neuen Beiträge Access Tabellen & Abfragen: Zu viele Felder definiert! 7 michel1964de 689 29. Sep 2005, 09:15
michel1964de Zu viele Felder definiert!
Keine neuen Beiträge Access Tabellen & Abfragen: Bestimmte Felder aus Abfrage in Tabelle übernehmen 15 Wuidschuetz 1637 15. Jun 2005, 13:23
Wuidschuetz Bestimmte Felder aus Abfrage in Tabelle übernehmen
Keine neuen Beiträge Access Tabellen & Abfragen: Generierte Felder aus Unterformular auslesen 2 gott50000 831 03. März 2005, 13:45
gott50000 Generierte Felder aus Unterformular auslesen
Keine neuen Beiträge Access Tabellen & Abfragen: Berechnungen über Felder wie in Excel 1 doc77 626 04. Feb 2005, 15:50
stpimi Berechnungen über Felder wie in Excel
Keine neuen Beiträge Access Tabellen & Abfragen: Verknüpfte ODBC-Tabelle nimmt keine leeren Felder an 5 Crash 1035 04. Feb 2005, 11:17
lothi Verknüpfte ODBC-Tabelle nimmt keine leeren Felder an
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft-Excel Diagramme