ابو جودي

السلام عليكم ورحمة الله تعالى وبركاته اولا اعتذر لتأخرى بسبب مشاكل فى جهاز الكمبيوتر عنندى وثانيا احضر حالى للسفر لآداء العمرة ان شاء الله يوم 19-1-2016 ولذلك اعتذر جدا جدا جدا عن تاخرى فى الرد على اساتذتى الكرام ومتابعتهم واطلب منكم على استحياء ان تتحملونى حتى عودتى ان شاء الله تعالى من السعودية ان كان فى العمر بقية

السلام عليكم ورحمة الله تعالى وبركاته اساتذتى الكرام عندما اردت ربط الاسكانر بقاعدة البيانات وجدت مثال جاهز على احد المنتديات للاستاذ ابو هاجر اريد تعديل مسار الحفظ للصور ليكون فى فولدر مجاور لقاعدة البيانات على نفس مسار قاعدة البيانات مثلا لو القاعدة فى القطاع D داخل مجلد بإسم production control system software اريد ان تحفظ الصور بعد الضغط على زر الاسكان من القاعدة داخل مجلد باسم Photos فيكون مسار القاعدة كالاتى D:production control system software ويكون مسار حفظ الصور كالاتى D:production control system software/Photos الكود المراد تعديله ليتم حفظ الصور فى نفس مسار قاعدة البيانات لكن فى مجلد خاص بالصور هو D:production control system software Option Compare Database Private Declare Function TWAIN_AcquireToFilename Lib "TWAIN32d.DLL" (ByVal hwndApp As Long, ByVal bmpFileName As String) As Integer Private Declare Function TWAIN_IsAvailable Lib "TWAIN32d.DLL" () As Long Private Declare Function TWAIN_SelectImageSource Lib "TWAIN32d.DLL" (ByVal hwndApp As Long) As Long Public Function mypathofdb() Dim A As String, E As String Dim D As Integer A = CurrentDb.Name For D = 1 To Len(A) E = left(A, Len(A) - D) If E Like "*\" Then Exit For End If Next mypathofdb = E End Function Private Sub cmdScan_Click() Dim Ret As Long, PictureFile As String ' يمكن تعديل مسار حفظ الصور من هنا ' حاليا يتم حفظ الصور فى نفس مسار قاعدة البيانات PictureFile = mypathofdb() & Me.Control_No & ".jpg" Ret = TWAIN_AcquireToFilename(Me.hwnd, PictureFile) If Ret = 0 Then Me.pic_path = PictureFile Me.pic.Picture = Me.pic_path Else Kill PictureFile MsgBox "فشل عملية المسح الضوئى للملفات", vbCritical, "تنبيه" End If End Sub جزاكم الله خيرا

نعم استاذى الحبيب علي المصري ممكن ذلك وممكن التعديل على الكود لتحديد الفورم الخاصة لدخول كل مستخدم على حده

هههههههه طيب انا باحاول الاستمرار بالفعل لكن اتمنى ان نستمر جميعا فى التطوير والتحديث

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

اه نسيت اسم المستخدم : mohammed كلمة المرور : 1

استاذى القدير الفنان الفنان جعفر وحبيبى فى الله

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

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

السلام عليكم ورحمة الله تعالى وبركاته كانت حاجتى ملحة فى وضع صلاحيات للمستخدمين للحفاظ على البيانات التى يتم ادخالها وعدم التلاعب بها وذلك لحساسية البيانات المدخلة واصناء البحث وجدت البرنامج الخاص بالاستاذ محمد مهند العبادى بإسم Users Maker قمت بإضافة المعالج الى قاعدة البيانات الخاصة بى وبصراحة حاولت التعديل عليها فقمت بالاتى - جعل المستخدم يقوم باختيار الاسم من كمبوبوكس بدلا من كتابة اسمه كل مرة من خلال تيكست بوكس - بعد التعديلات على النموذج user name وذلك لجعل المستخدم يستطيع تغيير كلمة السر الخاصة به دون الرجوع الى المسئول عن البرنامج - قما قمت بوضع زر يفتح فورم الاذونات للمستخدمين من فورم الدخول ولكن الية العمل تكون كالاتى عند إضافة الصلاحيات من خلال معالج اضافة الصلاحيات لاى قاعدة بيتم الاتى انشاء مستخدم ادمن لقاعدة البياااانات ادراج جدول frm وبيتم وضع كل اسماء النماذج الموجوده بالقاعدة بطريقة الية ادراج جدول Frm Ability ادراج نموذج Users Ability ادراج الجدول Users هناك اكثر من ذلك ولكن ذكرت ما يهمنى ذكره فقط النموذج Users Ability من خلاله يتم من خلاله اولا : انشاء مستخدمين ثانيا : اعطاء التصاريح لكل مستخدم بما يتناسب معه من قبل الادمن ملاحظات هامة جدا جدا جدا عند انشاء مستخدمين من النموذج Users Ability يتم الاتى 1- ادراج سجلات فى الجدول Frm Ability عن طريق الجدول Frm وذلك طبقا لكل النماذج الموجودة بعددها 2-رقم المستخدم SN ومصدره الجدول Users وبهذا بعد انشاء عدد من المستخدمين تتمكن من اعطاء التصاريح اللازمة لكل مستخدم لفتح النموذج او الاضافة او التعديل او الحذف لكل على حده وذلك عن طريق النموذج Users Ability ----------------------------------هذا هو الاصل فى الية المعالج والية عمل قاعدة البيانات بعد معالجتها -------- ما أريد تحقيقه هو الاتى اولا النموذج Users Ability يتم تغيير إسمه مثلا إلى Group Ability وبهذا يتم اعطاء التصاريح اللازمة لمجموعة العمل وليس لكل مستخدم منفردا ثانيا : عند انشاء مستخدم جديد يتم الاتى 1- تحديد اسم الجروب / رقم الجروب الذى نريد اضافة المستخدم له فيدرج فى الجدول Users 2-ادراج سجلات فى الجدول Frm Ability عن طريق الجدول Frm وذلك طبقا لكل النماذج الموجودة بعددها 2-رقم الجروب / اسم الجروب "WG مثلا بدلا من SN" ويكون مصدره الجدول Users فينتج من هذا اعطاء التصاريح لمجموعة العمل وليس للمستخدم برجاء النظر للموديول ففيه اكواد التحكم الخاصة بالتصاريح Cuser Public Function GetAbility(FormName As String, Ability As AbilityType) Dim c As String c = "[" & Choose(Ability, "o", "A", "d", "e") & "]" GetAbility = DLookup(c, "FRM Ability", "FRM = '" & FormName & "' and SN = " & Str(UserNum)) End Function ------------------ Private Function CheckValid() As Boolean On Error GoTo Err CheckValid = False CheckValid = decode(DLookup("[PW]", "Users", "deCode([uname],'User')='" & Trim(UserName) & "'"), "Pass") = Trim(Me.pass) If CheckValid Then LogTime = Now() UserNum = DLookup("[SN]", "Users", "deCode([uname],'User')='" & Trim(UserName) & "'") End If Err: End Function الاستاذ مهند جعل التخصيص من خلال الاسماء عن طريق السيريال نمبر الخاص بكل يوزر ليكون فريد من نوعه امممممم هل يمكن التعديل وتغير sn الى رقم فريد لمجموعة العمل ولتكن wg ؟ ويتم تخصيص رقم لكل مجموعة عمل بإدراج جدول workgroup ويكون فى هذا الجدول مثلا اسماء المجموعات ورقم معرف لكل مجموعه مثلا اسم المجموعه رقم تعريف المجموعه admin 1 2 data entry 3 editor 4 viewer هذا الجزء من الكود فى نموذج user name فى حدث عند الضغط على الزر موافق DoCmd.RunSQL "INSERT INTO [Frm Ability] (SN,FRM,FRMDESC) SELECT" & Str(n) & " AS Expr1,FRMS.FRM,FRMDESC FROM FRMS;" على حسب فهمى هو استعلام الحاق عند الضغط على الزر يقوم بالحاق اسماء النماذج ووصفها من الجدول frm وكذلك الـ sn الخاص بالمستخدم الجديد الذى يتم انشائه الى الجدول frm apility وبصراحة عندما سالت عن استعلام الالحاق كنت افكر فى ان اغير هذه الجملة حتى تتم كالاتى الحاق اسماء النماذج ووصفها من الجدول frm وكذلك الحاق رقم مجموعة العمل للمستخدم الجديد بناء على تحديدها من كومبوكس فى النموذج user name الى الجدول frm apility ولكن تتم بنفس الالية التى تتم بها مع الـ sn ارفق قاعدة تم عمل المعالج الخاص بالصلاحيات عليها للاطلاع عليها وان شاء الله لو تم التعديل عليها كما اتمنى سوف اقوم بوضع هذا التعديل على المعالج وان شاء الله يمكننى ذلك تطوير صلاحيات المستخدمين.rar

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

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

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

شكرا معلمى واستاذى الحبيب " الفنان جعفر "

السلام عليكم ورحمة الله تعالى اولا يا استاذ مصطفى مينفعش كومبوبوكس بتم ادخال بيانات من خلاله لان الكومبوبوكس عنصر لعرض البيانات فقط هذا على حد علمى والله اعلم انا حاولت اعدل على القاعدة بتاعة حضرتك لكن انا مش فاهم حضرتك عامل ايه او الدنيا ماشية معاك ازاى لكن خلينى اقول لك على فكرة سهلة وبسيطة وتوصل لنفس النتيجة عدل على الجدول tab_tasdad وضيف حقل وليكن اسمه amount_date واجعل نوع البيانات لهذا الحقل تاريخ/وقت واجعل خصائص الحقل فى التنسيق yyyy/mm/dd وفى القيمة الافتراضية =Date() اعمل فورم من الجدول tab_tasdad وليكن مثلا يكون اسم الفورم frm_tasdad افتح الفورم fbillnotcash فى وضع التصميم وبجو ار الكمبوبوكس cash1 انشئ زر امر وفى حدث عند النقر على هذا الزر ضع هذا الكود DoCmd.OpenForm "frm_tasdad" من خلال هذا الزر تفتح الفورمة وتدخل رقم التسديد فى الحقل id وان احببت اجعلهترقيم تلقائى وفى الحقل amount قم بإدخال القيمة وبعد اغلاق هذا النموذج تجد القيمة صارت موجوده فى الكمبوبوكس

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

طيب وانا جربت ومش شغال انا كمان اوفيس 2010

طيب ممكن مثال عملى لاخوك يا استاذ وائل معلش اخوك فهمه على اده

اهده بئه تفتح موضوع جديد لان ده سؤال جديد الله يرضى عليك كده راح نخالف قوانين المنتدى

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

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

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

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

طيب لو تكرمت يا استاذ جعفر الله يكرمك ممكن تررفق لى المرفق ده عملى على قاعدة اكسس واللا صعب ؟ امممممممممممم معلومة عاوز افهم ازاى تتعمل وهل المعلومة دى بتكون ثابته واللا ممكن تكون متغير ومرجعه المعلومه دى حقل فى احد الجداول ام لا اعتذر للاطالة والاثقال عليكم

Expr3: qry_5_Crosstab لو عاوز اعمل الحاق من الحقل F29 اكمل المعيار الى فوق ازاى ؟