jjafferr

وعليكم السلام 🙂 رجاء مراعاة قوانين المنتدى في جعل اسم الموضوع له علاقة بمحتوى السؤال 🙂 هذه دالة موجودة في مساعد الاكسس ، وتم التغيير عليها لتتناسب مع طلبك: Public Function YMDDif4(sDate1, sDate2) On Error GoTo err_YMDDif4 'sDate1 earliest date 'sDate2 later date Dim dInterim1 As Date iMonth = DateDiff("m", sDate1, sDate2) If Day(sDate1) > Day(sDate2) Then iMonth = iMonth - 1 End If dInterim1 = DateAdd("m", iMonth, sDate1) iDay = DateDiff("d", dInterim1, sDate2) D = iDay M = iMonth Mod 12 Y = iMonth \ 12 'YMDDif4 = CStr(Y) & " Years " & CStr(M) & " months " & CStr(D) & " days" YMDDif4 = CStr(Y) & " س/" & CStr(M) & " ش/" & CStr(D) & " ي" Exit Function err_YMDDif4: If Err.Number = 94 Then 'ignor, null Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Function نناديها: Me.lbl_Age.Caption = YMDDif4(Old date , New Date) وللتاريخين اعلاه Me.lbl_Age.Caption = YMDDif4("06/03/2018", "31/10/2019") ونتيجة التاريخين اعلاه كان: 1 س/7 ش/25 ي جعفر

تفضل ، هذا الرابط به طلبك 🙂 جعفر

السلام عليكم 🙂 بالاضافة الى ميزات الاكسس الشخصية ، فيه امكانية مخاطبة البرامج الاخرى بعدة طرق ، احدها عن طريق Command line ، بحيث يمكننا ان نرسل اوامر من الاكسس الى هذا البرنامج الذي يقبل الاوامر من Command line . البرنامج pdftk (في المرفق) احد هذه البرامج : https://www.pdflabs.com/tools/pdftk-the-pdf-toolkit/ المرفق فيه برنامج اكسس وملف a.pdf و b.pdf ، وبزر من الاكسس ، سيتم دمج الملفين الى ملف ab.pdf ، وفي المرفق ملف الاوامر التي يقبلها برنامج pdftk . البرنامج يستطيع التعامل مع ملفات pdf بعدة طرق ، لذلك وجب قراءة ملف الاوامر 🙂 وهذا هو الكود: 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 جعفر اعتقد عندي هذا الملف من سنة 2009 --------------------------------------------------------------- تعديل 31-10-2019 : - استخدام الوحدة النمطية Shell_n_Wait والتي تقبل حروف unicode - utf-8 ، من https://github.com/xxdoc/vb6-Shell-Wait/blob/master/Shell %26 Wait v2/modShellWait.bas http://www.vbforums.com/showthread.php?700373-VB6-Shell-amp-Wait&p=4288285&viewfull=1#post4288285 - تم تغليف مسار الملفات بالاشارة " ، وذلك لحل مشكلة وجود مسافات في اسم المسار او الملف ، - تم تفكيك خط الامر الى مكونات اصغر ، لسهولة تغيير اي جزء منه. --------------------------------------------------------------- تعديل 15-01-2023 : يمكننا استعمال الاسم القصير Short FileName للتغلب على مشكلة اللغة العربية في استعمال هذا البرنامج 🙂 يصبح الكود: Private Sub cmd_combine_Click() On Error GoTo err_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) 'File 'a_FILE = Chr(34) & Application.CurrentProject.Path & "\" & "a.pdf" & Chr(34) a_FILE = Chr(34) & get8_3FullFileName(1, Application.CurrentProject.Path & "\" & "ملف1" & "\" & "a.pdf") & Chr(34) b_FILE = Chr(34) & Application.CurrentProject.Path & "\" & "b.pdf" & Chr(34) 'Folder 'ab_FILE = Chr(34) & Application.CurrentProject.Path & "\" & "ab.pdf" & Chr(34) ab_FILE = get8_3FullFileName(2, Application.CurrentProject.Path & "\" & "المجلد النهائي") & "\" & "ab.pdf" Kill ab_FILE ab_FILE = Chr(34) & ab_FILE & 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 Exit_cmd_combine_Click: Exit Sub err_cmd_combine_Click: If Err.Number = 53 Then 'file not for for deletion Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description Resume Exit_cmd_combine_Click End If End Sub . وهذه الدالة التي يتم مناداتها لتغيير المسار الى 8.3 Function get8_3FullFileName(F_or_F As Integer, ByVal sFullFileName As String) As String ' ' Convert the normal path to the old DOS 8.3 path ' this solves the problem of spaces in the path ' and reading Unicode names ' ' F_or_F : File or Folder ' 1= File ' 2= Folder ' Dim FSO As Object: Set FSO = CreateObject("Scripting.FileSystemObject") If F_or_F = 1 Then get8_3FullFileName = FSO.GetFile(sFullFileName).ShortPath Else get8_3FullFileName = FSO.GetFolder(sFullFileName).ShortPath End If Debug.Print "Original File Path: " & sFullFileName Debug.Print "8.3 File Path: " & get8_3FullFileName End Function . والمرفق Combine_PDF_Files_83.zip فيه المثال اعلاه 🙂 Combine_PDF_Files_2.zip pdftk_2.02.zip Combine_PDF_Files_83.zip

هذا كود لفتح ملف pdf موجود في مجلد السنة ، عن طريق برنامج الاكروبات. اذن انت سحبت اوراق من الاسكنر ، وتريد ان تضيف هذه الاوراق على الملف اعلاه؟ جعفر

وعليكم السلام 🙂 اذا الزر الموجود في برنامج اكسس مفتوح المصدر ، فنعم ممكن عمل ذلك 🙂 جعفر

وعليكم السلام 🙂 شوف هذا الرابط جعفر

وانا اضم صوتي الى صوت الشباب ، وفي انتظار ردك اخي محمد 🙂 آن الاوان ان نرى جواهر الافكار تلمع جنب بعضها البعض 🙂 جعفر

حياك الله 🙂 جعفر

هلا وغلا بوعبدالله 🙂 جعفر

وعليكم السلام 🙂 انا استعمل الكود التالي في احد برامجي: dim rpt_Name as string dim How_Many_Copies as integer rpt_Name= "myReport" How_Many_Copies=3 'print the Receipt DoCmd.OpenReport rpt_Name, acViewPreview, , "[Auto_ID]=" & me.Auto_ID , acHidden DoCmd.SelectObject acReport, rpt_Name DoCmd.PrintOut acPages, , , acHigh, How_Many_Copies DoCmd.Close acReport, rpt_Name, acSaveNo وهنا جوار جميل ، قد تستفيد منه: جعفر

شكرا جزيلا اخوي كاسر 🙂 جعفر

ايش رايك في استعلام واحد 🙂 . جعفر 1116.1.Split.mdb.zip

المفروض انها تعمل على الاكسس من 2007 بنفس الطريقة جعفر

وعليكم السلام 🙂 عند استخدام الاكسس في شبكة ، وعلشان ما يستطيع اكثر من مستخدم تغيير سجل معين ، فالاكسس يعمل تأمين على مستوى الصفوف ، ولكن عند تشفير قاعدة البيانات ، فالاكسس يستخدم تأمين آخر. والرسالة هذه مجرد إخبار لك بأن الاكسس سيقوم بعمل تغيير في اعداداتك 🙂 جعفر

اما مسمى "العود" ، فتارة نطلقها على كبيرنا ، ليس عمرا ، وإنما مكانةً ، وهذا قصدي في كلامي عن اخوي @ابوخليل 🙂 واما العود المتعارف عليها ، فأهلا وسهلا في فريقنا مع اخوي ابوخليل 🙂 جعفر

تفضل ، تم التعديل على مرفقك🙂 بس انت قلت انك تريد كل تاريخ في صفحة مستقلة ، وهذا اللي عملته لك !! جعفر 1117.2.برنامج متابعة غياب طلاب الفراغات.mdb.zip

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

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

السلام عليكم 🙂 تفضل 🙂 الاستعلام 3 يقوم بعملية إلحاق البيانات الى الجدول Tab2 : جعفر 1116.1.Split.mdb.zip

تفضل 🙂 1117.1.برنامج متابعة غياب طلاب الفراغات.mdb.zip

هل جربت المرفق؟

حياك الله ، واهلا وسهلا بك في المنتدى 🙂 بس هل جربت المرفق الآن؟ جعفر

رجاء رد على استفسارات الاعضاء ، ولا تفتح موضوع جديد ، فهذا فيه تشتيت الجهد !! افتح النموذج ، وادخل التواريخ ، ثم انقر على فتح التقرير: . هذه الصفحة الاولى: . وهذه الثانية: . وين المشكلة؟ جعفر

ليش انت شفت المرفق اللي عملته لك؟؟ فيه اللي تريده

استخدم النموذج frm_rpt_SubSt في معاينة التقرير 🙂 جعفر1117.برنامج متابعة غياب طلاب الفراغات.mdb.zip