Sub aa()
On Error Resume Next
Dim Frm As Object, Ctrl As Control
For Each Frm In Application.CurrentProject.AllForms
    DoCmd.OpenForm Frm.Name, acDesign, , acFormEdit, acHidden
    For Each Ctrl In Forms(Frm.Name).Controls
    If Ctrl.ControlType = acCommandButton Then
         If Forms(Frm.Name).Controls(Ctrl.Name).Caption = "TAMAM" Then Forms(Frm.Name).Controls(Ctrl.Name).Caption = "ONAYLA"
    End If
    Next Ctrl
    DoCmd.RunCommand acCmdSave
    DoCmd.Close acForm, Frm.Name
Next Frm
End Sub