programlarınızı demo yapın örnek

[ahmet114]

Programinizin açilis formuna asagidaki kodlari yapistirin. Program 90 günlük siz istedigin rakami yazabilirsiniz. Ister 1 gün ister 10 gün.
NOT : Üretim Planlama yerine kendi programinizin ismini yazin.

Private Sub Form_Load()
On Local Error Resume Next
Dim d, x, y
d = GetSetting("Üretim Planlama", "Ayarlar", "Ilk Giris", "")
If d = "" Then
SaveSetting "Üretim Planlama", "Ayarlar", "Ilk Giris", Date
Else
If (Date - CDate(d)) > 90 Then
MsgBox ("Programin Demo Süresi dolmustur.Uzatmak Için E-Mail adresine Not mesaj atabilirsiniz")
DoCmd.Close
Else
x = GetSetting("Üretim Planlama", "Ayarlar", "Son Çikis Tarihi", "")
If CVDate(x) > Date Then
MsgBox ("Programin Deneme Süresi Doldu Lütfen Israr Etmeyin")
DoCmd.Close
Else
y = GetSetting("Üretim Planlama", "Ayarlar", "Son Çikis Saati", "")
If (CVDate(x) = Date) And (CVDate > Time) Then
MsgBox ("Programin Deneme Süresi Doldu Lütfen Israr Etmeyin")
DoCmd.Close
End If
End If
x = GetSetting("Üretim Planlama", "Ayarlar", "Sayi", "1")
MsgBox ("Programi" & x & ". defa çalistiriyorsunuz.")
SaveSetting "Üretim Planlama", "Ayarlar", "Sayi", x + 1
End If
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
SaveSetting "Üretim Planlama", "Ayarlar", "Son Çikis Tarihi", Date
SaveSetting "Üretim Planlama", "Ayarlar", "Son Çikis Saati", Time

End Sub



SHİFT TUÞUNU GİZLEMEK

'Dikkatrograminizin bir yedegini aliniz. Aksi takdirde programinizi tekrar açamayabilirisiniz...


'----------Kod Baslama------------------
Option Compare Database
Function BypassOzelliginiDegistir()
Const OzellikTipi As Long = 1
OzellikDegistir "AllowBypassKey", OzellikTipi, False
End Function

Function OzellikDegistir(strOzellikAdi As String, varOzellikTipi As Variant, varOzellikDegeri As Variant) As Integer
Dim dbs As Object, varOzellik As Variant
Set dbs = CurrentDb
On Error GoTo OzellikDegistir_Hata'Ozelligi degistir
dbs.Properties(strOzellikAdi) = varOzellikDegeri
OzellikDegistir = True
OzellikDegistir_Cik:
Exit Function
OzellikDegistir_Hata:
If Err = 3270 Then
Set varOzellik = dbs.CreateProperty(strOzellikAdi, _
varOzellikTipi, varOzellikDegeri)
dbs.Properties.Append varOzellik
Resume Next
Else
OzellikDegistir = False
Resume OzellikDegistir_Cik
End If
End Function
'----------Kod Bitis------------------


'Modulü kaydedin. ve autoexec adinda bir makro olusturun. Autoexec access açildiginda otomatik çalisan makrodur. (Ayni Autoexec.bat gibi)
'Makronun içinde Kodçalistir(RunCode)seç ve parametre bolumune asagidaki satiri yaz.
=ByPassOzelliginiDegistir()

 

[ownn]

sayın ahmet;
bu tam aradığım şey. ancak benim gibi orta düzey bilgisi olan birisi için tehlikeli. Tüm işimi bitirdikten sonra bunu yaptım diyelim. İçeriye veri girmeye başladım. 10 gün sonra data base içinde değişikliklerimi nasıl yapacağım....? yani tekrar açılır hale nasıl getirebilirim....?

 

[omerince]

saol valla ya çok tşk ederim :dua: :dua: :dua:

 

[akd]

Merhaba sayın ahmet114,
bu kodu örnek bir çalışmanın içine uyguluyarak yayınlarsanız
daha makbule geçer,
Saygılar...

 

[sandalet]

ahmet bey malesef okadar detaylı anlatmanıza ragmen yapamadım örnek bir açıklama ile yaparsanız çok seviniriz şimdiden teşekkürler k::

 

[uzman]

teşekkürler

 

[Ersen]

Shift tuşunu engellemenin başka yolu yokmu?

Arkadaşlar burada belirtilen yordam shift tuşunu maalesef durduramıyor. Bu işin başka bir yolu yok mu? Yani program belleğe yüklenir yüklenmez Acces'in standart araç çubuklarını, menülerini veya en azından Araçlar menüsünü shift tuşu basılı iken de kaldırabilsin istiyorum.

Cevaplayacak arkadaşlara peşin teşekkürlerimi sunarım.

 

[ahmetyurtkan]

slm

merhaba arkadaşı neyle yaparsan yap farketmiyor shifti gizlesen bile açma yöntemlei var aşman zor yani işi bilen açar..en güzeli mde olarak yap açarsa açsın kodları gözükmeyecek zaten

 

[karaayhan]

Açarsa Açsın Kodları Gözükmeyecek Zaten***

***Biliyorsunuzdur umarım yakın zamanda sitelerde yeni programlar geliştirildi.
mde formatındaki programları mdb ye çeviren yada kodları gösterebilen aratın bulabilirsiniz.

Shift tuşunu gizleyen kodlar mevcut ama sitede örnekler ve eski uygulamalar olmadığından yani yeni siteye taşınmadıklarından bu tür sorular malesef tekrar tekrar zaman alacak yeni üyelerin bu ve buna benzer soruları haklı olarak olacaktır...

Site yöneticisi arkadaşlardan rica eski uygulamaları yükleme konusuna öncelik versinler.

Belki ayrı başlık açmak gerekirdi ama ara soru olarak sorayım

SORU=" Form üzerinde analog bir saatin sürekli çalışır vaziyette olmasını istiyorum. Bunun bir yolu yöntemini bilen arkadaşlar varsa lütfen cevaplasınlar.

Kolay gelsin..

 

[ahmetyurtkan]

slm

selam arkadaşım mde yi mdb çeviren var ama kodları göstermiyor bildiğin program varsa ismini verebilirmisin

 

[karam]

Öncelikle Size nasıl teşekür etsem bilmiyorum Sihit tuşunu denedim harika çalışıyor aldığım tedeğe ben bile giremiyorum bu yaptığın kod emeklerini veren insanların emeklerinin çalınmasını ve tasarımlarını koruma altına aldın .
demoo kodunu ise uygulayamadım onuda nasıl yapacağımızı bir örneklile açıklarsan çok mutlu olurum.
peki bunun geriye dönüşü varmı ben programa ilave yapmak istesem yapabiliyormuyum. zannediyorum bunu ilk satıda söylemişsin ama kesin lik olmadığı için soruyorum.



çok çok teşekür üstadlar iyiki varsınız ve bu formu oluşturan temeği geçen herkese teşkürler .

 

[karam]

Öncelikle Size nasıl teşekür etsem bilmiyorum Sihit tuşunu denedim harika çalışıyor aldığım tedeğe ben bile giremiyorum bu yaptığın kod emeklerini veren insanların emeklerinin çalınmasını ve tasarımlarını koruma altına aldın .
demoo kodunu ise uygulayamadım onuda nasıl yapacağımızı bir örneklile açıklarsan çok mutlu olurum.
peki bunun geriye dönüşü varmı ben programa ilave yapmak istesem yapabiliyormuyum. zannediyorum bunu ilk satıda söylemişsin ama kesin lik olmadığı için soruyorum.



çok çok teşekür üstadlar iyiki varsınız ve bu formu oluşturan temeği geçen herkese teşkürler .

üstadım demo yapmayı da denedim mükemmel çalışıyor ellerine sağlık

 

[batugul35]

arkadaşlar merhaba
bunu excell için de yapabilirmiyiz.

 

[batugul35]

Arkadaşlar cevap verebilecek kimse yok mu?

 

[karam]

Access 200 De denedim mükemmel çalışıyor ancak 2003 te çalışmıyor kodu tekrar bir 20003 uyarlaması yapmanızı acilen bekliyorum.. şimdidem teşekür.

 

[ASOİP]

kodları çalıştırabilen varsa basit bir örnek ekleyebilir mi? Saygılarımla...