Skip to main content

AccessTr.neT


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

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

#1
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.
.rar PANSİYON YÖNETİM İSTATİSLİK İKİ TÜRLÜ - BOŞ.rar (Dosya Boyutu: 2,15 MB | İndirme Sayısı: 68)
Cevapla
#2
Paylaşımınız teşekkürler Sefer bey
Iyi çalışmalar.
Cevapla
#3
@"sefer1975" bu programı 64 bit için tekrar paylaşabilir misiniz.
Cevapla
#4
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
Visual Basic Code
#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
Cevapla
#5
@berduş söylemek istediğiniz bu mu;
Visual Basic Code
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
Cevapla
#6
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da