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

Du bist als Gast eingelogt. ( Anmelden | Registrieren )
  • Umstellung Access 97 auf 365
  • olecundbolec03.02.23 12:50
  • CreateTableDef funktioniert bei längeren Tabellenn...
  • Lukas18.01.23 11:11
       └ RE: CreateTableDef funktioniert bei längeren Tab... Karl Donaubauer19.01.23 01:51
          └ RE: CreateTableDef funktioniert bei längeren T... Lukas19.01.23 08:17
             └ RE: CreateTableDef funktioniert bei längeren... Karl Donaubauer19.01.23 14:40
                └ RE: CreateTableDef funktioniert bei länger... Karl Donaubauer27.01.23 10:56
  • wieder persistente .laccdb
  • Andrea16.09.22 16:10
       └ RE: wieder persistente .laccdb PeterDoering18.09.22 07:08
          └ RE: wieder persistente .laccdb Andrea19.09.22 19:35
             └ RE: wieder persistente .laccdb PeterDoering21.09.22 14:54
                └ RE: wieder persistente .laccdb Andrea21.09.22 19:31
                └ RE: wieder persistente .laccdb Andrea28.09.22 11:42
                   └ RE: wieder persistente .laccdb Botti11.10.22 07:59
                      └ RE: wieder persistente .laccdb Rolsch11.10.22 17:53
                         └ RE: wieder persistente .laccdb Botti17.10.22 11:51
                            └ RE: wieder persistente .laccdb Andrea25.10.22 14:39
                               └ RE: wieder persistente .laccdb sks28.10.22 17:37
       └ RE: wieder persistente .laccdb Botti16.01.23 18:10
  • viele Daten in eine 1-n Struktur importieren
  • tomde13.01.23 14:38
       └ RE: viele Daten in eine 1-n Struktur importieren Karl Donaubauer16.01.23 10:47
  • Ändern des Spaltennames führt zu Fehler im Abfrage...
  • mjuergens16.01.23 09:42
       └ RE: Ändern des Spaltennames führt zu Fehler im A... Karl Donaubauer16.01.23 10:35
  • Access Stammtisch München am 12.01.2023 (Do)
  • StefanWirrer11.01.23 12:52
  • Nochmal LAA Funktionalität für die neueren Access ...
  • sks14.12.22 09:17
       └ RE: Nochmal LAA Funktionalität für die neueren A... Karl Donaubauer14.12.22 11:10
          └ RE: Nochmal LAA Funktionalität für die neueren... sks15.12.22 07:40
             └ RE: Nochmal LAA Funktionalität für die neuer... Karl Donaubauer15.12.22 10:53
                └ RE: Nochmal LAA Funktionalität für die neu... sks15.12.22 17:17
                   └ RE: Nochmal LAA Funktionalität für die n... Karl Donaubauer15.12.22 17:45
                      └ RE: Nochmal LAA Funktionalität für die... sks16.12.22 09:15
                         └ RE: Nochmal LAA Funktionalität für d... Karl Donaubauer16.12.22 11:52
                            └ RE: Nochmal LAA Funktionalität für... sks16.12.22 17:13
       └ RE: Nochmal LAA Funktionalität für die neueren A... sks29.12.22 17:50
       └ RE: Nochmal LAA Funktionalität für die neueren A... sks31.12.22 16:25
          └ RE: Nochmal LAA Funktionalität für die neueren... Karl Donaubauer02.01.23 18:17
             └ RE: Nochmal LAA Funktionalität für die neuer... sks03.01.23 06:28
  • Access Stammtisch München am 15.12.2022 (Do)
  • StefanWirrer14.12.22 10:26
  • Command-Funktion Access 2013
  • BMAJ15.12.21 08:48
       └ RE: Command-Funktion Access 2013 PeterDoering05.01.22 14:47
          └ RE: Command-Funktion Access 2013 BMAJ11.01.22 12:15
             └ RE: Command-Funktion Access 2013 PeterDoering11.01.22 22:01
                └ RE: Command-Funktion Access 2013 BMAJ09.12.22 11:51
                   └ RE: Command-Funktion Access 2013 Karl Donaubauer09.12.22 12:33
  • Der Terminal Server und Office ist Tod
  • ASummer10.11.22 09:07
       └ RE: Der Terminal Server und Office ist Tod PeterDoering24.11.22 11:53
       └ RE: Der Terminal Server und Office ist Tod Karl Donaubauer24.11.22 13:15
          └ RE: Der Terminal Server und Office ist Tod sks28.11.22 13:05
          └ RE: Der Terminal Server und Office ist Tod Karl Donaubauer28.11.22 17:03
             └ RE: Der Terminal Server und Office ist Tod sks28.11.22 17:25
                └ RE: Der Terminal Server und Office ist Tod Karl Donaubauer29.11.22 08:59
                   └ RE: Der Terminal Server und Office ist Tod sks29.11.22 12:13
                └ RE: Der Terminal Server und Office ist Tod ASummer06.12.22 09:13
                   └ RE: Der Terminal Server und Office ist Tod sks07.12.22 09:29
  • office365 und access 2016 frontend
  • Greiff16.11.22 14:44
       └ RE: office365 und access 2016 frontend Karl Donaubauer24.11.22 13:46
       └ RE: office365 und access 2016 frontend ASummer06.12.22 08:42
  • Unterformular im Navigationsformular aktualisieren
  • von Bödefeld27.11.22 08:40
       └ RE: Unterformular im Navigationsformular aktuali... PeterDoering27.11.22 11:23
  • Office 365 Family im Angebot 27 Monate für 92€
  • tim27.11.22 01:17
  • Doevents notwendig bei Office-Fernsteuerung
  • Botti09.11.22 07:58
       └ RE: Doevents notwendig bei Office-Fernsteuerung ASummer10.11.22 09:15
       └ RE: Doevents notwendig bei Office-Fernsteuerung PeterDoering10.11.22 23:19
          └ RE: Doevents notwendig bei Office-Fernsteue... Botti12.11.22 08:31
             └ RE: Doevents notwendig bei Office-Fernsteuerung PeterDoering19.11.22 10:25
  • Einladung zum 11. virtuellen Access-Stammtisch Han...
  • KlausWerther14.11.22 22:56
    Botti
    Gesendet: 12.11.22 08:31
    Betreff: RE: Doevents notwendig bei Office-Fernsteuerung


    Member

    Beiträge: 6

    Hallo Peter,

    ist nicht ganz so easy. Muss Dir die relevanten Code-Teile anhängen.
    Ist aber vielleicht auch interessant für andere, wie ich die Anbindung mache.

    Bitte nicht zuviel Hirnschmalz reinstecken. Ich denke, das ist echt ein 365-Office Problem


    VG
    Jörg






    --------------------------------
    'Aufruf in einem Modul
    ...
    Dim mySheet As Object

    DoEvents

    Set mySheet = PS_Excel.GetActiveSheet()

    DoEvents
    ...

    _____________________________________________________________________


    Public Function PS_Excel(Optional parRefresh) As clsExcel
    On Error GoTo Err_PS_Excel
    Static MySteuerung As clsExcel

    If Not IsMissing(parRefresh) Then
    Set MySteuerung = Nothing
    End If

    If MySteuerung Is Nothing Then
    Set MySteuerung = New clsExcel
    End If

    If Not MySteuerung.BinVerbunden() Then
    Set MySteuerung = New clsExcel
    End If


    Set PS_Excel = MySteuerung



    Exit_PS_Excel:
    On Error Resume Next
    Exit Function

    Err_PS_Excel:
    On Error Resume Next
    GoTo Exit_PS_Excel
    Resume
    End Function

    _________________________________________________

    'Auszug aus clsExcel

    Private Sub Class_Initialize()
    On Error GoTo ERR_Class_Initialize
    ProgrammLogging "Klassenmodul_clsExcel/Class_Initialize-START"
    Dim bOk As Boolean

    If Not GetExistingExcelInstanz() = True Then
    Set objExcel = CreateObject("Excel.Application")
    End If
    m_Version = objExcel.Version


    Set objMappe = objExcel.ActiveWorkbook
    Set objSheet = objExcel.activeSheet

    EXIT_Class_Initialize:
    On Error Resume Next
    ProgrammLogging "Klassenmodul_clsExcel/Class_Initialize_Click-ENDE"
    Exit Sub

    ERR_Class_Initialize:
    If Err.Number = 429 Then
    MsgBox "Excel ist auf diesem System nicht oder nichtkorrekt installiert.", vbExclamation, "Abbruch..."
    Else
    Call Fehlerbehandlung("MyApp/Klassenmodul_clsExcel", "Class_Initialize", Erl, "Bemerkungen: ./.")
    End If
    GoTo EXIT_Class_Initialize
    Resume

    End Sub

    ------------------------------------------------------
    Private Function GetExistingExcelInstanz() As Boolean
    On Error GoTo ERR_GetExistingExcelInstanz
    ProgrammLogging "Klassenmodul_clsExcel/GetExistingExcelInstanz-START"

    GetExistingExcelInstanz = False

    Set objExcel = GetObject(, "Excel.Application")
    GetExistingExcelInstanz = True

    EXIT_GetExistingExcelInstanz:
    On Error Resume Next
    ProgrammLogging "Klassenmodul_clsExcel/GetExistingExcelInstanz_Click-ENDE"
    Exit Function

    ERR_GetExistingExcelInstanz:
    'Call Fehlerbehandlung("MyApp/Klassenmodul_clsExcel", "GetExistingExcelInstanz", Erl, "Bemerkungen: ./.")
    GoTo EXIT_GetExistingExcelInstanz
    Resume

    End Function
    ------------------------------------------------------
    Public Function BinVerbunden() As Boolean
    On Error GoTo ERR_BinVerbunden
    ProgrammLogging "Klassenmodul_clsExcel/BinVerbunden-START"
    Dim strTest As String

    BinVerbunden = False
    strTest = objExcel.Name
    BinVerbunden = True

    EXIT_BinVerbunden:
    On Error Resume Next
    Exit Function

    ERR_BinVerbunden:
    GoTo EXIT_BinVerbunden
    Resume

    End Function
    Top of the page Bottom of the page


    Seite: < 1 2 3 4 5 6 7 ... >
    Suche in diesem Forum
    Druckfreundliche Version
    (Alle Cookies von dieser Seite löschen.)