Makine Günlük Çalışma Verileri ve Vardiya Bilgi Formu

Merhaba arkadaşlar bir konuda size danışmak istiyorum karar veremedim nasıl yapıcağım konusunda
öncelikle iki tane kayıt edilmesi gereken veri var
1-Makinelerin çalıştığı saati molaları işlenen malı falan yazdığımız bir kağıt var bunu bilgisayar ortamına aktarıyoruz
2-makine verilerini vardiya bilgi formu adı altında o vardiyada yapılan işlerin hepsini bi kağıda toplamız oluyoruz .örneklerini ekledim

bunlar için ikitane Excel dosyamız var ayrı ayrı giriyoruz tek tek alt alta sıralanıo işte sonra raporlamaya çalışıyoruz binlerce kayıt oluyo başa çıkamıyoruz anlıycağınız hem kayıt işlemini sorunsuz ve kolay bi şekilde yapmak hemde raporda sıkıntı çekmemek için Access form hazırlamak istiyorum.
başlangıç aşamasında veritabanını oluşturdum formdüzeni kurdum ama kafam durdu ilerletemiyorum bu yüzden yardımlarınızı bekliyorum.teşekürler
office2007 olarak kayıtlı 2003 olarak kaydedemedim

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

Veri girilen text alanlarının adını döngüye uyacak bir ad yap. Örneğin metin1, metin2 gibi, sonra da bu son rakama göre bir döngü kurarak boşluk kontrolü yaptır.

Şöyle bir şey deneyebilirsin;

dim say as integer

dim kayitdurumu as boolean  

for say=1 to 36

if metin & say <>null or metin&say<>"" then

kayitdurumu=true

else 

kayitdurumu=false

end if

next

if kayitdurumu=true then Kaydet

else 

kaydetme

end if

bunu örnekteki alanlara nasıl uyguluycaz anlıyamadım orasını vaktin varsa uzun şekilde yazarmısın kodları

MakinaID veya MakinaAdi1 bunların ikisini de tablodan mı getiriyorsun?
Kullanıcının veri girdiği alan hangisi?