tiger wanted قام بنشر ديسمبر 27, 2023 مشاركة قام بنشر ديسمبر 27, 2023 نعمل على قاعدة بيانات مشتركة بواجهة وخلفية مستقلة اريد عندما يدخل مستخدم على نفس السجل داخل النموذج فى حالة الدخول فقط رسالة تظهر بأنه يوجد مستخدم على هذا السجل وفى حالة اضافة سجل جديد يقول ان هناك مستخدم قام باضافة بيانات على هذا السجل ولكم جزيل الشكر رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر ديسمبر 27, 2023 مشاركة قام بنشر ديسمبر 27, 2023 (معدل) 10 ساعات مضت, tiger wanted said: نعمل على قاعدة بيانات مشتركة بواجهة وخلفية مستقلة اريد عندما يدخل مستخدم على نفس السجل داخل النموذج فى حالة الدخول فقط رسالة تظهر بأنه يوجد مستخدم على هذا السجل وفى حالة اضافة سجل جديد يقول ان هناك مستخدم قام باضافة بيانات على هذا السجل ولكم جزيل الشكر لعدم توافر شبكة لتجربة الكود ، ولكن تفضل بتجربته هذا الكود ، وأعطاء النتيجة . Private Sub Form_BeforeUpdate(Cancel As Integer) Dim recordID As Integer Dim strSQL As String Dim rs As Recordset ' استخراج معرف السجل الحالي recordID = Me.Recordset.Fields("ID").Value ' قم بتغيير "ID" إلى اسم الحقل الخاص بمعرف السجل ' التحقق مما إذا كان هناك مستخدم آخر قد دخل إلى نفس السجل strSQL = "SELECT Count(*) AS RecordCount FROM YourTableName WHERE ID = " & recordID & " AND UserID <> " & Me.UserID Set rs = CurrentDb.OpenRecordset(strSQL) If rs.Fields("RecordCount").Value > 0 Then ' يوجد مستخدم آخر قد دخل إلى نفس السجل MsgBox "يوجد مستخدم آخر قد دخل إلى هذا السجل. لا يمكنك التحديث.", vbExclamation Cancel = True End If rs.Close Set rs = Nothing End Sub تم تعديل ديسمبر 27, 2023 بواسطه Foksh 1 رابط هذا التعليق شارك More sharing options...
tiger wanted قام بنشر ديسمبر 28, 2023 الكاتب مشاركة قام بنشر ديسمبر 28, 2023 ساقوم بالتجربة وابلغكم بالنتيجة ولكم منا جزيل الشكر 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان