20-06-15, 02:45 AM
أهلا إخواني الكرام , الحمدلله بعد بحث طويل تمكنت بفضل الله من العثور على مبتغاي وهو الذي كنت أريده من محاولة نسخ أو تصدير الجدول كله إلى قاعدة بيانات أخرى على أمل أن أصل إلى ما أريده , وما أريده هو أن أعرف ماهو الرقم التسلسلي الذي سيتم وضعه في الحقل من نوع "ترقيم تلقائي" عند إضافة سجل جديد في الجدول , البعض ممكن يقول بسيطه المسأله إستخدم دالة MAX لتجلب لك أكبر رقم لا هذه الدالة لن تفيد إذا كان آخر سجل قد تم حذفه والذي يحمل الرقم التسلسلي الأخير الحقيقي , لذلك لكي تحصل على الرقم التسلسلي الذي سيتم وضعه في السجل الجديد , عليك بإضافة مكتبة بإسم Microsoft ADO Ext. 2.8 for DDL and Security ثم إستخدم هذه الدالة لتعيد لك بالرقم التسلسلي التالي :
حيث تمرر لها إسم الجدول وإسم الحقل الذي من نوع "ترقيم تلقائي" والمتغير الذي بإسم DB والموجود بداخل الدالة هو إسم الكائن المتصل بقاعدة البيانات أكسس , أتمنى أن يستفيد الجميع من هذا الكود , الذي إستفدت منه ولم أكن أعرفه من قبل , شكراً جزيلاً لصاحب الحل .
كود :
Private Function NextAutonumber(ByVal pTable As String, ByVal pAutonumField As String) As Long
Dim Cat As New ADOX.Catalog
Set Cat.ActiveConnection = DB
NextAutonumber = Cat.Tables(pTable).Columns(pAutonumField).Properties("Seed")
Set Cat = Nothing
End Functionحيث تمرر لها إسم الجدول وإسم الحقل الذي من نوع "ترقيم تلقائي" والمتغير الذي بإسم DB والموجود بداخل الدالة هو إسم الكائن المتصل بقاعدة البيانات أكسس , أتمنى أن يستفيد الجميع من هذا الكود , الذي إستفدت منه ولم أكن أعرفه من قبل , شكراً جزيلاً لصاحب الحل .
