Neueste Beiträge

#1

Smalltalk / Umgehen der "Zeitscheibe" in W...

Letzter Beitrag von Debus - Dezember 16, 2025, 13:06:30

Hey wir haben hier auf der Arbeit Cortex-XDR laufen und recht scharf eingestellt. Nun will ich aber wenn möglich die Windows Zeitscheibe umgehen, also wenn man an dem PC nichts macht, das man nicht immer wider ein PW eingeben muss.
Simulierte Mausbewegung könnte / wird wahrscheinlich auffallen.

Nun würde ich das gerne mit folgendem Code in einer WordDatei machen. Hat hier einer Erfahrung, ob das auch auffallen würde, da eine standart API genutzt wird, und diese eigentlich bei Cortex-XDR funtkionieren sollen.

Hier mal der Code

Code [Auswählen] Erweitern

    Private Declare PtrSafe Function SetThreadExecutionState Lib "kernel32" (ByVal esFlags As Long) As Long


Const ES_CONTINUOUS As Long = &H80000000
Const ES_SYSTEM_REQUIRED As Long = &H1
Const ES_DISPLAY_REQUIRED As Long = &H2

Sub KeepAwakeStarten()
    SetThreadExecutionState ES_CONTINUOUS Or ES_SYSTEM_REQUIRED Or ES_DISPLAY_REQUIRED
    Application.OnTime Now + TimeValue("00:00:01"), "KeepAwake" 
End Sub

Sub KeepAwake()
    SetThreadExecutionState ES_CONTINUOUS Or ES_SYSTEM_REQUIRED Or ES_DISPLAY_REQUIRED
    Application.OnTime Now + TimeValue("00:01:00"), "KeepAwake"
End Sub

Sub KeepAwakeStoppen()
    On Error Resume Next
    Application.OnTime Now + TimeValue("00:01:00"), "KeepAwake", , False 
    SetThreadExecutionState 0 
End Sub


Danke
Holger

#2

Tabelle/Abfrage / Re: Aktualisierungs- und Anfüg...

Letzter Beitrag von Knobbi38 - Dezember 15, 2025, 12:14:21

Hallo Frog,

z.B. mit zwei weitere Felder hinzufügst: DateCreated und DateLastModified.

Damit kannst du dann eine weitere Abfrage nach deinen Wünschen erstellen.

Knobbi38

#3

Access-Hilfe / Re: Frage zu einem größeren Fo...

Letzter Beitrag von Gockel67 - Dezember 15, 2025, 11:53:20

Vielen Dank für die Info.

Allen eine schöne Woche
Jörg

#4

Tabelle/Abfrage / Aktualisierungs- und Anfügeabf...

Letzter Beitrag von Frog99 - Dezember 15, 2025, 11:48:31

Hallo Zusammen,

ich habe 2 getrennte Accessanwendungen.
Personenverwaltung
Tätigkeitsverwaltung

Personenverwaltung erzeugt eine Exporttabelle.
Tätigkeitsverwaltung importiert diese Exporttabelle.

1. Eine neue Tabelle wird erzeugt
-> DoCmd.TransferText acImportDelim, TBL_Personen_Importspezifikation, Tabelle_Personen_Import, Import_Datei_Pfad, True
2. Eine Aktualisierungsabfrage nimmt Änderungen in die bestehende Personentabelle auf
-> DoCmd.OpenQuery "QRY_Personen_aktualisieren", acViewNormal, acEdit
3. Eine Anfügeabfrage nimmt neue Datensätze in die Peronentabelle auf.
-> DoCmd.OpenQuery "QRY_Personen_anfügen", acViewNormal, acAdd

Alles funktioniert einwandfrei.

Aber mein Wunsch wäre das Ergebnis anzuzeigen.
Welche Datensätze wurden aktualisiert und welche wurden hinzugefügt.

Hier bin ich gerade am Grübeln und überlege wie ich das umsetzen könnte.

Wenn jemand eine Idee hat wäre ich dankbar.

Grüße
Frog

#5

Access Programmierung / Re: Datumsübergabe an SQL - Ke...

Letzter Beitrag von Mokkie - Dezember 15, 2025, 09:41:20

Hallo Doming,

ja, das wars, ich weiß auch nicht warum ich da immer wieder drüber stoplere.

Danke 

#6

Access Programmierung / Re: Datumsübergabe an SQL - Ke...

Letzter Beitrag von Doming - Dezember 15, 2025, 09:12:10

Moin Mokkie,

Du musst Dein VonDatum und BisDatum in eine SQL-kompatible Schreibweise umwandeln, also

Code [Auswählen] Erweitern

SQLDatum1 =Format(VonDatum, "\#mm\/dd\/yyyy\#")oder Du baust Dir eine Funktion wie diese, welche Du Dir in ein Modul schreibst:

Code [Auswählen] Erweitern

Public Function fncDatSQL(vardatum As Date) As String
    On Error GoTo Fehler:
    If IsDate(vardatum) Then
      fncDatSQL = Format(vardatum, "\#mm\/dd\/yyyy\#")
    End If
Ende:
    Exit Function
Fehler:
    MsgBox Err.Description
    Resume Ende
End Function
Dann könntest Du Deine Abfrage so aufbauen

Code [Auswählen] Erweitern

& " HAVING ZV.ZV_DATE Between " & fncDatSQL(VonDatum) & " and " & fncdatSQL(BisDatum) & " and Left([TERMINAL_TID],3)<>999 And Left([TERMINAL_TID],3)<>998 " _
                                & " ORDER BY ZV.ZV_DATE;"
Gruß
Doming

#7

Access Programmierung / Datumsübergabe an SQL - Kein E...

Letzter Beitrag von Mokkie - Dezember 15, 2025, 08:54:26

Hallo, 

ich habe ein Listenfeld, dieser Liste liegt eine Abfrage zugrunde,  ich möchte nun noch einen Filterfuktio einbauen. Hier kann ich den Fehler nicht finden. Es wird kein Ergebnis angezeigt. Leider bkommet man bei den Listenfeldern ja auch kein fehler angezeigt.
Das ganze Funktioniert aber wenn ich das Datuem 'hart Eintrage' im SQL.
Hat jemand eine Idee?

Code [Auswählen] Erweitern

Dim VonDatum As String
    Dim BisDatum As String
   
    VonDatum = Format(Me.txtDateVon, "dd/mm/yyyy")
    BisDatum = Format(Me.txtDatebis, "dd/mm/yyyy")

    Me.lstProvisionen.RowSource = " SELECT Count(ZV.ZV_TURNOVER) AS Anzahl_Trx, TERMINAL.TERMINAL_TID AS TerminalNo, PROVISION.PROVISION_FIX AS Fix, PROVISION.PROVISION_PT AS ProTrx, " _
                                & " ROUND(Count([ZV_TURNOVER])*[PROVISION].[PROVISION_PT]+[PROVISION].[PROVISION_FIX],2) AS Provisionsergebnis, ZV.ZV_DATE" _
                                & " FROM RESELLER INNER JOIN ((ZV INNER JOIN TERMINAL ON ZV.TERMINAL_ID = TERMINAL.TERMINAL_ID) INNER JOIN PROVISION ON TERMINAL.TERMINAL_ID = PROVISION.TERMINAL_ID) ON RESELLER.RESELLER_ID = PROVISION.RESELLER_ID" _
                                & " GROUP BY TERMINAL.TERMINAL_TID, PROVISION.PROVISION_FIX, PROVISION.PROVISION_PT, ZV.ZV_DATE, Left([TERMINAL_TID],3), ZV.TERMINAL_ID " _
                                & " HAVING ZV.ZV_DATE Between '" & VonDatum & "' and  '" & BisDatum & "'  and Left([TERMINAL_TID],3)<>999 And Left([TERMINAL_TID],3)<>998 " _
                                & " ORDER BY ZV.ZV_DATE;"

#8

Access-Hilfe / Re: Frage zu einem größeren Fo...

Letzter Beitrag von PhilS - Dezember 14, 2025, 21:54:34

Wo würde man denn etwas davon erfahren wenn es soweit ist?

Die Primärquelle ist die Access Roadmap: https://www.microsoft.com/en-us/microsoft-365/roadmap?filters=Access
Leider oft nicht so super aktuell gepflegt, wie man an dem eher nicht zutreffenden Release Date Dezember 2025 sieht.

Eine Sekundärquelle, aber mit zusätzlichen Informationen angereichert, ist Accessforever.org.
https://www.accessforever.org/post/microsoft-s-plans-for-access-oct-25-march-26

#9

Access-Hilfe / Re: Frage zu einem größeren Fo...

Letzter Beitrag von Gockel67 - Dezember 14, 2025, 19:56:24

Danke für deine Antwort. Wo würde man denn etwas davon erfahren wenn es soweit ist?

Liebe Grüße und einen schönen Abend
Jörg

#10

Access-Hilfe / Re: Frage zu einem größeren Fo...

Letzter Beitrag von PhilS - Dezember 14, 2025, 15:10:59

VBA Userforms haben zumindest nicht die Breitenbeschränkung der normalen Access-Formulare. Vermutlich auch nicht deren Höhenbeschränkung.

Allerdings habe diese Userforms auch komplett andere Steuerelemente und nicht die komfortable Datenbindung von Access-Formularen.

Das Access-Team bei Microsoft arbeitet im Moment übrigens auch daran, die Größenbeschränkung der Access-Formulare aufzuheben. Das dürfte noch ein paar Monate bis zur Veröffentlichung dauern.