:و: في نموذج مربع نص غير منضم وابيه يرقم تلقائي

[mbm]

في مربع نص غير منضم داخل نموذج هل يمكن ان يكون فيه ترقيم تلقائي

جربت ووضعت =1

ولم ينجح هل فيه طريقة

يعني عندي نموذج ليس متعلق باي جدول ووضعت فيه مربع نص

واريد هذا المربع يعمل ترقيم تلقائي

حاولت ووضعت داخل المربع =1

ولم ينفع فهل هناك حل

[mzaki]

بسم الله الرحمن الرحيم

استخدم هذا الكود

      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 بواسطه امير عاطف