02/05/2015, 09:44
huseyinkoc
Kolay gelsin.Elimde Aşağıdaki kod var. Yaptığı iş ; komut butonuna basınca servis formundaki "id" değerini Yeni açılan formdaki "id" yerine yazmak. Gayet güzel çalıştı. Tek sıkıntım eski bir servis formunu açıp değişiklik yapmak istediğimde kayıt zaten olduğu için hata vermesi. Kod için "Bu kayıt var" demesi kısmında takıldım. Sizden ricam kaydı kontrol edip eğer kayıt varsa uyarması ve kaydı yapmaması.
Dim rs As New ADODB.Recordset
rs.Open "TServisUcret", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("servis_ucret_id") = servis_id
rs.Update
rs.Close
Set rs = Nothing
DoCmd.OpenForm "FServisUcret"
Forms("FServisUcret").Requery
DoCmd.Close acForm, "FServis", acSaveYes
End Sub
Dim rs As New ADODB.Recordset
rs.Open "TServisUcret", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("servis_ucret_id") = servis_id
rs.Update
rs.Close
Set rs = Nothing
DoCmd.OpenForm "FServisUcret"
Forms("FServisUcret").Requery
DoCmd.Close acForm, "FServis", acSaveYes
End Sub