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.