jjafferr

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

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

عذرا ، لم الحظ هذا الكود !! اعمل بحث واستبدال بدل 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 مشاركة ، فتلقائيا يستطيع استعمال الرسائل الخاصة 🙂 تفضل ، هذا الموضوع فيه طلبك 🙂 جعفر