Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
20/06/2018 23:32
Konu Sahibi
fascioğlu
Yorumlar
3
Okunma
272
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
 26/08/2018,09:15
Çö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
 477
 11.718
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,18:15

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
 26/08/2018,09:15
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
 477
 11.718
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,18:15

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ü excele gönderirken şartlı gönderme husem 7 1.899 01/01/2019, 00:45
Son Yorum: mmert06
Çözüldü Tablodan Dilediğimiz Sayı Kadar Veri Çekme İşlemi Nasıl Yapılır? alimadam 4 161 13/12/2018, 16:41
Son Yorum: alimadam
Çözüldü Altform'da Kaydetme İşlemi Öncesi Satır Numarası Değişiyor. Oğuz Türkyılmaz 6 157 30/11/2018, 17:35
Son Yorum: haliliyas
Çözüldü Yukarı Kayan Yazıda Sorgudan Süz İşlemi Yapmak zetyu 2 138 15/11/2018, 17:56
Son Yorum: zetyu
Çözüldü Access 2010 Veri Tabanı Bölücü İşlemi Nasıl Yapılıyor. Oğuz Türkyılmaz 2 164 29/09/2018, 13:32
Son Yorum: Oğuz Türkyılmaz

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