أبو نادر

خلاص يبو خليل تمت العملية بنجااااح 

بارك الله فيك

appword.ActiveDocument.Saved = False
appword.Quit

المعذره يبو خليل ماني متواجد بكثره لارتباطي باعمال

ما زبطت

وجربت

appword.Quit

وكأنها تبي نزبط

لكن تخرج رسالة من الوورد بالحفظ او الالغاء

كيف أقول للوورد لا تحفظ وورني عرض اكتافك 

يبو خليل عند طباعة الملفات يبقى الوورد مفتوح في الخلفية لكل ملف تتم طباعته

هل توجد إضافة للكود تنهي مهمته من الخلفية بعد الطباعة ؟

مييييييييييييه ميييييييييييه 

الله بجزاك خير يا وحش

السلام عليكم احبابي

عندي ملف وورد من 3 صفحات

وابي اطبع صفحة معينه

........

الكود المرفق لطباعة الملف كامل

ما هي الإضافة لطباعة صفحة معينه ؟

Function asa_1()

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
     .FormFields("a1").Result = byanat![bb3]


     .PrintOut
     '.PrintOut , Pages = "1"
appword.Visible = False
appword.Activate
End With
Set doc = Nothing
Set appword = Nothing
End Function

وعليكم السلام

الف شكر لكم اخوي صالح واخوي barna

السلام عليكم

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

اذا النموذج فيه كود لصلاحية المستخدمين احذفه حتى تنتهي من شغلك

والله اعلم

السلام عليكم احبتي

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

مثلا عندي قائمة منسدله مكونه من احمد - بندر - محمد

عند تحميل النموذج اريد  بندر  ...

الحمد لله ربي هداني للحل مع  دالة  (DMax) وتمت العملية بسلاسة والفضل لله ثم لوجهة نظر أبو خليل والف شكر لأخوي جعفر لمساعدته

في المرفق بعد التعديل ولمن أراد الإستفادة

ejazat_hejri_Force date.rar

في ‏٢٢‏/‏١٠‏/‏١٤٣٨ at 17:24, ابوخليل said:

 

 نبحث عن اعلى قيمة في عمود نهاية الاجازة

كيف صيغة البحث عن اعلا فيمه ؟

وافترضت ان فيه مستخدم لم يسجل الإجاة الإدارية ( يوم او يومين ) حسب الظروف وتركها لوقت لاحق  وبعدها سجل إجازة إعتيادية وأراد ان يعود لتسجيل الإدارية

في هذه الحالية لن يستطيع حسب وجهة نظرك

لمثل هذه الحالات سأعمل مربع ( نعم/لا ) خاص بالمدير وأترك له حرية تحقيق الشرط أو تجاوزه 

وعليكم السلام هلا بشيخنا .. صدقت يبو خليل 

انا في العمل حاليا .. وباذن الله بارفقلك اليوم

والله وحش الله يعطيك الف عافيه يا مبددددع

ولكن اخوي جعفر يقبل إضافة تاريخ بين البداية والنهاية لاي إجازة سابقة ... والمفروض ان لا يقبل

انت ليش شلت كود بعد التحديث للبداية ؟

ActiveControl = UmFormat(ActiveControl.Text, ActiveControl.Format)

استاذي القدير جعفروه

اشكرك على ردك وعلى هالمعلومات الطيبه  وتمنيت لو اخذت لفه على الكود المذكور لأني متأكد بنظره منك بتجيب راسه   لما تملكه من خبره واسعه ولأنك وحش

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

وأما قطع الإجازة فكرت بها مسبقا بتعديل مدة الإجازة التي تمتع بها فعلياً فبل القطع والباقي سيضاف للرصيد السنوي

اعتمادي على الأكواد وليس الاستعلام

بارك الله فيك

ماش ما زبطت

ابغى اذا أدخلت تاريخ جديد لنفس الشخص يبحث في الجدول بين البداية والنهاية للاجازات السابقه له ... اذا موجود يتم التنبيه بتعارض التاريخ المدخل ويجب تغييره

مشكور وان شاء الله استفيد منه

السلام عليكم

وضعت كود مهمته ان تم ادخال تاريخ جديد لإجازة لنفس الشخص ان لا تتعارض مع تاريخ لإجازة سابقه له

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

ولكن ماش ... ما عرفت اصيغ الكود لدرجة اتي حسيت ان وده يخرج من الشاشه ويمسكني مع حلقي ويقول يااااخي انت اش تبغى بالزبط 

الكود في حدث بعد التحديث للمربع  Bd

ما استغني عن خبرتكم بارك الله فيكم

ejazat_hejri.rar

الله يعطيكم الف عافيه وما قصرتم يا وحوش

نعم يزبط في حدث بعد التحديث وكان استفساري في ان كانت هناك طريقه تمنع الكتابه

أبو خليل جاب المطلوب بمنع الكتابه .... خشمك يبو خليل

منذ ساعه, أبو عبدالله الحلوانى said:

 

وان كان ولا بد من تنفيذ حدثك عند التغير فيمكن وضع شرط يمنع قبول الادخال بمربع النص الا اذا كان الخيار وليست الكتابة 

 

ما قصرت يبو عبدالله الكود فعال ولكن يجب ان اضعه في الحقول الباقيه ..

تفضل

test44.rar

للأسف اخوي أبو عبدالله ما زبطت

مجرد يكتب المستخدم اسم العنصر بالقائمة يستطيع تجاوز الشرط عند التغيير

اريد امنع الكتابة

وعليكم السلام

استخدم استعلام حذف

او  هذا الكود

 DoCmd.RunSQL "DELETE ID.* FROM table_name"

والسؤال الثاني استخدم استعلام الحاق

السلام عليكم أحبابي

وضعت شروط يتم تنفيذها عند اختيار أي عنصر من القائمة المنسدلة ( حدث عند التغيير )

ولكن يستطيع المستخدم تجاوزها في حالة كتابة اسم العنصر فقط والانتقال للحقل الآخر ؟

فهل هناك طريقة تمنع كتاية اي شي في مربع تحرير وسرد واجبار المستخدم للإختيار من القائمة ؟

بارك الله فيك

لم تنجح في اوفيس  2013 

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

تفضل اخوي حربي بعد إضافة شوي تعديلات والفضل لله ثم لابو خليل

ejazat_meladi.rar

ejazat_hejri.rar

ما شاء الله تبارك الله عليك يبو خليل مييييه مييييه  

الله يوفقك ويزيدك من العلم والف شكر لك