jjafferr

يا سلام !! الطبخة وانتوا طبختوها ، والاكله وانتوا اكلتوها ، على طاري الاكله ، ليش وين العزومة ، جاهز للإنقاذ 🙂 جعفر

السلام عليكم 🙂 لوسمحت تعطينا مرفق ، علشان اغير الكود الى استعلامين ، حتى يكون اسرع 🙂 جعفر

وعليكم السلام 🙂 البرامج التي بصيغة mde. و accde. مقفله ، فلا تستطيع ان ترى الكود ، نعم هناك طريقة تفتح فيها النماذج ، وتستطيع ان تغير (ولا تحذف شيء ابدا) ، ولكن لن تستطيع عمل تغيير كود ، طبعا تقدر تعمل ماكرو للحدث الجديد. بس من الواضح انك لم تعمل البرنامج ، لذا الافضل ان ترجع الى المبرمج لعمل التغييرات المطلوبة 🙂 جعفر

يمكنك ان تضغط الملف ببرامج الضغط مثل winrar او winzip او 7z 🙂 او ترفع ملفك في احد مواقع الرفع ، ثم ترفق لنا الرابط هنا 🙂 جعفر

هلا والله 🙂 يعني لازلت تذكر 🙂 جعفر

وعليكم السلام 🙂 اذا OLE ، اذن لا توجد لغة صحيحة بها UNICODE 🙂 جعفر

هلا والله 🙂

رحم الله والديك ، سهلت علينا الطريق هلا والله أبوآمنة 🙂 اشوف واخبرك ، بس للعلم ، انا ملاحظاتي مو اللي تجي على بالك جعفر

في زر الاضافة ، انت تبحث عن الطالب في الاستعلام qryCheckRepeat . لذلك ، وجب علينا ان نكتب التاريخ ايضا في معيار حقل التاريخ ، والذي نشير اليه لحقل التاريخ في النموذج Form3 : . جعفر

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

السلام عليكم 🙂 اخوي الطاير ، هذا الكود من الرابط اللي اعطيتك : Private Sub cmd_combine_Click() 'Merge Two or More PDFs into a New Document 'pdftk 1.pdf 2.pdf 3.pdf cat output 123.pdf Dim pdftk_File As String Dim a_FILE As String Dim b_FILE As String Dim ab_FILE As String Dim Command_Line As String pdftk_File = Chr(34) & Application.CurrentProject.Path & "\" & "pdftk" & Chr(34) a_FILE = Chr(34) & Application.CurrentProject.Path & "\" & "a.pdf" & Chr(34) b_FILE = Chr(34) & Application.CurrentProject.Path & "\" & "b.pdf" & Chr(34) ab_FILE = Chr(34) & Application.CurrentProject.Path & "\" & "ab.pdf" & Chr(34) Command_Line = pdftk_File & " " Command_Line = Command_Line & a_FILE & " " Command_Line = Command_Line & b_FILE & " " Command_Line = Command_Line & "cat output" & " " Command_Line = Command_Line & ab_FILE 'Debug.Print Command_Line Shell_n_Wait Command_Line, vbHide End Sub . لازم تغير مسارات الكود الى تلك التي عندك في كمبيوترك. مثلا يجب تغيير السطر التالي ، الى مسار واسم ملف الـ pdf اللي يقوم الاسكانر بعمله a_FILE = Chr(34) & Application.CurrentProject.Path & "\" & "a.pdf" & Chr(34) يعني اذا الاسكانر يعمل لك ملف اسمه myScan.pdf في المسار D:\myScanner_Files ، فيصبح السطر اعلاه: a_File = "D:\myScanner_Files\myScan.pdf" . ويجب ان تعمل نفس الشيء للسطرين b_File و ab_File 🙂 جعفر

شكرا اخوي ابا جودي ، سهلت عليّ المهمة 🙂 جعفر

وعليكم السلام 🙂 شكرا لك اخوي ابو زاهر ، ليس بصفتي عضو في فريق الموقع فقط ، وانما بصفتي العضو جعفر ايضا 🙂 مكان رائع نجتمع فيه ، حُباً في خدمة بعضنا البعض 🙂 جعفر

تفضل اخوي ابو ياسين ، فالموضوع تابع للسؤال 🙂 وشكرا لك على مراعاة قوانين المنتدى 🙂 جعفر

الرابط اللي اعطيتك ، فيه مرفق للاستاذ ابا جودي ، وفيه نموذج ، وفي النموذج زر لطباعة جميع السجلات : . وهذه نتيجة التقرير : جعفر

وعليكم السلام 🙂 اهلا وسهلا بك في المنتدى اخي خالد 🙂 رجاء الاطلاع على قوانين المنتدى: قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف جعفر

وعليكم السلام 🙂 لقد قام اخي اباجودي مشكورا بهذا العمل (شكرا يا ابو احمد 🙂 ) ، في هذه المشاركة: جعفر

ايه يا باشا ، انتو سنتكم غير عننا وإلا ايه جعفر

آه نسيت !! الفاصلة المنقوطة بدل الفاصلة 🙂 شكرا يا شباب ، استاذ محمد واستاذ خالد 🙂 جعفر

السلام عليكم 🙂 الاستاذ خالد اعطاك الجواب 🙂 وانا استغل الفرصة ، واستعمل جوابه ، ولكن احذف المسافة الفارغة الموجودة في الحقول ، بإستخدام الامر Trim : للمادة M2: Trim(Left([subname],Len([subname])-9)) والشعبة S2: Trim(Right([subname],9)) جعفر

وعليكم السلام 🙂 من مكتبتي ، رسائل التنبيه ، تم مناقشتها هنا 🙂 . . . . . جعفر

وعليكم السلام 🙂 حيا الله ولد بلادي 🙂 احنا هنا في قسم الاكسس ، وما عندنا قسم مال الفايل ميكر في المنتدى !! فما اقدر افيدك ، وان شاء الله يكون بيننا من يعرف الفايل ميكر ، ويرد عليك 🙂 اما اذا عندك سؤال في الاكسس ، تلقانا هبة ريح ان شاء الله 🙂 جعفر

تفضل 🙂 Private Sub K_id_BeforeUpdate(Cancel As Integer) If Left(Me.K_id, 1) <> 2 Then Cancel = True MsgBox "يجب ان يبدأ هذا الحقل بالرقم 2" Exit Sub End If End Sub جعفر

السلام عليكم 🙂 هذا المنتدى ولله الحمد ، به الخير الكثير ، والخبراء يسطعون بعطائهم مميزين بعطائهم 🙂 اخي الكريم @ابوآمنة ومحمد البرناوي @Barna ، لنا الشرف انظمامكم لفريق الخبراء 🙂 ولازلنا نبحث بين الاجابات على المتميزين 🙂 جعفر

اخي الفاضل ، شوي شوي علينا 🙂 ما وصلنا من العلم ان نخمن المطلوب ، وسحرنا العماني بعده في اوله وخصوصا انك مرفق صورة في النموذجين ، اللي فيها ارقام مشابهة للارقام في مشاركتك الاولى !! اعطنا بيانات ، واخبرنا اسماء الحقول ، ومن هذا البيانات ، اخبرنا كيف تريد النتائج تطلع 🙂 جعفر