formda sadece kaydet butonunun kaydetmesi
Tarih
22/01/2014 17:15
Konu Sahibi
miCRoBe`
Yorumlar
23
Okunma
4220
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ü 
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.045
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,07:13
Çö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ü 
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.045
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,07:13
Çö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ü 
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.734
30/10/2008
Samsun
Ofis 2013 Tr. 32 Bit
05/12/2016,11:17
Çö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
  alt veri sayfasındaki verileri formda görmak murat dikme 4 66 07/12/2016, 18:14 murat dikme
  sorguda sadece bilgi girilen alanları göstersin ahmet114 5 90 05/12/2016, 09:04 ahmet114
  Formda İsim yazdığımda tablodan veri gelmesi 53rize 6 159 27/11/2016, 13:36 53rize
  Access Formda Tümünü Seç Buton Olay Yordamı Ekleme ? mehami 7 316 25/11/2016, 18:36 mehami
  Formdaki bir alan göre alt formda alanları gizleme enderya 2 90 20/11/2016, 19:34 ozanakkaya


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