Moosak

شكرا لك يا @محب العقيدة 🙂 يحتاجلي مدة لحد ما أبلع الموضوع بشكل مضبوط 😅 طيب سؤال : بالنسبة للبرامج المعروفة مثل الفوتوشوب وبرامج الأوفيس وغيرها .. أيش من قواعد البيانات تستخدم ؟ وفي الغالب أنه أثناء تنصيبها مايجي طاري الـ sqlserver لتنصيبه معها .. ولا أنها تستخدم قواعد بيانات من نوع آخر ؟

أخي مالك .. أعطنا مثال حي لما تريده بالضبط ... ( رابط حقيقي + النص الذي تريد نقله بالضبط )

أهلا بك أخي مالك في المنتدى .. 🙂 رابط الملف لايعمل .. ! ولكن ما يدور في ذهني الآن هو تحميل الملف بشكل مؤقت في الجهاز ، ثم فتح الملف ونسخ ما فيه إلى مربع النص في النموذج .. وبعدها حذف الملف المؤقت .. كل ذلك عن طريق الأكواد .. شريطة أن يكون الرابط للملف مباشر .. وليس من مواقع التحميل التي تلف بك وتدور لحد ما تعطيك رابط التحميل 🙂 وربما هناك طريقة أسهل لا أعلمها 🙂

وعليكم السلام ورحمة الله وبركاته أخي @محب العقيدة 🙂 موضوع جميل جدا ويجيب على السؤال الماضي عن كيفية حفظ الملفات في قاعدة SQL .. شكرا لك على وقتك وجهدك الرااائع .. 🙂🌹 السؤال القادم هو : كيف تتعامل مع ملفات قاعدة الـ SQL وتنصبها في جهاز العميل كقاعدة محلية ؟ وكيفية ضبط جهاز العميل ( أهم الإعدادات الضرورية الأساسية ) ؟ وكيف يمكنني حملها من جهاز إلى آخر لي كمبرمج شخصيا عندما أكون أعمل على جهازين غير مرتبطين بشبكة ؟ مثلا هل يمكن العمل عليها وهي في فلاشة USB ؟ سؤال آخر : كيف نعمل نسخ احتياطي تلقائي لقاعدة البيانات عن طريق الكود مثلا ؟ وكيف نسترجع القاعدة من أحد النسخ الاحتياطية فيما لو تلفت القاعدة الأصلية ؟ هذه الأسئلة تأتي من باب معرفتي المتواضعة بأن قاعدة الأكسس جميعها في ملف واحد يسهل نقله .. بينما الـ SQL لها عدة ملفات مترابطة ببعضها .. ( فقط ما متخيل كيف يتم الموضوع 🙃 )

أهلا بك مجددا يا عزرائيل 🙂 هل من المفترض أن يقوم البرنامج بتحويل ملفات ال PDF إلى صور ؟ لم يعمل معي ..

كيف ؟ 🙂

شكرا لك على التوضيح أستاذنا أبو أحمد 🙂 وأعتقد أننا نحتاج منك لتحليل للنتائج الأخيرة للمفاضلة بين الطرق التي ذكرتها 🙂 --------------------------- وفي ذات الموضوع .. وجدت في أحد المواقع دالة اسمها IsBlank وظيفتها فحص وجود البيانات من عدمه لجميع الأنواع، وأنا أستخدمها وتعمل معي بكفاءة عالية 🙂 : '----------------------------------------------------------------------------- ' True if the argument is Nothing, Null, Empty, Missing or an empty string . '----------------------------------------------------------------------------- Public Function IsBlank(arg As Variant) As Boolean Select Case VarType(arg) Case vbEmpty IsBlank = True Case vbNull IsBlank = True Case vbString IsBlank = (LenB(arg) = 0) Case vbObject IsBlank = (arg Is Nothing) Case Else IsBlank = IsMissing(arg) End Select End Function وتناديها بهذا الشكل : IsBlank(Me.UserNameTxt) ----------------------------------------مثال آخر If IsBlank(Me.CustomerReferenceTxt) Then MsgBox "Customer Reference cannot be left blank." End If المصدر

هنا جهزتلك نموذج البيانات الشهرية عشان يشتغل وحده 🙂 بيانات الأعضاء - 2.accdb

ممكن يكون في نموذجين بس يحتاج حيلة لعملها 🙂 لكن في جميع الأحوال لدواعي الربط بين الجدولين لازم تكون بيانات الأعضاء حاضرة علشان تسجل في جدول البيانات الشهرية ( وخصوصا إذا كان في نموذج منفصل ..

مرحبتين راعي بلادي 🙂 1 - هذي ما تستوي في الجدول لذلك سويتلك استعلام اسمه Byanat_AlAdaa_Q .. والسبب عدم وجود دالة DateAdd اللي تضيف عدد المدة بالأشهر في الحقل المحسوب بالجدول . 2 - تم الربط وإضافة حقل ID لجدول البيانات الشهرية من باب التنظيم. 3- تم عمله بجعل الفورمات يساوي -0 . 4- النموذج مبني بطريقة غير صحيحة .. المفروض جدول البيانات الشهرية يكون نموذج فرعي لنموذج بيانات الأعضاء .. والبحث يكون في بيانات الأعضاء .. سويته لك بذي الطريقة : ملاحظة أخيرة صاحبي : حاول تسمية جميع الكائنات ( الجداول- الاستعلامات - النماذج _ ووووووو) بالانجليزي دائما .. 🙂 بيانات الأعضاء.accdb

وعليكم السلام ورحمة الله وبركاته .. 🙂 تم التعديل أخي أحمد .. الآن الدالة تستقبل مدخل أو متغير إضافي وهو (متزوج ؟) من نوع : نعم/لا - True/False : Function FinedSubSalary(Salary As Double, NumOfChiledren As Integer, Optional IsMarried As Boolean = True) As Double ' Moosak Dim DB As DAO.Database Dim RS As DAO.Recordset Dim x As Integer FinedSubSalary = 0 If IsMarried = False Then Exit Function Set DB = CurrentDb Set RS = DB.OpenRecordset("tp1") RS.MoveLast RS.MoveFirst If RS.EOF Then GoTo Finish: For x = 1 To 110 If RS(x) = Salary Then FinedSubSalary = DLookup("[" & x & "]", "tp1", "Id=" & NumOfChiledren) 'Debug.Print x, Salary GoTo Finish: End If Next Finish: RS.Close Set RS = Nothing Set DB = Nothing Exit Function End Function إذا متزوج تشتغل الدالة وإذا أعزب تعطيك صفر .. وعشان تشتغل زين مع القائمة المنسدلة يلزمنا نحول العبارات (متزوج/أعزب) إلى صيغة (نعم/لا) وهكذا كانت الصيغة في مصدر بيانات مربع النص : =FinedSubSalary([xx];[عدد الاطفال];IIf([الحالة الاجتماعية]="متزوج";True;False)) وهذي هي النتيجة النهائية salary - Moosak - 2.rar

وعليكم السلام أخي أحمد 🙂 الأفضل أن ترفق ملف الأكسس .. العملي أفضل من النظري 🙂

وخيار خامس : البحث بجميع الكلمات المكتوبة ولا يشترط أن تكون متتابعة في الجملة 🙂 مثال : البحث عن : أوفيسنا أكسس النتيجة : " منتديات أوفيسنا قسم الأكسس " كود اللايك Like : Like "*" & Replace(Me.SearchTXT," ","*") & "*"

وعليكم السلام ورحمة الله وبركاته أخي أحمد 🙂 اللهم آمين وإياكم .. تقريبا عادي ما دامه أجزاء من الثانية .. لكن لو زاد فربما يكون إما بسبب المعطيات غير دقيقة أو الجهاز بطيء ..

وعليكم السلام ورحمة الله وبركاته يا باش مهندس 🙂 شكرا لمعالي سعادة جناب حضرتك 😊🌹

وعليكم السلام أخي أحمد 🙂 أنا اشتغلت حسب فهمي وهذي النتيجة : وعملتلك دالة تبحث عن العمود اللي يطابق الراتب اللي في السجل الأول ، ثم عن السجل اللي يطابق عدد الأبناء : Function FinedSubSalary(Salary As Double, NumOfChiledren As Integer) As Double ' Moosak Dim DB As DAO.Database Dim RS As DAO.Recordset Dim x As Integer Set DB = CurrentDb Set RS = DB.OpenRecordset("tp1") RS.MoveLast RS.MoveFirst If RS.EOF Then FinedSubSalary = 0: Exit Function For x = 1 To 110 If RS(x) = Salary Then FinedSubSalary = DLookup("[" & x & "]", "tp1", "Id=" & NumOfChiledren) 'Debug.Print x, Salary GoTo Finish: Else End If Next Finish: RS.Close Set RS = Nothing Set DB = Nothing Exit Function End Function ثم جعلت الدالة هي مصدر بيانات مربع النص (تعطيها الراتب وعدد الأبناء ) .. =FinedSubSalary([xx];[عدد الاطفال]) ثم جعلت النتيجة تتحدث كلما تم تعديل الراتب أو عدد الأبناء في النموذج . والنتيجة كما رأيت .. 🙂 Salary - Moosak.rar

شكرا لك أستاذ خليفة .. هدية مقبولة @kkhalifa1960 😊🌹

وهنا كود مربع الإدخال Input Box على شكل نجوم .. من عند نجوم المنتدى 🙂 :

ما اعطيتني رقم الباسوورد مال الجماعة مالك علشان أشبك معاك على طول 😁 جالس أطور مشروع تحديث ال FE التلقائي ونجحت العملية ولله الحمد .. بحاول أنزله قريبا إن شاء الله .. 😊

هذا خط كوفي .. وهذا أقرب مثال وجدته للخط المكتوب عندك 🙂 https://arbfonts.com/mcs-shafa-e-u-normal-font-download.html?preview=صورة+قيد+مقفل واطلع على هذه أيضا : https://arbfonts.com/mcs-shafa-s-u-normal-font-download.html https://arbfonts.com/alawi-shafa-font-download.html https://arbfonts.com/mcs-shafa-e-i-normal-font-download.html التحميل من نفس الصفحات 🙂

ممتاز جدا عمي جعفر .. 🙂 هذا يحل مشكلة ملفات الباتش وال Dos أيضا التي لا تتعامل مع اللغة العربية 🌹 كنت أعاني شخصيا من هذي المشكلة وما عارف كيف أحلها .. ولما خلصت ووجدت البديل جاء الفرج 😅

ما الذي كتبته في الحقل النصي ؟ الرابط كاملا أم أسم الملف فقط ؟ إن كنت ستكتب الرابط كاملا فالتعديل سكون هكذا ؟

العفو أخي حمدي .. تحياتي لك 🙂🌹

بعد مراجعة الكود وجدت أن rs.MoveNext متكررة مرتين .. أحذف الأولى حسب الصورة التالية :

في المشاركة السابقة تكتبه بالطريقة التي ذكرتها لك لو كنت ستضع الملف بجانب قاعدة البيانات وتكتب اسم الملف فقط في حقل النص .. أما إذا كنت ستكتب الرابط كاملا في حقل النص فتكتب الكود هكذا : adad = Me.TextBoxName