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

تفضل اخي الكريم Dim mySQL As String mySQL = "SELECT TOP 4 * FROM Table1" mySQL = mySQL & " ORDER BY num DESC;" Me.RecordSource = mySQL Me.Requery test(2)(1).accdb تحياتي

تفضل لك ما طلبت على الرغم انى افضل العمل على ملف الإكسيل مباشرة دون العمل على الفورم Followup patients.xlsm

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

السلام عليكم اخ امجد بارك الله فيك على كلماتك الطيبه جرب المرفق بخصوص كشف الحساب Petty Cash Excel _Ali1.xlsm

السلام عليكم بهذا الكود Private Sub CommandButton1_Click() Dim pth, Nm pth = "D:\my_f\" Nm = Me.ComboBox1.Value & ".*" If Dir(pth & Nm, vbDirectory) = "" Then MsgBox "لايوجد ملف بنفس الاسم بالمسار المحدد لحذفه" Else Kill pth & Nm & ".*" MsgBox "تم حذف الملف بنجاح" End If End Sub

أحسنت استاذ مجدى بارك الله فيك

سلام عليك استاذ وجيه بالتقدير والمعزة والود والإحترام أسأل الله أن يتم عليكم نعمة الصحة والعافية. و الأمن والأمان. استاذ وجيه شرف الدين دمتم بحفظ الله ورعايته

جزاك الله كل خير ورحم الله والديك

ولكن هذ لا يؤثر بالمعادلة, على الرغم من هذا فقد تم التعديل على الملف السابق فقط عليك بكتابة الرقم بس فى الوقت

السلام عليكم ,طالما انك لم تقم برفع ملف وشرح المطلوب عليه بكل دقة كما أخبرنا من قبل فكان لزامل عليك استخدام خاصية البحث فى المنتدى قبل رفع المشاركة فهناك العديد من الموضوعات التى تخص طلبك ومنها : كيفية إنشاء نسخة من ملف إكسيل تستحدث تلقائيا عند غلق الملف وهذا رابط اخر طريقه لعمل نسخه احتياطيه للملف في اكثر من درايفر اختر منهما ما يناسبك

أحسنت استاذ مجدى ..جزاك الله كل خير وأحسن الله اليك

السلام عليكم تفضل المرفق بيان الحالة1.xlsm

نعم رقم الماك لايظهر الا بعد ان يكون جهازك متصل بالانترنت تمت التجربة

بالنسبة لى صلت الشبكة وقمت بالتجربة اعدت تشغيل الجهاز وقمت بالتجربة اغلقت الجهاز تماما وقمت بازالة البطارية وانتظرت حوالى 10 دقائق واعدت البطارية وقمت بالتشغيل وكانت النتيجة واحدة فى كل مرة فوجود الاتصال بالانترنت او عدمه او حتى بالسويتش او عدمه منطقيا لن يكون له تأثير على رقم القطع ولكن احببت زيادة الاطمئنان ولكن ما أفجعنى عدم الحصول على الرقك للماك من اول مرة وخاصة عندما وجدت صلاص طرق مختلفة بالبحث وعند حضراتكم اختلفت النتائج

أستاذي @sandanet جرب أن تفصل كيبل الشبكة وقم باستخدام ملف ابا جودى لعرض الماك هل هو نفس الذي يضهر في الحالة ؟؟؟

وبفضل الله تعالى تم الوصول الى النتيجة المطلوبــــة اضع هذا العمل المتواضع بين اياديكم شكرا لكل استاذتى الكرام الذين اثقلت عليهم بهذا الامر شكر لكل من ساعدنى سواء بالمحاولة او التشجيع او الافكار شكر لكل من اثقلت عليهم وكنت اطلب منهم التجربة فى رسائل خاصة ولم يكلوا او يملوا شكر لكل القائمين على هذا الصرح الشامخ فلولا الله سبحانه وتعالى اولا ثم كل اساتذتى واحبابى ما توصلت لشئ شكر الله لكم واحسن اليكم وغفر الله لكم ورزقكم البركة فى العمر والعلم والاهل والولد ورزقكم جميعا والمسلمون ان شاء الله شربة هنيئة مريئة من يد سيدنا وحبيبنا محمد صلوات ربى وسلامه عليه Connect To Network.mdb

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

السلام عليكم ورحمة الله وبركاته يا اهلا باساتذتي الكرام اعتذر للتاخر في الرد عليكم لظروف طارئة واحب ان اوضح شئ صغير لم اقصد الاستسلام بقولي وبذلك نصل الي طريق مسدود ولكن ما قصدته هو ان دائما النتيجة متغيرة ولن نستطيع البناء الا علي اساس ثابت من ناحيتي لازلت ابحث عن الاساس الثابت والذى لا يتغير على الرغم من انه لي سؤال للاستاذ @qathi ان طلب منك العميل تفعيل مفتوح وقمت بربطه بواسطة ارقام قطع ثابته ماذا لو ان العميل يريد استخدام تلك القاعدة على اكثر من جهاز ؟ لاب توب وجهاز ديسك توب و.............. بلا بلا بلا له مطلق الحرية طالما يملك كل الحق ولا يحق لك ان تمنعه من فتح القاعدة على اكثر من جهاز وماذا ان قام مستقبلا بتغير الجهاز هل من المنطق ان يرجع اليك مرة اخرى للتفعيل

اذا كان بنفس مسار الملف الذي به الكود Private Sub CommandButton1_Click() Dim pth, Nm, Pt, pth1 pth = "D:\my_f\" pth1 = ThisWorkbook.Path & "\" Nm = Me.ComboBox1.Value & ".*" Ar = Array(pth, pth1) For Each Pt In Ar If Dir(Ar & Nm, vbDirectory) = "" Then MsgBox "لايوجد ملف بنفس الاسم بالمسار المحدد لحذفه" & Pt Else Kill Ar & Nm & ".*" MsgBox "تم حذف الملف بنجاح من المسار" & " :" & Pt End If Next Pt End Sub

وضحلي بصورة ابسط

بطئ الاستعلام وسرعته، تعتمد على المبدأ الذي اعتمدته في بناء الاستعلام. مثلا: لديك مكان تريد الذهاب له، مرة تذهب له بطريق مباشر ومختصر. والمرة الثانية تذهب له عن طريق طريق طويل جدا وممتلئ بالصعاب. المختصر: الطريقين يأخذونك الى نفس المقصد لكن الفرق في الاقصر والاسهل كذلك بالنسبة لك، كلما كان الاستعلام دقيقاً في بناءه كان سريع ودقيق. حسنين

عليكم السلام. اشرح بصورة مفصلة من الامثلة لكي استطيع المساعدة.

يمكنك تغيير عدد الأعمدة بالذهاب إلى Module1 أو Module2 تبعًا لورقة العمل المناسبة لك في الملف تم إضافة أعمدة في ورقة العمل مثال 1 وورقة العمل مثال 2 فورم ادخال و تعديل مرن مع الصور.rar

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

السلام عليكم 🙂 رجاء انزال الملف الجديد ، فالتعديلات التي فيه تساعد على التغلب من الكثير من العوائق 🙂 جعفر

نفس تعليقي اعلاه 🙂 جعفر

تم معالجة الامر moukmel.xlsx

الكود غير مخصص للجداول المرتبطة

أ.اسلام سيد جرب المرفق لعله المطلوب HideUnhide.accdb

هات الملف (نموذج ما لا يزيد عن 5 صفوف) و خذ ما يدهش العالم

حدد العمود المطلوب تغيير تنسيقه زر يمين .. تنسيق خلايا.. اختر تبويب الرقم .. اجعل المنازل العشرية 0

اللهم اغفر له وارحمه وأدخله فسيح جناتك اللهم ألهم أهله الصبر والسلوان وأدخلته الجنة بسلام وإنا لله وإنا إليه راجعون

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

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

قم بعمل رقم سري للملف لم يستطيع احد استغلال ملفك الا اذا كان يملك الرقم السري حتى لو قام بعمل حفظ باسم للملف سوف يطلب الرقم السري الخطوات : File- Info - Protect Workbook - Encrypt With Password

See this file faltara.xls

تفضل هذه الصورة للتوضيح

تفضل لك ما طلبت قائمة منسدلة مطاطية.xlsm

بارك الله فيك استاذ ابراهيم وزادك الله من فضله

وعليكم السلام احسنت بارك الله فيك

لأ اخى الكريم ليس هذا المطلوب يجب عليك وضع بين الأقواس اسم جهازك انت فعلى سبيل المثال جهازى كالأتى مع اسم جهازى Select Case Environ("AliMohamed")

وعليكم السلام تم عمل اللازم عليك اختيار الإسم فقط من القائمة المنسدلة والباقى سيأتى تلقائيا بالمعادلات Search.xlsx

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

تفضل استاذى الكريم الملف غير محمى مراقبة الاقساط.xlsx

وعليكم السلام تفضل لك ما طلبت سداد المصروفات.xlsm

اهلا بك اخى الكريم فى المنتدى تفضل هذان برنامجان مهمان بارك الله فيك ArabicBudgetPlanner.xls برنامج المصروفات الاصدار الثالث 2015.xlsm

تفضل اخى الكريم بعد عمل فولدر بإسم نعم واخر بإسم لا جرب الكود الموجود بالملف واعمل حفظ فى المكان الذى تحدده من الفولدرات التى قمت بعملها بارك الله فيك Backup.xlsm

اهلا بك اخى الكريم فى المنتدى تفضل الملف بدون حماية FindAll.xlsm

أحسنت بارك الله فيك وجعل هذا العمل فى ميزان حسناتك ووسع الله فى رزقك ورحم والديك جزاك الله كل خير

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