اذهب الي المحتوي
أوفيسنا

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


mbm

الردود الموصى بها

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

جربت ووضعت =1

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

      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

تم تعديل بواسطه امير عاطف
رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information