(13/05/2025, 19:32)atoykan yazdı:

Function fSetAccessWindow(nCmdShow As Long)

    Dim loX As Long

    On Error Resume Next

    loX = apiShowWindow(hWndAccessApp, nCmdShow)

    fSetAccessWindow = (loX <> 0)

End Function

bu kadar sade hale getirebilirsiniz kodları. Form kontrollerini kaldırınca API çalışmasına engel durum kalmamış. Belirttiğim gibi activeform kullanmak yerine doğrudan formu yükleyip late binding ile Access uygulaması gizlenebilir veya son hali ile form kontrolleri yapılmadan doğrudan API çağırılarak gizlenebilir. Sorununuzun çözülmesine sevindim. İyi çalışmalar.

Önerdiğiniz bu kodla mükemmel çalışıyor çok teşekkür ederim sağolun cenabı allah emeklerinizi zai etmesin