Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
27/04/2013 23:10
Konu Sahibi
kaleci
Yorumlar
10
Okunma
2471
Konuyu Oyla:
  • Derecelendirme: 3/5 - 1 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 3/5 - 1 oy

kaleci

Aktif Üye
Kullanici Avatari
Aktif Üye
60
21/12/2012
0
14/04/2014,00:30
Çözüldü 
Merhaba arkadaslar,

asagidaki kodu calistirdigim zaman;
„Veriyi degistirmek istiyormusunuz diye soruyor“ evet dedigimde, veri degistiriliyor.
Veri degistirildikten sonra > „veriniz degistirildi“ diye tekrar bilgi geliyor. Buraya kadar hersey güzel.

Veriyi degistirmekten vazgecip HAYIR dedigimde, veri degistirilmedigi halde „veriniz degistirildi“ diye bilgi geliyor.
Aslinda veriyi degistirip EVET dedigim zaman „veriniz degistirildi“ bilgisinin gelmesi,
veriyi degistirmekten vazgecip HAYIR dedigim zaman da „veriniz degistirilmedi“ bilgisinin gelmesi lazim.

Bunu nasil ayarlayabiliriz.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub cmdDegistir_Click()
On Error GoTo ErrorHandler
    If MsgBox("Degisiklik kaydedilsin mi?", vbYesNo, "DEGISIKLIK?") = vbNo Then
    Me.Undo 'rückgängig
    'Cancel = True 'Ereignisse verhindern (Ruft Bug hervor)
    End If
Forms![frmKfz].Refresh
Forms![frmKfz].Requery
MsgBox "Degisiklik kaydedildi.", vbOKOnly, "DEGISTIRILDI"
    Exit Sub
ErrorHandler:
MsgBox "Fehler in Sub! Form_FormMain >> Form_BeforeUpdate" & vbCrLf & "Aktion wird abgebrochen"
End Sub

Saygilarimla
kaleci


Cevapla

mehmetdemiral

.
Kullanici Avatari
Uzman
M.... D....
4.767
30/10/2008
Samsun
Öğretmen
Ofis 2013 32 Bit
30/09/2017,01:57
Çözüldü 
Sizin kodlara göre her durumda "veriniz değişti" uyarısı alınır. Bu bilgiyi end if arasında halletmelisiniz. Mantık şöyle olmalı:

Diyelim bir end if bloğu var. Bu blok içinde "eğer kayıt değişirse " kayıt değişti" diye bilgi ver, değişmediyse "kayıt değişmedi" diye bilgi ver demelisiniz. Bu işlem

if kayıt değiştime kodları
bilgi veren msgbox
değilse (else) komutu
bilgi değiştirmemek için undo komutu
bilgi veren msgbox
end if (if sonu)

Oysa siz if bittikten sonra msgbox satırı koymuşsunuz.


İnadına, ille de Accesstr.net...
Cevapla

kaleci

Aktif Üye
Kullanici Avatari
Aktif Üye
60
21/12/2012
0
14/04/2014,00:30
Çözüldü 
Sayin mehmetdemiral,

Cok güzel ögretici bilgiler verdiginiz icin tesekkür ederim. Bu bilgileri istedigim gibi uygulayabilmem icin birazdaha zamana ihtiyacim var.

Saygilarimla
kaleci


Cevapla

kaleci

Aktif Üye
Kullanici Avatari
Aktif Üye
60
21/12/2012
0
14/04/2014,00:30
Çözüldü 
Hocam,

Balik yemegi degilde, tutturmayi ögrettigin icin tesekkür ederim.

Yol gösterdikten sonra yapmaya calistim ve oldu. Cok tesekkür ederim.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub cmdDegistir_Click()
On Error GoTo ErrorHandler
    If MsgBox("Degisiklik kaydedilsin mi?", vbYesNo, "DEGISIKLIK?") = vbNo Then
    Me.Undo 'rückgängig
    'Cancel = True 'Ereignisse verhindern (Ruft Bug hervor)

    MsgBox ("Kayit degistirilmedi."), vbOKOnly, "DEGISTIRILMEDI"
        Else:
    MsgBox "Kayit degistirildi.", vbOKOnly, "DEGISTIRILDI"
    End If
Forms![frmKfz].Refresh
Forms![frmKfz].Requery
    Exit Sub
ErrorHandler:
MsgBox "Fehler in Sub! Form_FormMain >> Form_BeforeUpdate" & vbCrLf & "Aktion wird abgebrochen"
End Sub


Saygilarimla
kaleci


Cevapla

mehmetdemiral

.
Kullanici Avatari
Uzman
M.... D....
4.767
30/10/2008
Samsun
Öğretmen
Ofis 2013 32 Bit
30/09/2017,01:57
Çözüldü 
İşte budur. Ben zaten cevabı direkt olarak yazsaydım siz bu siteye hep "almak" için gelirdiniz. Artık öğrenmek için geleceksiniz değil mi?


İnadına, ille de Accesstr.net...
Cevapla

kaleci

Aktif Üye
Kullanici Avatari
Aktif Üye
60
21/12/2012
0
14/04/2014,00:30
Çözüldü 
Hocam,

gercekten sifir Access bilgisiyle sitemize ilgi duymustum. Siz ve diger arkadaslarin ögretici ve yardimci olma uslubuyla, kendiminde inanamayacagi bir bilgiye ulastim. Sitemizde kendimi bir baligin kendisini denizde nasil hissediyorsa, bende kendimi aranizda böyle hissediyorum

Saygilarimla
kaleci


Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Sql Serverdan Sorgu İle Yerel Veri Tabanına Veri Yazdırma ertans 1 159 24/08/2017, 11:22 burhanb
Çözüldü Msgbox Tamam Tıklayınca Form Kapansın bentürk 2 232 07/06/2017, 15:27 bentürk
Çözüldü Buton Ve Msgbox Sorunu onurgs59 9 580 25/05/2017, 20:42 atoz112
Çözüldü Msgbox Kullanımı hknct 2 217 13/03/2017, 21:56 hknct
Çözüldü subform deger ve msgbox orhantanriverdi 4 502 24/01/2017, 05:18 orhantanriverdi

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.