AccessTr.neT

Bul · 14/05/2015, 17:28

harikasınız ;)

Bul · 14/05/2015, 17:32

(14/05/2015, 17:26)ozanakkaya yazdı:
(14/05/2015, 11:07)uMits yazdı: bu uygulamadaki aktivasyon.mdb ye shift tuşuyla giremiyorum. önlem almışsınız sanırım tablolara bakamıyorum formları inceleyemiyorum ...
Her iki uygulamada da shift engeli bulunmamaktadır.

ozan bey denedim shift ile tablo form olan yer çıkmadı ama sağ tıklayıp form tasarımı dediğimde açıldı. Access 2003 kullanıyorum bundan kaynaklı olabilir .

Bul · 14/05/2015, 17:38

(14/05/2015, 17:32)uMits yazdı: ozan bey denedim shift ile tablo form olan yer çıkmadı ama sağ tıklayıp form tasarımı dediğimde açıldı. Access 2003 kullanıyorum bundan kaynaklı olabilir .

Bilgi olması açıından, ilk açılan formun form özelliklerinden açılan, kalıcı özelliği evet olarak düzenlendiği için tablolar açılışta pasif durumda.

Bul · 14/05/2015, 18:08

yeni konu açmadan sormak istedim.
birde elimde lisanslama uygulaması mevcut. aşağıdaki kodun mantığı nedir bilgi verirmisiniz
birinci private ile başlayan kod sanırım uygulamayı kullanılacak bilgisayarın
ikinci private ile başlayan kodda müşteriye verilecek kod .
uygulamanın olduğu dizine .txt kaydedip ne yapacaz. kod sorduğunda kod yerine ne yazacağız

Kod:

Private Sub Form_Load()

Dim wrkDefault As Workspace

Dim nesne, disk, k

Set nesne = CreateObject("Scripting.FileSystemObject")

Set disk = nesne.GetDrive(nesne.GetDriveName(nesne.GetAbsolutePathName("d:\")))

k = disk.SerialNumber

Me.disk = k



End Sub



Private Sub Komut0_Click()

Dim wrkDefault As Workspace

Dim nesne, disk, k

r = Mid(MD5String(Me.disk), 1, 8)

If asif = r Then

Set nesne = CreateObject("Scripting.FileSystemObject")

Set disk = nesne.GetDrive(nesne.GetDriveName(nesne.GetAbsolutePathName("d:\")))

k = disk.SerialNumber

Me.disk = disk.SerialNumber

klasor = CurrentProject.Path & "/" & disk.SerialNumber & ".txt"

Open CurrentProject.Path & "/" & disk.SerialNumber & ".txt" For Output As #1

Print #1, MD5String(disk.SerialNumber)

Close #1

DoCmd.OpenForm "başlangıç"

Else

10 MsgBox "HATALI ŞİFRE YENİNİDEN DENE"

End If



End Sub