Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Wenn User nicht vorhanden anderes Formular öffnen
zurück: Werte aus Listenauswahl in Zwischentabelle schreiben weiter: Access Filmdatenbank 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
Bube204
Im Profil kannst Du frei den Rang ändern


Verfasst am:
09. Mai 2011, 09:49
Rufname:

Wenn User nicht vorhanden anderes Formular öffnen - Wenn User nicht vorhanden anderes Formular öffnen

Nach oben
       Version: Office 2k (2000)

Hallo zusammen,
mal wieder ein (kleineres) Problemchen bei der Erstellung einer Datenbank.
Im Frontend einer DB habe ich ein Startformular "Eigene Projekte", daß über die Auslesung des Windows-Anmeldenamens (Environ("username")) gefiltert wird. Die einzelnen User ([SSO_ID]) sind in einer seperaten Tabelle gespeichert. Wie bekomme ich es hin, daß nicht das eigentliche Startformular sondern das Formular "Eigene Kontaktdaten" geöffnet wird, wenn der angemeldete User nicht in der Tabelle vorhanden ist?
RadiatoR
Im Profil kannst Du frei den Rang ändern


Verfasst am:
09. Mai 2011, 10:20
Rufname:

AW: Wenn User nicht vorhanden anderes Formular öffnen - AW: Wenn User nicht vorhanden anderes Formular öffnen

Nach oben
       Version: Office 2k (2000)

na du kannst mit dlookup/dcount prüfen ob ein eintrag in der Tabelle existiert und wenn nicht dann öffnest einfach das andere formular
Bube204
Im Profil kannst Du frei den Rang ändern


Verfasst am:
09. Mai 2011, 14:33
Rufname:


AW: Wenn User nicht vorhanden anderes Formular öffnen - AW: Wenn User nicht vorhanden anderes Formular öffnen

Nach oben
       Version: Office 2k (2000)

Hallo RadiatoR,
na klar, hätte ich selber drauf kommen können, wenn nicht müssen.

Habe das nun folgendermaßen gelöst:
Code:
Private Sub Form_Open(Cancel As Integer)
    Dim strKrit As String
    Dim stLinkCriteria As String
   
    Call Environ(Ausdruck)
    strKrit = "SSOID = " & Environ("username")
    stLinkCriteria = "ResponsiblePerson = " & Environ("username")
    If DCount("SSOID", "Tbl_User", strKrit) <> 0 Then
        DoCmd.OpenForm "Projektliste aktueller User", , , stLinkCriteria
      Else
        MsgBox "Sie sind noch nicht in der Anwenderliste vorhanden, bitte Ihre Daten in nachfolgendem Formular einpflegen"
        DoCmd.OpenForm "User_hinzu", , , strKrit
        Cancel = True
    End If
    DoCmd.Maximize
End Sub
Das Call Environ(Ausdruck) am Anfang des Subs habe ich da drin, weil bei uns teilweise Rechner mit Access2003 ausgestattet sind und der Befehl "Environ" als potentiell unsicher geblockt ist. Damit umgehe ich das Problem...
Übrigens auch etwas, was ich auf diesem Forum gefunden habe. Was würde ich nur tun, wenns hier nicht Leute geben würde, die so schnell und so kompetent helfen können. Dann würde die Entwicklung meiner Datenbank mindestens doppelt so lange dauern...
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: Anzahl der Datensätze zählen (im Formular oder Bericht) ? 3 anna-bolika 3756 31. März 2005, 12:50
Dalmatinchen Anzahl der Datensätze zählen (im Formular oder Bericht) ?
Keine neuen Beiträge Access Tabellen & Abfragen: Formular: Groesse? 1 Gast 732 24. März 2005, 13:35
Sanne Formular: Groesse?
Keine neuen Beiträge Access Tabellen & Abfragen: Feld wird nicht in Formular angezeigt 1 Chef_1 528 12. März 2005, 21:27
stpimi Feld wird nicht in Formular angezeigt
Keine neuen Beiträge Access Tabellen & Abfragen: Prüfen, ob eine Tabelle vorhanden ist 1 Spoldo 807 23. Feb 2005, 13:08
Spoldo Prüfen, ob eine Tabelle vorhanden ist
Keine neuen Beiträge Access Tabellen & Abfragen: Automatische Aktualisierung von generiertem Wert im Formular 9 GandalfTCM 1041 09. Feb 2005, 17:40
lothi Automatische Aktualisierung von generiertem Wert im Formular
Keine neuen Beiträge Access Tabellen & Abfragen: Wert übernehmen von einem Formular in das andere 2 mactoolz 1244 03. Feb 2005, 17:46
ralphkr Wert übernehmen von einem Formular in das andere
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage mit Formular gestalten 3 HBurmei 1977 03. Dez 2004, 22:17
mapet Abfrage mit Formular gestalten
Keine neuen Beiträge Access Tabellen & Abfragen: Formular für mehrere Abfragen benutzen 2 Oli aus Bonn 1262 21. Nov 2004, 01:30
Oli aus Bonn Formular für mehrere Abfragen benutzen
Keine neuen Beiträge Access Tabellen & Abfragen: Standardwert in Formular aus einer Abfrage? 3 Gast 1777 04. Okt 2004, 12:53
Pfobeman Standardwert in Formular aus einer Abfrage?
Keine neuen Beiträge Access Tabellen & Abfragen: Suchen in Formular 1 Sumo_Racer 1092 28. Mai 2004, 21:59
lothi Suchen in Formular
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage oder Bericht öffnen 1 zam 2333 19. Mai 2004, 13:32
stpimi Abfrage oder Bericht öffnen
Keine neuen Beiträge Access Tabellen & Abfragen: Access Formular 2 Mielke 951 06. Mai 2004, 21:49
Hausmeister Access Formular
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: MS Frontpage