On Error Goto Err ... ماذا تعنى ؟

وعليكم السلام

هذا سلمك الله عادة يأتي في أول الكود وهو لمنع توقف البرنامج

بسبب خطاء ما كأنه يأمر الاجراء بان اذا وجد خطاء يذهب للسطر Err

الذي بالعادة يتم برمجته مسبقا برسالة تنبيه مثل الكود التالي

On Error GoTo Err ' يعني اذا وجدت خطا انتقل مباشرة لسطر الخطأ أسفل


   For i = 1 To SpecificRecord
	  MyRS.MoveNext
   Next i
   FindRandom3 = MyRS(Fieldname)


Err:
   If Err = 3021 Then
	  MsgBox "There Are No Records In The Dynaset", 16, "Error"
   Else
	  MsgBox "Error - " & Err & Chr$(13) & Chr$(10) & Error, _
		 16, "Error"
   End If

شكرا أخى العزيز .. جزاك الله خيرا

ولكنى لاحظت أنك قلت ( بالعادة يتم برمجته مسبقا برسالة تنبيه ...)

فهل لابد من ذلك

حيث تبين لى فى بعض الاكواد ان ذلك الجزء الاخير غير مدرج