ابو جودي

جزاكم الله عنى وعن امة محمد خير الجزاء جزاكم الله عنى وعن امة محمد خير الجزاء

السلام عليكم ورحمة الله تعالى وبركاته اساتذتى الكرام فى المرفق الاتى الاستعلام qry_filter تمام يقوم بعمل فلتر للحقل لكل ما يبدأ بــــ 017 المطلوب فتح الاستعلام qry من خلال النموذج الموجود بنفس المعيار ولكن المعيار موجود على النموذج فى الحقل txt_filter --------------------------------- حتى تتضح الرؤيه اكثر انا اريد عمل فلتر لحقل ما يبدأ ب 0 ثم رقم العام اى اريد المطلوب عمل استعلام يحدد السجلات التى تبدأ تبعا للعام الحالى 017 وعندما نكون ان شاء الله فى العام الجديد 2018 من تقاء نفسه يقوم بعمل فلتر للسجلات التى تبدأ بــ 018 فإن كانت هناك فكره افضل من فكرتى فاطلب منكم على استحياء بتفريج همى وكربى فى اجابه هذا التساؤل جزاكم الله خيرا qus.rar

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

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

السلام عليكم ورحمة الله تعالى وبركاته بناء على طلب احد الاخوة الكرام مرفق قاعدة بيانات تحتى على طريقة لعمل الترقيم التلقائى المتجدد تلقائيا فى فى مطلع كل عام وكان طلب الاخ الكريم كالأتى يبدأ الترقيم حسب العام الحالى على هذا الشكل 017 ثم يبدأ الترقيم بهذا الشكل 001 ولا يزيد الترقيم عن 999 فيكون الناتج النهائى يبدأ بالشكل 017001 وحتى ينتهى بالشكل 017999 ولا يقبل اى اضافة بعد ان يصل الى هذا الرقم 017999 -- وطبعا فى العام 2018 يبدأ مرة أخرى من الرقم 1 طبعا مع اضافة العام فيكون 018001 تلقائيا وايضا ينتهى حتى 018999 ولا يقبل اى اضافة بعد ان يصل الى هذا الرقم 018999 وهذه افكارى قد يكون هناك طريق اقصر او اكواد مختزله عن تلك التى استخدمها هنا ولكن هذا ما توصلت اليه ترقيم تلقائى خاص.rar

ههههههههه هو فى ايه ؟

اخى الحبيب الكريم شكر الله لكم جميل دعواتكم الطيبه واحسن اليكم اسال الله تعالى ان يرزقكم اجرها واكثر منها ان شاء الله وان كنت لابد داعيا اسالكم على استحياء الدعاء لاستاتذتنا الكرام فى هذا الصرح الشامح فمنهم تعلمنا وعلى ايديهم تتلمذنا علم بقصروا او يبخلوا ولم يضيق صدورهم معنا فلذلوا الغالى والنفيس فلولا فضل الله سبحانه وتعالى ثم افضالهم جميعا لما كان هذا حالنا نحن طلاب العلم فى هذا الصرح الشامخ العريق واجابة على مطلب حضرتك طبعا زى ما عملنا مع مربع نص الاسم حسب الشرح السابق condition1 >>-----------> تحقيق الشروط الاول بتحديده فى الحقل الذى اشرنا اليه سابقا ولانه موجود فى التقرير فى مربع نص باسم txtname تم كتابته بين علامتين & وفى هذه الحالة ومع طلبك الجديد يكون التعديل على الشرط الثانى condition2 >>-----------> تحقيق الشروط الثانى بتحديده الحقل الدال عليه فى الجدول فى قاعدتك هو الترقية وعنصر التحكم الدال عليه فى التقرير هو مربع نص باسم nn ويتم كتابته بين علامتين & فيتم تغير سطر الكود السابق الى خذا السطر txtcounupgrade = DCount("[الترقية]", "الاستبان العام", "[الاسم]='" & txtname & "' And [الترقية]='" & Me.nn & "'") وهذا مرفقكم بعد التعديل عليه اعتذ للتأخير فى الرد عليكم انا فى العمل واعتذر ان وجدت اى اخطاء املائيه الكيبورد كلها انجلش وباكتب بسرعه وبدون مراجعه لضيق وقتى 5عدد مرات تكرار الاسم.rar

اتفضل المرفق بعد التعديل مره بالكود داخل التقرير وفى التقرير الاخر وضع الكود على مصدر بايانات مربع النص مباشرة للاسف مش قادر اشرح واسماء الحقول والجدول بالعربى انا عملت لك شرح داخل الكود بالانجليزى وهنا الشرح تفصيلا واعيد لك الشرح مرة اخرى هنا طلب حضرتك حتى يتحقق يحتاج للاتى DCount Multiple Criteria اى تحقيق الدالة DCount بأكثر من شرط الشرط الاول هو اسم محدد الشرط الثانى هو عدد ترقيه محدده لهذا الاسم المحدد 'الشرح 'xx = DCount("[field need count it]", "tblname", "[field first condition]='condition1' AND [field second condition]='condition2'") DCount("[field need count it]", "tblname", "[field first condition]='condition1' AND [field second condition]='condition2'") field need count it >>-----------> الحقل المراد عمل عدد لمحتوياته حسب الشروط الاتيه فيما بعد وفى قاعدتك هو الترقية tblname >>-----------> اسم الجدول او الاستعلام الذى يحتوى على هذا الحقل وفى قاعدتك هو جدول الاستبان العام field first condition >>-----------> الشرط الاول هو اسم محدد والحقل الدال عليه فى الجدول فى قاعدتك هو الاسم condition1 >>-----------> تحقيق الشروط الاول بتحديده فى الحقل الذى اشرنا اليه سابقا ولانه موجود فى التقرير فى مربع نص باسم txtname تم كتابته بين علامتين & AND >>-----------> لتهيئة الكود بوجود شرط اخر كما سيلى فيما بعد field second condition >>-----------> الشرط الثانى وهو مرتبط بحقل محدد والحقل الدال عليه فى الجدول فى قاعدتك هو الترقية condition2 >>-----------> تحقيق الشروط الثانى بتحديده وكما تريده انت فى طلبك ممتاز وهذا وكانك تخبر البرنامج بان يذهب الى جدول الاستبان العام وان يقوم بعد حقول الترقية للاسم خالد عندما تساوى قيمة الحقل لهذا الاسم ممتاز وهكذا يتغير شكل الكود وترتيبه بعد كتابته بسبب الكلمات العربى txtcounupgrade = DCount("[الترقية]", "الاستبان العام", "[الاسم]='" & Me.txtname & "' AND [الترقية]='ممتاز'") لذلك اوصيك كما تعلمنا من اساتذتنا الكرام جزاهم الله عنا جيرا ان شاء الله تسمية الجداول والحقول بالانجليزية وكذلك الاستعلامات وباقى الكائنات دون ترك مسافات بين الكلمات 4عدد مرات تكرار الاسم.rar

2عدد مرات تكرار الاسم.rar

شوف انا فاعم نظريا معنى () وهى اختصار لــ keep performance indicator examples أى مؤشر قياس الأداء دلالة للقياس الذى يشير إلى الأداء الفعلي لمقارنته بالأهداف المطلوب على سبيل المثال: - الهدف المطلوب تحقيقه للمؤسسة فى الإستجابة لطلابات العملاء هو 90 % فى الساعة الواحده . تم استقبال عدد 1000 طلب من العملاء خلال ساعة . تم استجابة 850 طلب في خلال ساعة . المطلوب تحديد نسبة الأداء الفعلى وتحديد الإنحراف عن الهدف المخطط. الأداء الفعلى= عدد العملاء الذين تم الإستجابة لهم خلال الساعة ÷ إجمالي طلبات العملاء 850 ÷ 1000 X 100 = 85% الإنحراف = الأداء الفعلى – الهدف المطلوب اذن الإنحراف= 85 % - 90% = – 5% تم الإنحراف عن الهدف المطلوب بنسبة سالب 5% بناء على ما سبق ان مؤشر قياس الاداء هو عباره عن معادلة رياضيه معطيات ، معلوم ، مجهول لو حضرتك انتهيت من وضع المعادلات الرياضيه وحلها والوصول للنتائج تقدر تعمل الـ Graph Chart بكل سهوله

اتفضل 1عدد مرات تكرار الاسم.rar

اتفضل db1.rar

اتفضل https://up.top4top.net/downloadf-662pphzm1-rar.html

السلام عليكم ورحمة الله تعالى وبركاته فى مشكله كما فى الصورة

ممكن المرفق لو تكرمت لانى مش فاهم قصد حضرتك

اولا جزاكم الله انت يا استاذ @sandanet واستاذ @أبو إبراهيم الغامدي كل الخير واعتذر لاثقالى عليكم ان شاء الله غدا ان كان لى فى العمر بقية اقوم بالتجربة واوافيكم بالنتيجة ان شاء الله تعالى

السلام عليكم ورحمة الله تعالى وبركاته اولا وقبل كل شئ انا جربت على ويندوز 10 لا يتم عمل قطاع Z ولكن يتم الاتصال فقد يكون القطاع Z مخفى قبل الاتصال تظهر لى رساله وهذه صورتها فهل من سبيل لالغاء هذه الرساله ؟! وبعد ذلك يتم الاتصال بالسيرفر بنجاااااااح app.rar

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

انا مش فاهم حضرتك عاوز تجمع ايه بالضبط ممكن توضح لو تكرمت

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

طيب ممكن حد من اساتذتنا الكرام يتعطف ويتكرم ويشرح لنا الاكواد دى نشغلها ازاى ؟ Connect to server using vba Dim objNetwork Dim objDrivePath Dim fl As Scripting.FileSystemObject Dim fArchive As Object Dim fWIP As Object Dim [other variables] strDriveLetter = "K:" strRemotePath = [file location] Set objNetwork = CreateObject("WScript.Network") strUserName = [user name of "Service Account" logon credentials created by IT department] strPassWord = [password for Service Account] '---You cannot sign on to the same network drive under different logons at the same time, so you must disconnect any existing connections--- ' Check for current connections, and disconnect if mapped to the target folder Dim strCurrentDriveMap As String Dim strCurrentDriveLetter As String Set objDrivePath = CreateObject("WScript.Network") Set oDrives = objDrivePath.EnumNetworkDrives For i = 0 To oDrives.Count - 1 If oDrives.Item(i) Like "\\networkpath\foldername*" Then strCurrentDriveMap = oDrives.Item(i) strCurrentDriveLetter = oDrives.Item(i - 1) objDrivePath.RemoveNetworkDrive strCurrentDriveLetter, True, False 'MsgBox oDrives.Item(i) 'MsgBox strCurrentDriveLetter & " = " & strCurrentDriveMap Else End If Next objNetwork.MapNetworkDrive strDriveLetter, strRemotePath, False, strUserName, strPassWord Set fl = New Scripting.FileSystemObject Set fso = CreateObject("Scripting.FileSystemObject") ' Set the folder name foldername1 = [variable] 'Set the current directory and destination directory varCurrentDirectory = [folder location] varNewDirectory = [folder location] 'If the destination folder does not exist, then create it If Dir(varNewDirectory, vbDirectory) = "" Then MkDir varNewDirectory End If 'Set the file name filename1 = [variable] varOldFileName = varCurrentDirectory & filename1 & ".doc" varNewFileName = varNewDirectory & filename1 & ".doc" objDrivePath.RemoveNetworkDrive "K:", True, True objNetwork.MapNetworkDrive strCurrentDriveLetter, strCurrentDriveMap, True fl.MoveFile varOldFileName, varNewFileName Set dbs = Nothing Set qd = Nothing objDrivePath.RemoveNetworkDrive "K:", True, True 'Check to see if there is a network drive that needs to be remapped If strCurrentDriveLetter = "" Then Else objNetwork.MapNetworkDrive strCurrentDriveLetter, strCurrentDriveMap, True End If Set objDrivePath = Nothing Set objNetwork = Nothing

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

up

up

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