Private Sub btnBeginEdit_Click()
DBEngine.BeginTrans
End Sub
Private Sub btnSaveChanges_Click()
DBEngine.CommitTrans
End Sub
Private Sub btnUndoChanges_Click()
DBEngine.Rollback
End Sub
Private Sub Form_Current()
' loading the child records for the current master record
Set Me.subActorRatings.Form.Recordset = _
CurrentDb.OpenRecordset("SELECT * FROM tblActorRatings WHERE ActorId=" & Me!ActorId)
' Setting the correct default value for new records
Me.subActorRatings.Form.Controls("txtActorIdHidden").DefaultValue = Me!ActorId
End Sub
Private Sub Form_Load()
Set Me.Recordset = CurrentDb.OpenRecordset("SELECT * FROM tblActors")
End Sub
alt for ile nasıl kullanılacak derseniz
@benbendedeilem
Son Düzenleme: 16/05/2020, 12:19, Düzenleyen: accessman.