FirmaIsmi textbox ınızın AfterUpdate olay yordamına aşağıdaki kodu yazarak deneyebilir misiniz?
Kod:
Dim BasHarf As String
Dim sonKaydinMusteriNosu As String
Dim sonKaydinMusteriSirasi As String
BasHarf = Left(Me.Firmaİsmi, 1)
sonKaydinMusteriNosu = DLast("MusNo", "Firmalar", "Firmaİsmi LIKE '" & BasHarf & "*'")
sonKaydinMusteriSirasi = Mid(sonKaydinMusteriNosu, 2, (Len(sonKaydinMusteriNosu) - 1))
Me.MusNo = BasHarf & CInt(sonKaydinMusteriSirasi) + 1