ابو جودي

اتفضل بس لاحظ لا يوجد غير شعار واحد تقريبا الفانورة-2.rar

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

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

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

بعد اذن معلمى الحبيب الاستاذ الفاضل ابو خليل اجيب اخينا السائل الاستاذ او سيما شوف طريقة كتابة الكود لان حاولت انسخه هنا لكن العربى يظهر رموز غريبة لاتنسي نصيحة الاستاذ ابو خليل جزاه الله خيرا استخدم اللغة الانجليزية قدر الامكان حتى لا تواجه مشاكل فى التكويد ولا تترك فواصل بين الكلمات وان كان ولابد فلتكون _ محل المسافة بين اى مقطعين على سبيل المثال Awel_Maw3ed_llsyanah بدل من اول موعد للصيانه على كل حال انا لم اعدل فى المسميات ولكن فقط قمت بكتابة الكود بما يتناسب مع اللغة العربية 2النجاح.rar

جزاكم الله خيرا استاذى الحبيب سأقوم بالتجربة والرد على حضرتك مرة اخرى وهذا مرفق باصدار 2000-2003 واعتذر نسيت تحويل قاعدة البيانات قبل ارفاقها الاجازات بدون الجمعة والسبت Test2000-2003.rar

جزاكم الله خيرا انا بالفعل شوفت الموضوع ده وبصراحة مش قادر افهم عند البحث على الانترنت وجدت هذا المقال على موقع مايكروسوفت https://msdn.microsoft.com/en-us/library/dd327646(v=office.12).aspx فهمت منه انه يمكن عمل جدول يتم تغذيته بايام العطل الرسمية فلا يقوم باحتسابها بين تاريخ البداية والنهاية وكذلك يحسب الايام الفعليه بين التاريخين بدون يومى العطلة الاسبوعية ولكن رابط التحميل لا يعمل هل ممكن يتفضل احد الاساتذة الكرام علينا بعمل هذا المثال بتلك الالية لان بصراحة حاولت مرار وتكررا ولم اوفق عند البحث على الانترنت وجدت هذا المقال على موقع مايكروسوفت https://msdn.microsoft.com/en-us/library/dd327646(v=office.12).aspx فهمت منه انه يمكن عمل جدول يتم تغذيته بايام العطل الرسمية فلا يقوم باحتسابها بين تاريخ البداية والنهاية وكذلك يحسب الايام الفعليه بين التاريخين بدون يومى العطلة الاسبوعية ولكن رابط التحميل لا يعمل هل ممكن يتفضل احد الاساتذة الكرام علينا بعمل هذا المثال بتلك الالية لان بصراحة حاولت مرار وتكررا ولم اوفق

انا بصراحة مش قادر استوعب لكن هحاول ان شاء الله

طيب ده مرفق لتجربة انا اشتغلت عليها ولسه لم اكمل انا بالفعل قدرت احسب الاجازة بدون ايام الجمعه والسبت فى اعداد الايام القليلة ولكن فى مشكله لما الايام بتزيد الحساب بيطلع غلط يعنى مثلا لو الاجازة تبدأ من يوم 03-03-2016 الموافق يوم الخميس ومدة الاجازة المطلوبة 39 يوم بدون يومى الجمعة والسبت المفروض يكون تاريخ نهاية الاجازة هو : 26-04-201 الموافق يوم الثلاثاء ولكن تظهر فى القاعدة 23-04-2016 ان شاء الله اتمنى اجد جواب لديكم الاجازات بدون الجمعة والسبت Test.rar

الف مبروك استاذنا الجليل

السلام عليكم ورحمة الله تعالى وبركاته اساتذتى الكرام احتاج ترصيد الاجازات بعد الخصم بتلك الطريقة الاجازات الاعتيادية تبدأ بـ 30 يوم العارضة تبدأ بــ 7 يوم لايتم احتساب ايام الجمعة والسبت ضمن عدد ايام الاجازات هل يمكن ذلك الاجازات بدون الجمعة والسبت Test.rar

اه نسيت اسف الباسورد 1 وانا اسف يمكن مأخدتش بالى ان حضرتك حليت المشكله ما انتبهت

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

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

السلام عليكم ورحمة الله تعالى وبركاته استاذى الجليل ومعلمى وحبيبى فى الله اولا وقبل كل شئ جزاكم الله تعالى كل الخير ان شاء الله انا حاليا مش موجود على جهاز مربوط بماسح ضوئى "اسكانر" لذلك لن استطيع تجربة الكود بعد التعديل ولكن اظننى جربت هذا الكود بتلك الطريقة بسلاش واحده فقط وهى الاولى كما يلى ولكن لم يفلح PictureFile = mypathofdb() & "\photos & Me.Control_No & ".jpg" سأجرب غدا ان شاء الله واوافيكم بالنتيجة كل الشكر والتقدير والعرفان بجميل حلمكم ووافر كرمكم جزاكم الله عنى وعن كل طالب علم فى هذا الصرح الشامخ كل الخير ورزقكم الجنة ان شاء الله محبكم فى الله

اتفضل ملف حضرتك بعد التعديل BM-test-user.rar

السلام عليكم ورحمة الله تعالى وبركاته اولا اعتذر لتأخرى بسبب مشاكل فى جهاز الكمبيوتر عنندى وثانيا احضر حالى للسفر لآداء العمرة ان شاء الله يوم 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

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

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

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