معرفة من ادخل السجل من المستخدمين

موضوع منقول من المنتدي القديم

الكاتب: اسماعيل

بسم الله الرحمن الرحيم

أخواني أعضاء ا لفريق العربي للبرمجة

تعتبر هذه أول مشاركة لي فأرجو أن لا تهملوني

فإنا عندي مشكلة تتمثل في الآتي

عندي قاعدة بيانات وضعت لها مستخدمون ومجموعات ووضعته في شبكة صغيرة ( أربع كمبيوترات) بدون سريفر

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

الرد الاول : أبو أسماء

!theUser = DBEngine.Workspaces(0).UserName

الرد الثاني : أبو هادي

هذا مثال يظهر عدد المستخدمين إذا كانت البيانات غير منفصلة عن البرنامج

Sub UsersCount()
  Dim UserFile As String

  UserFile = Left(CurrentDb.Name, Len(CurrentDb.Name) - 3) & "ldb"
  Open UserFile For Random As #1 Len = 64

  MsgBox "عدد المستخدمين المتواجدين   " & LOF(1) / 64

  Close #1
End Sub

طبعا يمكن للأخوة أن يطوروا الفكرة ويحصلو على اسم المستخدم والجهاز علما أن طول كل منهما هو 32 حرفا .

كما أنوه أنه في حالة وجود الجداول فقط على السيرفر فيمكن في البحث في ملف المستخدمين للجداول على السيرفر وليس للنسخة الواجهة على machine .

الصراحة أنا أستطيع أن أقوم بذلك ولكني للحقيقة أنا مشغول شوية ومزاجي مش رايق هاليومين .

تحياتي .

كتب اسماعيل :

شكر وتقدير

أشكر أبو أسماء وابو هادي على تفعلهما معي

وأرجو من أبو أسماء أن يخبرني أن أضع ما وصفه لي

وأوضح مشكلتي أكثر

بعد نهاية الدوام أقوم بمراجعة ماأدخله الأخوة كلاً من جهازه بأسم المستخدم الخاصة به فأريد أن أعرف من الذي أخطاء وكم أدخل كل مستخدم من سجلات .

الأخ أبو هادي سأنتظر يومين

وسكراً

ثم رد أبو أسماء :

الاخ اسماعيل ،

اسف لقد كتبت ردا كاملا وتعبت فيه ، وعندما ضغطت زر اضف ظهرت رسالة اني نسيت كتابة العنوان وعندما عدت لاضافة العنوان كان الرد قد ذهب ادراج الرياح وهذا عيب قاتل في تصميم الموقع ارجو من اخواننا الافاضل معالجته في اسرع وقت كيلا تضيع جهود الاعضاء سدى ، مع فائق تقديري واحترامي للقائمين على الموقع .

وهذه اعادة مختصرة للرد :

    ElseIf .NoMatch Then
        .AddNew
        !SNO = Nz(DMax("SNO", "Vouchers")) + 1
        !theDate = theDate
        !CompanyID = CompanyID
        !EmployeeID = EmployeeID
        !DebitAccount = txtDebitAccount
        !DebitAccountName = DebitAccountName

        !CreditAccount = txtCreditAccount
        !CreditAccountName = CreditAccountName

        !amount = amount
        !TransDateTime = Now
        !Description = Description
        !theUser = DBEngine.Workspaces(0).UserName

        .Update
        .Close

    End If

اعمل تقرير مجمع حسب theUser وستحصل على ماتريد ، وبامكانك عمل :

select * from vouchers where theUser = 'ahmed'

مع الشكر للاخ ابو هادي .