Meb Yatılı Okul Yönetim Programı Paylaşımı

Meb Yatılı Okul Yönetim Programı Paylaşımı - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Meb Yatılı Okul Yönetim Programı Paylaşımı (/konu-meb-yatili-okul-yonetim-programi-paylasimi.html)

Sayfalar: 1 2

Meb Yatılı Okul Yönetim Programı Paylaşımı - SeferŞANLI - 29/12/2019

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.

Cvp: Meb Yatılı Okul Yönetim Programı Paylaşımı - berduş - 29/12/2019

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

Cvp: Meb Yatılı Okul Yönetim Programı Paylaşımı - xoseng - 29/02/2020

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

Cvp: Meb Yatılı Okul Yönetim Programı Paylaşımı - berduş - 29/02/2020

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

Cvp: Meb Yatılı Okul Yönetim Programı Paylaşımı - xoseng - 29/02/2020

@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

Cvp: Meb Yatılı Okul Yönetim Programı Paylaşımı - berduş - 29/02/2020

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