الطـاير

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

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

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

في ٣٠‏/١٠‏/٢٠١٩ 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.accdb

جزاك الله خير 

شاهد الصورة تعرف الحل 

New Picture.bmp

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

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

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

- انا بطور في البرنامج بشكل شبة يومي طبعا على نسخة خارجية 

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

السؤال بقى :
 

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

هل فيه طريقة سهله ؟

وجزاكم الله خير 

السلام عليكم اخواني الاحباب 

عندي كود عرض الكتب بي دي اف PDF 

الكود شغال تمام في نفس النموذج لكن اريد تعديله لظهر في نموذج اخر فرعي 

اريد التعديل هنا 

Me.AcroPDF0.LoadFile ("\\recserver\Rec\R\Wared\" & Me.[yeae] & "\" & Me.[file] & ".PDF")
 

Quote

Public 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:

وين الحل 

اخوي انا اسأل فيه حل ؟ 

وين اصحاب الخبرة جزاكم الله خير 

فيه حل ؟؟؟

السلام عليكم 

يا جماعة لفيت لفيت عشان الاقس طريقة لعمل مينو بار في اكسس 2010 مش لاقي نفس اللي في الصورة 

هل من طريقة لعملها جزاكم الله خير 

جزاكم الله خير يا جماعة الخير 

لقد وجت الحل في هذاالموضوع 

جزاكم الله خير يا جماعة الخير 

لقد وجت الحل في هذاالموضوع 

لكلن بقي شي بسيط وهو ان حساب الايام بيكون ناقص يوم ؟؟؟ 

السلام عليكم

يا جماعة عندي برنامج شؤون موظفين

مطلوب مني معرفة عدد ايام الاجازات لسنة 2015 لكل موظف وكذلك الطبيات والغيابات .... الخ فقط داخل سنة 2015

مثال : يعني لو موظف اخذ اجازة 10 ايام من 27/12/2014  إلى 5/1/2015 

كل ما اريد هو مجموع 5 ايام في 2015 ويتجاهل ما اخذه في 2014 

هل يوجد موديل تقوم بحساب هذا الشرط ؟

وجزاكم الله خير