أ / محمد صالح

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

هل عانيت من مشكلة بعد الكود الموجود فى مشاركتي السابقة؟! المشاركة بها الحل النهائي واختصار الكود أم أن تعليقك السابق لا يخص الكلام عن المشاركات السابقة عليه

حسنا يبدو أن رابط الملفين الموجود في التعليقات غير واضح بصورة كافية

الفيديو يوجد به ملفان واحد لنسخة الأوفيس 32 بت وآخر لنسخة 64 بت !!!!!!!!!!!!!! 🤔

بعد إذن حبيبنا بن علية طالما مسار الحفظ في نفس مسار الملف يمكن اختصار الكود إلى ذلك Sub save_pdf() Sheets("Sheet1").Select Dim filename As String filename = ActiveWorkbook.Path & "\PDF\" & Range("g6") & ".pdf" Sheets("Sheet1").Range("a1:i26").ExportAsFixedFormat Type:=xlTypePDF, filename:=filename, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End Sub وفقنا الله جميعا لكل ما يحبه ويرضاه

الخطأ في اسم الحقل في النموذج الثاني عدل سطر الفتح إلى هذا DoCmd.OpenForm "airfare form", , , "[SR-No Leave]=" & SR_No_Leave لاحظ الشرطة بين SR-No لم تكن موجودة وفقنا الله جميعا لكل خير

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

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

إن شاء الله تجد ما تبحث عنه هنا ولا ينقصني سوى دعاؤكم لي بالخير في الدنيا والآخرة ونشر هذه المعلومة فلو بخل بها غيرك ما وصلت إليك

السلام عليكم ورحمة الله وبركاته أرجو من كل صديق أن يستعمل محرك البحث الموجود في المنتدى فالمنتدى به كنوز سابقة تحتاج من ينفض عنها الغبار وهذه أكثر من 267 نتيجة عن #حذف_الصفوف_الفارغة حذف الصفوف الفارغة

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

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

لإيجاد الزيادة ضع هذه المعادلة في B5 =if(b4>b3,b4-b3,"") واسحب المعادلة يسارا للتطبيق على الإناث واستعمل هذه لإيجاد العجز في B6 =if(b3>b4,b3-b4,"") وانصحك بمتابعة دورة أساسيات إكسل وفقنا الله جميعا لكل ما يحب ويرضى

معظم الخصائص القابلة للتعديل يتم تعديلها بهذا السطر اسم العنصر ثم نقطة ثم اسم الخاصية ثم يساوي ثم القيمة الجديدة لكن خاصية قناع الإدخال تحتاج إنشائها أولا قبل إضافة قيمة لها ولتعديل قيمة قناع الإدخال بعد إنشائه نستعمل الطريقة العادية في تغيير قيمتها ولذلك يجب التحقق أولا من وجودها فإذا كانت موجودة يتم تعديلها وإلا فيتم إنشاؤها جرب هذا الكود وإن شاء الله يفي بالغرض Dim db As DAO.Database Dim td As DAO.TableDef Dim fld As DAO.Field Dim prp As DAO.Property Set db = CurrentDb Set td = db.TableDefs("Tab1") Set fld = td.Fields("Name") Dim mask As Boolean For Each prp In fld.Properties mask = IIf(prp.Name = "InputMask", True, False) Next If mask = True Then fld.Properties("InputMask") = "(###) ###-####" Else Set prp = fld.CreateProperty("InputMask", dbText, "(###) ###-####") fld.Properties.Append prp End If fld.ValidationRule = "000" fld.ValidationText = "wrong" fld.Properties.Refresh db.TableDefs.Refresh Set prp = Nothing Set fd = Nothing Set td = Nothing Set db = Nothing

لا أدري هل قام الكود بالدور المطلوب؟! أم أن المطلوب شيء آخر ؟؟!!

إذا كان مقصودك هو تغيير خصائص الحقل فهذا الكود سيفي بالغرض إن شاء الله Dim db As DAO.Database Dim td As DAO.TableDef Dim fld As DAO.Field Dim prp As DAO.Property Set db = CurrentDb Set td = db.TableDefs("Tab1") Set fld = td.Fields("Name") 'تغيير قناع الإدخال Set prp = fld.CreateProperty("InputMask", dbText, "(###) ###-####") fld.Properties.Append prp 'تغيير التحقق من الصحة fld.ValidationRule = "000" fld.ValidationText = "wrong" 'تحديث الجدول fld.Properties.Refresh db.TableDefs.Refresh Set prp = Nothing Set fld = Nothing Set td = Nothing Set db = Nothing

يمكنك استعمال هذا الكود لتغيير خاصية inputmask لمربع النص textbox Forms!Customers!Telephone.InputMask = "(###) ###-####" هذا مثال لحقل اسمه تليفون ويمكنك تطويعه كما تشاء وفقنا الله جميعا لكل خير

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

كل المتصفحات حاليا تدعم html5 حتى الموبايل

لتصبح الدالة ككل Function mas_g_trans(str As String, Optional lngto As String = "ar", Optional lngfrm As String = "auto") As String On Error Resume Next If str = "" Then mas_g_trans = str: Exit Function Dim ie As Object, html Set ie = CreateObject("InternetExplorer.application") ie.Visible = 1 'ie.navigate "http://translate.google.com/#" & lngfrm & "/" & lngto & "/" & str ie.navigate "https://translate.google.com/#view=home&op=translate&sl=" & lngfrm & "&tl=" & lngto & "&text=" & str Do Until ie.readyState = 4 DoEvents Loop Application.Wait (Now + TimeValue("00:00:03")) mas_g_trans = ie.document.querySelector(".tlid-translation.translation").innerText ie.Quit Set ie = Nothing End Function وهذا مثال على استدعائها Sub test() Debug.Print mas_g_trans("hello world", "ar", "en") End Sub وقثنا الله جميعا لكل ما يحب ويرضى

شكرا لك استاذ محمد على تنبيهي بالفعل تم تغيير أكواد صفحة الترجمة في جوجل ولكن سيتم تغيير سطر واحد في الكود ضع هذا السطر بدلا من سطر result_box mas_g_trans = ie.document.querySelector(".tlid-translation.translation").innerText ولا تنسوني من صالح دعائكم

الحمد لله

تطبيقك للتعديلات الأخيرة صحيح 100% وهذا الدليل هل كتبت عنوان بريدك الالكتروني وكلمة مروره في المكان المخصص في الكود؟ هل سمحت للتطبيقات باستعمال بريدك في جيميل؟ ربما تكون هذه هي الأسباب راجع الموضوع الأصلي لمعرفة التفاصيل

لا أجد في ملفك تقارير لذلك إليك خطوات الحل استعمل هذا الكود لتصدير التقرير لكملف pdf في أي مسار تريده استعملت هنا نفس مسار الملف واسم الملف myreport.pdf وكذلك يلزمك كتابة اسم التقرير بدلا من reportName ووضع كل هذا قبل سطر الإرسال .send فيصير كود الإرسال DoCmd.OutputTo acOutputReport, "reportName", acFormatPDF, CurrentProject.Path & "\myreport.pdf" .AddAttachment CurrentProject.Path & "\myreport.pdf" .Send Kill CurrentProject.Path & "\myreport.pdf" مع خالص دعواتي بالتوفيق

اضافه حساب Gmail الي Outlook مع اخر تحديث ل Outlook 2016 و Outlook for Office 365، من الاسهل الان اضافه حساب Gmail الي Outlook. Outlook ل Windows الخطوات التاليه هي نفسها ما اذا كنت تقوم ب# اضافه حساب Gmail الاولي او المزيد من الحسابات Gmail الخاص بك الي Outlook. حدّد ملف > إضافة حساب. ادخل عنوان البريد الإلكتروني وانقر فوق الاتصال. اذا تمت مطالبتك ب# ذلك، ادخل كلمه مرور Gmail، ثم حدد موافق > انهاء الي بدء استخدام حساب Gmail الخاص بك في Outlook. هام: ب# مجرد الاتصال حساب Gmail الي Outlook، قد تتلقي رساله تحذير في علبه الوارد في Gmail تفيد ب# انه تم الكشف عن تسجيل دخول جديده من Internet Explorer. هذا هو السلوك المتوقع. لن يقبل outlook كلمة المرور الخاصة بي اذا كان Outlook لن يقبل كلمه المرور و# كنت تعرف كنت تستخدم كلمه المرور الصحيحه ل# حساب Gmail الخاص بك، قد يكون لديك اصدار قديم من Outlook التي لا تعتمد هذا الخيار اعداد Gmail اسرع حاليا. في هذه الحاله، ف# ستحتاج الي استخدام مصادقه ثنائيه ل# المساعده في التحقق من انك الشخص الذي يحاول الوصول الي حسابك في Gmail. ل# اضافه حساب Gmail الي Outlook، ستحتاج الي كلمه مرور تطبيق. هذا كلمه مرور مختلفه من كلمه مرور حساب Gmail العاديه. يتيح لك Gmail إضافة حسابك إلى Outlook بدون إعداد مصادقة ثنائية واستخدام كلمة مرور التطبيق، ولكن يجب عليك تشغيل إعداد يسمح "للتطبيقات الأقل أماناً" بالاتصال بحسابك. نحن لا نوصي بهذا الإعداد. نوصي بتشغيل المصادقة الثنائية واستخدام كلمة مرور تطبيق. لتشغيل المصادقة الثنائية والحصول على كلمة مرور تطبيق، استخدم الخطوات التالية. انتقل إلى Gmail من المستعرض، ثم حدد أيقونة تطبيقات Google في الزاوية العلوية اليسرى من الشاشة. حدد حسابي. وضمن تسجيل الدخول والأمان، حدد تسجيل الدخول إلى Google‏. ضمن كلمة المرور وطريقة تسجيل الدخول، إذا كان التحقق على خطوتين معيّناً على إيقاف التشغيل، فانقر فوق > إلى جانب إيقاف. وبخلاف ذلك، انتقل إلى الخطوة 4. في الشاشة الأولى، انقر فوق متابعة. إذا تمت مطالبتك، ادخل كلمة مرور Gmail ثم انقر فوق التالي. ادخل رقم الهاتف وحدّد ما إذا كنت تريد تلقي رموز التحقق من الصحة بإرسال رسالة نصية أو مكالمة هاتفية. بعد ذلك انقر فوق التالي. ادخل الرمز الذي تلقيته وانقر فوق التالي. انقر فوق تشغيل لإنهاء إعداد التحقق على خطوتين. العودة إلى الشاشة السابقة بالنقر فوق السهم إلى اليمين في الجزء العلوي من الشاشة بجانب التحقق على خطوتين. ضمن كلمة المرور وطريقة تسجيل الدخول، حدد كلمات مرور التطبيقات. أدخل كلمة مرور Google، ثم حدد‏ تسجيل الدخول. أسفل الشاشة التالية، حدد البريد وكمبيوتر Windows‏ من القوائم المنسدلة، ثم حدد إنشاء. سيعرض لك Google كلمة مرور تطبيق. قم بنسخ كلمة المرور هذه (بدون المسافات) وادخل كلمة المرور هذه عندما يطالبك Outlook بكلمة مرور. ولا تنسوني من صالح دعائكم