نموذج بصلاحية مدخل البيانات فقط

[رعد داود]

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

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

حصرا"  بالشخص الذي  يدخل البيانات (( أمين الصندوق)) وان يتم  أخفاء الجداول والأستعلامات

 

 

الصندوق العام.rar

[Bluemind]

اخوي رائد

قم  بوضع كلمه مرور على النموذج

 

هذا اسهل حل

[رعد داود]

السلام  عليكم

أشكركم أخي  على  المرور  ...  الموضوع أن  قاعدة  البيانات  مربوطه  على  شبكه

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

فالنموذج  مختص  حركته  بشخص  واحد  هو  الذي  عنده  صلاحية الأدخال ,,,,,,,,,, 

أشكركم  مره  أخرى

[رعد داود]

للرفع

[أبو آدم]

حال افتراض ان جميع الاجهزة للمستخدمين تحمل نفس التطبيق

وأننا سنستخدم هذا النموذج لغايات الادخال و التعديل

نقول ما يلي :

في حدث قبل التحديث للنموذج نضع الكود التالي :

 

Option Compare Database
Option Explicit
    
    Private blnGood As Boolean

 Private Sub Form_BeforeUpdate(Cancel As Integer)
        Dim strMsg As String
    
        If Not blnGood Then
            Cancel = True
            strMsg = "Please use the Save button to save your changes."
            Call MsgBox(Prompt:=strMsg, Title:="Before Update")
        End If
    End Sub

 

 

 

 

 

 

 

[أبو آدم]

الكود في المشاركة السابقة لايقاف عملية الحفظ التلقائي ومنعها و إسناد عملية التعديل لزر أمر للحفظ
ثم نقوم بانشاء زر أمر للحفظ أو التعديل ونضع خلفه الكود التالي :
 
 

 

Dim s As String
s = InputBox("Hi", "PassWord", "Enter Your Code")
 
Select Case s
 
Case ""
MsgBox "You either hit ESCAPE or entered nothing"
Exit Sub

 
Case "123", "456", "789"

        blnGood = True
        Call DoCmd.RunCommand(acCmdSaveRecord)
        blnGood = False
Exit Sub

 
Case Else
MsgBox "You entered '" & s & "'. I don't know what to do about that."
End Select
 

[أبو آدم]

التنفيذ حسب رغبة السائل وحسب ما فهمنا من تصوره لطلبه

 

تم تجربة الكودات السابقة على التطبيق المرفق وتعمل بشكل متكامل وممتاز

 

جرب ووافني بالنتيجة

 

.....

[رعد داود]

الأستاذ الفاضل  ابو  ادم  دام  موفقا"

أليك  الملف  بعد  التعديل  وترجمت بعض الرسائل  للعربيه  كي  يعلمها مدخل  البيانات

ومن  بعد أذنك أدخلت  رساله  تأكيد  للحفظ   ,,, لآأدري  هل  محلها  صحيح  بالكود

أنا  ممتن  جدا"  منك  ,,,  هل  لمدخل  البيانات  أن  يختار  مابين  الرموز  الثلاثه  المذكوره  بالكود ,,,  ومارأيكم  أستاذي  بعمل جدول  للصلاحيات

أذا  تم  توسيع  العمل  ليشمل  نموذج  بحث  وتقارير أخرى  ؟؟

هذا  الحل أكثر  من  جيد  بالنسبه  لقاعدة  البيانات  الحاليه  وأشكرك  كثيرا"  على  هذا  الحل

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

وأود  معرفة  رأيكم  بأفضل  حل  غير  جعل  قاعدة  البيانات mde  للسيطره  على أخفاء الجداول  والنماذج  من  العبث

[رعد داود]

عفوا"  أستاذي  العزيز  ابو  ادم   أليك  المرفق

الصندوق العام.rar

[أبو آدم]

الحمد لله الذي بفضله تقضى الحاجات

 

تمت الاجابة

 

يرجى تخصيص مواضيع جديدة للاستفسارات الأخيرة ... !!!

 

........

[رعد داود]

شكرا"  لكم  استاذي  ابو  ادم  ودمتم  بحفظ  الله  ورعايته