mbm قام بنشر فبراير 4, 2005 مشاركة قام بنشر فبراير 4, 2005 في مربع نص غير منضم داخل نموذج هل يمكن ان يكون فيه ترقيم تلقائي جربت ووضعت =1 ولم ينجح هل فيه طريقة يعني عندي نموذج ليس متعلق باي جدول ووضعت فيه مربع نص واريد هذا المربع يعمل ترقيم تلقائي حاولت ووضعت داخل المربع =1 ولم ينفع فهل هناك حل رابط هذا التعليق شارك More sharing options...
mzaki قام بنشر فبراير 5, 2005 مشاركة قام بنشر فبراير 5, 2005 (معدل) بسم الله الرحمن الرحيم استخدم هذا الكود Dim T As Long, NumID As Long If RecordCount = 0 Then txtID = 1 If RecordCount > 0 Then With Recordset.Clone .MoveFirst For T = 1 To .RecordCount NumID = NumID + 1 If !id <> NumID Then txtID.Text = NumID Exit Sub End If .MoveNext Next txtID = NumID + 1 End With End If مع تحياتى mzaki تم تعديل فبراير 5, 2005 بواسطه امير عاطف رابط هذا التعليق شارك More sharing options...
الردود الموصى بها