أ / محمد صالح

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

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

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

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

الفيديو يوجد به ملفان واحد لنسخة الأوفيس 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" مع خالص دعواتي بالتوفيق