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

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


tiger wanted

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

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

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

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

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

 

تم تعديل بواسطه Foksh
  • Like 1
رابط هذا التعليق
شارك

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

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



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

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

Important Information