المطلوب : احبتي عند عمل مستخدين او اكثر على البرنامج يحدث مشكلة ,وقت اضافة سجل جديد يحدث ان يعطية نفس رقم الفاتورة الذي اعطاة للمستخدم الاول كيفية حل هذة المشكلة مع العلم رقم الفاتورة يتغير اوتماتيكي مرفق البرنامج مع القاعدة
تم تعديل هذه المشاركة بواسطة fawaz2004 في 25 مايو 2018 في 02:45 — السبب: اضافة المثال
الملف مش بيفتح معايا
No archives found
إذا هل تقصد بالمستخدم العميل
فقد أضفت الدالة التالية إلى الوحدة النمطية back
Public Function Get_last_invoice() As Long
Dim dbs As Database, rst As Recordset, strsql As String
Get_last_invoice = 0
Set dbs = CurrentDb
strsql = " SELECT ÌÏæá1.*"
strsql = strsql & " FROM ÌÏæá1"
strsql = strsql & " ORDER BY ÌÏæá1.[ÑÞã ÇáÝÇÊæÑÉ];"
Set rst = dbs.OpenRecordset(strsql)
rst.MoveLast
Get_last_invoice = rst![ÑÞã ÇáÝÇÊæÑÉ]
End Function
ثم غيرت فى الزر 1071 ليصبح
Me![اجمالي_السعر] = Me![نص6]
وقد اضفت قائمة تنقل فى النموذج Customers
اشكرك عزيزي على مرورك ولكن المقصود بلمستخدم هو مدخل البيانات عندي مدخاين اثين للبيانات على البرنامج مشبكوك بشبكة عند الادخال في نفس الوقت تحصل مشكلة بان رقم الفاتورة تظهر عند الاثين نفس رقم الفاتورة مما يحدذذث مشكلة بعدم قبول الفاتورة والمفروض يعطي البرنامج لكل منهما رقم مختلف عن الثاني
هذا صعب ولن يحدث إلا فى حالة أنهما ضغطا على زر الإضافة فى نفس الوقت
ولكن حتى فى هذه الحالة قد يكون هناك حل
مثلاً يجب أولاً أن يكون لديك دالة تعود بالمستخدم الحالى لقاعدة البيانات ولتكن الدالة باسم current_user
بعدها فى زر 1071 الخاص بالإضافة يكون كود تحديد رقم الفاتورة بشكل كالشكل التالي
if current_user=name1 then
Me.[رقم الفاتورة] = Get_last_invoice + 1
else
Me.[رقم الفاتورة] = Get_last_invoice + 2
end if
تم تعديل هذه المشاركة بواسطة الفهرى في 28 مايو 2018 في 17:12
اعتذر لأن سطر تحديد رقم الفاتورة صعب فى الكتابة والمحاذاة لأنه يحتوى على نص عربى
لكن ارجو ان تكون الفكرة قد وصلت
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…