AccessTr.neT

eğer açan eleman kendi şirket bilgilerini girdiğinde raporlara bu tek kayıtlık şirket ile ilgili bilgiler gelecekse yap bitane polsofttaki kurum bilgileri formu gibi form, sadece tek kayıt girilebilsin ve kurum bilgileri tablosuna kaydetsin, sende bu bilgileri
=DLookUp("SIRKET";"SIRKETBILGILERI")
kodu ile tablodan çek raporda veya formda kullan,

(06/12/2008, 00:32)sledgeab yazdı: [ -> ]hocam ne üzülmesi,
mesajda yazdığım Access ve Excel örnek kullanıcı isimleri,

ReadRegistry "HKCU", "Software\Microsoft", "KULLANICI", "S", "", KULLANICI
kedi içinde registre okuması eğer bunu ŞİRKET tablosundanda alabilirsek sorum çözülüyor,,

başka pcde bu kayıtlar yok, başka pcde açıldığında regedite girilen kullanıcı adı eklenecek, 15. mesaja yazdım,

"formma aldığında çözülmüyor veya forma alıp tabloya attırabilirsek sorunçünki formdan değil tablodan kontrol ettirmek istiyorum"

sen KRK KORUMA VE GUVENLIK HIZMELERI olara açtığında ADO kodlarıyla tabloya aktaracaksın,
başka kullanıcı uygulamayı kopyalayıp kendi pc sinde açkığında mesela ACCESSTR.NET olarak aktive etti, tabloya 2. kayıt ekleyecek ve sen bu tablodan 1. kaydı kullanacaksın,

Dosyayı mde De yapsan ilgili tablo açılabiliyor ve sen burdaki 1nci satırı silebiliyorsun ayrıca dün yaptığımız ad tablosuna gidip kendi ismin alan ACCESSTR.NET yazmanı engellemiyor. dün uygulamayı program içine koyduğumda bu bir açık olarak karşıma çıktı yoksa ben istermiydim o kadar zamanını benim için boşa harcamanı ki baktı saat 02:30 bile hala çevrim içi idin üzüldüm bu insanlar birilerine karşılıksız yardım etmek için çaba harcıyorlar ne güzel demekki benim çocukluğumda ki değerler hala ölmemiş dedim .
Bizde bir söz vardır teori ile pratik hiç bir zaman aynı değildir diye bende burda oturuyor iş akışlarını çıkarıyor ve uyguluyorum ama teorik olarak yaptığım iş akışları pratiğe dönünce öyle değişiyor ki inan bende zaman zaman neden önce düşünmedim diye kendimi yiyorum ama doğrusunu pratik belirliyor dün harkülede şeyler önerdin ve ve yaptın ama kılavuzun karga imiş ondan oldu pratiğe dökünce güvenlik zaafiyeti çıktı onun için bu gün utanarak ve sıkılarak tekrar yardım istedim ama tekrar bu ihtiyar karga özür diler.

(06/12/2008, 00:43)sledgeab yazdı: [ -> ]eğer açan eleman kendi şirket bilgilerini girdiğinde raporlara bu tek kayıtlık şirket ile ilgili bilgiler gelecekse yap bitane polsofttaki kurum bilgileri formu gibi form, sadece tek kayıt girilebilsin ve kurum bilgileri tablosuna kaydetsin, sende bu bilgileri
=DLookUp("SIRKET";"SIRKETBILGILERI")
kodu ile tablodan çek raporda veya formda kullan,

zaten bende onu yaptım bu bilgi 12 ekran 123 rapora gidiyor ama bunu nasıl koruyacağız tüm konu bu onun için burdaki kullanıcı bilgilerini orda kullanmak istiyorum
ve o bilgileri koruma altına almak istiyorum .

ama
şimdi bana başka çok güzel bir fikir verdin ben aktivasyon ekranındaki Dlookup Tanımlatabilirsem aynı çözümü sağlamış oluyorum hemen bunu deneyeceğim .

şimdi aklıma geldi Aktivasyon ekranındakini bilgiyi bir tabloya atmadıkça Dlookup bilgialmıyor benim çabam da zaten o bilgileri bir tabloya atmak ve Dlookup ta kullanmak . ama devamlı olarkta güncelenmesini sağlamak zaten dün onu yaptık ama olmuyor bağımsızlaşıyor ve kişi bunu değiştirebiliyor.

Sayın karam
Registere yazdırılan bir laydın tekrar tablo üzerine aktarılmasını istemişsiniz. Aslında sanırım bunu registerden direk veri alamadığınız için yaptınız. Oysa registerde Access projelerinin yazdığı yeri sağır sultan bile biliyor. Tekrar yazmak istemiyorum, çünkü birçok arkadaş registere yazdırıp lisans kontrolu yaptırıyor. Bununla ilgili Access bölümünde cevaplanmış sorularda son bir mesajım vardı. Onda birçok yöntemden bahsetmiştim. Tekrar okumanızı öneririm.

Bir de bir şey dikkatimi çekti. Hem tabloda güvenli olmadığını söylemişsiniz, mde olsa bile tablodan okunabildiğini yazmışsınız, hem de register kaydını tabloya aktarıp karşılaştırma yapmak istiyorsunuz. Halbuki genelde biz onu bir değişkene aktarıp kullanıyoruz.

Private Sub Form_Unload(Cancel As Integer)
SaveSetting "Programın_adi", "Ayarlar", "Son Çıkış Tarihi", Date
'Bir formun unload eyleminde registere program adı altında malum yere "ayarlar" altına "son çıkış tarihi kaydı kaydediliyor


SaveSetting "Programın_adi", "Ayarlar", "Son Çıkış Saati", Time
'aynı şekilde zaman da oraya kaydediliyor
End Sub


Private Sub Form_Current()
If Me.diskno = VolumeSerialNumber("C:\") Then
'eğer diskno değişkeni c diskinin serinosuyla aynıysa sorun yok

Else

If Me.diskno = "DEMO" Then
'eğer disk no = "demo" ise o zaman

On Local Error Resume Next

Dim d, X, y

d = GetSetting("Programın_adi", "Ayarlar", "İlk Giriş", "")
'd değişkenine registerdeki "ilk giriş" değerini ata... İşte burası sizin aradığınız yer..................


Bakın bir değişken açılmış ve
d = GetSetting("Programın_adi", "Ayarlar", "İlk Giriş", "")

şeklinde registerdeki değer değişkene aktarılmış. Böylece programın kırılması için gereken değer sadece açıldığında bir değişkene atılıyor. Oysa bunu bir tabloya aktarmak çok doğru değil.

Bu arada bu değerleri üstü kapalı bir şekilde ve şifreleyerek yazarsanız daha iyi olur. Çünkü şahsen ben, programın_adi şeklindeki anahtarı registerde hemen arayıp bulurum))

(05/12/2008, 22:35)sledgeab yazdı: [ -> ]sn karam, kullanıcı mesela aktivasyona "accesstr.net" yazdı, siz bu veriyi form ve raporda görmek istiyorsunuz, ama tabloya kaydedilmesin istiyorsunuz.
Ozaman forma veya rapora AD isimli metin kutusu ekle ve form veya raporun açıldığında olayına aşağıdaki kodu yaz.

Kod:

ReadRegistry "HKCU", "Software\Microsoft", "KULLANICI", "S", "", KULLANICI
Me!AD.Value = KULLANICI

Ayrıca mesela başka bir firma bu uygulamayı buldu ve kendi pc'sine kopyaladı, en fazla 60 gün kullanabilir, 61. gün programı açamaz ve sizinle iletişime geçmek zorunda.

ben bunu nasıl görmemişim harikasın yaptım tam benim istediğim sey oluyor ne kadar teşekür edip özür dilesem yeridir ben aptalım görmemişim ellerine sağlık hakikaten harika şimdi hiç bir şeye ihiyaç yok register değişince buda değişecek harika sağol sağol sağol