كيف يمكن ان نكتب هذه الدالة بطريقة صحيحة

السلام عليكــم ورحمـة الله وبركاتــة

اخواني مشرفي واعضاء هذا المنتدى اشكركم على سرعة استجابتكم وهذا ما يدعوني الى طرح اي سؤال بدون تردد

كيف يمكن كتابة هذه الدالة بطريقة صحيحة

sub ctrloption(ctrl as control)
	   if isnull(me.ctrl) then 
			  me!ctrl = "new"
			  me.ctrl.forecolor =  255
	  end if

end sub

طبعاً هذه الدالة لاتعمل

ولذلك كتبتها بهذه الطريقة

sub ctrloption(ctrl as string)

Dim ctl, nctl as control
	   for each ctl in me.controls
			  if ctl.name = ctrl then
					set nctl = ctl
					exit for
			  end if
	   next
	   nctl = "new"
	   nctl.forecolor = 255

end sub

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

فهل يمكن كتابة الدالة بطريقة مشابهة للطريقة الاولى

اشركم وبانتظار الرد

عبير زايد