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

Listeden veri getirip kaydettiğinde kaydı kaydetmiyorsun. Kaydet butonundaki " rs.AddNew" kodu gereği yeni kayıt olarak kaydediliyor. Kodun değiştirilmesi gerekli.

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 yazdı: 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

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.

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.

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.

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.