kodun doğru çalışabilmesi için [Klasor No] değerinin 2020-2 gibi bir formatta olması gerek eğer verilerinizde bu yapıya uygun olmayan kayıt varsa önce onları silmeli yada bu formata dönüştürmelisiniz. mesela tablonuzda [Klasor No]nun boş yada 20211 formatında olan kayıtlar var bu kayıtları silmelisiniz
Private Sub Açılan_Kutu242_Change()
Dim yMax As Long
yMax = Nz(DMax("clng(Nz(mid([Klasor No],6)))", "[Sonim Tablo]", "[Klasor No] like '" & Açılan_Kutu242 & "*'"), 1)
KlsNo = DCount("*", "[Sonim Tablo]", "[Klasor No]='" & Açılan_Kutu242 & "-" & yMax & "'")
If KlsNo = 20 Then yMax = yMax + 1
Me.Klasor_No = Açılan_Kutu242 & "-" & yMax
End Sub