(13/05/2020, 16:45)SeferŞANLI yazdı: strSQL = "SELECT TOP 1 tbl_ilceler.ilceno FROM tbl_ilceler WHERE ((Not (tbl_ilceler.ilceno) = 9999)) ORDER BY tbl_ilceler.ilceno DESC;"
koyulaştırdığım yerleri anlamadım.

Kodun tamamı şu şekilde.

Dim strSQL As String

Dim rstkayit As ADODB.Recordset

strSQL = "SELECT TOP 1 tbl_ilceler.ilceno FROM tbl_ilceler WHERE ((Not (tbl_ilceler.ilceno) = 9999)) ORDER BY tbl_ilceler.ilceno DESC;"

Set rstkayit = New ADODB.Recordset

rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic







If IsNull(Me.ilceno) Then

Me.ilceno = rstkayit(0) + 1

End If

ilçe adı güncelleştiğinde, ilceno metin kutusu boş ise , en büyük ilceno değerinden 1 fazlasını eklemesi için bu şekilde yazıldı. Ölçüt kısmındaki 9999'un sebebi, yurtdışı için 9999 verisi var. Bu kod sorguda 9999 harici diğer sayılardan en büyüğünü listelemeye yarıyor.