YeniForm altyordamının kodu (daha hızlı)

Sub YeniForm(FormTabloAdi As String)

    

    DoCmd.TransferDatabase acExport, "Microsoft Access", CurrentDb().Name, acTable, "tablo_sablon", FormTabloAdi, True

    DoCmd.CopyObject CurrentDb().Name, FormTabloAdi, acForm, "mutabakat_formu_sablon" 'şablon formu kopyala

    DoCmd.OpenForm FormTabloAdi, acDesign, , , , acHidden

    

    Forms(FormTabloAdi).RecordSource = FormTabloAdi

    DoCmd.Close acForm, FormTabloAdi, acSaveYes



End Sub