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