تنبيه فى حالة وجود مستخدم اخر

[tiger wanted]

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

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

[Foksh]

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

[tiger wanted]

ساقوم بالتجربة وابلغكم بالنتيجة ولكم منا جزيل الشكر