Skip to main content

AccessTr.neT


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

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

Çözüldü #7
(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.
.rar MamulAmbari.rar (Dosya Boyutu: 61,86 KB | İndirme Sayısı: 4)
Cevapla
Çözüldü #8
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.

Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...
Cevapla
Çözüldü #9
Sn;By_Ufuk
Örneğinle ilgili tekrar dönerseniz seviniriz.
Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...
Cevapla
Çözüldü #10
Sayın DUAYEN,
Bu vermiş olduğunuz kod her defasında şifreli girmeyi mi sağlayacak?
Cevapla
Çözüldü #11
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
OĞULCAN & OLCAYTUĞ

Oğulcan Excel Web Sitesi
Excel İle Programlama
Cevapla
Çözüldü #12
(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.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da