kimse cevap vermedi heralde bilgisi olan yok bu konuda
neyse ben bişiler buldum kod satırı biraz uzun oluyo kısaltamadım ama şu şekilde olabilir fikri var aklımda hiç yoksa

If IsNull(Me.baslama) Or Me.baslama = "" Then

Else

    Me.MakineID = Me.MakineAdi1

    Me.HatID = Me.MakineHatti

    Me.CesitID = Me.MakineCesit

    Me.CalısanOperator = Me.MakineOperator

    Me.YardimciCalisan = Me.Yardimci

    Me.BaslamaSaati = Me.baslama

    Me.DurusSaati = Me.durus1

    Me.DurusSebebi = Me.durussebeb1

    Me.Aciklama = Me.aciklama1

    DoCmd.GoToRecord , , acNewRec

End If

If IsNull(Me.baslama2) Or Me.baslama2 = "" Then

Else

    Me.MakineID = Me.MakineAdi1

    Me.HatID = Me.MakineHatti

    Me.CesitID = Me.MakineCesit

    Me.CalısanOperator = Me.MakineOperator

    Me.YardimciCalisan = Me.Yardimci

    Me.BaslamaSaati = Me.baslama2

    Me.DurusSaati = Me.durus2

    Me.DurusSebebi = Me.durussebeb2

    Me.Aciklama = Me.aciklama2

    DoCmd.GoToRecord , , acNewRec

End If