الطـاير

Private Sub Append_Click() ' تنفيذ الكود هنا TWAIN_SetFileAppendFlag 1 TWAIN_AcquireMultipageFile 0, "C:\Users\Altayer\Desktop\Scan.PDF" End Sub الحمد لله وجدت الكود هذا وحل لي المشكلة واضافة الأوراق الى الملف الموجود بالفعل في اخر الملف المطلوب هو تعديل الكود ليضيف الأوراق الى اول الملف ؟

جزاك الله خير اخوي دروب مبرمج مثالك جميل لكن يحول الصور الى 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 تلقائي وحفظ الملف دون فتحة وجزاكم الله خير

جزاكم الله خير جميعا على هذا الصرح الطيب

سحاول ان شاء الله واعطيك الخبر جزاك الله خير

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

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

تسلم اخوي جعفر جزاك الله خير هذا كود الزر هل هو مفتوح ام لا 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 ? وشكرا

السلام عليكم عندي نموذج فرعي به حقل (الشركات) المطلوب هو عند اضافة القيمة "الشركات الكبرى" في حقل (الشركات) يقوم هو مباشرة بأضافة عدد سجلات الشركات الكبرى الموجودة لدى اياً كان عددها كل شركة على حدا في سجل لوحدها وجزاكم الله خير

جزاك الله خير شاهد الصورة تعرف الحل New Picture.bmp

هل من حل او فيه احد مرت عليه ؟

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

السلام عليكم احبابي - عندي برنامج شؤون موظفين يعمل على شبكة داخلية بشكل يومي من قبل مجموعة من المستخدمين عن طريق وضع شورت كت على اجهزتهم - انا بطور في البرنامج بشكل شبة يومي طبعا على نسخة خارجية - طبعا بعد ما اطور عليها بقوم بنسخها فوق القديمة استبدال يعني وعشان اعمل كدة لازم اطلب من الجميع اغلاق البرنامج عشان اقدر اضع النسخة المطورة بدون حدوث مشاكل . السؤال بقى : هل عشان كل مرة احط نسخة مطورة من البرنامج لازم اطلب من الجميع اغلاق البرنامج ، ولو حصل وحطيت النسجة بدون ما حد يقفل الدنيا تتبهدل ومحدش يعرف يفتخها تاني ويحصل مشاكل فيها ؟ هل فيه طريقة سهله ؟ وجزاكم الله خير