Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Hintergrundfarbe aller Formulare ändern
Gehe zu Seite Zurück  1, 2
zurück: Im Formular weitere Auswahl von vorheriger abhängig. weiter: DS wählen wenn Kontrollkästchen aktiv 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
Tron
fortgeschrittener Anfänger (Access VBA)


Verfasst am:
07. Dez 2006, 15:05
Rufname:

AW: Hintergrundfarbe aller Formulare ändern - AW: Hintergrundfarbe aller Formulare ändern

Nach oben
       Version: Office 2k (2000)

Danke dir soweit,

löppt mal wieder hervorragend.

Habe aber jetzt ein anderes merkwürdiges Problem :

in meinem Eingabeformular wird die Sprachvariable gefüllt (globale Variable) :
Code:
Private Sub inputBtnGo_click()
    Dim strPassword As Variant
    Dim strPersID As Variant
   
    'On Error GoTo fehler
    strPersID = Me!inputPersId
    strPassword = Me!inputPassword
    If strPersID <> "" And strPassword <> "" Then
        If DLookup("[Password]", "SalesMan", _
                   "[PersNr] = " & strPersID) = strPassword Then
            globSprache = DLookup("[Sprache]", "SalesMan", _
                                  "[PersNr] = " & strPersID)
            globSalesManID = strPersID
            'Sprache einstellen
            'Debug.Print DLookup("[Path]", "system", "[ID] = 3")
            'If globSprache Like "" & DLookup("[Path]", "system", _
            '                                 "[ID] = 3") & "" Then
            '  Else
            Call SpracheEinstellen
            'End If
          Else
            GoTo fehler
        End If
      Else
        Me!inputPersId.SetFocus
    End If
    Exit Sub
fehler:
    MsgBox "falsches Passwort !", vbExclamation + vbOKOnly
    Me!inputPersId.SetFocus
End Sub
Wird die Sprachfunktion aus dem Eingabeformular heraus aufgerufen, werden alle Formulare bis auf das Hauptformular umbenannt.

Rufe ich die Funktion direkt im Editor auf, werden alle Formulare umbenannt.

Die Sprachvariable ist aber in beiden Fällen identisch gefüllt. Selbst wenn ich die Sprache direkt als Funktionsvariable übergebe passiert das gleiche. Was habe ich jetzt schon wieder kaputt gemacht Crying or Very sad Mad Sad ????
Code:
'Beschriftungen in jeweilige Landessprache ändern
Public Function SpracheEinstellen()
    Dim obj As AccessObject
    Dim ctl As Control
   
    'globSprache = "fr"
    On Error Resume Next
    DoCmd.Echo False
    For Each obj In Application.CurrentProject.AllForms
        DoCmd.OpenForm obj.Name, acDesign
        For Each ctl In Forms(obj.Name).Controls
            'Select Case ctl.ControlType
            '  Case acLabel, acCommandButton
                ctl.Caption = DLookup(globSprache, "Sprachen", _
                                      "[Feldname] Like '" & ctl.Name & "'")
           'End Select
        Next ctl
        DoCmd.Close acForm, obj.Name, acSaveYes
    Next obj
    DoCmd.Echo True
    DoCmd.OpenForm ("SalesPortal")
    Forms!SalesPortal.SalesMan = DLookup("[Name]", "SalesMan", _
                                         "[PersNr] = " & globSalesManID)
End Function

_________________
Vielen Dank im Voraus für deine Hilfe !

Lars
(Excel 2000)
(Access 2000)
Willi Wipp
Moderator


Verfasst am:
07. Dez 2006, 15:23
Rufname:
Wohnort: Raum Wiesbaden


Re: Hintergrundfarbe aller Formulare ändern - Re: Hintergrundfarbe aller Formulare ändern

Nach oben
       Version: Office 2k (2000)

Hi Tron,

das kommt davon wenn man die Fehlermeldung ausschaltet Wink
Ueberlegen wir mal was Du machen willst, wenn Du den Code vom Hauptformular aus aufrufts:
Im Hauptformular wird Code ausgefuehrt
==> Die Function wird aus dem Hauptformular aufgerufen
==> Das Hauptformular wird zwar verlassen, aber VBA merkt sich die Stelle wo es weitermachen muss
==> Nun versucht die Funktion das Hauptformular im Entwurfsmodus zu oeffnen
==> Das kann nicht gehen, da ja noch COde ausgefuehrt wird
==> Fehlermeldung, die Du aber unterdrueckst...

Ein moeglicher Loesungsansatz waere ein zusaetzliches Formular,
das nichts anderes macht als die Funktion aufzurufen
und danach das Hauptformular wieder zu oeffnen.
Dieses rufst Du dann an entsprechender Stelle auf und schliesst das Hauptformular dazu.

_________________
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 07. Dez 2006, 17:08, insgesamt einmal bearbeitet
Tron
fortgeschrittener Anfänger (Access VBA)


Verfasst am:
07. Dez 2006, 15:36
Rufname:

AW: Hintergrundfarbe aller Formulare ändern - AW: Hintergrundfarbe aller Formulare ändern

Nach oben
       Version: Office 2k (2000)

habe mir auch schon gedacht, ein extra Fomular zu machen...

Aber das Hauptformular ist doch an sich noch gar nicht offen :

Start : Eingabeformular
-> ruft Function auf
-> Function ruft am Ende des Durchlaufs das Hauptformular auf
-> Hauptfomular schließt Eingabeformular

Wenn dann würde nur das Eingabefomular nicht umbenannt werden können, weil es geöffnet ist. Oder wo ist jetzt mein gedanklicher Fehler ?

_________________
Vielen Dank im Voraus für deine Hilfe !

Lars
(Excel 2000)
(Access 2000)
Willi Wipp
Moderator


Verfasst am:
07. Dez 2006, 17:10
Rufname:
Wohnort: Raum Wiesbaden

Re: Hintergrundfarbe aller Formulare ändern (II) - Re: Hintergrundfarbe aller Formulare ändern (II)

Nach oben
       Version: Office 2k (2000)

Hi Tron,

das ist so schwer zu sagen, da muesset man schon den genauen Code bzw noch besser ein Beispiel sehen.
Dann tun wir uns leichter und muessen nicht versuchen es nachzustellen.

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Tron
fortgeschrittener Anfänger (Access VBA)


Verfasst am:
13. Dez 2006, 15:58
Rufname:


AW: Hintergrundfarbe aller Formulare ändern - AW: Hintergrundfarbe aller Formulare ändern

Nach oben
       Version: Office 2k (2000)

habs jetzt anders gelöst :

- die globale Sprachprozedur läuft einmal durch und nennt alle Formulare um
- wenn das übersprungene Hauptformular geöffnet wird, wird es durch eine eigene Prozedur direkt umbenannt.

Ist vielleicht nicht schön systematisch und es würde mich auch echt interessieren wo der Fehler liegt, aber ich habe keine Zeit mich um "Code-Schönheit" bei einer rel. nebensächlichen Funktion zu kümmern.

Aber Danke für Deine Hilfe soweit !

mfg
Lars
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 Tabellen & Abfragen: Id Wert nachträglich nochmals ändern 13 arcos00 1109 27. Jun 2007, 11:57
Nouba Id Wert nachträglich nochmals ändern
Keine neuen Beiträge Access Tabellen & Abfragen: Anfügeabfrage Ziel unter VB ändern 1 Werner Laun 571 02. Apr 2007, 15:37
Thomas2007 Anfügeabfrage Ziel unter VB ändern
Keine neuen Beiträge Access Tabellen & Abfragen: Formulare funktionieren nicht - Probleme mit Beziehung 0 Gast 579 18. Dez 2006, 15:19
Gast Formulare funktionieren nicht - Probleme mit Beziehung
Keine neuen Beiträge Access Tabellen & Abfragen: Autowert ändern 0 derhoeppi 816 21. Nov 2006, 13:30
derhoeppi Autowert ändern
Keine neuen Beiträge Access Tabellen & Abfragen: Datumsformat ändern in mmm jjjj (januar 2006) 2 Gast 2700 23. Aug 2006, 09:17
Gast Datumsformat ändern in mmm jjjj (januar 2006)
Keine neuen Beiträge Access Tabellen & Abfragen: benutze Tabellen in Abfrage ändern? 15 MBarthel 1399 04. Aug 2006, 13:30
MBarthel benutze Tabellen in Abfrage ändern?
Keine neuen Beiträge Access Tabellen & Abfragen: Anfängerprbleme [SQL, Formulare, VBA und der datenaustausch] 8 LangsamReichtsMir 2300 23. Mai 2006, 13:45
LangsamReichtsMir Anfängerprbleme [SQL, Formulare, VBA und der datenaustausch]
Keine neuen Beiträge Access Tabellen & Abfragen: Duplikat-Abgleich in Kunden-DB; Bei Dublette: Status ändern 0 deadlink 1012 30. März 2006, 22:13
deadlink Duplikat-Abgleich in Kunden-DB; Bei Dublette: Status ändern
Keine neuen Beiträge Access Tabellen & Abfragen: Daten über eine Schleife im gefilterten Formular ändern 1 Alwin 708 21. März 2006, 09:28
mapet Daten über eine Schleife im gefilterten Formular ändern
Keine neuen Beiträge Access Tabellen & Abfragen: Feldname ändern? 9 Chriz1985 5470 30. Jan 2006, 08:23
Chriz1985 Feldname ändern?
Keine neuen Beiträge Access Tabellen & Abfragen: Mit einem Formular Kriterien ändern ? 1 MatthiasDD 704 13. Jan 2006, 12:28
jens05 Mit einem Formular Kriterien ändern ?
Keine neuen Beiträge Access Tabellen & Abfragen: Fenstertitel "Parameterwert eingeben" ändern 6 Baumi_II 3644 30. Nov 2005, 23:51
Gast Fenstertitel "Parameterwert eingeben" ändern
 

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