Excel'den Access'e Veri Girişini Kısıtlamak..YARDIM...

1 2 3

(24/05/2011, 16:22)DUAYEN yazdı: Lisans isteme veya şifre sorma işini Excel programınızda yapacaksınız, eğer excelden .mdb dosyasına bilgi aktarıyorsanız.
ThisWorkBook modülünde aşağıdaki kodları yapıştırınız.Eğer olmazsa örnek ekleyiniz.
Kod:
If Date >= CDate("30.01.2011") Then sifre = InputBox("Devam edebilmek için şifre girmelisiniz!,Programın Kullanım Süresi Dolmuştur") If sifre = "12345" Then Sheets("Sayfa1").Select Else ActiveWorkbook.Close End If If sifre = "" Then ActiveWorkbook.Saved = True ActiveWorkbook.Close End If End If End Sub

Direkt olarak .mdb dosyasına bir çeşit lisanslama koyamazmıyız? Örnek dosya ek'te mevcut. Excel arayüzü ile .mdb dosyasına kayıt yapılıyor.

Kod:
sub şifre()

50sifrem=inputbox("litfen şifreyi giriniz"'"şifre")

if slifrem="123456"then

sheets)"mdb").select

Range(a1").select

exit sub 

else

msgbox "yanlış şifre girdiniz.....!"

end if

yenisifre=msgbox("yeniden denemek istermisniz....!")

 birede bu kodu denerseniz bir önceki kodu denedinizmi.

Sn;By_Ufuk
Örneğinle ilgili tekrar dönerseniz seviniriz.

Sayın DUAYEN,
Bu vermiş olduğunuz kod her defasında şifreli girmeyi mi sağlayacak?

Sn:by_ufuk
İstediğinizi iki şekilde yapabilirsiniz 1.Lisanslama yolu ile 2.Kayıt sınırlama ile 1. konuda sitemizde Mehmet Hoca tarafından eklenmiş bir çok örnek var, onları inceleyerek kendinize uyarlayınız takıldığınız yerlerde yardımcı oluruz, 2. ise mantık olarak anlatayım ilk önce veri tabanındaki kayıt sayısını buldurup bir textboxa yazdırırsınız ve formunuzun initalize olayına aşağıdaki gibi bir kod eklerseniz kayıtları sınarlamış olursunuz.

If TextBox1.Text = "1000" Then

CommandButton1.Visible = False

End If

(28/05/2011, 09:04)ogulcan92 yazdı: Sn:by_ufuk
İstediğinizi iki şekilde yapabilirsiniz 1.Lisanslama yolu ile 2.Kayıt sınırlama ile 1. konuda sitemizde Mehmet Hoca tarafından eklenmiş bir çok örnek var, onları inceleyerek kendinize uyarlayınız takıldığınız yerlerde yardımcı oluruz, 2. ise mantık olarak anlatayım ilk önce veri tabanındaki kayıt sayısını buldurup bir textboxa yazdırırsınız ve formunuzun initalize olayına aşağıdaki gibi bir kod eklerseniz kayıtları sınarlamış olursunuz.
If TextBox1.Text = "1000" Then

CommandButton1.Visible = False

End If

Sayın ogulcan92;
Benim asıl yapmak istedğim mehmet hocamın anlattığı tarzda lisanslama işlemi bu benim çok fazla işime yarayacak bir yöntem,konuyuda biraz inceledim ancak bende .mdb dosyasına nasıl uygulayacağımı açıkçası çözemedim bu konuda biraz acemiyim.

1 2 3