tiger wanted قام بنشر ديسمبر 27, 2023 قام بنشر ديسمبر 27, 2023 نعمل على قاعدة بيانات مشتركة بواجهة وخلفية مستقلة اريد عندما يدخل مستخدم على نفس السجل داخل النموذج فى حالة الدخول فقط رسالة تظهر بأنه يوجد مستخدم على هذا السجل وفى حالة اضافة سجل جديد يقول ان هناك مستخدم قام باضافة بيانات على هذا السجل ولكم جزيل الشكر
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
tiger wanted قام بنشر ديسمبر 28, 2023 الكاتب قام بنشر ديسمبر 28, 2023 ساقوم بالتجربة وابلغكم بالنتيجة ولكم منا جزيل الشكر 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.