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.
Meb Yatılı Okul Yönetim Programı Paylaşımı
Paylaşımınız teşekkürler Sefer bey
Iyi çalışmalar.
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
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
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
Konuyu Okuyanlar: 1 Ziyaretçi