AccessTr.neT

Resmi kurumlarda kullanılan kapsamlı araç görevlendirme programı. Access ile ilgilenenlerin çok faydalanacağını umarım. Bu program ile birlikte Access ile çok kapsamlı  programlar yapılabildiğini görmenizi istedim. Access her ne kadar veritabanı ise de orta ölçekli her türlü ihtiyacı programlama imkanına sahipsiniz. 

Programı daha iyi anlayabilmek ve program ile ne gibi fonksiyonları tanımlanabildiğini göre bilmek için aşağıdaki kullanıcı bilgileri ile giriş yaptıktan sonra yeni kullanıcı tanımlaması yapalım ve yetki seviyesini ise 2 veya üzeri olarak belirleyelim. Bu durumda, yetki tanımlaması ile ilgili bilgi sahibi olabilir ve bunu kendi programlarınızda kullanabilirsiniz.

İyi Çalışmalar.

Giriş için
Kullanıcı adı:deneme
şifre :1234

Paylaşım için teşekkürler.

Paylaşım için teşekkürler dosyayı indirdim lakin giriş yapamıyorum kontrol etmeniz mümkünmüdür.

(17/09/2018, 11:09)Kılıçarslan yazdı: [ -> ]Paylaşım için teşekkürler dosyayı indirdim lakin giriş yapamıyorum kontrol etmeniz mümkünmüdür.

64 bit ofis kullanıyorsanız Module2 isimli modüldeki

Private Declare Function BlackEagle Lib "kernel32.dll" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As _

String, ByVal nVolumeNameSize As Integer, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal _

lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long

kodundaki Declare ile Function arasına PtrSafe ekleyerek deneyiniz. Kod aşağıdaki gibi olacak.

Private Declare PtrSafe Function BlackEagle Lib "kernel32.dll" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As _

String, ByVal nVolumeNameSize As Integer, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal _

lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long

64 bit de çalışması için verdiğiniz düzenlemeyi sizin yönlendirmenizle yaptım fakat bu bölümde sabit kalıyor resimdeki gibi