Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
20/06/2018 23:32
Konu Sahibi
fascioğlu
Yorumlar
3
Okunma
308
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

fascioğlu

Aktif Üye*
Fa.... Aş....
 63
 203
 1.016
 18/09/2010
170
 Muğla
 Emekli_Turizm
 Ofis 2003
 30/01/2019,00:37
Çözüldü 
Sayın Ozan Hocam,

Malum Yiğit İlaçlama çalışmasını bitirmiş bulunmaktayım,son olarak yapılan işlemin Kaydet,Sil,Ekle işlemlerinde tüm yetkinin kullanıcıya verilmesi.Bu husuda bir çok örnek inceledim ama olmadı.
Örnek olarak işlem kayıt edilsinmi Msg.uyarısına hayır dememe rağmen yinede kayıt yapıyor,bu husuda bir kod örneği verebilirmisiniz.
Saygılarımla.



Kullanici Avatari

ozanakkaya

Kurucu
Oz.... Ak....
 39
 479
 11.975
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,18:20

Visual Basic Code
1
2
3
4
5
6
7
8
9
if msgbox("Değişiklikler Kaydedilsin mi?", vbyesno, "KAYDET") = vbyes then
    
'Kaydet Kodu

else

    me.undo

end if


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

Kullanici Avatari

fascioğlu

Aktif Üye*
Fa.... Aş....
 63
 203
 1.016
 18/09/2010
170
 Muğla
 Emekli_Turizm
 Ofis 2003
 30/01/2019,00:37
Sayın Ozan hocam,

Uygulama sonucunda yine otomatik kayıt yapıyor,ve sizin koda benzer bir kod da varonda da aynı şey oluyor.
Kod

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Form_BeforeUpdate(Cancel As Integer)
    ' formda yanlışlıkla bir veri üzerinde değişiklik yapmayalım diye
    ' değişiklik durumunda onay alıyoruz.

    If NewRecord = False Then
If MsgBox("Yapılan Değişiklikler kaydedilsin mi?", vbQuestion + vbYesNo, "Onay") = vbNo Then
DoCmd.RunCommand acCmdUndo
End If
End If

'Buda Yeni kayıt yaptığınız da size işlem onayı için soracaktır
If NewRecord = True Then
If MsgBox("Yapılan Değişiklikler kaydedilsin mi?", vbQuestion + vbYesNo, "Onay") = vbNo Then
DoCmd.RunCommand acCmdUndo
End If
End If

End Sub


bu hocam.
Saygılarımla.



Kullanici Avatari

ozanakkaya

Kurucu
Oz.... Ak....
 39
 479
 11.975
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,18:20

Visual Basic Code
1
2
3
4
5
6
7
If Me.Dirty = True Then

    If MsgBox("Yapılan Değişiklikler kaydedilsin mi?", vbQuestion + vbYesNo, "Onay") = vbNo Then
    Me.Undo
    End If

End If


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Komut Satırında Tablo Ve Alanı Bulamıyor fkilic76 6 146 13/03/2019, 01:00
Son Yorum: fkilic76
Çözüldü Kaydet Butonuna Basıldığında Progressbar Hatası Veriyor Deniz DEMİRCİOĞLU 2 99 05/03/2019, 11:16
Son Yorum: Deniz DEMİRCİOĞLU
Çözüldü Puantaj Toplama İşlemi IceMan7 8 384 03/03/2019, 14:58
Son Yorum: IceMan7
Çözüldü Açıklama Ekle Veri Makrosu Bulunamadı Uyarısı sercann 4 455 13/02/2019, 16:58
Son Yorum: sercann
Çözüldü Filtre İşlemi Bilal Demirci 3 154 07/02/2019, 14:04
Son Yorum: Bilal Demirci

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.