kod göndereceğinize örneğinizi gönderseydiniz daha çok işe yarardı. örnekiz konularda cevap almanız zorlaşır. Nedeni ise sizin yerinize tablo yapmak içini doldurmak ve diğer nesneleri yerleştirmek için uğraşılacağından, kolay kolay ilgilenmek istenilmez.
ekteki örneği inceleyip geri bildirimde bulununuz.
Not: daha hızlı cebap alabilirdiniz fakat sizin için tablo ve geri kalan nesneler ile uğraştım.
Kodlar:
Dim SIRA As Integer
SIRA = Format(DMax("evrakno", "Tablo1"), 0)
If SIRA + 1 = CInt(Me.Metin0) Then
If SIRA < Me.Metin0 Then
MsgBox "SIRA NUMARASI DOĞRU. YAPILACAK İŞLEMLER KODLARINI YAZINIZ."
End If
Else
MsgBox "VERMENİZ GEREKEN SIRA NO = " & SIRA + 1
End If