Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
02/12/2012 00:17
Konu Sahibi
yorum70
Yorumlar
4
Okunma
1271
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
yorum70

yorum70

Aktif Üye*
25666
Ay.... Şa....
 48
 148
 1.184
 08/10/2010
71
 Ankara
 
 Ofis 2013 64 Bit
 22/10/2016,21:00
Çözüldü 
İyi Akşamlar.

2013 yılı için hazırlamaya çalıştığım Evrak programında sürekli sorun çıkıyor.Birini düzeltiyorum, diğeri çıkıyor.

Sorun -1: Liste1 den forma veri getirip değiklik yapıyorum, kaydediyorum..2 tarih arası istatistik istediğimde veriler öceki veya alakasız...Mesela (E-MAİL(İDARİ BÜRO) AMA E-Mail başka bir büroya çıkıyor.

Düzenle ve Düzenleme kapalı komutları tasarımda gözüktüğü halde, formda gözükmüyor.

2 sayı arası rapor evrakno formatından olsa gerek vermiyor (yıl/sayı=2012/25

Formlarda değişiklik yapıp çıkış yapıyorum ama bana hiç kaydedeyı mı ? Kaydetmeyeyim mi diye soran yok=dşrek kaydediyor.

FORM= Evrak_Kayit
Tablo= evrakkayit
rapor:rpristat
Rapor=TARDEFTER

tŞK.

uNUTMADAN ÇÖZEMEDİĞİM BİR KONUDA ID olayı, ana tabloya kayıtları ID şeklinde kayıt ediyor, o bakımdan raporlarda ve LİSTE1 de alan adları değilde, ID'ler gözüküyor, bir kısmını düzelttim, ama sanki sıkıntı birazda buralardan kaynaklanıyor gibi.



"Her tercih, bir vazgeçiştir"


ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 482
 12.116
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,10:26
Çözüldü 
Listeden veri getirip kaydettiğinde kaydı kaydetmiyorsun. Kaydet butonundaki " rs.AddNew" kodu gereği yeni kayıt olarak kaydediliyor. Kodun değiştirilmesi gerekli.

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
65
66
67
68
69
70
71
72
73
74
75
If MsgBox("Değişiklikler Kaydedilsin mi?", 36, "Kaydediliyor...") = vbYes Then

    strSQL = "SELECT * FROM evrakkayit "
    Set rstkayit = New ADODB.Recordset
    rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
  
  
 With rstkayit
        .Find "[sirano]=" & "'" & Me![sirano] & "'"
            If Not rstkayit.EOF Then
                
                .Fields("evrakno") = Me.evrakno
                .Fields("gelyer") = Me.gelyer
                .Fields("tarihi") = Me.tarihi
                .Fields("savtarih") = Me.savtarih
                .Fields("savno") = Me.savno
                .Fields("sayisi") = Me.sayisi
                .Fields("ilceno") = Me.ilceno
                .Fields("alintarih") = Me.alintarih
                .Fields("eki") = Me.eki
                .Fields("konuozt") = Me.konuozt
                .Fields("adisoyadi") = Me.adisoyadi
                .Fields("buro") = Me.buro
                .Fields("memur") = Me.memur
                .Fields("yazan") = Me.yazan
                .Fields("amir") = Me.amir
                .Fields("dusunceler") = Me.dusunceler
                .Fields("kayitoncesi") = Me.kayitoncesi
                .Fields("kayitsonrasi") = Me.kayitsonrasi
                .Fields("gereğiyapildimi") = Me.gereğiyapildimi
                .Fields("gonyer") = Me.gonyer
                .Fields("gontarih") = Me.gontarih
                .Fields("kyypo") = Me.kyypo
                .Fields("aitolddosya") = Me.aitolddosya
                .Fields("vertarih") = Me.vertarih
                .Fields("sucno") = Me.sucno
                .Update
             Else
                .AddNew
                .Fields("sirano") = Format(DMax("sirano", "evrakkayit") + 1, "0000000000")
                .Fields("evrakno") = Me.evrakno
                .Fields("gelyer") = Me.gelyer
                .Fields("tarihi") = Me.tarihi
                .Fields("savtarih") = Me.savtarih
                .Fields("savno") = Me.savno
                .Fields("sayisi") = Me.sayisi
                .Fields("ilceno") = Me.ilceno
                .Fields("alintarih") = Me.alintarih
                .Fields("eki") = Me.eki
                .Fields("konuozt") = Me.konuozt
                .Fields("adisoyadi") = Me.adisoyadi
                .Fields("buro") = Me.buro
                .Fields("memur") = Me.memur
                .Fields("yazan") = Me.yazan
                .Fields("amir") = Me.amir
                .Fields("dusunceler") = Me.dusunceler
                .Fields("kayitoncesi") = Me.kayitoncesi
                .Fields("kayitsonrasi") = Me.kayitsonrasi
                .Fields("gereğiyapildimi") = Me.gereğiyapildimi
                .Fields("gonyer") = Me.gonyer
                .Fields("gontarih") = Me.gontarih
                .Fields("kyypo") = Me.kyypo
                .Fields("aitolddosya") = Me.aitolddosya
                .Fields("vertarih") = Me.vertarih
                .Fields("sucno") = Me.sucno
                .Update
             End If
        End With
      
        'On Error GoTo 100

       
Else
GoTo 200
End If


(02/12/2012 00:17)yorum70 Adlı Kullanıcıdan Alıntı: Düzenle ve Düzenleme kapalı komutları tasarımda gözüktüğü halde, formda gözükmüyor.

Form veya herhangi bir butonun tıklandığında olayında

Visual Basic Code
komutx.visible=false

yazdıysan, mutlaka başka bir yerede visible=true yazman lazım. Form açıldığında olayı olabilir.


Alıntı:2 sayı arası rapor evrakno formatından olsa gerek vermiyor (yıl/sayı=2012/25

iki sayı arası sorgu yapmak istiyorsun, ancak ölçüt evrakno alanında.

Bunun sayisi alanında olması lazım, veya sorguya alan ekleyip 2012/25'in sadece 25'ini aldırıp ölçütü bu alana yazmak lazım, farklı bir konudaki sorunuzda bunu yapmıştık.


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

...........
yorum70

yorum70

Aktif Üye*
25666
Ay.... Şa....
 48
 148
 1.184
 08/10/2010
71
 Ankara
 
 Ofis 2013 64 Bit
 22/10/2016,21:00
Çözüldü 
sn.ozanakkaya, kaydet sorunu çözüldü.Tşk.

Düzenle komutu çözülemedi, "komutx.visible=false" bu komutu bir yere yerleştiremedim, yarleştirebildiğim yeride bozdu-vazgeçtim.Düşündüm, düzenle de neymiş, zaten liste kutusundan çağırığ düzeltiyorum.

sayı arasına gelince, sayıdan kastım Evrak tarih sayısı değil..Kayıtnumrası..EvrakNo-ölçüt doğru, istatistik programında yapmıştınız doğru, oradan hallederim diye düşünüyorum, halledemezsem gelirim.

Saygılarımla-Tşk.


"Her tercih, bir vazgeçiştir"


ozguryasin

ozguryasin

Uzman
9727
Öz.... Ya....
 36
 44
 1.144
 23/09/2009
613
 Bursa
 Yazılım
 Ofis 2016 32 Bit
 Bugün,02:38
Çözüldü 
visible komutu gözüken bir nesneyi gizlemek veya gizli bir nesneyi göstermek için kullanılan komuttur. genelde kontronör olarak kullanılabilir. örneğin: Kayıt ekle butonuna bastıktan sonra kaydet butonu çıkması için. veya düzenle butonuna bastıktan sonra kaydet butonunun kaybolması buna karşılı düzelt butonu çıkması için. son kullanıcının hata yapma olasılığını düşürmek için kullanılabilir.



POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.

...........
yorum70

yorum70

Aktif Üye*
25666
Ay.... Şa....
 48
 148
 1.184
 08/10/2010
71
 Ankara
 
 Ofis 2013 64 Bit
 22/10/2016,21:00
Çözüldü 
Sn.ozguryasin teşekkür ederim.

bu konuda ki sorunların %98'i çözülmüştür(2 sayı arası dahil)

%2'lik bölüm ise, gönderildiği yer alanının hem raporda hem formda boş gözükmesi(ıd'le alakalı)
Tşk.


"Her tercih, bir vazgeçiştir"



Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Form Süzmede Sorun hegu 2 101 01/07/2019, 18:27
Son Yorum: hegu
Çözüldü Alt Form Kayıt most 6 266 31/05/2019, 09:12
Son Yorum: most
Çözüldü Access İle Basit Kayıt Programı musti35 4 237 27/05/2019, 17:07
Son Yorum: musti35
Çözüldü Kayıt Silindiğinde Silinenler Tablosuna Aktarma haziran4 4 231 20/05/2019, 11:58
Son Yorum: haziran4
Çözüldü Mükerrer Kayıt Sorunu Fatih34 5 389 13/05/2019, 16:08
Son Yorum: halily

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