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
kmercan2005, 20-10-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 14/02/2010, 00:09, Düzenleyen: kmercan2005.