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

تفضل اخي الكريم 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

الخلل انك قمت بوضع مسافات ( Space ) قبل وبعد كلمة ( حاضر / غائب ) " غائب " " حاضر " لاحظ المسافات قبل الكلمة وبعدها, احذف المسافات او قم بعمل التنسيق الشرطي مع المسافات وسيعمل بشكل جيد حسنين متابعة غياب طلاب الفراغات.mdb

ولك بمثل ما دعوت لى وزيادة والحمد لله ان تم المطلوب على خير

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

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

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

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

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

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

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

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

بعد إذن أستاذنا الفاضل سليم حاصبيا جرب هذا حساب المكملون بدرس او درسين او اكثر.xlsx

تفضل جرب المرفق اضافة بيانات لليست عن طريق تكستات بزر اضافة.xls

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

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

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

لا يا استاذي ابا جودى لم أعهدك ان تستسلم لهكذا امر فأنت الذي تعملنا منه الاصرار والصبر للوصول الى حل على العموم ارتأي التالي (بل اعتمدتها في برنامجي) نقوم بقراءة اسم المعالج ونستخلص الارقام منه نقوم بقراءة سيريال الجهاز ايضاً ونستخلص الارقام منه معادلة التحقق ستكون كالتالي اذا كان رقم التفعيل = المعالج + سيريال الجهاز فالدخول سيكون مسموح والا اذا كان رقم التفعيل - رقم المعالج = سيريال الجهاز معناها ان المستخدم قد قام بتغيير اسم المعالج او تغيير المعالج بالكامل بسبب عطبه لكنه يملك نفس سيريال الجهاز لذلك سيكون مصرح له بالدخول ايضاً والا اذا كان رقم التفعيل - سيريال الجهاز = رقم المعالج فمعناها ان المستخدم يستعمل جهاز كومبيوتر (تجميع) لايحمل سيريال لكنه بنفس الوقت يملك نفس اسم المعالج وبالتالي فسوف يكون مصرح له بالدخول ايضاً ماعدا ذلك فسوف يتم تشغيل البرنامج بصورة تجريبية هذا ما اعمل عليه الان في برنامجي لإحدى الجهات الحكومية

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

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

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

عظم الله اجركم انا لله وانا اليه راجعون

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

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

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

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

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

تفضل تم التعديل على الملف لكى تعمل المعادلات مباشرة بدون التدخل فيها فقط عليك بتغيير النسبة أعلاه فقط كما تريد (تكتب فقط رقم النسبة بدون اى اضافات بالخلية) وسترى عمل المعادلات وتغيرها مباشرة Stable Pressure Tolerances 3.xlsx

برنامج المخزون و الفواتير الشامل .... الاصدار الثالث اكسيل 2007 - اكسيل 2010 اليوم بمشيئة الله هو الانطلاق الرسمى لهذة النسخه وبعد انتهاء مرحلة التجربة التى دامت اكثر من شهرين خطوات استخدام البرنامج لأول مره تسجيل البيانات الجديدة داخل البرنامج لعمل فواتير البيع و الشراء و الحركات المالية 1- تسجيل اسماء مناديب البيع وهى خطوه مهمه مطلوبة لتسجيل اسم عميل جديد 2- تسجيل و ادخال العملاء (يتم ربط كل عميل باسم مندوب) 3- تسجيل و ادخال الموردين 4- تسجيل و ادخال اسماء لفئة الصنف وهى خطوه مهمه مطلوبة لتسجيل صنف جديد 5- تسجيل و ادخال الاصناف (ولابد من وجود فئة مدخله مسبقا لكى تستطيع ادخال الصنف) 6- ولا تنسى تسجيل رصيد اول المده فى شاشة البيانات و الجرد الجديد فى هذا الاصدار * واجهة تطبيقية كاملة * برنامج كامل مخزون فواتير ذمم عملاء وموردين واستحقاقات خلال الفترات الزمنية المختلفة * اختصارات سريعة لتنفيذ العمليات و التقارير بسرعة عالية * كشف حساب بطريقة جديدة بمعنى نفترض انه هناك عميل ما علية مديونية بفيمة 15000 فالبرنامج يعطيك كشف حساب تفصيلى للمديونية المستحقة خلال فترات 30 يوم 60 يوم 90 يوم و اكثر من 90 يوم فمثلا فى المثال السابق يكون استحقاق المديونية على حسب فواتير العميل مستحق فى 30 يوم 3000 وفى 60 يوم 6000 وفى 90 يوم 4000 و فى اكثر من 90 يوم 2000 فيكون اجمالى المديونية هم ال 15000 لكن الاستحقاق فى فترات مختلفه وهذا الكشف يفيد كل من يتعامل بالاجل لمعرفة المستحق خلال الفترة التى يريدها وعندما يقوم العميل بسداد جزء من المستحق يتم خصمه من المديونية القديمه بمعنى ان العميل فى المثال السابق قد قام بسداد 1500 فيتم خصمها من ال 2000 وهى مديونية الاكثر من 90 فيصبح كشف حسابة كالتالى مستحق فى 30 يوم 3000 وفى 60 يوم 6000 وفى 90 يوم 4000 وفى اكثر من 90 يوم 1500 فيكون اجمالى المديونية هم ال 13500 * شاشة فواتير جديده تحوى الكثير و الكثير من الاختصارات للعملاء و الاصناف وتوصلك الى عدة تقارير بضغطة زر واحده عرض معلومات عن الصنف و رصيده الحالى داخل المستودع و اخر سعر شراء بمجرد اختيارك للصنف وادخاله داخلة الفاتوره سهولة الغاء وتعديل الصنف داخل الفاتورة عن طريق الدبل كليك ذهاب مباشره الى تقرير صنف معين بمجرد اختياره وضغط تقرير الصنف اكتشف المزيد............ *شاشة لتقرير المديونية خلال الفترات الزمنية المختلفة يجب عليك قراءة ومراجعة شرح البرنامج جيدا حيث توجد العديد و العديد من الاختصارات السريعة التي تنقلك من شاشة الى اخرى بسرعه عالية ولتوفير وقتك داخل البرنامج. كما توفر لك سرعة الحصول على المعلومة المطلوبة. * لتحميل نسخة من الشرح وهى عبارة عن ملف تنفيذي اضغط على الرابط التالى شرح برنامج المخزون و الفواتير الشامل( ملف تنفيذى... 6MB رابط خارجى على موقع ميديا فاير) * او الذهاب الى موضوع شرح البرنامج و مناقشات مشرفى و اعضاء المنتدى داخل المنتدى على الرابط التالى شرح برنامج المخزون و الفواتير الشامل(مشاركة داخل المنتدى) كما احببت ان اقدم مناقشة ونصائح مديري و اعضاء المنتدى للبرنامج لكى يستفيد منها الجميع وهذه المواضيع تم مناقشتها في موضوع شرح البرنامج داخل المنتدى انظر المشاركة التالية لمشاهدة النصائح و المناقشات حول البرنامج واخيرا اقدم لكم البرنامج حجم البرنامج 1.2 MB اختر اسم المستخدم المدير كلمة السر 123 محرر الاكواد 85211 لاتترد فى الاستفسار عن اى شيى داخل البرنامج ضع مشاركتك وسوف يتم الرد عليها كما يمكن مراسلتى على الايميل التالى amroomo@gmail.com اخيرا اتمنى ان يكون هذا البرنامج اضافة الى برامج المخزون و الفواتير وتغيير مسارها على الاكسيل فهذا العمل جديد بكل المقاييس فى افكاره التى اتمنى ان اكون قدمتها بصورة جيدة ويستقيد بها الجميع وَقُلْ رَبِّ زِدْنِي عِلْمًا ========================================================= المرفق المحدث الاخير: SIS 3.152 (Add City).rar

تفضل بعد اذن استاذى الكبير ابراهيم له منا كل المحبة والإحترام Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 3 Or Target.Row < 7 Then Exit Sub Dim C As Range For Each C In Range("C7:C" & Range("C" & Rows.Count).End(xlUp).Row) If C.Value = "سدد" Or C.Value = "انهى" Or C.Value = "خالص" Then C.Offset(0, 1).Resize(1, 12).Value = "0" C.Offset(0, 13).Resize(1, 3).Value = "لا" End If Next End Sub

اهلا بك فى المنتدى عليك بتتبع الصورتين حتى يمكنك تغيير اللون الأحمر الى ما تريده وهذا يتم من خلال التنسيقات الشرطية (Conditional Formatting)

وضح بالتفصيل لو سمحت على الملف لما تريده

استاذى الكريم المفروض تغيير اللى بين الأقواس فى هذا السطر من الكود الى اسم جهازك Select Case Environ("COMPUTERNAME")

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

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

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

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

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

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

جرب المعادلة التالية بافتراض ان الخلية C41 فيها عدد الساعات والخلية D41 فيها عدد الدقائق =CONCATENATE(INT((C41+INT(D41/60))/7);" ايام";" و ";MOD(C41+INT(D41/60);7);" ساعات") تحياتي