Suche | Statistiken | Benutzerliste | Access-FAQ | Datenschutz Foren
donkarl Forum
donkarl Forum ->  Themen -> Access -> Diskussion ansehen

Du bist als Gast eingelogt. ( Anmelden | Registrieren )
  • Fehler abfangen und beheben
  • ManfredPrefi09.01.14 22:29
       └ RE: Fehler abfangen und beheben wilo10.01.14 10:21
          └ RE: Fehler abfangen und beheben ManfredPrefi10.01.14 18:01
             └ RE: Fehler abfangen und beheben wilo13.01.14 10:10
                └ RE: Fehler abfangen und beheben ManfredPrefi13.01.14 15:35
  • FindRecord kaputt
  • hochlenert12.01.14 16:57
       └ RE: FindRecord kaputt hochlenert13.01.14 02:58
  • Problem mit Me.RecordSource nach Umstellung auf A2...
  • Matthias09.01.14 14:48
       └ RE: Problem mit Me.RecordSource nach Umstellung ... Karl Donaubauer09.01.14 16:18
          └ RE: Problem mit Me.RecordSource nach Umstellun... Matthias09.01.14 20:00
             └ RE: Problem mit Me.RecordSource nach Umstell... Karl Donaubauer09.01.14 22:56
                └ RE: Problem mit Me.RecordSource nach Umste... Matthias10.01.14 10:38
  • wenn, dann; sonst
  • rdw09.01.14 15:56
       └ RE: wenn, dann; sonst Matthias09.01.14 20:12
  • Formulare synchronisieren
  • ManfredPrefi06.01.14 22:52
       └ RE: Formulare synchronisieren Karl Donaubauer07.01.14 12:32
          └ RE: Formulare synchronisieren ManfredPrefi07.01.14 21:13
  • Access Stammtisch München am 09.01.2014 (Do)
  • StefanWirrer07.01.14 10:13
  • Mailversand von Accerss
  • pwakolbi28.12.13 12:54
       └ RE: Mailversand von Accerss Greiff06.01.14 09:41
  • Typisierungsfehler bei Container-Objekt unterr Acc...
  • enchiriadis03.01.14 16:26
       └ RE: Typisierungsfehler bei Container-Objekt unte... Karl Donaubauer03.01.14 19:02
          └ RE: Typisierungsfehler bei Container-Objekt un... enchiriadis03.01.14 23:48
             └ RE: Typisierungsfehler bei Container-Objekt ... Karl Donaubauer04.01.14 17:10
                └ RE: Typisierungsfehler bei Container-Objek... enchiriadis05.01.14 18:28
  • FE mit BE verknüpfen
  • mikel03.01.14 09:53
       └ RE: FE mit BE verknüpfen pwakolbi03.01.14 11:51
       └ RE: FE mit BE verknüpfen Karl Donaubauer03.01.14 15:23
          └ RE: FE mit BE verknüpfen mikel04.01.14 14:33
  • Zugriff auf andere Datenbank
  • swetrain29.12.13 11:06
       └ RE: Zugriff auf andere Datenbank wilo02.01.14 17:35
  • Domain Problem
  • bkleine12.12.13 11:41
       └ RE: Domain Problem Karl Donaubauer12.12.13 12:57
  • UID Nummer automatisch überprüfen
  • Gearwheel06.12.13 13:55
       └ RE: UID Nummer automatisch überprüfen PeterDoering10.12.13 14:24
  • Access Stammtisch München am 12.12.2013 (Do)
  • StefanWirrer10.12.13 08:56
  • Tabellen erstellen als Bericht oder als Formular
  • bkleine03.12.13 21:27
       └ RE: Tabellen erstellen als Bericht oder als Form... bkleine04.12.13 16:03
  • Entwurfsansicht von Formularen
  • Benal03.12.13 15:28
       └ RE: Entwurfsansicht von Formularen Karl Donaubauer03.12.13 16:43
    swetrain
    Gesendet: 29.12.13 11:06
    Betreff: Zugriff auf andere Datenbank


    Guten Morgen liebe Access-Gemeinde,

    ich hätte eine kleine Frage:

    wie kann ich aus einer Datenbank (Acc 2003) herausfinden, welches Control, bzw. welcher Bericht in einer ANDEREN Access-Datenbank den Focus hat.
    Falls ein Control den Focus hat, möchte ich auch den Wert auslesen.
    Im Beispielcode unten schaffe ich das für die eigene Datenbank, nicht jedoch für eine andere.

    Konkret also:
    Was muss vor "Screen" stehen, damit sich das auf eine andere Datenbank bezieht?

    Hintergrund meiner Frage:
    Ich habe eine Frontend.mdb mit 5 Backends auf einem TS unter 2008R2 laufen.
    Die Backends liegen auf einem Fileserver, das Frontend im Homelaufwerk der User.
    Aus Sicherheitsgründen wird die TS-Session nach 7 Minuten Inaktivität geschlossen.
    Dadurch zerschiesst es mir regelmässig (jedoch leider nicht konkret reproduzierbar) verschiedene Backend-Datenbanken.

    Um dem Zuvor zu kommen, habe ich in meinem Frontend ein unsichtbares Formular "_frm_Closer", in welchem alle 45 sec. geprüft wird, welches Feld, bzw. welcher Report gerade den Focus hat und was ggf. der Wert des Feldes ist.
    Das ganze wird dann in ungebundene Felder geschrieben und mit den vorherigen 9 Werten verglichen.
    Sind alle 9 Werte identisch, wird davon ausgegangen, dass der User in den letzten 6,75 Minuten nichts an der Datenbank gemacht hat und sie wird geschlossen.
    In der eigenen Datenbank funktioniert das wunderbar, die Anzahl der zerschossenen Datenbanken geht quasi gegen 0 %.

    Einen Haken hat die Sache jedoch:
    Immer wieder kommt es vor, dass beim Ausdrucken (und nur da), anstelle des Berichts, der gedruckt werden soll, das unsichtbare Formular gedruckt wird. Ich habe keine Ahnung, wieso dies der Fall ist. Ich habe sowohl beim Öffnen des Formulars, als auch beim Öffnen der Berichte immer stehen:
    Forms("_frm_Closer").Visible = False
    Leider ist auch da nicht reproduzierbar, wann genau anstelle des Berichts das Formular gedruckt wird.

    Als mögliche Lösung habe ich daher gedacht, packe ich das "Schließformular" in eine andere Datenbank, die dann beim Start der eigentlichen Datenbank mit geöffnet wird und von extern dann die Datenbank überwacht.

    Evtl. habt Ihr ja da aber auch noch ganz andere Vorschläge/Ideen, ich bin für jede Info dankbar.
    Und hier zur Erinnerung nochmal die Frage:
    Was muss vor "Screen" stehen, damit sich das auf eine andere Datenbank bezieht?

    Viele Grüsse

    Jochen


    Sub Test

    strDB = CurrentProject.Path & "\Orga-FE.mdb"

    Set db = DBEngine.Workspaces(0).OpenDatabase(strDB)

    ' geht nicht:
    ' db.screen

    ' strWas = getArt

    Select Case strWas
    Case "Form"
    Me.strObject000 = Screen.ActiveForm.Name
    Me.strsubForm000 = Screen.ActiveControl.Parent.Name
    Me.strControl000 = Screen.ActiveControl.Name
    intControlType = Screen.ActiveControl.ControlType
    Select Case intControlType
    Case 104 'Button, nichts machen
    Me.strValue000 = ""
    Case 106 'Checkbox
    Me.strValue000 = Nz(Screen.ActiveControl.Value, 0)
    Case 107 'Optionsfeld
    Me.strValue000 = Nz(Screen.ActiveControl.Value, 0)
    Case 109 'Textfeld
    Me.strValue000 = Nz(Screen.ActiveControl.Text, 0)
    Case 110 'Listfeld
    Me.strValue000 = Nz(Screen.ActiveControl.Value, 0)
    Case 111 'ComboBox
    Me.strValue000 = Nz(Screen.ActiveControl.Text, 0)
    Case 122 'Umschaltfeld
    Me.strValue000 = ""
    Case 123 'Reiter
    Me.strValue000 = ""
    Case Else
    Me.strValue000 = ""
    End Select
    Me.intID000 = Screen.ActiveForm.Controls("ID").Value
    Case "Report"
    Me.strObject000 = Screen.ActiveReport.Name
    Me.strsubForm000 = ""
    Me.strControl000 = ""
    Me.intID000 = "0"
    Me.strValue000 = "0"
    Case Else
    Me.strObject000 = "?"
    Me.strsubForm000 = "?"
    Me.strControl000 = "?"
    Me.intID000 = "99"
    Me.strValue000 = "?"
    End Select

    End Sub


    Function getArt() As String

    Dim strArt As String

    On Error Resume Next

    Err.Number = 0
    strArt = Screen.ActiveForm.Name
    If Err.Number = 0 Then
    getArt = "Form"
    Exit Function
    End If
    Err.Number = 0
    strArt = Screen.ActiveReport.Name
    If Err.Number = 0 Then
    getArt = "Report"
    Exit Function
    End If

    getArt = "Unbekannt"

    End Function
    Top of the page Bottom of the page


    Seite: < 53 54 55 56 57 58 ... 59 60 61 62 63 64 65 ... >
    Suche in diesem Forum
    Druckfreundliche Version
    (Alle Cookies von dieser Seite löschen.)