kayıt düzenlerken uyarı mesajı görüntülenmesi

kayıt düzenlerken uyarı mesajı görüntülenmesi - Baskı Önizleme

+- 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ığı: kayıt düzenlerken uyarı mesajı görüntülenmesi (/konu-kayit-duzenlerken-uyari-mesaji-goruntulenmesi.html)

Sayfalar: 1 2 3 4

Cvp: kayıt düzenlerken uyarı mesajı görüntülenmesi - Coskun0559 - 14/09/2011

syn mehmetb84;
örneğinize şu kodları ekledim
Formun Açıldığında alanları kilitlemek için;

Private Sub Form_Load()

Me.KeyPreview = True

Me.FilterOn = False

kilitle

End Sub

alanları kilitlemek için;

Sub kilitle()

Me.fiyatno.Locked = True

Me.kaliteadi.Locked = True

Me.verilenfiyat.Locked = True

Me.verilenpb.Locked = True

Me.tarih.Locked = True

Me.Metin51.Locked = True

Me.dolar.Locked = True

Me.euro.Locked = True

Me.kaliteleraltform.Locked = True

End Sub

alanların kilidini kaldırmak içinde;

Sub kilitac()

Me.fiyatno.Locked = False

Me.kaliteadi.Locked = False

Me.verilenfiyat.Locked = False

Me.verilenpb.Locked = False

Me.tarih.Locked = False

Me.Metin51.Locked = False

Me.dolar.Locked = False

Me.euro.Locked = False

Me.kaliteleraltform.Locked = False

End Sub

kodunu yazdım.
Yeni Kayıt butonun içeriğini;

Private Sub Komut39_Click()

Dim sesor As String

sesor = MsgBox("Yeni Kayıt Eklenecek.Devam Edilsin Mi...?", 36, "Yeni Kayıt Ekle..")

If sesor = 6 Then

 DoCmd.GoToRecord , , acNewRec

Me.kaliteadi.SetFocus

 kilitac   'Dikkat et burada alanların kilitleri açılıyor

 Else

 End If

End Sub

şeklinde değiştirdim.kilitac fonksiyonunuda ekledim alanlara veri girişi yapılsın diye.
formuna 1 adet buton ekledim(kilidi kaldır)
onun kodu ise;

Private Sub Komut60_Click()

kilitac

End Sub

şeklindedir.
bensadece bazı alanların kilitlerini devre dışı ve aktif ettim sen gerekli alanların hepsini kod sayfasında yazarsın.örnek ektedir.

Cvp: kayıt düzenlerken uyarı mesajı görüntülenmesi - alpeki99 - 14/09/2011

Yeni butonu yukarıda yazmış olduğum kilit kaldırma işinden sonra yeni kayıda git komutunu çalıştıracak:

YENİ BUTONU:



ad_soyad.Locked = False

DoCmd.GoToRecord , , acNewRec

KAYDET BUTONU:



DoCmd.RunCommand acCmdSaveRecord

ad_soyad.Locked = True

DÜZENLE BUTONU:



ad_soyad.Locked = False

Cvp: kayıt düzenlerken uyarı mesajı görüntülenmesi - Coskun0559 - 14/09/2011

syn alpeki hocam;
sizin mesajı görmedim aynı yolu önermişiz
çok pardon Img-grin

Cvp: kayıt düzenlerken uyarı mesajı görüntülenmesi - mehmetb84 - 14/09/2011

çoşkuncum aklına sağlık bu yöntemi aynen yapıcam daha kullanışlı saolasın.

Cvp: kayıt düzenlerken uyarı mesajı görüntülenmesi - ozanakkaya - 14/09/2011

Cevaplara ek olarak;
Form Üzerindeki Verileri Kilitle

Cvp: kayıt düzenlerken uyarı mesajı görüntülenmesi - Coskun0559 - 14/09/2011

(14/09/2011, 17:55)mehmetb84 yazdı: çoşkuncum aklına sağlık bu yöntemi aynen yapıcam daha kullanışlı saolasın.

sende sağol kolay gelsin