Arkadaşlar sizlerin büyük desteği ile Milli eğitim Bakanlığına bağlı okullardaki pansiyonların yönetilmesinde kullanılan temel iş ve işlemlerle ilgili programı büyük emeklerle bitirdim.  Bu kapsamda;
https://accesstr.net/ ailesine, bilgilerini esirgemeyen üstatlara;
Aynı zamanda https://access - sql.com/ ailesine çok ama çok teşekkür ediyorum.
Ve programın son halini sizlerin vasıtası ile paylaşıyorum. Umarım birilerinin işine yarar.

Paylaşımınız teşekkürler Sefer bey
Iyi çalışmalar.

@"sefer1975" bu programı 64 bit için tekrar paylaşabilir misiniz.

tasarım modunda açtığınızda Alt+F11 basınca bazı modüllerde kırmızı declare olan satırlarrı görürsünüz o satırları Declare ptrsafe ile değiştirirseniz 64 bit uyumu olur ama o zaman da 32de sorun çıkarır
en uygunu aşağıda ki gibi aynı kodu hem 64 hem de 32 için yazmak

#If VBA7 And Win64 Then    '64 bit için

      Declare PtrSafe  ........          '64bit için declare komutundan sonra PtrSafe   yazmak yeterlidir



#Else                                 '32 bit için

     Declare ...........



#End If

@berduş söylemek istediğiniz bu mu;

Option Compare Database

#End IfOption Explicit

#If VBA7 And Win64 Then     '64 bit için

    Declare PtrSafe Function IsWindowVisible Lib "User64" (ByVal hWnd As Long) As Long

Dim dwReturn As Long

Const SW_HIDE = 0

Const SW_SHOWNORMAL = 1

Const SW_SHOWMINIMIZED = 2

Const SW_SHOWMAXIMIZED = 3

    

#Else                       '32 bit için

    Private Declare Function IsWindowVisible Lib "User32" (ByVal hWnd As Long) As Long

Dim dwReturn As Long

Const SW_HIDE = 0

Const SW_SHOWNORMAL = 1

Const SW_SHOWMINIMIZED = 2

Const SW_SHOWMAXIMIZED = 3

Private Declare Function ShowWindow Lib "User32" (ByVal hWnd As Long, _

ByVal nCmdShow As Long) As Long

Dim dwReturn As Long
Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3
bu satırları if içine almanıza gerek yok sadece kırmızıya dönen satırların IF içine alınması yeterli