Skip to main content

AccessTr.neT


Tüm Kayıtları Kontrol Edip Düzeltme

Tüm Kayıtları Kontrol Edip Düzeltme

#13
rs.Update


GeciciSiraNo = rs!listeno

kodlarinin yerini degistirerek dene
SÖZ VERİYORUM... USLU DURUCAM...
Cevapla
#14
ben bir yerde mi hata yapıyorum veya benim ms Access mi hatalı yükledim. anlamadım. yerlerini değiştirdim hatalı olandan 1 altını gösteriyor.
Son Düzenleme: 10/02/2017, 08:50, Düzenleyen: hknct.
Cevapla
#15
(09/02/2017, 23:02)accessdelisi yazdı: GeciciSiraNo = rs!listeno + 1

yaptığım zaman sıkıntı düzeliyor.
Cevapla
#16
Merhaba, 
@"accessdelisi" nin yazdığı düzenleme veya sizin +1 yapmanız sorunu çözmez, sonraki kayıt +1 değilse kod düzgün çalışmaz. Butonun kodlarını aşağıdaki ile değiştirerek deneyiniz.

On Error GoTo Hata

Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("SELECT * FROM Tliste")


If Not (rs.EOF And rs.BOF) Then
   rs.MoveFirst
   Do Until rs.EOF = True

       rs.Edit
           If rs!brmarsvsklmsure = "SÜRESİZ" Or rs!brmarsvsklmsure = "DEVİR" Or rs!brmarsvsklmsure = "BİRLESTİ" Then
               GeciciMetin35 = "0"
           Else
               GeciciMetin35 = Abs(rs!brmarsvdvryil) + Nz(Abs(rs!brmarsvsklmsure), 0)
           End If

           If rs!brmarsvsklmsure = "SÜRESİZ" Or rs!brmarsvsklmsure = "DEVİR" Or rs!brmarsvsklmsure = "BİRLESTİ" Then
               GeciciMetin37 = "0"
           Else
               GeciciMetin37 = Abs(rs!brmarsvdvryil) + Abs(rs!krmarsvsklmsure)
           End If
           
               If IsNull(GeciciMetin37) Then
               GeciciSiraNo = rs!listeno
               End If
       
           If Abs(rs!brmarsvdvryil) > 0 And rs!brmarsvsklmsure = "SÜRESİZ" Then
               rs!notlar = "İmha Edilemez"
           ElseIf Abs(rs!brmarsvdvryil) > 0 And rs!brmarsvsklmsure = "DEVİR" Then
               rs!notlar = "Devir Edildi."
           ElseIf Abs(rs!brmarsvdvryil) > 0 And rs!brmarsvsklmsure = "SÜRESİZ" Then
               rs!notlar = "İmha Edilemez"
           ElseIf Abs(rs!brmarsvdvryil) > 0 And rs!brmarsvsklmsure = "BİRLESTİ" Then
             rs!notlar = "Birleştirildi."
         
           ElseIf Format(Now(), "yyyy") >= Abs(rs!brmarsvdvryil) And Format(Now(), "yyyy") <= Val(GeciciMetin35) Then
               rs!notlar = "Birim Arşivinde Saklanacak"
           ElseIf Format(Now(), "yyyy") >= Val(GeciciMetin35) And Format(Now(), "yyyy") <= Val(GeciciMetin37) Then
               rs!notlar = "Kurum Arşivinde Saklanacak"
           ElseIf rs!brmarsvsklmsure = "SÜRESİZ" And rs!krmarsvsklmsure = "SÜRESİZ" Then
               rs!notlar = "İmha Edilemez"
           Else
               rs!notlar = "İmha Edilecek"
           End If
             
       rs.Update

       rs.MoveNext
   Loop
End If

Me.notlar.Requery


rs.Close
Set rs = Nothing

MsgBox ("işlem tamamlandı")

Cikis:
Exit Sub

Hata:
MsgBox (GeciciSiraNo & " numaralı kayıtta boş olmaması gereken veri var kontrol ediniz.")
Dim rsa As Object
Set rsa = Me.Recordset.Clone
rsa.FindFirst "[listeno] = " & str(Nz(GeciciSiraNo, 0))
If Not rsa.EOF Then Me.Bookmark = rsa.Bookmark
Resume Cikis
Cevapla
#17
(10/02/2017, 09:22)ozanakkaya yazdı: Merhaba, 
@"accessdelisi" nin yazdığı düzenleme veya sizin +1 yapmanız sorunu çözmez, sonraki kayıt +1 değilse kod düzgün çalışmaz. Butonun kodlarını aşağıdaki ile değiştirerek deneyiniz.

On Error GoTo Hata

Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("SELECT * FROM Tliste")


If Not (rs.EOF And rs.BOF) Then
   rs.MoveFirst
   Do Until rs.EOF = True

       rs.Edit
           If rs!brmarsvsklmsure = "SÜRESİZ" Or rs!brmarsvsklmsure = "DEVİR" Or rs!brmarsvsklmsure = "BİRLESTİ" Then
               GeciciMetin35 = "0"
           Else
               GeciciMetin35 = Abs(rs!brmarsvdvryil) + Nz(Abs(rs!brmarsvsklmsure), 0)
           End If

           If rs!brmarsvsklmsure = "SÜRESİZ" Or rs!brmarsvsklmsure = "DEVİR" Or rs!brmarsvsklmsure = "BİRLESTİ" Then
               GeciciMetin37 = "0"
           Else
               GeciciMetin37 = Abs(rs!brmarsvdvryil) + Abs(rs!krmarsvsklmsure)
           End If
           
               If IsNull(GeciciMetin37) Then
               GeciciSiraNo = rs!listeno
               End If
       
           If Abs(rs!brmarsvdvryil) > 0 And rs!brmarsvsklmsure = "SÜRESİZ" Then
               rs!notlar = "İmha Edilemez"
           ElseIf Abs(rs!brmarsvdvryil) > 0 And rs!brmarsvsklmsure = "DEVİR" Then
               rs!notlar = "Devir Edildi."
           ElseIf Abs(rs!brmarsvdvryil) > 0 And rs!brmarsvsklmsure = "SÜRESİZ" Then
               rs!notlar = "İmha Edilemez"
           ElseIf Abs(rs!brmarsvdvryil) > 0 And rs!brmarsvsklmsure = "BİRLESTİ" Then
             rs!notlar = "Birleştirildi."
         
           ElseIf Format(Now(), "yyyy") >= Abs(rs!brmarsvdvryil) And Format(Now(), "yyyy") <= Val(GeciciMetin35) Then
               rs!notlar = "Birim Arşivinde Saklanacak"
           ElseIf Format(Now(), "yyyy") >= Val(GeciciMetin35) And Format(Now(), "yyyy") <= Val(GeciciMetin37) Then
               rs!notlar = "Kurum Arşivinde Saklanacak"
           ElseIf rs!brmarsvsklmsure = "SÜRESİZ" And rs!krmarsvsklmsure = "SÜRESİZ" Then
               rs!notlar = "İmha Edilemez"
           Else
               rs!notlar = "İmha Edilecek"
           End If
             
       rs.Update

       rs.MoveNext
   Loop
End If

Me.notlar.Requery


rs.Close
Set rs = Nothing

MsgBox ("işlem tamamlandı")

Cikis:
Exit Sub

Hata:
MsgBox (GeciciSiraNo & " numaralı kayıtta boş olmaması gereken veri var kontrol ediniz.")
Dim rsa As Object
Set rsa = Me.Recordset.Clone
rsa.FindFirst "[listeno] = " & str(Nz(GeciciSiraNo, 0))
If Not rsa.EOF Then Me.Bookmark = rsa.Bookmark
Resume Cikis
şu anda tam çalıştı çok teşekkürler  sorun çözüldü..
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task