رعد داود قام بنشر فبراير 8, 2013 مشاركة قام بنشر فبراير 8, 2013 بسم الله الرحمن الرحيم أرفق ملف على أكسس 2007 وفيه فورم frm1 لأدخال البيانات على شبكه أريد هذا النموذج يكون فيه أدخال المعلومات حصرا" بالشخص الذي يدخل البيانات (( أمين الصندوق)) وان يتم أخفاء الجداول والأستعلامات الصندوق العام.rar 1 رابط هذا التعليق شارك More sharing options...
Bluemind قام بنشر فبراير 8, 2013 مشاركة قام بنشر فبراير 8, 2013 اخوي رائد قم بوضع كلمه مرور على النموذج هذا اسهل حل رابط هذا التعليق شارك More sharing options...
رعد داود قام بنشر فبراير 8, 2013 الكاتب مشاركة قام بنشر فبراير 8, 2013 السلام عليكم أشكركم أخي على المرور ... الموضوع أن قاعدة البيانات مربوطه على شبكه فمن الممكن للأخرين الذين من حقهم يطلعون على بقية النماذج والتقارير ,, ليس من حقهم أجراء التعديل على هذا النموذج فالنموذج مختص حركته بشخص واحد هو الذي عنده صلاحية الأدخال ,,,,,,,,,, أشكركم مره أخرى رابط هذا التعليق شارك More sharing options...
رعد داود قام بنشر فبراير 11, 2013 الكاتب مشاركة قام بنشر فبراير 11, 2013 للرفع رابط هذا التعليق شارك More sharing options...
أبو آدم قام بنشر فبراير 11, 2013 مشاركة قام بنشر فبراير 11, 2013 حال افتراض ان جميع الاجهزة للمستخدمين تحمل نفس التطبيق وأننا سنستخدم هذا النموذج لغايات الادخال و التعديل نقول ما يلي : في حدث قبل التحديث للنموذج نضع الكود التالي : 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 رابط هذا التعليق شارك More sharing options...
أفضل إجابة أبو آدم قام بنشر فبراير 11, 2013 أفضل إجابة مشاركة قام بنشر فبراير 11, 2013 الكود في المشاركة السابقة لايقاف عملية الحفظ التلقائي ومنعها و إسناد عملية التعديل لزر أمر للحفظثم نقوم بانشاء زر أمر للحفظ أو التعديل ونضع خلفه الكود التالي : 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 رابط هذا التعليق شارك More sharing options...
أبو آدم قام بنشر فبراير 11, 2013 مشاركة قام بنشر فبراير 11, 2013 التنفيذ حسب رغبة السائل وحسب ما فهمنا من تصوره لطلبه تم تجربة الكودات السابقة على التطبيق المرفق وتعمل بشكل متكامل وممتاز جرب ووافني بالنتيجة ..... رابط هذا التعليق شارك More sharing options...
رعد داود قام بنشر فبراير 11, 2013 الكاتب مشاركة قام بنشر فبراير 11, 2013 الأستاذ الفاضل ابو ادم دام موفقا" أليك الملف بعد التعديل وترجمت بعض الرسائل للعربيه كي يعلمها مدخل البيانات ومن بعد أذنك أدخلت رساله تأكيد للحفظ ,,, لآأدري هل محلها صحيح بالكود أنا ممتن جدا" منك ,,, هل لمدخل البيانات أن يختار مابين الرموز الثلاثه المذكوره بالكود ,,, ومارأيكم أستاذي بعمل جدول للصلاحيات أذا تم توسيع العمل ليشمل نموذج بحث وتقارير أخرى ؟؟ هذا الحل أكثر من جيد بالنسبه لقاعدة البيانات الحاليه وأشكرك كثيرا" على هذا الحل ولكني أود التوسع بالحل وواجهتني مشكلة الترقيم التلقائي في حال وقع مدخل البيانات بالخطأ وأود معرفة رأيكم بأفضل حل غير جعل قاعدة البيانات mde للسيطره على أخفاء الجداول والنماذج من العبث رابط هذا التعليق شارك More sharing options...
رعد داود قام بنشر فبراير 11, 2013 الكاتب مشاركة قام بنشر فبراير 11, 2013 عفوا" أستاذي العزيز ابو ادم أليك المرفق الصندوق العام.rar رابط هذا التعليق شارك More sharing options...
أبو آدم قام بنشر فبراير 12, 2013 مشاركة قام بنشر فبراير 12, 2013 الحمد لله الذي بفضله تقضى الحاجات تمت الاجابة يرجى تخصيص مواضيع جديدة للاستفسارات الأخيرة ... !!! ........ رابط هذا التعليق شارك More sharing options...
رعد داود قام بنشر فبراير 12, 2013 الكاتب مشاركة قام بنشر فبراير 12, 2013 شكرا" لكم استاذي ابو ادم ودمتم بحفظ الله ورعايته رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.