ابو جودي

شوف انا فاعم نظريا معنى () وهى اختصار لــ 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

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

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

هههههههههههههه اولا السلام عليكم ورحمة الله وبركاته اعتذر لانى لم استطع اليوم تجربة المرفق فى العمل على احد الحواسيب ذات الاوفيس 2007 لضغط العمل الكثير ام بخصوص السؤال إختلاف أصدار الاوفس أم قد يكون رقم الـ Value لأزرار لوحة المفاتيح يختلف في الحاسوب الله اعلى واعلم اضحك لانى لا اعرف ولابد من التجربة ولكن اختنا الكريمة فى المرفق الاول وضعت لك نموذج باسم frmKeyCodeConstants واعيد رفع المرفق مرة اخرى بهذا النموذج فقط حتى لا اشق عليكم بمجرد الضغط على الزر تعرفين كود هذا الزر Key Code Constants (1).rar

اشهد الله جل وعلا اننى برئ امام الله عزوجل لو انك لست صاحب هذا العمل فككت الحماية فقط على انك صاحب هذا العمل ونسيت كلمة المرور اتفضل ملفك بدون جماية --MWO files -unprotected.zip

السلام عليكم ورحمة الله تعالى وبركاته دعت الحاجة فى عملى الى عمل كود للتأكد من الاتصال بالشبكة المحليه وفكرت بعمل الكود على الشكل الاتى If Dir("\\192.168.1.2\test\tbl.mdb") = "" Or Dir("\\192.168.1.2\test\tbl.mdb") = Null Then Me.Check_ConnectionGood.Value = False lbl_ResultConnect.Caption = "لم ينجح الاتصال بالشبكة المحلية ولن يتم الاتصال بقاعدة البيانات" Exit Sub Else Me.Check_ConnectionGood.Value = True lbl_ResultConnect.Caption = "تم الاتصال بقاعدة البيانات بنجاح" End If مرفق فاعدة بيانات للتجربة اولا : اطلب من اساتذتى الافاضل على استحياء ابداء ارائهم فى فاعلية هذه الفكرة بذلك الكود وان كان هناك طريق افضل مما سلكته ثانيا : لو ان هناك احد الاشخاص يدخل على جهاز السيرفر من خلال الاي بي الاتى مثلا \\192.168.1.2 باكثر من اسم لدخول الشبكه وباختلاف اسم الدخول تختلف كلمات المرور وهذا لاختلاف صلاحيات واذونات كل من الاسماء فى التعامل مع الملفات والمجلدات لذلك لن يستطيع عمل تذكير لكلمة مرور او اسم دخول هل يمكن عمل كود ليمرر اسم مستخدم محدد بكلمة المرور الخاصة به عند فتح قاعدة البيانات ؟! على سبيل المثال بيانات الاتصال بالشبكة كالاتى \\192.168.1.2 اسم الدخول للجهاز : user كلمــــــة المــــــرور : user ----------------------------------------------------------------------------------------------------------- نسيت أن أذكر ان القاعدة الامامية هى التى تحمل اسم app.mdb وقاعدة الجداول هى التى تحمل اسم tbl.mdb test.rar

نسيت توضيح نقطه هامه كى يعمل الكود يجب ضبط اعداد النموذج كما بالصورة key preview= yes بدلا من no او يتم استخدام الكود الاتى فى حدث عند تحميل النموذج Private Sub Form_Load() KeyPreview = True End Sub

اتفضلى التعديل كما ينبغى ان يكون الاجازات.rar

تمام

بعد اذن الاستاذ الفاضل @Shivan Rekany IIf([city]='ميت غمر',"1",IIf([city]='زفتى',"2",IIf([city]='منصورة',"3",'لاتوجد مدينة'))) test 7000.rar

اختنا الكريمة هل تمت الفائدة وتوصلت الى ما اردتى ؟