بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
الطـاير
-
Posts
322 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه الطـاير
-
-
جزاك الله خير اخوي دروب مبرمج
مثالك جميل لكن يحول الصور الى PDF
ما اريده هو اضافه اوراق من الاسكانر مباشرة الى ملف PDF موجود بالفعل دون فتح الملف علما باني استخدم وسيط مساعد وهو EZTwain -
يا ريت حد من اصحاب الخبرة يفيدني بالموضوع ده بقالي سنين بحاول في الكود ده
-
Private Sub الموضوع_DblClick(Cancel As Integer) Dim stAppName As String Dim File As String Dim YS As String File = Me.الوارد YS = Me.السنة stAppName = "C:\Program Files (x86)\Adobe\Acrobat 11.0\Acrobat\acrobat.exe \\recserver\Rec\R\wared\" & YS & "\" & File & ".pdf" Call Shell(stAppName, 1) End Sub
السلام عليكم
يا جماعة الخير
عندي الكود هذا يفتح ملف PDF وبعد ما افتحه اقدر اضيف له أوراق من الاسكانر
المطلوب : تعديل الكود لاضافة الورق لملف PDF تلقائي وحفظ الملف دون فتحة
وجزاكم الله خير -
جزاكم الله خير جميعا على هذا الصرح الطيب
-
سحاول ان شاء الله واعطيك الخبر
جزاك الله خير -
في ٣٠/١٠/٢٠١٩ at 14:32, jjafferr said:
هذا كود لفتح ملف pdf موجود في مجلد السنة ، عن طريق برنامج الاكروبات.
اذن انت سحبت اوراق من الاسكنر ، وتريد ان تضيف هذه الاوراق على الملف اعلاه؟
جعفر
بالفعل انا عندي زر اخر لإضافة الملف لمسار السنة
المطلوب في حالة الاضافة ان تكون الاضافة من الاسكانر للملف المخزن مباشرة ؟ هل البرنامج تبعك يدعم ذلك من الاسكنر مباشرة للملف ؟
وجزاك الله خير على تعبك ساقوم بتتبع الشرح في البرنامج المرفق وسوافيك بالنتيجة ان شاء اللهدمت سالما
حاولت ولكن لا يعمل الا مع ملفين موجودين بالفعل
وانا اريد اضافة من الاسكانر لملف موجود -
في ٣٠/١٠/٢٠١٩ at 14:32, jjafferr said:
هذا كود لفتح ملف pdf موجود في مجلد السنة ، عن طريق برنامج الاكروبات.
اذن انت سحبت اوراق من الاسكنر ، وتريد ان تضيف هذه الاوراق على الملف اعلاه؟
جعفر
بالفعل انا عندي زر اخر لإضافة الملف لمسار السنة
المطلوب في حالة الاضافة ان تكون الاضافة من الاسكانر للملف المخزن مباشرة ؟ هل البرنامج تبعك يدعم ذلك من الاسكنر مباشرة للملف ؟
وجزاك الله خير على تعبك ساقوم بتتبع الشرح في البرنامج المرفق وسوافيك بالنتيجة ان شاء اللهدمت سالما
-
3 ساعات مضت, jjafferr said:
وعليكم السلام 🙂
اذا الزر الموجود في برنامج اكسس مفتوح المصدر ، فنعم ممكن عمل ذلك 🙂
جعفر
تسلم اخوي جعفر جزاك الله خير
هذا كود الزر هل هو مفتوح ام لاDim stAppName As String Dim File As String Dim YS As String File = Me.TT YS = Me.Years If Me.YesNo.Value = "no" Then MsgBox "عذرا ... ربما لم يتم سحب الملف", vbCritical, "لا يوجد ملف" DoCmd.CancelEvent Else stAppName = "C:\Program Files (x86)\Adobe\Acrobat 11.0\Acrobat\acrobat.exe \\recserver\Rec\R\wared\" & YS & "\" & File & ".pdf" Call Shell(stAppName, 1) End If
-
السلام عليكم اخواني واحبابي
عندي برنامج سجل فيه ذر فتح ملف PFD شغال تمام وبعد ما يفتح الPDF اقدر اضيف منه اوراق زيادة بكم العمل يتطلب ذلك
هل ممكن اطور الذر ده بحيث لما اضع ورق بالاسكنر واضغط على الذر يقوم تلقائي باضافة الورق لمف PDF ?
وشكرا
-
السلام عليكم
عندي نموذج فرعي به حقل (الشركات)
المطلوب هو عند اضافة القيمة "الشركات الكبرى" في حقل (الشركات) يقوم هو مباشرة بأضافة عدد سجلات الشركات الكبرى الموجودة لدى اياً كان عددها كل شركة على حدا في سجل لوحدهاوجزاكم الله خير
-
14 ساعات مضت, kanory said:
ممكن هذا حل لطلبك ....
جزاك الله خير
شاهد الصورة تعرف الحل- 1
-
هل من حل او فيه احد مرت عليه ؟
-
اذا كانت النسخة مفتوحة فانت قطعت الربط ولازم المستخدم يقفل اجباري واذا حاول يفتح ثاني لا تفتح النسخة ابدأ ، صارلي سنوات احاول فيها ماكو فايده
-
السلام عليكم احبابي
- عندي برنامج شؤون موظفين يعمل على شبكة داخلية بشكل يومي من قبل مجموعة من المستخدمين عن طريق وضع شورت كت على اجهزتهم- انا بطور في البرنامج بشكل شبة يومي طبعا على نسخة خارجية
- طبعا بعد ما اطور عليها بقوم بنسخها فوق القديمة استبدال يعني وعشان اعمل كدة لازم اطلب من الجميع اغلاق البرنامج عشان اقدر اضع النسخة المطورة بدون حدوث مشاكل .
السؤال بقى :
هل عشان كل مرة احط نسخة مطورة من البرنامج لازم اطلب من الجميع اغلاق البرنامج ، ولو حصل وحطيت النسجة بدون ما حد يقفل الدنيا تتبهدل ومحدش يعرف يفتخها تاني ويحصل مشاكل فيها ؟
هل فيه طريقة سهله ؟وجزاكم الله خير
-
السلام عليكم اخواني الاحباب
عندي كود عرض الكتب بي دي اف PDF
الكود شغال تمام في نفس النموذج لكن اريد تعديله لظهر في نموذج اخر فرعي
اريد التعديل هنا
Me.AcroPDF0.LoadFile ("\\recserver\Rec\R\Wared\" & Me.[yeae] & "\" & Me.[file] & ".PDF")
QuotePublic Sub PDF()
On Error Resume Next
Me.AcroPDF0.LoadFile ""
Me.AcroPDF0.LoadFile ("\\recserver\Rec\R\Wared\" & Me.[yeae] & "\" & Me.[file] & ".PDF")
End Sub
-
في 3/9/2017 at 12:57, wael_rafat said:
عليكم السلام
اخي الطاير ولنفترض ان حقل الرقم القومي اسمه civil_no
الطريقة الاولي
ضع في خصائص الحقل بالجدول عند خاصية input mask القناع
00000000000000 ;0;_
الطريقة الثانية
بالنموذج عند خاصية on change
if len (me.civil_no.text )<>14 then
رسالة بالخطأ
me.civil_no.set focus
end if
بالتوفيق
الله يفتح عليك يا استاذ وائل يا غالي جزاك الله خير -
السلام عليكم اخواني الاحباب
ان شاء الله طلب بسيط : لدي حقل نص واريده ان يلتزم بعدد ارقام معينة 14 رقم قومي لا يزيد ولا يقل عنهم ، حتى لا يكون هناك خطأ من المستخدم في عملية ادخال البيانات
وجزاكم الله خير
-
جزاك الله خير اخوي صالح
ان بالفعل شوفت مثال نفس هذا في المنتدى
لكن اريد ان يبحث في نفسه دون اللجوء اللى وضع مربع نص غير منضم آخر لأن هذه العلمية تسببت في بطئ شديد في البرنامج اثناء البحث -
السلام عليكم اخواني الاحباب
بحثت كثير قبل كتابة الموضوع ووجدت نماذج قريبة من بحثي لكن لم تفي بالغرض
كل ما اريده هو بحث (اثناء الكتابة) داخل كومبو بوكس أي لو كتبت مثلا حرف "ب" يفلتر كل القيم الموجود بها حرف "ب" ثم اقوميعني الحدث يكون في On change يعمل Dropdown
وجزاكم الله خير
-
8 ساعات مضت, alashqar said:
وين الحل
اخوي انا اسأل فيه حل ؟
وين اصحاب الخبرة جزاكم الله خير
-
فيه حل ؟؟؟
-
-
جزاكم الله خير يا جماعة الخير
لقد وجت الحل في هذاالموضوع
جزاكم الله خير يا جماعة الخير
لقد وجت الحل في هذاالموضوع
لكلن بقي شي بسيط وهو ان حساب الايام بيكون ناقص يوم ؟؟؟
-
السلام عليكم
يا جماعة عندي برنامج شؤون موظفين
مطلوب مني معرفة عدد ايام الاجازات لسنة 2015 لكل موظف وكذلك الطبيات والغيابات .... الخ فقط داخل سنة 2015
مثال : يعني لو موظف اخذ اجازة 10 ايام من 27/12/2014 إلى 5/1/2015
كل ما اريد هو مجموع 5 ايام في 2015 ويتجاهل ما اخذه في 2014
هل يوجد موديل تقوم بحساب هذا الشرط ؟
وجزاكم الله خير
مساعدة في تعديل الكود المساح الضوئي Scanner
في قسم الأكسيس Access
قام بنشر
Private Sub Append_Click() ' تنفيذ الكود هنا TWAIN_SetFileAppendFlag 1 TWAIN_AcquireMultipageFile 0, "C:\Users\Altayer\Desktop\Scan.PDF" End Sub
الحمد لله وجدت الكود هذا وحل لي المشكلة واضافة الأوراق الى الملف الموجود بالفعل في اخر الملف
المطلوب هو تعديل الكود ليضيف الأوراق الى اول الملف ؟