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

عمل Auto Number


Io Emad

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

السلام عليكم

لدي قاعدة بيانات أكسس وقومت بربطها علي الانترنت باستخدام MySQl لاستخدامها في اكثر من مكان في نفس الوقت ولكن ظهرت مشكلة في الاوتو نمبر

عند عمل Autonumber من قاعدة بيانات MySql وعند اضافة بيانات من واجهه الاكسس والحفظ تظهر #Deleted بعد الحفظ

فـ قمت بعمل أوتو نمبر يدوي عن طريق الاكسس باستخدام الاستعلام Last + 1 للبحث عن أخر رقم في حقل ID واضافة ليها رقم 1

وقومت بعمل الناتج في Default Value

ولكن ظهرت مشكلة اريد حلها وهي عند فتح النموذج  في نفس الوقت من موظف اخر  واخذ نفس الاوتو نمبر وقام بالحفظ , فالموظف التالي عند الحفظ لن يحفظ لان الاوتو نمبر متكرر 

اريد قبل الحفظ تحديث الاوتو نمبر من الاستعلام جربت requery ولكن لم تعمل مع  Default Value 

 

هل هناك طريقة اخري ؟

 

القاعدة مرفقة للتوضيح 

 

عند فتح النموذج سوف ياخد اوتو نمبر تلقائي ولكن عند أضافة في الجدول سجل بنفس الاوتو نمبر 

وقومت بحفظ النموذج لن قبل لاني الاوتو نمبر موجود اريد طريقة لتحديث الاوتو نمبر في النموذج قبل الحفظ

 

Database6.rar

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

21 دقائق مضت, kanory said:

أخي الكريم كفكرة ....

أجعل نموذج الادخال مرتبط بجدول مستقل غير الجدول الاساسي

وجعل الرقم التلقائي يتم مع رز الحفظ ( وقت الحفظ )

كيف يتم ذلك

قصدك أن يتم الادخال في حقل غير مربوط بالجدول واضافتة للجدول عبر استعلام Update 

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

1 دقيقه مضت, Io Emad said:

كيف يتم ذلك

قصدك أن يتم الادخال في حقل غير مربوط بالجدول واضافتة للجدول عبر استعلام Update 

قصدي نموذج الادخال مرتبط بجدول مستقل غير الجدول الاساسي الخاص بالبيانات ثم الحاق هذه البيانات وقت الحفظ للجدول الاساسي

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

حسب فهمي لمشكلتك 
من الاحسن ان تستخدم زر للحفظ
و قبل الحفظ ان يكتب الرقم التلقائي ويحفظه هكذا
 

Private Sub Command14_Click()
    Me.ID = Nz(DLast("[ID]", "TABLE1"), 0) + 1
    DoCmd.RunCommand acCmdSaveRecord
End Sub

والله يعلم

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

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

Important Information