أبو نادر

شكرا اخوي عبدالرحمن ولكن يتم تصغير الفورم الحالي ويبقى الخلفي ثابت وانا اريد تصغير لكامل التطبيق اضفت نفس كود التصغير في فورم ملاحظه اذا صغرته يبقى خلفه فورم ثابت هل من طريقه لتصغيرها جميعاً حتى ولو كان في الخلف عدة فورمات ؟ Nasystry3-up.rar

عادي اخوي عبدالرحمن في أي مكان

الله يجزاك خير يا بطل

فهمتك .. تبي عدد الصفوف والشرط ان الكمية لا تساوي الصفر في تقريرك المرفق الصفوف 8 مو 9 انشأ مربع نص ومصدر عنصر التحكم افتح منشئ التعبير وادخل هالكود مع التسمية الصحيحة للجدول وحقل الكمية وان شاء الله تزبط معك =DCount("ID";"TABLE_NAME";"QUANTITY <> 0")

السلام عليكم احبابي نموذج مفتوح وعن طريقه تم فتح نموذج منبثق ومشروط هل بالإمكان تصغير التطبيق عن طريق هذا النموذج المنبثق والمشروط؟

11 جمع صحيح للكميات ال 9 الي تقولها تبع ايش ؟ وضح

Dim appword As Word.Application Dim doc As Word.Document Set doc = appword.Documents.Open(path) ..... doc.Close savechanges:=(False) doc.Quit appword.Quit المشكله كانت تواجهني في ملفات الوورد ... وهذا كود مقتبس من عندي و Quit حلت المشكله ان شاء الله ينفعك مع الاكسل

عمل جميل جدا ورائع يا وحوش في المرفق مثال لوميض تتنبيهي للمنع او أي شي ... أتمنى عمل زر أمر وبجانبه مؤشر التحميل وعند النقر عليه يتم عمل المؤشر وعند الانتهاء رسالة بان الإجراء تم test_mdb.rar

ما شاء الله عليك يا وحششش ميييييه مييييه الله يجزاك خير

اسف اخوي كاسر الظاهر ما وصلت المشكله لك مزبوط لو تكتب المدة ( أي رقم ) وتكتب تاريخ بداية الاجازة فقط سيتم حساب نهاية الاجازة والعودة وأسماء الأيام اتوماتيك المشكلة اذا كتبت المدة وكتبت أي تاريخ في هذه الشهور ( 5-6-7-8-9-10-11 ) سيتم انقاص يوم عن انتهاء الاجازة والشهور المتبقية تكون الحسبة مزبوطة !

ممتاز .. بارك الله فيك

السلام عليكم يا وحوش عندي مشكله اكتشفتها قريب .. وهي في وضع تاريخ بداية الاجازة من 5/1 الى 11/1 فتحصل لخبطه في حساب تاريخ انتهاء الاجازة والعودة .. وأسماء الأيام باقي الشهور مزبوطه ؟ ان الغيت كود on error resume next يشير الى مشكله في موديل ام القرى أتمنى لمن لديه وقت النظر على المرفق والمقارنه مع تقويم آخر لام القرى .. وبارك الله فيكم ejazat_hejri_mdb.rar

اخ شيفان علامة الاتصال لديك ان هناك اتصال ولكن توجد مشكله فيه جرب تعطيل الاتصال نهائيا

السلام عليكم .... ملف الأستاذ محمد عمل معي بكفائه جميل لو كان يعمل باستمرار كالعين الساهره ... وعند (الاتصال) بعد قطع الاتصال اثناء عمل البرنامج يرتبط اتوماتيكيا بالقاعدة ..

تدري ان المشكله طلعت هنا : (path, , True) اذا خليتها (path) تزبط هل الأولى تفنح الوورد للقراءه فقط وعشان كذا ما يقبل تغيير اللون .. والثانية العكس ؟ لا علم لي .......... وهل هناك طريقة لتفادي إضافة المرجع ؟

الحمد لله تم جل المشكلة بعد تخبييييص طويل شكرا لكل من ساهم في المساعده أبو خليل ورمهان الوحووووش.... الله يجزاكم خير اخ رمهان يأست فعلاً من وجود حل ... ولولا الله ثم مشاركتك لما تم الحل ... ........... ارجو النظر في الكود ... هل تخبيصي سيأتي بمشكلة مستقبلاً Private Sub ÃãÑ73_Click() Dim appword As Word.Application Dim path As String On Error Resume Next Error.Clear Set appword = GetObject(, "word.application") If Err.Number <> 0 Then Set appword = New Word.Application appword.Visible = True End If path = "D:\nnnn.docx" appword.Documents.Open (path) Set doc = appword With doc .ActiveDocument.Shapes("geg").Fill.ForeColor.RGB = RGB(205, 205, 0) appword.Visible = True appword.Activate End With Set appword = Nothing doc.ActiveDocument.Close savechanges:=wdSaveChanges doc.Quit End Sub

ما شاء الله عليك اخوي رمهان كودك نجح

اخوي رمهان ... ما زبط هذا سؤالي للأفرنجه بهالرابط https://answers.microsoft.com/en-us/msoffice/forum/msoffice_access-mso_win10-mso_2013_release/filling-the-shapes-background-color-in-word-by/cfc63cc7-99e4-4160-89ee-703c33ae97a7?tm=1504373700941&auth=1 وحالياً وبمساعده من شيخنا أبو خليل سيتم تصميم نماذج الوورد عن طرق التقارير وما اخشاه هو كيف سيكون السطر اذا كانت الكلمات أطول او اقصر في المربعات مثلا ( المغرب والصين ) ... او ( مصر وجزر المالديف ) .... بتتيسر ان شاء الله

وعليكم السلام عملتك مثال في نموذج ... تظهر المديريات التابعة للمحافظة المختارة وما ادري وش تقصد في العمود فقط ؟ Students2.rar

بيض الله وجهك وما قصرت يبو خليل وكل عام وانت وجميع الاعضاء بخير ........ حاولت ابتعد عن الوورد واصمم التقرير.. وصممت بس ما قبل خط المهند وخبصه بعد العيد برسلك نموذج وورد رسمي وابيك تلقي نظره

تفضل يبو خليل مرجع الوورد عندي 15 الوورد في D shape_test.rar

ابشر يا وحش .. اذا رجعت البيت بارفق مثال

يعطيك العافيه يبو خليل المشكله كيف جاب اسم الشكل وكتب Rounded Rectangle 1

السلام عليكم احبابي عندي هذا الشكل في الوورد وبحثت في طريقة تغيير لونه بالكود عن طريق الاكسس... ووجدت هذا الكود Function asa() Dim appword As Word.Application Dim doc As Word.Document Dim path As String On Error Resume Next Error.clear Set appword = GetObject(, "word application") If Err.number <> 0 Then Set appword = New Word.Application appword.Visible = False End If path = "\\ip\1-11\V-document\afrad\M-VACATION-D.docx" Set doc = appword.Documents.Open(path, , True) With doc .Shapes("a99").Fill.BackColor.RGB = RGB(0, 0, 0) appword.Visible = False appword.Activate End With Set doc = Nothing 'Set appword = Nothing appword.ActiveDocument.Saved = True appword.Quit End Function الكود تبع : Shapes("a99"). ولكن لم يتغير اللون حاولت اعرف طريقة لمعرفة اسم الشكل وحددت الشكل في الوورد وذهبت لجزء التحديد وغير الاسم كالتالي : ولم تفلح النتيجه أين الخلل يا خبراء ... وما هي طريقة معرفة اسم الشكل الصحيحه ؟

لا بالله توي اتمشى بأول الغابة هههههههه