tablonuzun Rapor_No_Dosya alanının türü sayısal olarak değiştirilmiştir metin türünde sıralama hatalı olabiliyor

Function Yok() As Long

Dim Kayit As Recordset, Sayac As Long

Set Kayit = CurrentDb.OpenRecordset("Select Rapor_No_Dosya from Tablo1 where (Rapor_No_Dosya)>0 order by Rapor_No_Dosya") '<== değişen



If Kayit.RecordCount = 0 Then Yok = 1: Exit Function

Kayit.MoveFirst

Sayac = 0

Do Until Kayit.EOF

    Sayac = Sayac + 1

    If Sayac <> Nz(Kayit(0), 0) Then Yok = Sayac: Exit Do

    Kayit.MoveNext

Loop

If Yok = 0 Then Yok = Kayit.RecordCount + 1 '<==eklenen

Kayit.Close: Set Kayit = Nothing

End Function

kaydetme kodu

Private Sub Kaydet_Click()

DoCmd.SetWarnings False

On Error Resume Next



If MsgBox("Değişiklikler kaydedilsin mi?", vbCritical + vbYesNo + vbDefaultButton1, "UYARI") = vbYes Then



Me.Liste162.Requery

Me.Yeni_Kayit.Enabled = True

Me.Duzenle.Enabled = True

Me.Kaydet.Enabled = False

Me.Rapor_No_Dosya = Yok  '<==eklenen



Else

Me.Undo



End If



Me.Kaydet.Enabled = False

Me.Duzenle.Enabled = True

Me.Yeni_Kayit.Enabled = True

Me.Liste162.Locked = False



DoCmd.RunCommand acCmdSave



Me.Liste162.Requery

DoCmd.GoToRecord , , acNewRec

DoCmd.SetWarnings True

End Sub