Option Compare Database
Option Explicit
Global YetkiNe As Byte
Global ModulNe As Byte
Global GrupNe As Byte
Global FirmaDilNe As String
Global FirmaDovizNe As String
Global FirmaHangi As Integer
Global FirmaGrupNe As String
Global FirmaYetkiliNe As String
Global KullaniciKim As Integer
Global IkiTarihArasi As Date
Global IlkTarih As Date
Global SonTarih As Date
Global Tarih As Date
Global DevirTarih As Date
Global Secim As String
 
Public Function AktifKullaniciYetkisi() As Byte
AktifKullaniciYetkisi = YetkiNe
End Function
 
Public Function AktifModulYetkisi() As Byte
AktifModulYetkisi = ModulNe
End Function
 
Public Function AktifGrupYetkisi() As Byte
AktifGrupYetkisi = GrupNe
End Function
 
Public Function AktifFirmaDil() As String
AktifFirmaDil = FirmaDilNe
End Function
 
Public Function AktifFirmaDoviz() As String
AktifFirmaDoviz = FirmaDovizNe
End Function
 
Public Function AktifFirma() As Integer
AktifFirma = FirmaHangi
End Function
 
Public Function AktifFirmaGrup() As String
AktifFirmaGrup = FirmaGrupNe
End Function
 
Public Function AktifFirmaYetkili() As String
AktifFirmaYetkili = FirmaYetkiliNe
End Function
 
Public Function AktifKullanici() As Integer
AktifKullanici = KullaniciKim
End Function
 
Public Function AktifIkiTarihArasi() As Date
AktifIkiTarihArasi = IkiTarihArasiSec
End Function
 
Public Function AktifIlkTarih() As Date
AktifIlkTarih = IlkTarihSec
End Function
 
Public Function AktifSonTarih() As Date
AktifSonTarih = SonTarihSec
End Function
 
Public Function AktifTarih() As Date
AktifTarih = TarihSec
End Function
 
Public Function AktifDevirTarih() As Date
AktifDevirTarih = DevirTarihSec
End Function
 
Public Function AktifSecim() As Date
AktifSecim = Secim
End Function
 
Public Function OturumAc()
On Error GoTo Hata
Dim str As String
 
 
 
    str = Forms!SysGiris!Oturum.Value
    On Error GoTo hatas
    If Forms!SysGiris!dogrusifre = Forms!SysGiris!Sifre Then
        YetkiNe = Forms!SysGiris!dogruyetki
        ModulNe = Forms!SysGiris!dogruModul
        GrupNe = Forms!SysGiris!dogruGrup
        FirmaDilNe = Forms!SysGiris!FirmaDil
        FirmaDovizNe = Forms!SysGiris!FirmaDoviz
        FirmaHangi = Forms!SysGiris!Firma
        FirmaGrupNe = Forms!SysGiris!GrupSec
        FirmaYetkiliNe = Forms!SysGiris!Giris
        KullaniciKim = Forms!SysGiris!Oturum
        IkiTarihArasiSec = Between(Forms!SysGiris!Tarih1) And (Forms!SysGiris!Tarih2)
        IlkTarihSec = Forms!SysGiris!Tarih1
        SonTarihSec = Forms!SysGiris!Tarih2
        TarihSec = Forms!SysGiris!Tarih1
        DevirTarihSec = Forms!SysGiris!TarihO
        Secim = Forms!SysGiris!FilitreF
        AktifKullaniciYetkisi
        AktifModulYetkisi
        AktifGrupYetkisi
        AktifFirmaDil
        AktifFirmaDoviz
        AktifFirma
        AktifFirmaGrup
        AktifFirmaYetkili
        AktifKullanici
        AktifIkiTarihArasi
        AktifIlkTarih
        AktifSonTarih
        AktifTarih
        AktifIDevirTarih
        AktifIDevirSecim
 
        DoCmd.SetWarnings False
        CurrentDb.Execute "INSERT INTO SysKullaniciKayit ( [User] ) SELECT aktifkullanici()"
        DoCmd.SetWarnings True
hatas:
 
        DoCmd.Close
        DoCmd.OpenForm "SysFilitre", , , , , , "Value=" + str
 
    Else
        Forms!SysGiris!YanlisSifre = Forms!SysGiris!YanlisSifre + 1
        MsgBox Forms!SysGiris!YanlisSifre & ". Denemenizde þifrenizi yanlýþ girdiniz. Lütfen tekrar deneyiniz.. " _
& Chr(13) & "4. Hatanýzda Program Kapanacaktýr.", vbOKOnly + vbCritical, "Hatalý Þifre "
        If Forms!SysGiris!YanlisSifre = 4 Then DoCmd.Quit (acQuitSaveNone)
    End If
    Exit Function
Hata:
 
End Function
 
Public Function YenileYetki()
        ModulNe = Forms!SysFilitre!YEtkiMenu.Column(1)
        GrupNe = Forms!SysFilitre!YEtkiMenu.Column(2)
        AktifModulYetkisi
        AktifGrupYetkisi
 
End Function

Option Compare Database
Option Explicit
......
..............
.....................
 
Global IlkTarihSec As Date
Global SonTarihSec As Date
........
...............