عدد حرف في مربع نص

عملت لك عزيزى فتى الوادى مثال مرفق تكتب به ما تشاء ويظهر لك عدد تكرار الكلمة او الحرف المراد البحث عنه

واليك أيضا الكود الذى كتب فى المثال

	Dim nStart As Integer
	Dim nLoaper As Long
	Dim nWordFind As Long
	nStart = 1
	nWordFind = 0
	For nLoaper = 0 To Len(Me![Text0])
		nStart = InStr(nStart, Me![Text0], Me![Text2], vbTextCompare)
		If nStart = 0 Then Exit For
		nWordFind = nWordFind + 1
		nStart = nStart + Len(Me![Text2])
	Next
MsgBox "عدد تكرار الكلمة فى الجملة يساوى " & nWordFind

واعتقد ان الكود مش مستاهل شرح .

لكن لو حد عايزنى اشرحه مفيش مشكلة .

find.zip

جزاك الله خيراً وزوجك الله بكراً

بس انا متجوز :)

يا أخي تزوج تانية ....