Merhaba,

Public Function ParseText(TextIn As String, X) As Variant

On Error Resume Next

Dim var As Variant

var = Split(TextIn, " ", -1)

ParseText = var(X)

End Function

Üstteki kodu modüle ekle, modülü kaydet,

Yeni sorgu oluştur, sorgunun Sql kaynağına aşağıdaki kodu ekle, sorguyu srg_sonsira adıyla kaydet,

SELECT Val(ParseText([RAPOR_NO],0)) AS SiraNo FROM [ANA TABLO] ORDER BY Val(ParseText([RAPOR_NO],0));

Formdaki SON RAPOR NO metin kutusunun denetim kaynağındaki kodu

=DMax("[SiraNo]";"srg_sonsira")

kodu ile değiştir.