أبو نادر

خلاص يبو خليل تمت العملية بنجااااح بارك الله فيك 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

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

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

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

والله وحش الله يعطيك الف عافيه يا مبددددع ولكن اخوي جعفر يقبل إضافة تاريخ بين البداية والنهاية لاي إجازة سابقة ... والمفروض ان لا يقبل انت ليش شلت كود بعد التحديث للبداية ؟ ActiveControl = UmFormat(ActiveControl.Text, ActiveControl.Format)

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

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

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

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

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

تفضل test44.rar

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

وعليكم السلام استخدم استعلام حذف او هذا الكود DoCmd.RunSQL "DELETE ID.* FROM table_name" والسؤال الثاني استخدم استعلام الحاق

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

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

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

ما شاء الله تبارك الله عليك يبو خليل مييييه مييييه الله يوفقك ويزيدك من العلم والف شكر لك