نجوم المشاركات

اتفضل ان يسر الله لى تعالى قد يكون لى عودة بما يتفضل به الله تعالى على لاتيك بحلول أخرى إن أمكن ذلك بمشيئة الله تعالى قد تكون هناك حلول افضل من ذلك ولكن هذا اول ما خطر ببالى اعتذر ظروفى ولله الحمد على كل شئ لا تسمح لى حاليا بالتركيز أو التفكير اعتذر ان كانت الطريقة مطولة ومعقدة بعض الشئ Change Characters.mdb

الأخ صديق البدجي القى نظرة على المرفق وادينى رأيك حدد التقرير المراد تحويله وإرساله إضغط إرسال مع مرفقات بس خلاص بالتوفيق SendEmail ER.accdb

السلام عليكم ورحمة الله تعالى وبركاته اولا وللامانة وإحقاقا للحق وحتى يأخذ كل ذى حق حقه الفضل بعد رب العباد سبحانه وتعالى يعود الى استاذى الجليل ومعلمى القدير صاحب اللمسات الرمهانية والغالى على قلبى واخى الحبيب الاستاذ @رمهان والذى بت افتقده كثيرا وافتقد لمساته وانتظرها دائما بلهفة مشتاق الشرح نظريا للطريقة الرمهانية وهو كالاتى ننشئ الاستعلام كما نريد بالحقول التى نريد فى مكان المعيار للحقل المطلوب نكتب مثلا >>----> [Insert value] كما فى الصورة الاتيه يمكنكم تغيير المعيار [Insert value] مع مراعاة تغييره بالكود الذى سيأتى بعد قليل ونقوم باغلاق الاستعلام ونسميه على سبيل المثال >>----> qryJudy يمكنكم تغيير الاسم مع مراعاة تغييره بالكود الذى سيأتى بعد قليل نذهب الى النموذج الذى نريد فتح الاستعلام من خلاله ونريد تمرير قيمة المعيار من احد كائناته الى الاستعلام الذى انشأناه نقوم بعمل زر امر ونسند اليه الكود الاتى DoCmd.SetParameter "[Insert value]", [رقم النموذج] DoCmd.SetWarnings False DoCmd.OpenQuery "qryJudy" DoCmd.SetWarnings True نلاحظ فى السطر الاول من الكود DoCmd.SetParameter >>----> هذا الجزء من الكود هو الذى يختص بتعيين القيمة المعلمة والتى نريد تمريرها الى المعيار فى الاستعلام [Insert value] >>----> هذا اسم المعيار كما كتبناه فى الاستعلام تمام [رقم النموذج] >>----> هذا اسم الكائن على النموذج الذى نريد تمرير قيمته الى المعيار فى الاستعلام السطر الثانى من الكود DoCmd.SetWarnings False >>----> لايقاف رسائل الاكسس الافتراضية و التى تأتى لتأكيد تشغيل الاستعلام السطر الثالث من الكود DoCmd.OpenQuery "qryJudy" >>----> تشغيل الاستعلام ونكتب اسم الاستعلام كما انشئناه تماما السطر الرابع من الكود DoCmd.SetWarnings True >>----> ارجاع الوضع الافتراضى للاكسس بتشغيل رسائل الاستعلام مرة اخرى المثال المرفق هو بناء على طلب اخونا الحبيب الاستاذ @محمد القدسي الكود تم وضعه على زر امر بعنوان >>----> Run Query داخل نموذج باسم >>----> عملية انتاج طريقة أخرى ممكن استبدال المعيار داخل الاستعلام بالمعيار الاتى [TempVars]![x] وكذلك يتم استبدال الكود على زر الامر بالكود الاتى TempVars.Add "x",[رقم النموذج].Value DoCmd.SetWarnings False DoCmd.OpenQuery "qryJudy" DoCmd.SetWarnings True فتح النموذج بنافذة اخرى.accdb

جرب هذا الملف My_filter.xlsm

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

أخى العزيز خفيف الظل اللذيذ ابا جودى مجرد فكرة وليس تعديلا عن ما تفضلت به فى إجابة السؤال هل يمكن إختصار كود الموديول .. SpecialParts .. الى التالى Public Function SpecialParts(str_Name As String) str_Name = Replace(str_Name, "عبد ال", "عبدال") SpecialParts = str_Name End Function عشان مننساش حد 😊

و ويندوذ 10 64 و اوفيس 2016 بس مش عارف 64 و لا 32

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

الحمد لله رب العالمين نجحت ونجح الاتصال بس ممكن طلب ممكن اعرف إصدار الويندوز عندك ....... والنواه بتاعته 32 بيت او 64 بيت ممكن اعرف إصدار الاوفيس عندك ....... والنواه بتاعته 32 بيت او 64 بيت واليك التعديل الاخيــــــــــــر Connect To Network (1).accdb

شاكر افضالك

طريقة جميلة جزاك الله خيراً أستاذ / ابا جودى مشكور

هذه لكى تعمل من خلال النموذج المهم عملت عندك ام لا هذه الرسالة كانت تاتينى اذا كان هناك خطأ فى IP او الباسورد

اتفضل يا استاذ @محمد احمد لطفى Connect To Network.accdb

السلام عليكم ترجمة المعادلة : المعادلة بالفرنسية: =SIERREUR(INDEX($F:$F;PETITE.VALEUR(SI(($C$7:$C$99=DECALER($J$6;0;9*ENT((COLONNES($J6:K6)-1)/9)))*($I7=$D$7:$D$99)*($F$7:$F$99=K$7);LIGNE($A$7:$A$99);"");1));"") المعادلة بالإنجليزية: =IFERROR(INDEX($F:$F;SMALL(IF(($C$7:$C$99=OFFSET($J$6;0;9*INT((COLUMNS($J6:K6)-1)/9)))*($I7=$D$7:$D$99)*($F$7:$F$99=K$7);ROW($A$7:$A$99);"");1));"") لقد ألقيت نظرة على المعادلة ولكن لم أفهم جيدا ما تريده بالضبط من وراء هذه المعادلة (التي تحوي أخطاء كثيرة)... يُرجى وضع النتائج المرجوة (يدويا) في الجدول (بعض الحالات) حتى نفهم المراد من السؤال ونحدد المعادلة المناسبة لذلك... بن علية حاجي

جزاكم الله عنى كل خيـــــر

تفضل أستاذى @ابا جودى New.accdb

شكرا لك أستاذي الغالي @ابو ياسين المشولي على ردك بالفعل هذا هو المطلوب بارك الله فيك ونفع بك الامة جزاك الله خيراً

وعليكم السلام بالتأكيد اخى الكريم لا يوجد دالة لذلك ,فقط يمكنك الدخول الى قاموس جوجل والترجمة مباشرة https://translate.google.com.eg/?hl=ar#view=home&op=translate&sl=en&tl=ar&text=الفعلى والا لو لديك ملف الإكسيل يحتوى على قاعدة بيانات بها جميع الأسماء التى تحتاجها وتريدها فى هذه الحالة فقط يمكنك استخدام معادلة بحث عند الإحتياج لذلك

انا جالى احباط يا ابا جودى هههههههههههه مع العلم انى جربتها على اكثر من نظام تشغيل

الله اكبــــــر فعلا اشتغل طيب الحمد لله رب العالمين طيب ممكن اطلب منك طلب ممكن تتكرم على وترفع المرفق اللى انت عملته اللى اشتغل معاك بالبيانات اللى انت عملتها زى ما عملتها بالضبط

أستاذى @ابا جودى بارك الله فيك الكود يعمل واذا دخلت مرة ثانية بدون الكود اى من الشبكة يطلب الجهاز اليوزر و الباسورد و السبب أنه لا يتذكر الكود و بعد تغيير الى الكود التالى يعمل دائما NetworkObject.MapNetworkDrive "", ServerShare, True, UserName, Password

وضعت المعادلة باللغة الفرنسية ويجب مقابلتها بنفس الدالة لكن باللغة الانكليزية مثلاً SIERREUR يقابلها IFERROR ولكن ماذا عن باقي الدالات

معادلة اخرى ربما اسهل =VLOOKUP(INT(CV2)-INT(D2),{0,"0day";1,"1day";2,"2days";3,"3days";4,"more than 3 days"},2) و اذا لم تعمل معك استبدل الفاصلة بفاصلة منقوطة(خارج الاقواس المعكوفة) لتبدو المعادلة هكذا =VLOOKUP(INT(CV2)-INT(D2);{0,"oday";1,"1day";2,"2days";3,"3days";4,"more than 3 days"};2)

استعمل هذه المعادلة =CHOOSE(IF(INT(CW2)-INT(E2)=0,1,0)+IF(INT(CW2)-INT(E2)=1,2,0)+IF(INT(CW2)-INT(E2)=2,3,0)+IF(INT(CW2)-INT(E2)=3,4,0+IF(INT(CW2)-INT(E2)>3,5,0)),"0day","1day","2day","3day","more than 3day") و اذا لم تعمل معك استبدل الفاصلة بفاصلة منقوطة لتبدو المعادلة هكذا =CHOOSE(IF(INT(CW2)-INT(E2)=0;1;0)+IF(INT(CW2)-INT(E2)=1;2;0)+IF(INT(CW2)-INT(E2)=2;3;0)+IF(INT(CW2)-INT(E2)=3;4;0+IF(INT(CW2)-INT(E2)>3;5;0));"0day";"1day";"2day";"3day";"more than 3day")

جرب الكود ده ورد على بالنتيجة لة تكرمت Dim NetworkObject As Object Dim FSO As Object Dim Directory As Object Dim Filename As Object Dim ServerShare As String Dim UserName As String Dim Password As String ServerShare = "\\corp-server\HostingFolder" UserName = "mydomain\myuser" Password = "freddie123" Set NetworkObject = CreateObject("WScript.Network") Set FSO = CreateObject("Scripting.FileSystemObject") NetworkObject.MapNetworkDrive "", ServerShare, False, UserName, Password Set Directory = FSO.GetFolder(ServerShare) For Each Filename In Directory.Files Debug.Print Filename.Name Next Set Filename = Nothing Set Directory = Nothing Set FSO = Nothing NetworkObject.RemoveNetworkDrive ServerShare, True, False Set NetworkObject = Nothing

على قد ما فهمت بقى جرب ورد بالتوفيق مثال اوفيسنا منع تجاوز الرصيد معدل.rar

تفضل بعد اذن الأستاذ محمد يمكنك استخدام هذه المعادلة لذلك =IF(ISNUMBER(SEARCH("شحم",B3)), "15%", IF(ISNUMBER(SEARCH("زيت",B3)), "10%","")) نسبة بدلالة كلمة فى البيان.xlsx

احسنت اخي شرح جميل من شخصيه اجمل استفت من موضوعك شكرا

طول صفحة A4 16000 نقطة و 11000 عرضها طريقة النموذج (2).mdb

شوف هذا لعله يفي بالغرض تحل الاسم او جزء منه ودخل السنه او جزء منها Ex9-29.accdb

لا لا لا لا يا استاذى الجليل ومعلمى القدير الفاضل @د.كاف يار انا لا اريد الدخول الى الجهاز الاخر على الشبكة من Remote Desktop Connection انا اريد ان اصل الى المجلد الذى تم عمل مشاركه له مثلا لو اردت فتح الجهاز على الشبكة من خلال الـ IP فى الامر run اقوم بكتابة الــ IP \\192.168.1.5 تكمن المشكلة فى انه اذا لم تكن بيانات الجهاز التى تخص الجهاز الذى يخص الاى بى السابق محفوظة فى الـ Windows Credential لنظام تشغيل المستخدم تظهر رسالة خطأ لانه لم يتم الاتصال بقاعدة الجداول وقد لا يخطر على بال المستخدم ان المشكله تكمن اصلا فى عدم الاتصال بجهاز الحاسوب صاحب الاى بي الفكرة هى كود يقوم اولا بالاتصال بالحسوب بتمرير اسم المستخدم وكلمة المرور من خلال FormSplash وبمجرد الاتصال يدخل الى باقى النماذج والمرتبطة الجداول على هذا المسار

اكثر جمل الاتصال الآمن استخدمها تكون على النحول التالي في رأس موديل الفورم Option Explicit Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _ ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Const SW_HIDE As Long = 0 Private Const SW_SHOWNORMAL As Long = 1 الاتصال ( اضف الأيبي + اسم المستخدم + كلمة المرور ) ShellExecute Me.hwnd, "Open", "C:\Windows\System32\mstsc.exe", "/P pinghost=Enter server IP address: '' \\%pinghost% /user:''\username ''", "C:\", SW_SHOWNORMAL اذا استطعت الاتصال و الدخول لسطح المكتب يصير الأمر بسيط فقط بتعديل السطر اعلاه

اخوي جرب بهذي الطريقة و اعطيني خبر ايش يصير معاك بحيث لو ماضبط فكرة اخرى عند محاولة الدخول يتم زراعة باتش و اعتقد هذي اسهل طريقة لتمرير معلومات الدخول "\\192.168.1.2\Pro\IP.accdb" & "UserName" & "password"

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة تصحيح الخطأ فى أكواد الاستعلام عن طريق الاسم بشاشة ( فورم ) تم تعديل على الكود من_ أ / طلعت محمد حسن و لا تنسونا من صالح الدعاء تحياتى استعلام عن طريق الاسم تعديل 3 (1).rar

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

لا تشكرني اخي لا الشكر كله لله وحده بل ادعيلي ولعائلتي بالفردوس الاعلى

نفس الرسالة

نعم ابا جودي هذا بالضبط ما اريده شكرا لتوضيح سؤالي واتمنى الرد السريع شكرا لكم

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