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
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