Kayıt ve Düzelt Komutlarında Sorun.

02/12/2012, 00:17

yorum70

İ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.
02/12/2012, 01:05

ozanakkaya

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.
02/12/2012, 01:19

yorum70

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.
02/12/2012, 15:59

ozguryasin

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.
02/12/2012, 16:01

yorum70

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.