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

Du bist als Gast eingelogt. ( Anmelden | Registrieren )
  • Ä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
  • 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
  • Access Stammtisch München am 10.11.2022 (Do)
  • StefanWirrer08.11.22 12:38
  • Ich möchte Access zwingen, Daten in MDB zu schreib...
  • KaiBreustedt10.10.22 11:55
       └ RE: Ich möchte Access zwingen, Daten in MDB zu s... Kanne10.10.22 12:14
          └ RE: Ich möchte Access zwingen, Daten in MDB zu... KaiBreustedt10.10.22 13:02
             └ RE: Ich möchte Access zwingen, Daten in MDB ... Kanne10.10.22 15:45
                └ RE: Ich möchte Access zwingen, Daten in MD... KaiBreustedt10.10.22 17:32
             └ RE: Ich möchte Access zwingen, Daten in MDB ... PhilS29.10.22 15:06
       └ RE: Ich möchte Access zwingen, Daten in MDB zu s... PeterDoering10.10.22 12:59
          └ RE: Ich möchte Access zwingen, Daten in MDB zu... KaiBreustedt10.10.22 13:03
             └ RE: Ich möchte Access zwingen, Daten in MDB ... sks28.10.22 17:46
  • Access Daten per LDAP bereit stellen
  • r2d2c3po15.10.22 16:56
  • Access Stammtisch München am 13.10.2022 (Do)
  • StefanWirrer11.10.22 12:31
  • fehlender Button beim Datenimport per VBA
  • Kanne10.10.22 10:01
    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 8 9 10 11 12 ... >
    Suche in diesem Forum
    Druckfreundliche Version
    (Alle Cookies von dieser Seite löschen.)