jjafferr

السلام عليكم 🙂 اخوي الطاير ، هذا الكود من الرابط اللي اعطيتك : 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 ، لنا الشرف انظمامكم لفريق الخبراء 🙂 ولازلنا نبحث بين الاجابات على المتميزين 🙂 جعفر

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

عذرا ، لم الحظ هذا الكود !! اعمل بحث واستبدال بدل Me.Text40 استعمل Me.iDate جعفر

السلام عليكم اخوي ابوعلي 🙂 سؤالك يحتاج ان نرى برنامجك ، رجاء ارفق هذه الجزئية ، ورجاء ، المرفق يجب ان يكون فيه بيانات حتى نستطيع ان نجربه. ورجاء ان تخبرنا من المرفق ، اسم التقرير ، واسماء الحقول اللي فيها المشكلة 🙂 جعفر

وعليكم السلام 🙂 قمت بتغيير اسم حقل التاريخ الى iDate ، و زر الاضافه ، اصبح كوده (يتأكد من ادخال بيانات اليوم والحصة والتاريخ ، واذا ما اردت اي منهم ، يمكنك الغاءه/حذفه من الكود) : Private Sub Command42_Click() 'التأكد من ان الحقول مملوءه قبل السماح بإضافة سجل If Len(Me.iDay & "") = 0 Then 'اليوم MsgBox "فضلا أدخل اليوم" Me.iDay.SetFocus Exit Sub ElseIf Len(Me.iA1 & "") = 0 Then 'الحصة MsgBox "فضلا أدخل الحصة" Me.iA1.SetFocus Exit Sub ElseIf Len(Me.iDate & "") = 0 Then 'التاريخ MsgBox "فضلا أدخل تاريخ اليوم" Me.iDate.SetFocus Exit Sub End If If DCount("[MainId]", "qryCheckRepeat") = 0 Then DoCmd.SetWarnings False DoCmd.RunSQL "insert into subst(mainid,type,TDate,Day,A1)values (' " & Me.StId & " ',' " & Me.Combo36 & " ',' " & Me.Text40 & " ',' " & Me.iDay & " ','" & Me.iA1 & "')" DoCmd.SetWarnings True Me.iStName.Requery Me.SubSt.Requery Else MsgBox "لقد تم تحضير الطالب من قبل" Exit Sub End If End Sub جعفر 1126.(02) متابعة غياب طلاب الفراغات.mdb.zip

السلام عليكم 🙂 اخي @Gamor شو المشكلة؟ في تاريخ 28 / 10 اخونا محمد عبد الله اعطاك طريقتين للحل ، في الاستعلام وفي النموذج: فكل اللي عليك فعله ، هو نسخ الكود اعلاه ، الى برنامجك ، سواء في الاستعلام او في النموذج ، مع تغيير اسماء الحقول. جعفر

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

تفضل 🙂 تصحيح فني ، ولا علاقة له بالموضوع: هذه الطريقة خطأ Option Compare Database Dim UserRS As Recordset Option Explicit Public UsN Public UsM والطريقة الصحيحة Option Compare Database Option Explicit Dim UserRS As Recordset Public UsN Public UsM . والخطأ كان في هذا السطر: Set UserRS = DB.OpenRecordset(" SELECT tbl_User.* FROM tbl_User WHERE tbl_User.user_name ='" & UsN & "' AND tbl_User.City='" & UsM & "';", dbOpenDynaset) ولكنك لم تخبر البرنامج ما هو المتغير DB ، لهذا السبب يمكننا تغيير الكود الى التالي: Set UserRS = CurrentDb.OpenRecordset(" SELECT tbl_User.* FROM tbl_User WHERE tbl_User.user_name ='" & UsN & "' AND tbl_User.City='" & UsM & "';", dbOpenDynaset) ويمكن اختصاره الى Set UserRS = CurrentDb.OpenRecordset(" SELECT * FROM tbl_User WHERE user_name ='" & UsN & "' AND City='" & UsM & "';", dbOpenDynaset) . جعفر

تفضل 🙂 Private Sub TabCtl0_Change() 'page name Me.ss1 = Me.TabCtl0.Pages.Item(TabCtl0.Value).Name 'OR 'page caption Me.ss1 = Me.TabCtl0.Pages.Item(TabCtl0.Value).caption End Sub جعفر

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

السلام عليكم 🙂 تفضل 🙂 'FileCopy varFile, destpath Name varFile As destpath جعفر

السلام عليكم 🙂 اخي إمام ، قوانين المنتدى تقول ، سؤال واحد لكل موضوع ، وقد تمت الاجابة على سؤالك ، فرجاء عمل موضوع جديد لسؤالك الاخير 🙂 يُغلق. جعفر