Kayıt tuşu özellikleri

30/12/2009, 13:40

catlak_kiremit

Örnek olarak yayımlanan programları incelerken müsteri takip programında kaydet butonunda alşağıda bulunan kodlar tanımlanmış, Kaydet butonu "girilidğinde ??? amac ne ?
odaklandığında ??
Aşağıda bulunan kodların amacı nedir acaba, hanği işlemleri yapmaktadır.teşekkürler.

http://img684.imageshack.us/i/resim1w.jpg/

Option Compare Database
Option Explicit
Public DURUM As Integer

Private Sub kaydettusu_Enter()
On Error GoTo hata
DURUM = 1
hata: Exit Sub
End Sub

Private Sub kaydettusu_Exit(Cancel As Integer)
On Error GoTo hata
DURUM = 0
hata: Exit Sub
End Sub

Private Sub kaydettusu_LostFocus()
On Error GoTo hata
DURUM = 0
hata: Exit Sub
End Sub
30/12/2009, 13:52

alpeki99

Burada sabit bir durum yok tamamen sizin ve programınızın ihtiyaçları söz konusu oluyor. Mesela bir müşteri kaydı yapıyorsunuz. Siz dedinizki kendi kendinize "Bana müşteri telefonları mutlaka şart. Eğer telefon numarası yazılmazsa kayıt yapmasın. Ayrıca telefon numarasını yazdığım kutuye girince bana bir uyarı vererek bunu hatırlatsa iyi olur" dediniz.

Telefon numarasını yazdığınız Metin kutusunun Girildiğinde Olayına bir kod yazarsınız
Kod:
Msgbox "Telefon Numarasını Yazmak Zorunludur"
dersiniz. Böylelikle fare ile veya Tab tuşu ile metin kutusunun içine giriş yapıldığında yukarıdaki mesaj verilmiş olur.

Kaydet butonunun Tıkladığında olayına bir kod yazarsınız:
Kod:
If telefon = "" Then
Msgbox "Telefon Numarası yazmak zorunludur" vs.vs.vs.

Yukarıdaki kodların ne yaptığını söylemek zor çünkü başka yerlere bağlı olan kodlar bunlar. Programın kendisi olsa ne olduğunu söylemek daha kolay olur.
04/01/2010, 18:18

Taruz

Merhaba..

Burada kayıt kontrolu yapılmış.. Kaydet düğmesine(kutusuna) tıklamadan formdan, kayıt ekranından çıkılması engellenmek istenmiş..

Tabii bu sistemin doğru çalışması için formun kapanması ya da kapanırken kaydet düğmesine basılmamışsa kaydın iptal edilmesi de gerçekleştirilmiş olması gerekir..