Accessben használt vba kód egyszerűsítése

Accessben használt vba kód egyszerűsítése
2017-04-04T22:37:10+02:00
2017-04-05T23:29:00+02:00
2022-10-15T22:30:33+02:00
hekkimaki
Accessben egy űrlapon van egy fejlécem, és alatta öt kitöltendő sorom, amihez a fejlécben szereplő adatokat is szeretném egy sorba menteni. A következő forráskód egyszerűsítése lenne a cél, van-e valamilyen megoldás pl for ciklus, vagy valami ehhez hasonló, hogy a kódban ne ötször legyen leírva szinte ugyanaz.
Előre is köszönöm a segítséget!

Set adatbazis = CurrentDb Set ujrekord = adatbazis.OpenRecordset("Hibafeltáró_bejárás") If IsNull(Me.Eszlelt_hiba_1) = False Then With ujrekord .AddNew ujrekord.Fields("Bejaras_datuma").Value = Me.Bejaras_datuma ujrekord.Fields("Ellenorzo").Value = Me.Ellenorzo ujrekord.Fields("Bejaras_azonositoja").Value = Me.Bejaras_azonositoja ujrekord.Fields("Ellenorzott_terulet").Value = Me.Ellenorzott_terulet ujrekord.Fields("Eszlelt_hiba").Value = Me.Eszlelt_hiba_1 ujrekord.Fields("Intezkedes").Value = Me.Intezkedes_1 ujrekord.Fields("Felelos").Value = Me.Felelos_1 ujrekord.Fields("Hatarido").Value = Me.Hatarido_1 .Update End With Else MsgBox "Nem töltötted ki az " & "észlelt hiba" & " mezőt" End If If IsNull(Me.Eszlelt_hiba_2) = False Then With ujrekord .AddNew ujrekord.Fields("Bejaras_datuma").Value = Me.Bejaras_datuma ujrekord.Fields("Ellenorzo").Value = Me.Ellenorzo ujrekord.Fields("Bejaras_azonositoja").Value = Me.Bejaras_azonositoja ujrekord.Fields("Ellenorzott_terulet").Value = Me.Ellenorzott_terulet ujrekord.Fields("Eszlelt_hiba").Value = Me.Eszlelt_hiba_2 ujrekord.Fields("Intezkedes").Value = Me.Intezkedes_2 ujrekord.Fields("Felelos").Value = Me.Felelos_2 ujrekord.Fields("Hatarido").Value = Me.Hatarido_2 .Update End With Else End If If IsNull(Me.Eszlelt_hiba_3) = False Then With ujrekord .AddNew ujrekord.Fields("Bejaras_datuma").Value = Me.Bejaras_datuma ujrekord.Fields("Ellenorzo").Value = Me.Ellenorzo ujrekord.Fields("Bejaras_azonositoja").Value = Me.Bejaras_azonositoja ujrekord.Fields("Ellenorzott_terulet").Value = Me.Ellenorzott_terulet ujrekord.Fields("Eszlelt_hiba").Value = Me.Eszlelt_hiba_3 ujrekord.Fields("Intezkedes").Value = Me.Intezkedes_3 ujrekord.Fields("Felelos").Value = Me.Felelos_3 ujrekord.Fields("Hatarido").Value = Me.Hatarido_3 .Update End With Else End If If IsNull(Me.Eszlelt_hiba_4) = False Then With ujrekord .AddNew ujrekord.Fields("Bejaras_datuma").Value = Me.Bejaras_datuma ujrekord.Fields("Ellenorzo").Value = Me.Ellenorzo ujrekord.Fields("Bejaras_azonositoja").Value = Me.Bejaras_azonositoja ujrekord.Fields("Ellenorzott_terulet").Value = Me.Ellenorzott_terulet ujrekord.Fields("Eszlelt_hiba").Value = Me.Eszlelt_hiba_4 ujrekord.Fields("Intezkedes").Value = Me.Intezkedes_4 ujrekord.Fields("Felelos").Value = Me.Felelos_4 ujrekord.Fields("Hatarido").Value = Me.Hatarido_4 .Update End With Else End If If IsNull(Me.Eszlelt_hiba_5) = False Then With ujrekord .AddNew ujrekord.Fields("Bejaras_datuma").Value = Me.Bejaras_datuma ujrekord.Fields("Ellenorzo").Value = Me.Ellenorzo ujrekord.Fields("Bejaras_azonositoja").Value = Me.Bejaras_azonositoja ujrekord.Fields("Ellenorzott_terulet").Value = Me.Ellenorzott_terulet ujrekord.Fields("Eszlelt_hiba").Value = Me.Eszlelt_hiba_5 ujrekord.Fields("Intezkedes").Value = Me.Intezkedes_5 ujrekord.Fields("Felelos").Value = Me.Felelos_5 ujrekord.Fields("Hatarido").Value = Me.Hatarido_5 .Update End With Else End If
Mutasd a teljes hozzászólást!

Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd