formda sadece kaydet butonunun kaydetmesi
Tarih
22/01/2014 17:15
Konu Sahibi
miCRoBe`
Yorumlar
23
Okunma
4323
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



miCRoBe`
Aktif Üye
Kullanici Avatari
Aktif Üye
88
08/10/2011
0
Belirtilmemiş
Ofis 2010
15/04/2015,03:20
Çözüldü 
Sponsor Reklam
merhaba.

satışlar formunda,
listedeki telefon çift tıklanıp satış yapılmak istendiğinde ve kutucuklar eksiksiz doldurulduğunda;

kaydet butonu alışlar tablosunda ilgili kaydı satıldı olarak işaretliyor ve satışlar tablosuna ekliyor. düzgün çalışıyor. fakat;

tüm kutucuklar doldurulup hata ile tab tuşuna bastım ve satıştan vazgeçtim. şöyle bir durum oluştu;

ilgili kayıt alışlar tablosunda satıldı işaretlenmedi ve satışlar tablosuna yeni kayıt açtı. bunun sonucu olarak satışlar formunda ilgili kayıt yine görünmekte.
(çözüm için, satışlar formunun özelliklerinde diğer / devir: geçerli kayıt yaptım, fakat sonuç yine aynı oldu.)

satış için çift tıklanınca kutular dolu veya boş ise form kapatılmak istendiğinde vazgeçmek istiyor musunuz gibi bir uyarı ile beraber satışlar formunda satış işlemini mutlak olarak kaydet butonuna bağlamak mümkün mü?

kod bilgim malesef yok, bilgili arkadaşlar bu konuda yapabileceğim bir şey varsa ve yönlendirirlerse memnun olurum.

teşekkür ederim.


Ek Dosyalar
.rar   telefon.rar (Dosya Boyutu: 75,33 KB / İndirme Sayısı: 20)
Cevapla

ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.182
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Çözüldü 
Alışlar formundaki kapat butonundaki kodları satışlar formuna uygulayabilirsiniz.
Cevapla

miCRoBe`
Aktif Üye
Kullanici Avatari
Aktif Üye
88
08/10/2011
0
Belirtilmemiş
Ofis 2010
15/04/2015,03:20
Çözüldü 
Sponsor Reklam
haklısınız ozan bey, deneme yanılma yapıyorum fakat bir sonuca ulaşamadım. biraz fazla değiştirmek ve silmek gerekiyor sanırım. işin içinden çıkamadım doğrusu.

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
Private Sub Komut62_Click()
If IsNull(Me.alistarihi) Or IsNull(imeino) Or IsNull(markaadi) Or IsNull(modeladi) Or IsNull(tedarikturu) Or IsNull(alisfiyati) Or IsNull(satisilkfiyati) Then

    If MsgBox("Formda Boş Alanlar Mevcut. Kaydedilmeden Kapatılsın mı?", vbInformation + vbYesNo, "Kapatılıyor...") = vbYes Then
        Me.Undo
        DoCmd.SetWarnings False
        DoCmd.RunSQL ("DELETE telefonid FROM imeiler WHERE (((telefonid) Is Null));")
            If Len(Gmarka) > 0 Then
                DoCmd.RunSQL "DELETE markaadi FROM markalar WHERE (((markaadi)=[Formlar]![alislar]![GMarka]));"
            End If
            If Len(GModel) > 0 Then
                DoCmd.RunSQL "DELETE modeladi FROM modeller WHERE (((modeladi)=[Formlar]![alislar]![GModel]));"
            End If
        DoCmd.SetWarnings True
        DoCmd.Close
    End If
    
Else

    mesaj = MsgBox("Form Kapatılmadan Önce Girilen Veriler Kaydedilsin mi?", vbCritical + vbYesNoCancel, "Form Kapanıyor...")
       
    Select Case mesaj
        Case 6
        
            MarkaModelGuncelle
            DoCmd.Close
        Case 7
        
            Me.Undo
            DoCmd.SetWarnings False
            DoCmd.RunSQL ("DELETE telefonid FROM imeiler WHERE (((telefonid) Is Null));")
                If Len(Gmarka) > 0 Then
                    DoCmd.RunSQL "DELETE markaadi FROM markalar WHERE (((markaadi)=[Formlar]![alislar]![GMarka]));"
                End If
                If Len(GModel) > 0 Then
                    DoCmd.RunSQL "DELETE modeladi FROM modeller WHERE (((modeladi)=[Formlar]![alislar]![GModel]));"
                End If
            DoCmd.SetWarnings True
            DoCmd.Close
        Case 2
        
            Exit Sub
    End Select
   
End If
End Sub


Cevapla

ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.182
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Çözüldü 

Visual Basic Code
If MsgBox("Form Kapatılsın mı?", vbCritical + vbYesNo, "Form Kapanıyor...") = vbYes Then
DoCmd.Close
Else
Exit Sub
End If


Cevapla

miCRoBe`
Aktif Üye
Kullanici Avatari
Aktif Üye
88
08/10/2011
0
Belirtilmemiş
Ofis 2010
15/04/2015,03:20
Çözüldü 
Sponsor Reklam
ozan bey tabi kod kapatıyor fakat kutular dolu iken;
form kapatıldığında veya tab tuşuna basılınca yine kayıt yapıyor..
sadece kaydet düğmesi ile kayıt imkanı vermeliyim.
Cevapla

mehmetdemiral
.
Kullanici Avatari
Uzman
M.... D....
4.737
30/10/2008
Samsun
Ofis 2013 Tr. 32 Bit
09/01/2017,15:21
Çözüldü 
Accessteki ilişkili tablo sisteminde böyle olması gerekiyor. Eğer vb gibi olsun derseniz o zaman ilişkili form ve metin kutularını kullanmadan sadece kod kullanarak kayıt yaptırmalısınız. Bu durumda her bir buton için, kaydet, sil, yeni kayıt, sonraki önceki kayıt, kayıt arama vs. gibi tüm tuşlara kod yazmanız gerekir.

Bir diğer alternatif de formun kayıt kaynağını değiştirme yoluyla yapılabilir. Kaydet butonuna basıldığında tablo bağlantısı kurulur ve daha sonra kayıt terkedilirse, dediğiniz gibi olabilir. Bunu denemedim, şimdi aklıma geldi ama bu da bir alternatif olabilir. Bunun bir diğer biçimini kullanıyoruz zaten. Onda veriler bir geçici tabloya kaydedilir, kayıt butonu basıldığında ana tabloya aktarılır. Geçici tablo her kayıtta temizlenir.

Bir üçüncü alternatif de kaydet butonuna basılmadan çıkılan her kaydın silinmesidir. Bunda da kayıt aslında yapılır, ama kaydetme butonuna basılmadan çıkıldığında "silme" kodları çalıştırılarak silinir. Bunda sadece otomatik sayı varsa o artar, başka bir dezavantajı yoktur.
İnadına, ille de Accesstr.net...
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Formda Veri Aramada Like Sorunu uiakouwr 14 219 11/01/2017, 08:54 uiakouwr
  Formda 1 Metin Kutusuna birden fazla Metin Kutusu içeriğini koşula bağlı gösterme hbal09 5 206 06/01/2017, 16:22 atoz112
  Zorunlu alan ve kaydet uyarıları ertans 10 261 31/12/2016, 11:06 atoz112
  Formda düzenleme yaptığımda kaydetmeden işlemi geri almak raburabu 8 330 26/12/2016, 11:38 raburabu
  FORMDA BULUNAN VERİYİ TABLOYA KOPYALAMA fatihkara 12 329 21/12/2016, 18:32 fatihkara


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya