أبو نادر

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

ولكن يتم تصغير الفورم الحالي ويبقى الخلفي ثابت

وانا اريد تصغير لكامل التطبيق

اضفت نفس كود التصغير في فورم ملاحظه

اذا صغرته يبقى خلفه فورم ثابت

هل من طريقه لتصغيرها جميعاً حتى ولو كان في الخلف عدة فورمات ؟

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

16 ساعات مضت, رمهان said:

 

جرب الكود التالي وبعيدا عن اين المشكلة بكودك السابق وسنعود للمشكلة بعد التاكد من نجاح المطلوب

 

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

اخوي رمهان ... ما زبط

هذا سؤالي للأفرنجه بهالرابط 

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").
 

ولكن لم يتغير اللون

حاولت اعرف طريقة لمعرفة اسم الشكل وحددت الشكل في الوورد وذهبت لجزء التحديد وغير الاسم كالتالي :

ولم تفلح النتيجه 

أين الخلل يا خبراء ... وما هي طريقة معرفة اسم الشكل الصحيحه ؟

9 دقائق مضت, ابوخليل said:

 

الآن انت الوحش

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