Saytın hocam kayıt kodlarını gönderiyorum bir inceleyin anormal bir kod var mı bir kullanıcı kayıt girdiğinde sorun yok belkide farklı bilgisayarlardan işlem yapıldığı için olabilir mi bilmiyorum. Sayı alanı otomatik değil, bu tablonun birincil anahtarı da yok.

Private Sub StbKaydet_Click()

Dim rakkam As Double
Dim numara As Double
Dim kactane As Integer



rakkam = Nz(DMax("STStatBelID", "TBST"))

'Kayıt İçin ONAY İsteniyor....

If MsgBox("KAYDETMEK İSTİYOR MUSUNUZ?", vbYesNo) = vbNo Then
Cancel = True
MsgBox "" & "KAYDEDİLMEDİ" & Chr(10), 48, " KAYITTAN VAZGEÇME BİLGİSİ"

Call Form_Load

Else

'////////////////////////////////////////
' tabloya kayıt başlıyor

If Left(rakkam, 4) = CStr(Year(Date)) Then
kactane = Len(Trim(rakkam)) - 4

numara = Right(rakkam, kactane)
numara = numara + 1

STStatBelID2 = (Year(Date) * 100000) + numara


MsgBox "" & [STStatBelID2] & " " & " NO İLE BELGE KAYDI YAPILDI. " & Chr(10), 48, " STATÜ BELGESİ KAYIT BİLGİSİ"

Else

STStatBelID2 = (Year(Date) * 100000) + 1

MsgBox "" & [STStatBelID2] & " " & " NO İLE BELGE KAYDI YAPILDI. " & Chr(10), 48, " STATÜ BELGESİ KAYIT BİLGİSİ"


End If

If STStatBelID = "" Then
Dim Stb As New ADODB.Recordset
On Error Resume Next
Stb.Open "TBST", CurrentProject.Connection, 1, 2
Stb.AddNew

Stb!STStatBelID = STStatBelID2
Stb!STFirmaID = Me.FrmStVergiNo
Stb!STBeySahID = Me.FrmStBeySahVerNo
Stb!STBelAdi = Me.FrmStBölGirEvBelAd
Stb!STTesNo = Me.FrmStBölGirEvTesNo
Stb!STTesTar = Me.FrmStBölGirEvTesTar
Stb!STGelUlID = Me.FrmStGelUlKod
Stb!STMenseUlID = Me.FrmStMenseUlKod
Stb!STKapAdet = Me.FrmStKapAdet
Stb!STKapBrID = Me.FrmStKapBr
Stb!STMiktar = Me.FrmStMiktar
Stb!STMiktarBrID = Me.FrmStMiktarBr
Stb!STTgtc = Me.FrmStGtip
Stb!STCinsi = Me.FrmStCinsi
Stb!STBelID = Me.FrmStAtrEur1BelAd
Stb!STAtrEur1BelNo = Me.FrmStAtrEur1BelNo
Stb!STAtrEur1BelTar = Me.STAtrEur1BelTar
Stb!STAciklama = Me.FrmStAciklama
Stb!STKullaniciID = Me.SToturum


Stb.Update

Stb.Close
Set Stb = Nothing


'tabloya kayıt bitti
'*****************************************
End If
End If



Call Form_Load


End Sub