error handeling

باسلام من یک فرم ورودی رو دارم که با کد vba به دو جدول اصلی و فرعی مربوطه وصل میباشد .در صورت ورود اطلاعات تکرای و همچنین پر نکردن جدول یک پیغام debug رو برای هر خطا با شماره خطای مربوطه ب من میدهد .چطور میتوانم با استفاده از دستور on error goto myeer یا به تله انداختن خطاها همه ی خطا هایی که در فرم هست رو همزمان فارسی سازی کنم(همزمان) مثلا بگم ارور شماره 3124 مربوط به خطای تکرار ورود داده است و خطای مثلا 3021 مربوط به عدم ورود داده میباشد بصورت همزمان در کد خودم چجوری میشه بهینه سازیش کنم _

Private Sub Command28_Click()
Dim tav As Recordset
Set tav = CurrentDb.OpenRecordset("tbl_asli_bazdid_mashin")
tav.AddNew
tav!nameid = txt_nameid
tav!sherkat = txt_sherkat
tav!date = txt_date
tav!shomareh_bazdid = txt_shomareh_bazdid
tav.Update
tav.MoveLast

''کد مربوط به فیلد های اصلی که در اینجا خطای داده تکراری میده

Dim ft As Recordset
Set ft = CurrentDb.OpenRecordset("templ_tbl_bazdid_child_mashin")
Dim st As Recordset
Set st = CurrentDb.OpenRecordset("tbl_bazdid_child_mashin")
Do While ft.EOF = False
st.AddNew
st!date = ft!date
st!shomare_bazdid = ft!shomare_bazdid
st!personelid = ft!personelid
st!tasme = ft!tasme
st!pich_motor = ft!pich_motor
st!kopling = ft!kopling
st!girboks = ft!girboks
st!ballscrool = ft!ballscrool
st!pich = ft!pich
st!enkoder = ft!enkoder
st!pich_khatkesh = ft!pich_khatkesh
st!kabl_enkoder = ft!kabl_enkoder
st!roghankari_bastar = ft!roghankari_bastar
st!kabl_terminal = ft!kabl_terminal
st!cooler = ft!cooler
st!tamizkari_bargh = ft!tamizkari_bargh
st!sathe_roghan = ft!sathe_roghan
st!pomp_roghan = ft!pomp_roghan
st!alarm_roghan = ft!alarm_roghan
st!system_ab_sabon = ft!system_ab_sabon
st!zaman_bazdid = ft!zaman_bazdid
st!sharh_eghdamat = ft!sharh_eghdamat
st!sharh_bazdid = ft!sharh_bazdid
st!ghete_masrafi = ft!ghete_masrafi
st!vaziat = ft!vaziat
st!aslimid = tav!ID
st.Update
ft.MoveNext
Loop
ft.MoveFirst

''در اینجا اگه جدول فرعیمون رو پر نکرده باشیم خطای عدم ورود داده میده

Do While ft.EOF = False
ft.Delete
ft.MoveNext
Loop
DoCmd.Requery "templ_tbl_bazdid_child_mashin_subform"
txt_nameid = ""
txt_sherkat = ""
txt_date = ""
txt_shomareh_bazdid = ""
MsgBox "ÇØáÇÚÇÊ ÈÇ ãæÝÞíÊ ËÈÊ ÔÏ"