Insert Problemi

[kabayel]

Private Sub Ekle_Click()


On Error GoTo Err_Ekle_Click
If IsNull(Me.JNO) Then MsgBox "Lutfen Ilgili Alanlari Doldurunuz", 48, "Kayýt Ýþlemi": Me.JNO.SetFocus: Exit Sub
If MsgBox("Yeni Bilgi Eklensin mi?", 36, "K A Y D E T") = 6 Then
If Me.ID > 0 Then
Dim rs As New ADODB.Recordset
rs.Open "SDetail", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

Dim SPN As Variant
Dim SZ As Variant
Dim JTP As Variant
Dim Sch As Variant

SPN = Me.SPN
JNO = Me.JNO
SZ = Me.SZ
JTP = Me.JTP
Sch = Me.Sch

rs.AddNew
rs("IsNo") = Me.IsoNo
rs("Joint No") = JNO
rs("SPNO") = SPN
rs("Sheet No") = SHN
rs("SCH") = Sch
rs("SIZE") = SZ
rs("IsoID") = Me.ID
rs("JType") = JTP

rs.Update

End If
Me.SpListesi.Requery

Else
Me.Undo
End If
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_Ekle_Click:
Exit Sub

Err_Ekle_Click:
MsgBox Err.Description
Resume Exit_Ekle_Click




Sdetail tablosunda ID alani otomatiksayi ve Primarykey fakat ekle dedigimde ID alanini 0 Yapiyor. Siradaki ID numarasini vermiyor. yani insert yapmiyor. Insert icin kod nasil olmali

 

[modalı]

Sayın kabayel,

Burada anlamadığım bir iki nokta var.
Birincisi bu form sanırım tablo ile ilişkili değil. Öyle ise neden kodla tabloya veri yazdırıyorsunuz.

İkincisi ilişkili değilse o zaman nasıl Me.ID>0 oluyor? ID alanını görmemeniz gerekir ilişkisiz alanda. Bu uygulamada normal çalışmayan bir durum sezinliyorum. Ama örnek eklerseniz daha çabuk cevap alabilirsiniz.

İyi çalışmalar

 

[kabayel]

Ornek Dosya Ekte
Nerde hata yaptigimi cozemedim

 

[kabayel]

hATAMI SIMDI GORDUM
Otomatik yaptim saniyordum