كود لتكرار آخر اسم تم كتابته

هذه واحدة من الطرق الممكنة... كل الكود المضاف هو التالي:

Private Sub الاسم_Enter()
	If [الاسم].Text & "" = "" Then
		[الاسم].Text = [الاسم].Tag
	End If
End Sub

Private Sub الاسم_Exit(Cancel As Integer)
	[الاسم].Tag = [الاسم].Text
End Sub

والله أعلم.

_______________________________.rar

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

اخي الكريم ارجو ان اكون اقتربت من المطلوب ولكنني اضطررت لاضافة حقل لجدول 2 ليتم المطلوب

بحيث عند كتابتك لاي نص في الحقل اس سيتم تكرار اخر قيمة للاسم

ارجو الاطلاع والرد لانجاز الموضوع

انا اسف اخي احمد مبارك لم انتبه لردك

_______________________________.rar

اخ احمد مبارك اشكرك على اهتمامك

وتقريبا فيه جزء من المطلوب وهو التكرار

لكن يجب ان يكرر الاسم فقط عند استخدام زر الاسهم في لوحة المفاتيح اما عند استخدام زر انتر تنتقل المشيرة الى سجل جديد دون ان تكرر الاسم الاخير