Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
02/05/2018 12:59
Konu Sahibi
Merve D.
Yorumlar
4
Okunma
439
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Merve D.

Merve D.

Üye
96953
 25
 3
 10
 02/05/2018
0
 
 
 
 27/06/2018,11:25
Çözüldü 
Merhaba,

Forumda yeniyim o yüzden hatam olursa affola.

Çalışmamı ekte gönderiyorum. Benim çalışmamla ilgili iki problemim var;

-Kaydet butonuna tıkladığım zaman 'Kayıtlar' formunda açılan kutular boş ise hata versin diye kod yazdım. Ancak hata vermeden direk kaydediyor. Forumda bununla ilgili bir çalışma bulamadım.

-Kayıt işlemi tamamlanmadan başka bir yere tıklarsam kaydı eksik haliyle kaydediyor. Ben sadece kaydet butonu ile kayıt yapılsın istiyorum. Bu konuda bazı çalışmalar var ancak ben kendime uyarlayabileceğim bir çalışma bulamadım. 

Şimdiden teşekkürler.




ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 482
 12.116
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,19:14
Merhaba, kod tasarımınız hatalı. Yapı olarak

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Private Sub Kaydet_Click()

 If IsNull(Kayit_ID) Then
     MsgBox "Kayıt No Boş Kalamaz", vbInformation, "Kayıt No Boş!"
     Kayit_ID.SetFocus
     
     Exit Sub
     
     End If
     
     If IsNull(DepoGirisTarihi) Then
     MsgBox "Tarih Boş Kalamaz", vbInformation, "Tarih Boş!"
     DepoGirisTarihi.SetFocus
     
     Exit Sub
     
     End If
     
     If IsNull(Me.UrunCinsi) Or Me.UrunCinsi = "" Then
     MsgBox "Ürün Cinsi Boş Kalamaz", vbInformation, "Ürün Cinsi Boş!"
     UrunCinsi.SetFocus
     
     Exit Sub
     
     End If
     
     If Me.Ebat = "" Then
     MsgBox "Ebat Boş Kalamaz", vbInformation, "Ebat Cinsi Boş!"
     Ebat.SetFocus
     
     Exit Sub
     
     End If
     
     If DepoGirisTarihi < Date Then
     MsgBox " Eski bir tarih için kayıt girilemez!", vbInformation, "Geçmiş Tarih!"
     DepoGirisTarihi.SetFocus
     
     Exit Sub
     
     End If
    
    If DepoCikisTarihi < DepoGirisTarihi Then
    MsgBox "Depo Çıkış Tarihi Depo Giriş Tarihinden Önce Olamaz", vbInformation, "Hatalı Tarih!"
    DepoCikisTarihi.SetFocus
    
    Exit Sub
    
    End If


If MsgBox("Değişiklikler kaydedilsin mi?", vbCritical + vbYesNo + vbDefaultButton1, "UYARI!") = vbYes Then


    DoCmd.GoToRecord , , acNewRec
    
    Me.KayitListesi.Requery
    
Else
    Me.Undo
End If


End Sub



Şeklinde olmalı ki siz kaydedilsin mi sorusuna cevap vermeden önce alanların denetimini yapsın.


Kayıt sorunu ile ilgili olarak,

Formun güncelleştirme sonrasında olayına

Visual Basic Code
If Me.Dirty Then
   If MsgBox("Kayıt verisinde değişiklik yapıldı.Kaydetmek ister misiniz?", vbYesNo + vbQuestion, "Değişikliği KAYDET") = vbNo Then
         Me.Undo
   End If
End If


kodu ekleyerek deneyiniz.


"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. 

...........
Merve D.

Merve D.

Üye
96953
 25
 3
 10
 02/05/2018
0
 
 
 
 27/06/2018,11:25
(02/05/2018 14:07)ozanakkaya Adlı Kullanıcıdan Alıntı: Merhaba, kod tasarımınız hatalı. Yapı olarak

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Private Sub Kaydet_Click()

 If IsNull(Kayit_ID) Then
     MsgBox "Kayıt No Boş Kalamaz", vbInformation, "Kayıt No Boş!"
     Kayit_ID.SetFocus
     
     Exit Sub
     
     End If
     
     If IsNull(DepoGirisTarihi) Then
     MsgBox "Tarih Boş Kalamaz", vbInformation, "Tarih Boş!"
     DepoGirisTarihi.SetFocus
     
     Exit Sub
     
     End If
     
     If IsNull(Me.UrunCinsi) Or Me.UrunCinsi = "" Then
     MsgBox "Ürün Cinsi Boş Kalamaz", vbInformation, "Ürün Cinsi Boş!"
     UrunCinsi.SetFocus
     
     Exit Sub
     
     End If
     
     If Me.Ebat = "" Then
     MsgBox "Ebat Boş Kalamaz", vbInformation, "Ebat Cinsi Boş!"
     Ebat.SetFocus
     
     Exit Sub
     
     End If
     
     If DepoGirisTarihi < Date Then
     MsgBox " Eski bir tarih için kayıt girilemez!", vbInformation, "Geçmiş Tarih!"
     DepoGirisTarihi.SetFocus
     
     Exit Sub
     
     End If
    
    If DepoCikisTarihi < DepoGirisTarihi Then
    MsgBox "Depo Çıkış Tarihi Depo Giriş Tarihinden Önce Olamaz", vbInformation, "Hatalı Tarih!"
    DepoCikisTarihi.SetFocus
    
    Exit Sub
    
    End If


If MsgBox("Değişiklikler kaydedilsin mi?", vbCritical + vbYesNo + vbDefaultButton1, "UYARI!") = vbYes Then


    DoCmd.GoToRecord , , acNewRec
    
    Me.KayitListesi.Requery
    
Else
    Me.Undo
End If


End Sub



Şeklinde olmalı ki siz kaydedilsin mi sorusuna cevap vermeden önce alanların denetimini yapsın.


Kayıt sorunu ile ilgili olarak,

Formun güncelleştirme sonrasında olayına

Visual Basic Code
If Me.Dirty Then
   If MsgBox("Kayıt verisinde değişiklik yapıldı.Kaydetmek ister misiniz?", vbYesNo + vbQuestion, "Değişikliği KAYDET") = vbNo Then
         Me.Undo
   End If
End If


kodu ekleyerek deneyiniz.


Öncelikle teşekkür ederim ilk problemimi verdiğiniz düzenleme ile hallettim. 
Ancak kaydetme konusunda hala sıkıntım var. 
Örneğin; herhangi bir kayda girip değişiklik yaptıktan sonra; direk başka bir kayda tıkladığımda yapılan değişiklik kaydediliyor. Ben ne olursa olsun kayıttan çıkarken bana kayıt işlemini sorsun istiyorum. 

Yardımcı olursanız çok sevinirim.



ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 482
 12.116
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,19:14
Merhaba, önceki mesajımda verdiğim kodu uygulamaya ekledim. Kayıt değiştirince uyarı veriyor.



"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. 

...........
Merve D.

Merve D.

Üye
96953
 25
 3
 10
 02/05/2018
0
 
 
 
 27/06/2018,11:25
Sorunlarım çözüldü.

Teşekkür Ederim.




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Formda Metin Kutusu İçerik Kontrolü hbal09 4 103 10/07/2019, 16:20
Son Yorum: halily
Çözüldü İki Tarih Arası Sorgulma Sorunu HORZUM 4 316 05/07/2019, 19:25
Son Yorum: halily
Çözüldü Alt Form Toplamında #hata Ve #boyut! Sorunu donepezil 2 104 04/07/2019, 11:57
Son Yorum: donepezil
Çözüldü Rapor Sorunu metınaycıcek 26 553 03/07/2019, 23:35
Son Yorum: metınaycıcek
Çözüldü Her Yeni Kayıta Bastığımızda Sayı Verme Sorunu. prestij06 7 276 15/06/2019, 21:24
Son Yorum: halily

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