+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Şifre ekranı ekleme (/konu-sifre-ekrani-ekleme.html)
Cvp: Şifre ekranı ekleme - simendifer - 10/05/2010
iyide oldu sayın ekselanss ın dikkatini ceken tüm Access formlarında, diyelimki 4 adet metin kutusu var ilk metin kutusuna bilgi girdiniz sonra vazgectiniz silmeden formu kapattınız girdiginiz bilgiyi baglı oldugu taploya kayıt yapıyor bunu kayıt yapmaması için ne yapabiliriz diye sormuştu araştırdık kayıt yapayımmı diye sorması için kodları yazmamız gerektiğini anladık projelerden aldık yazdık denedik oldu ve bu kodu paylaştık ögretirken ögrenmeyi bildiklerimizi unutmuyoruz böylelikle
Formun Güncelleştirme öncesinde
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim C As Integer
C = MsgBox("Kayıt üzerinde değişiklikler yapıldı.Kaydedilsin mi?", vbYesNo + vbQuestion + vbDefaultButton1, " Bilgi")
If C = vbNo Then
DoCmd.RunCommand acCmdUndo
End If
End Sub
sayın emturker çok haklısınız size katılıyorum ben kendisine TeamViewer ile baglanıyorum
Cvp: Şifre ekranı ekleme - ekselanss - 10/05/2010
(10/05/2010, 07:56)emturker yazdı: çok güzel sizmi yaptınız.bu programı
Ben acemi bir ögrenciyim nerde böyle bir program yapayım cok degerli hocalarımızın ve tabiki de sizin ortaya koydugunuz ürün bu . Benim sadece yaptıgım ögrendiklerim dogrultusunda eksik taraflarını tamam lama..
Arkadaşlar form kutularına tıklandıgında farklı renkle görünmesi için "Girildiginde" kısmına yeni bir olay yordamı yarattım ve
Kod:
Private Sub Metin52_Enter()
Metin52.BackColor = vbYellow
End Sub