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

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

قام بنشر

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

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

قام بنشر (معدل)
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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information