نجوم المشاركات

السلام عليكم 🙂 بالاضافة الى ميزات الاكسس الشخصية ، فيه امكانية مخاطبة البرامج الاخرى بعدة طرق ، احدها عن طريق 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

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

واذا ترغب البقاء في الجدول ممكن تظيف حقل في الجدول بالبونص المستحق جرب المرفق Database102.accdb طبعا استعنت بحل استاذنا جعفر

وفي سطر واحد للاستعلام 🙂 Bobus: iif(int([A]) = [A] ; [A] ; 0) جعفر

اذن ، اي رقم يكون عشري ، تريد النتيجة = 0 استخدم: A = (10 / 4) if int(A) = A then Bonus = A else Bonus = 0 end if جعفر

السلام عليكم ورحمة الله تم عمل المطلوب في الملف المرفق... موازنة علي البنود.xlsx

وعليك السلام ورحمة الله وبركاته جرب هذا حساب عدد المشتركون مع الغياب.xlsx

لا يوجد طريقة عمليه فعالة لربط الاكسس بالتليفون الا فى حالات محدودة مثلا ارسال الرسائل من الاكسس للموبايل وهذه الخدمة قد تكون مدفوعة فى اغلب الحالات اما اذا اردتى تشغيل قاعدة بيانات اكسس بكل محتوياتها من نماذج وتقارير فلا ترهقين نفسك بالبحث فلا يوجد الا فى الحالات الاتية الواجهة المرتبطة بقاعدة اكسس من نوع html او عن طريق برنامج teamviewr وربط الهاتف بالكمبيوتر يمكنك البحث عن برنامج يقوم بعمل الاتى تثبيت ويندوز xp على الهاتف اعتقد انه موجود لكن لا اتذكر اسمه هذا على حد علمى ومن يدرى فكل يوم بحال

http://www.officena.net/team/khboor/kh_image/p22.gif المواضيع الحديثة دورة شرح الفيجول بيسك للتطبيقات VBA عبدالله المجرب [مفاجاة سارة] الدرس الرابع من سلسلة شروحات فيديو " الترحيل " أربعة أجزاء عبدالله المجرب امثلة عن كيفية استخدام أدوات الفورم (( متجدد ان شاء الله)) ضاحي الغريب اضخم كتاب لتعلم الصيغ والدوال في Excel 2007 امين بعض الدروس والتطبيقات على الاكسل فيديو (( متجدد )) قنديل الصياد سلسلة الفارس فى شرح دوال الإكسل ( فيديو ) متجدد رجب جاويش شرح دوال الاكسيل صوت وصورة ( باللغة العربية) ؛ أحمد النجار ؛ جميع النماذج من أكواد ومعادلات الخاصة بالتفقيط محمود_الشريف إنشاء القوائم المنسدلة (دروس للمبتدئين) ياسر خليل سلسلة الفارس فى شرح دوال الإكسل ( فيديو ) متجدد رجب جاويش شرح دوال الاكسيل صوت وصورة ( باللغة العربية) أحمد النجار جميع النماذج من أكواد ومعادلات الخاصة بالتفقيط محمود_الشريف

السلام عليكم ورحمة الله وبركاته الاصدار الرابع : فورم اضافة وبحث وتعديل مرن مع استعراض الصور (تحكم كامل بالصورة ) المرفق 2003 فورم ادخال و تعديل مرن مع الصور.rar http://www.officena.net/team/khboor/kh_image/p86.png هام جدا بتاريخ ( 14 / 6 / 2023 ) لكي يعمل الفورم جيدا بدون اخطاء لابد من عمل الاتي 1- UnRegister MSCOMCT2.OCX ازاله تسجيل الملف MSCOMCT2.OCX تشغيل الامر cmd كمسئول ثم كتابه الأمر التالي لو كان الويندوز ٦٤ بت regsvr32 /u C:\Windows\SysWOW64\MSCOMCT2.OCX او regsvr32 /u C:\Windows\System32\MSCOMCT2.OCX لو كان الويندوز ٣٢ ثم بفك الضغط عن الملف المرفق بأسم MSCOMCT2.OCX ونقوم بنسخه الي المسار التالي ويندوز٦٤ بت C:\Windows\SysWOW64 ويندوز ٣٢ بت C:\Windows\System32 2- Register MSCOMCT2.OCX ثم نقوم بعمل ريجستر للملف الذي نسخناه في الويندوز عن طريق هذا الأمر ويندوز ٦٤ regsvr32 C:\Windows\SysWOW64\MSCOMCT2.OCX ويندوز ٣٢ regsvr32 C:\Windows\Sys\MSCOMCT2.OCX MSCOMCT2.zip

وعليكم السلام -ربما عليك تسطيب ويندوز جديد فقد يكون بسبب الويندوز

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

وعليكم السلام 🙂 هل كلامك في نفس الكمبيوتر ، وإلا عن طريق الشبكة؟ جعفر

مشكور اخ جعفر تحياااااتي

دكتور محمد طلباتك اوامر هنا الملف 18 ميجا تقريبا وهذا موقع فيه ايقونات مميزة https://icons8.com/icons

أحسنت استاذ عوض برنامج ممتاز بارك الله فيك

فورم اختيار الصف وترحيل الى شيت اخر الفيديو

هذه المعادلة (اذا كنت تريد ان تعتبر الغائب مكملاً) الرقم 10 هو درجة الاكمال و يمكن تغييرها =COUNTIF(D6:K6,"<=10")+COUNTIF(D6:K6,"غ")

جرب هذا المعادلة =IF(C11="","",VLOOKUP(C11,$B$3:$C$7,2,0)-SUMIFS($F$11:F11,$C$11:C11,C11))

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

عليك السلام ورحمة الله وبركاته جرب هذا لعله يفي الغرض 1.xlsx

اخي الفاضل انا تصفحت من الموبيل لكن رغم اننا لم استطع فهم الموضوع كامل انما لدي موضوع سابق قد تستفيد منه ادراج الاصناف تلقائيا راح ادوره وارسله لك ان شاء الله في الليل تحياتي

اذا كان يتغير حجم النموذج فيمكن استخدام اكواد التحجيم اما اذا كان المقصود تغير ترتيب الحقول وازار الاوامر فيمكن ضبط ذلك عن طريق الارتساء

وفقك الله . هذا هو المطلوب . 😘

استاذي العزيز @ابا جودى مارأيك بسيريال جهاز الكومبيوتر الذي تجده مطبوع اسفل الجهاز؟ هل تعتقد انه يتغير أم لا؟ إليك هذا المثال your PC's serial number.accdb

تسلم استاذ محمد جربتها واشتغلت جزاك الله خيرا بالرغم انى جربتها على Max و Min وما ظبطت ولم اعرف السبب وحاولت ابحث فيها ولم اعثر على اجابه لها تمنياتى لكم وللجميع بالتوفيق

وعليكم السلام ورحمة الله وبركاته جرب هذه الطريقة test(2).accdb الشرح بالصورة تحياتي

السلام عليكم الأستاذ / emam1424 تفضل التعديل في المرفق قمت بعمل نموذج أسمه Absent من خلاله يتم البحث بإسم الطالب وطباعة تقرير الغياب أرجو أن يكون هو طلبك تعديل متابعة غياب طلاب الفراغات.rar

ممكن تجربة getMacAddress.mdb

منكم تعلمنا ومازلنا نتعلم استاذي جعفر فأنت من يستحق الشكر 😊

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

بعد إذن استاذي @jjafferr إذا اردت عدم ظهور هذه الرسالة اختر كما هو موضح بالصورة وواضح من شرح الميزة ما ذكره الاستاذ جعفر ::بالتوفيق::

وعليكم السلام-لك ما طلبت برنامج 1mahmoud.xlsb

See this file faltara.xls

بعد اذن استاذى الجليل ومعلمى القدير الاستاذ @essam rabea وزيادة فى الخير قد تعجبك الافكار ان شاء الله بهذا المرفق https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=166769

أ.ramyooooo أنشئ المسار التالى D:\My Apps\Data وضع به db001.mdb و db002.mdb وجرب المرفق عسى أن يكون المطلوب بالتوفيق ESTest.mdb

انظر الى ها المرفق ان شاء الله تجد فيه ضالتك Automatically relink Access tables.zip

سلام عليكم سادة الاعضاء كيف حالكم اتمنى ان تكونوا في صحة وعافية ان شاء الله لي طلب قمت باليحث فيه ولم اجد ما اريده وجدت طرق عمل قائمة منسدلة بعدة طرق لكن كلها تكون القائمة (قاعدة بيانات ) والقائمة المنسدلة في نفس الصفحة انا اريد ان تكون قاعدة البيانات في صفحة واعمل قائمة منسدلة في صفحة اخرى وان تكون مطاطية اتمنى ان اجد الجواب وشكرا وجزاكم الله خيرا والسلام عليكم ورحمة الله تعالى وبركاته قائمة منسدلة.rar

أخي الكريم حليم بسرعة عشان وقت صلاة الجمعة روح للتبويب Formulas ثم الـ Name Manager ثم انقر لكمة New واكتب اسم القائمة المطاطية اسم List مثلاً .. وضع المعادلة التالية =OFFSET(Feuil1!$C$8,0,0,COUNTA(Feuil1!$C:$C)-1,1) بعد كدا روح لورقة العمل المسماة Feuil2 وحدد الخلية C6 وروح للتبويب Data ثم Data Validation واختار List من القائمة وبعدين اكتب كلمة =List في المعادلة الخاصة بالقائمة .. بس خلاص وتقبل تحياتي

ارجو التوضيح إن أمكن ! مع العلم بأني أستخدم OFFICE XP وقد قمت بجميع الخطوات ودائما تظهر في المربع المنتظر تفقيط الأرقام به كلمة ( ?NAME# ) .