أكتشاف و تصحيح الأخطاء فى هذه الاكواد برجاء مع الشرح

بسم الله الرحمن الرحيم

Dim tbl_name As String
 tbl_name = (DLookup("[tbl_name]", "MsysAhmed", DLookup("[tashtosh]", "MsysAhmed")))
 ab aha= (DLookup("[serialtashtosh]", "MsysAhmed", DLookup("[tashtosh]", "MsysAhmed")))
 dataha = (DLookup("[datee]", "MsysAhmed", DLookup("[tashtosh]", "MsysAhmed")))
 cdaaha = (DLookup("[datecreated]", "MsysAhmed", DLookup("[tashtosh]", "MsysAhmed")))
 If CDate(cda) > Now Then															   '(1)
 DoCmd.RunSQL "UPDATE MsysAhmed SET MsysAhmed.[serial] = 0;  ", -1
 DoCmd.RunSQL "UPDATE MsysAhmed SET MsysAhmed.[datee] = 0;  ", -1
 GoTo Err_hem
 End If																								  '(2)
 If Val((DLookup("[serial]", "MsysAhmed", DLookup("[tashtosh]", "MsysAhmed"))) <> Val(((Me.text05 + ab + dat) * 9) - 99)) Then
 DoCmd.RunSQL "UPDATE MsysAhmed SET MsysAhmed.[serial] = 0;  ", -1
 DoCmd.RunSQL "UPDATE MsysAhmed SET MsysAhmed.[datee] = 0;  ", -1
 ' DoCmd.OpenForm "frmlinktable"

 GoTo Err_hem
 ElseIf Val((DLookup("[serial]", "MsysAhmed", DLookup("[tashtosh]", "MsysAhmed"))) = Val(((Me.text05 + ab + dat) * 9) - 99)) Then
 If IsNull((DLookup("[datecreated]", "MsysAhmed"))) = True Then
 DoCmd.RunSQL "UPDATE MsysAhmed SET MsysAhmed.[serial] = 0;  ", -1
 DoCmd.RunSQL "UPDATE MsysAhmed SET MsysAhmed.[datee] = 0;  ", -1
 ElseIf IsNull((DLookup("[datecreaed]", "MsysAhmed"))) = False Then
 If dataha + CDate(cdaaha) > Now Then
 DoCmd.Close acForm, Me.nameDoCmd.OpenForm "frmlinktable"

 ElseIf dataha + CDate(cdaaha) <= Now Then
 DoCmd.RunSQL "UPDATE MsysAhmed SET MsysAhmed.[serial] = 0;  ", -1
 DoCmd.RunSQL "UPDATE MsysAhmed SET MsysAhmed.[datee] = 0;  ", -1
 'DoCmd.OpenForm "frmlinktable"

 GoTo Err_hem
 End If
 End If
 End If

أرجوا شرح هذه الأكواد وحده ..... وحده

وأرجوا الإطلاع على المشاركة التى بأسم

* Dlookupومشكلة الفواصل والأقواص

خالص شكرى وتقديرى