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

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

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

أسأل الله العظيم أن يفرِّج همه وينفس كربه وييسر أمره ويحقق له مطلبه . اللهم اجعل له من كلِّ همٍّ فرجاً ومن كلِّ ضيق مخرجاً وارزقه من حيث لا يحتسب اللهم آمين.

وعليكم السلام أخي محمد المرفق فيه الملفات التالية ، إلا البرنامج رقم 1 ، فانه موجود في قاعدة البيانات ، والرجاء اخراجه الى نفس مجلد البرنامج: . النموذج: . وكود النموذج: Option Compare Database Dim PDFTKString As String Dim file1 As String Dim oFile As String Dim Path1 As String Dim Path2 As String ' Private Sub cmd_Make_Password_to_this_pdf_Click() 'pdftk source.pdf output destination.pdf user_pw password Path1 = Application.CurrentProject.Path & "\" file1 = Path1 & Me.pdf_Name oFile = Path1 & "abc.pdf" PDFTKString = Chr(34) & Path1 & "PDFTK" & Chr(34) & Space(1) & _ Chr(34) & file1 & Chr(34) & Space(1) & _ " output " & Chr(34) & oFile & Chr(34) & _ " user_pw " & Space(1) & Me.pdf_Password Shell PDFTKString End Sub Private Sub cmd_Open_pdf_with_Password_Click() On Error GoTo err_cmd_Open_pdf_with_Password_Click Path1 = Application.CurrentProject.Path & "\" Path2 = fReturnTempDir 'windows Temp Directory file1 = Path1 & Me.pdf_Name oFile = Path2 & "abc.pdf" PDFTKString = Chr(34) & Path1 & "PDFTK" & Chr(34) & Space(1) & _ Chr(34) & file1 & Chr(34) & Space(1) & _ "input_pw" & Space(1) & Me.pdf_Password & _ " output " & Chr(34) & oFile & Chr(34) 'Debug.Print PDFTKString Kill fReturnTempDir & "abc.pdf" Shell PDFTKString PauseTime = 1 ' Set duration. start = Timer ' Set start time. Do While Timer < start + PauseTime DoEvents ' Yield to other processes. Loop Application.FollowHyperlink Path2 & "abc.pdf" Exit Sub err_cmd_Open_pdf_with_Password_Click: If Err.Number = 53 Then 'no file Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub Private Sub Form_Close() On Error GoTo err_Form_Close Kill Path2 & "abc.pdf" Exit Sub err_Form_Close: If Err.Number = 53 Then 'no file Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub . البرنامج علشان يعرض ملف الـ pdf ، فانه يعمل نسخة منه بدون كلمة سر ، ويحفظها في مجلد الوندوز المؤقت باسم abc.pdf ، وعند اغلاق النموذج ، فانه يحذفه جعفر zpdf.zip

مغك كل لحق من هذه الناحية لكن ما رأيك ان نقوم بذلك بواسطة المعادلات(غلى صفحتين فقط) انظر الى الصفحة 4 من المرفق tarhil_from_multi_sheets 1.rar

أخي العزيز سليم الكود يحتوي على حلقات تكرارية لكل ورقة عمل على حدا .. السؤال : ماذا لو كان هناك على سبيل المثال 10 أوراق عمل ، وفي كل ورقة عمل لنقل 10000 صف من البيانات ..ترى كم سيستغرق الكود من الوقت لكي يقوم بعملية التنفيذ ؟ يمكن من الأخوة إنشاء مصنف به 6 أوراق عمل (5 أوراق ستكون فيها الأسماء في العمود الأول ويمتد لـ 10000 صف) وفي الورقة السادسة لإظهار النتائج بالنسبة للكود الذي قدمته سيكون من اليسير التعديل عليه .. فقط في سطرين For Each WS In ThisWorkbook.Worksheets(Array("Sheet1", "Sheet2")) والسطر الآخر تغيير اسم ورقة العمل المراد إظهار النتائج بها With Sheets("Sheet3") أما بالنسبة للكود الخاص بك فسيكون على من يريد التعديل إضافة حلقة تكرارية لكل ورقة عمل على حدا كما فعلت بالكود ناهيك عن أن الحلقات التكرارية مميتة مع كثرة البيانات أرجو أن يتسع صدرك لملاحظاتي

الحمدلله ( كل الملفات التي أحتاجها في ملف واحد )!! ممكن تشرح هذه المعلومة لوسمحت ، نحب نستفيد منها لاحظت ان حجم برنامجك كبير ، ولما تصفحته ، لقيت ان عندك صورة كثيرة ، ولكنك عامل ربط في الكود لكل صورة ، بس الغلطة اللي وقعت فيها هي انك في اعدادات الصورة في النموذج/التقرير جعلتها مضمنه ، فارتفع حجم قاعدة البيانات اذا تسمح تعمل هذه الخطوات ، وان شاء الله العشاء بيكون على حسابك ، لأن حجم قاعدة البيانات اصبح عندي 20% (19MB) من حجمه الاصل اعمل نسخة من برنامجك ، واشتغل على النسخة. اتبع خطوات الصورة: . 1. اعمل وحدة نمطية جديدة ، والصق فيها هذا الكود: Function Convert_img_Embed_to_Link() Dim frm As AccessObject Dim rpt As AccessObject Dim dbs As Object Dim frm1 As Access.Form Dim rpt1 As Access.Report Dim ctl As Access.Control Set dbs = Application.CurrentProject For Each frm In dbs.AllForms Debug.Print frm.name DoCmd.OpenForm frm.name, acDesign Set frm1 = Forms(frm.name) For Each ctl In frm1.Controls If ctl.ControlType = acImage Then ctl.PictureType = 1 End If Next ctl DoCmd.Close acForm, frm.name, acSaveYes Next frm For Each rpt In dbs.AllReports Debug.Print rpt.name DoCmd.OpenReport rpt.name, acDesign Set rpt1 = Reports(rpt.name) For Each ctl In rpt1.Controls If ctl.ControlType = acImage Then ctl.PictureType = 1 End If Next ctl DoCmd.Close acReport, rpt.name, acSaveYes Next rpt End Function . 2. افتح النافذة الصغيرة اللي في اسفل الكود ، واللي ممكن تعطينا نتائج مباشرة من الكود ، 3. تأكد ان لغة الكيبورد بالانجليزي ، ثم اطبع: علامة استفهام ، واسم الوحدة النمطية (بدون مسافة وبدون اقواس) ، مثل الصورة ، وهو امر بأن يشغل الوحدة النمطية: ?Convert_img_Embed_to_Link . الكود سيفتح كل نموذج وكل تقرير (وسترى هذا في نافذة البرنامج) في وضع التصميم ، ثم سيبحث عن كل كائن صورة ، ويغيره من "مضمن الى ربط" ، ويحفظ النموذج/التقرير ، ورجاء لا تعمل شئ الى ان ينتهي كل شئ ، وذلك عندما يتم اغلاق جميع النماذج والتقارير المفتوحة عندها اعمل ضغط واصلاح ، وشوف حجم قاعدة بياناتك الجديدة جعفر

بارك الله فيك اخى الفاضل عبدالعزيز .. شكرا على ملف التفعيل ..لكن المشكلة مازالت قائمة مع اوفيس 2013 .. وتم حل المشكلة باسلوب أخى الكريم ياسر العربى بالفعل بتفعيل خيار XPsp3 وتشغيل البرنامج من المصدر . شكراً اخوانى على مساعدتكم لى وبارك الله فيكم

بارك الله فيكم إخواني وأحبابي في الله ولكن ما يقلقني أنني لم أتعود على تغيبه بهذا الشكل .. فهو دائم الاتصال بالمنتدى ، وإن لم يكن هناك كمبيوتر متاح فيقوم بالدخول للمنتدى عن طريق الموبايل .. فما باله غاب عنا ؟ لعل غيابه خير إن شاء الله

أخي الحبيب محي الدين mohadin ... إليك الكود التالي عله يفي بالغرض Sub UniqueListFromMultipleSheets() Dim X, Y(), I&, J&, K&, WS As Worksheet ReDim Y(1 To Rows.Count, 1 To 1) With CreateObject("Scripting.Dictionary") .CompareMode = 1 For Each WS In ThisWorkbook.Worksheets(Array("Sheet1", "Sheet2")) X = WS.Range("A1:A" & WS.Cells(Rows.Count, 1).End(xlUp).Row).Value For I = 1 To UBound(X) If Len(X(I, 1)) Then If Not .Exists(X(I, 1)) Then J = J + 1 .Item(X(I, 1)) = J Y(J, 1) = X(I, 1) End If End If Next I Next WS End With With Sheets("Sheet3") .UsedRange.ClearContents .Range("A1").Resize(J, 1).Value = Y() End With End Sub تقبل تحياتي

السلام عليكم استخدم أخى هذه المعادلة =SUMIFS('1'!J2:J500;'1'!A2:A500;A2;'1'!B2:B500;B2;'1'!C2:C500;C2) JC LOG 2015.rar

أ / ياسر خليل أ/ احمد الفلاحجى مرفق أصدار تانى من الملف بعد اجراء بعض التعديلات عليه فى أنتظار النقاط السلبية للبرنامج لتلافيها . التحصيلات.rar معلش يا أ/ احمد لو مافيهاش رخامه هو طبيعه المحل الخاص بحضرتك اية ؟ بتمنى لحضرتك التوفيق فى برنامج حضرتك .

جزاك الله الله خيراً يا أبا البراء.. أكمل فنحن متشوقين للمزيد

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

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

طريقة عمل ( فورم ) فاتورة ووضع اكوادها وترحيل بياناتها واستدعائها وطباعتها !! خطوة خطوة السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل اعلم ان هذه الموضوعات قد قتلت بحثا وطلبا واجابة من الاعضاء وهناك امثلة كثيرة للاساتذة الافاضل الكبار ولكن ما دعاني لتقديم هذا الموضوع ... هو كثرة طلبه هذه الايام حيث طلبه كثيرا الاخ / محمد توبه ... والاخ / هاني مصطفي ولكني اردت ان اجعل المواضيع الاساسية في عمل اي برنامج في متناول الجميع بطريقة بسيطة وسهله اكثر ما يكون من خلال هذه السلسلة ( اعانني الله علي اكمالها كما ينبغي ) وقصدت ان يكون الموضوع بعنوان واضح ليستفيد منه الجميع عند البحث وسأقدم الشرح بطريقة الفيديو والاكسيل والجديد في هذا الموضوع هو انني سأقدم الاكواد اكواد بطريقة بسيطة وسهلة ولكنها طويله بعض الشئ ... ولكن تؤدي نفس الغرص ومرة اخري بأكواد خبورية خالصة ... للاستاذ العلامة القدير الخبير / عبد الله باقشير ... مع شرح الاكواد سطر سطر كما تعودنا وذلك بالطبع بعد اذن القدير الكبير ... ولكن لانه اول من علمنا تقديم المساعدات للغير ... لم استأذنه ولكن انتظر رأيه في الموضوع (((( الدرس الاول )))) نتعرف في هذا الدرس علي عمل بعض التنسيقات اللازمة لعمل الاكواد وخصوصا الاكواد الخبورية بتسمية التكستات بوكس ووضع بعض الاكواد المساعدة للاكواد في الدروس التالية قبل وضع الاكواد الاساسية والخاصة بالترحيل و ..... الخ وكالعادة دائما احب ان اختار اسهل الاكواد علي الاطلاق لسهوله فهمهما وتنفيذها والاعتماد عليها حتي الاكواد الخبورية احببت اختيار اسهلها لما لها من دقة وكفاءة عاليه في تنفيذ المهمة المطلوبة وبالطبع يمكنك تطويع الكود بعد فهمه جيدا لاستخدامه كما تريد في ملفك الشخصي وسأقدم الشرح بطريقة الفيديو المباشر في المشاركة التالية ويمكنكم التحميل منها مع المرفقات ارجو أن يوفقني الله في الشرح وان اكون عند حسن ظنكم جزاكم الله خيرا

السلام عليكم ورحمة الله وبركاته برنامج الجدول المدرسي الاصدار الثاني مقدمة عامة عن عمل البرنامج: يصلح لجميع المدارس ايا كان نوعها في اي قطر من الاقطار العربية وذلك للميزات والامكانيات التالية: مميزات البرنامج 1 - عدد الحصص اليومية 12 حصة يتمدد وينكمش من 6 حصص الى 12 حصة. 2 - عدد ايام الاسبوع 7 ايام يتمدد وينكمش من 5 ايام الى 7 ايام. 3 - عمل قوائم للفصول لكل مدرس وامكانية التبديل بينها وبين قائمة كل الفصول. 4 - يتسع 120 معلم و120 فصل و120 مادة. 5 - التحكم في عرض اوراق المصنف يمينا او يساراً ========================= امكانيات البرنامج 1 - استخراج جداول الفصول (الكل او بالاختيار) مع احتواء ثلاثة جداول لورقة الطباعة 2 - استخراج جداول المعلمين (الكل او بالاختيار) مع احتواء ثلاثة جداول لورقة الطباعة 3 - استخراج جداول المواد(الكل او بالاختيار) مع احتواء ثلاثة جداول لورقة الطباعة 4 - استخراج جداول اجمالي الفصول 5 - استخراج جداول اجمالي المعلمين الاعدادات الاولية في بداية العمل على البرنامج في الرئيسية 1 - غير العام وبداية العمل بالجدول في الخلايا D2:D3 2 - غير العناوين للمحافظة والادارة والمدرسة في الخلايا B6:B8 3 - اضغط زر حذف جميع البيانات لحذف جميع البيانات في المصنف 4 - ادخال اسماء الايام في جدول الاسبوع خمسة ايام افتراضية 5 - تحديث قائمة الحصص باختيار عدد الحصص التي تريدها في الرئيسية انشاء قوائم للفصول لكل مدرس في الصف المقابل للمدرس في الاعمدة F:O حول البرنامج برنامج مجاني الاصدار الثاني برمجة / خبور خير باستشارة الاستاذ / محمدي عبد السميع الذي سيقوم بالردعلى استفساراتكم خبور خير برنامج الجدول المدرسي الاصدار الثاني.rar

السلام عليكم ورحمة الله وبركاته قائمة منسدلة تعتمد على قائمة منسدلة اخرى يمكن استعمال الدالة INDIRECT عن طريق النطاقات المسماة define name ولكن استخدمنا طريقة مختلفة في هذه الحالة اتمنى ان تفيد الجميع المعادلة المستخدمه فى القائمة المنسدلة =OFFSET($A$2;;MATCH($A$6;$A$1:$E$1;0)-1;COUNTA(INDEX($A$2:$E$4;;MATCH($A$6;$A$1:$E$1;0)));) تحميل ملف الاكسيل list.rar

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

أخي الحبيب أحمد مدخلات صحيحة + كود منضبط حسب ورقة العمل وهيكلتها = نتائج صحيحة إن شاء الله

اليك المطوب الصفحة( Salim) Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 16 And Target.Row > 1 And Target.Count = 1 _ And Target.Offset(0, -1) = "" Then Target.Offset(0, -1).Select End Sub Message 1.rar

استبدل الكود بهذا Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 16 And Target.Row > 1 And Target.Count = 1 _ And Target.Offset(0, -1) = "" Then Application.EnableEvents = False MsgBox Target.Offset(0, -1).Address & " " & "لقد نسيت الكتابة في الخلية " Target.Offset(0, -1).Select Target.Value = "" End If Application.EnableEvents = True End Sub هناك طريقة افضل لهذا العمل وهي ان لا تسمح للمستحدم تحديد اي خلية في العامود p اذا كانت تقابلها خلية فارغة في العامود O

بمكن ان يكون المطلوب Message.rar

يمكنك اخذ فكرة من الملف التالي(تم الاستعاتة بورقة اضافية يستعملها اكسل للطباعة ثم يمحيها بعد ذلك) Test_Print_Areas.rar

السلام عليكم اخوانى الاحباب لتلوين صف بعد صف لتلوين صف بعد صف.rar 1.bmp

الف شكر اخي واستاذي الفاضل سعيد صواب غلبتك معي عمل ممتاز هذا هو المطلوب بالظبط جزاك الله خير الجزاء

جرب هذا الكود Sub set_pr_Area() With ActiveSheet .Rows("21:28").EntireRow.Hidden = True .PageSetup.PrintArea = "" .PageSetup.PrintArea = "$A$8:$H$20,$A$30:$H$34" With .PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With End With ActiveSheet.PageSetup.PrintArea = "$A$8:$H$34" End Sub

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

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

بهد اذن اخي ياسر جرب هذا الملف بواسطة هذا الكود Sub tarhil_unique_items() Dim Sh1, Sh2, Sh3 As Worksheet Dim lr1, lr2, lr3, k As Integer k = 1 Set Sh1 = Sheets("sheet1"): Set Sh2 = Sheets("sheet2"): Set Sh3 = Sheets("sheet3") lr1 = Sh1.Cells(Rows.Count, 1).End(3).Row lr2 = Sh2.Cells(Rows.Count, 1).End(3).Row lr3 = Sh3.Cells(Rows.Count, 1).End(3).Row + 1 Sh3.Range("a1:a" & lr3).ClearContents For i = 1 To lr1 x = Application.WorksheetFunction.CountIf(Sh1.Range("a1:a" & i), Sh1.Cells(i, 1)) If x = 1 Then Sh3.Cells(k, 1) = Sh1.Cells(i, 1): k = k + 1 End If Next For i = 1 To lr2 y = Application.WorksheetFunction.CountIf(Sh3.Range("a1:a" & 100), Sh2.Cells(i, 1)) If y = 0 Then Sh3.Cells(k, 1) = Sh2.Cells(i, 1): k = k + 1 End If Next End Sub tarhil_from_multi_sheets.rar

وعليكم السلام أخي الحبيب محي الدين الأجمل هو تواجدك معنا بالمنتدى .. بارك الله فيك وجزيت خيراً على تدخلاتك في الموضوعات المختلفة لمساعدة إخوانك بالمنتدى تقبل تحياتي

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

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

حياك الله اخي حسين المشكلة ليست في عدد الخانات .. المشكلة في المعيار وهي ليست مشكلة بمعنى مشكلة ولكن عندما يكون بداية المعيار في الاستعلام يبدأ بــ like كما في السطر التالي فهو يعطيك جميع النتائج المشابهة لما تبحث عنه . غير شكل المعيار من هذا الشكل Like "*" & [forms]![forms_date up]![serh] & "*" ليصبح بهذا الشكل [forms]![forms_date up]![serh] بحيث يعطيك النتيجة المطابقة تماما لما تبحث عنه او يفيدك بعدم وجوده ... بالتوفيق

جرب المرفق JC LOG 2015.rar جرب المرفق

لمعرفة عدد الخلايا التى تحتوى على ٥ احرف بالتوفيق اخوانى لمعرفة عدد الخلايا التى تحتوى على ( 5 ) احرف %0D%0A.zip

الف شكر اخي واستاذي الفاضل سعيد صواب غلبتك معي عمل ممتاز هذا هو المطلوب بالظبط جزاك الله خير الجزاء

اخي الكريم يرجى تغيير اسم الظهور للغة العربية وتفضل الحل

كل الشكر والتقدير

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

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

وعليكم السلام الاستعلام ، ولكن قم بتغيير اسم الجدول واسم الحقل الفارغ: Delete * From tbl_Name Where len([Text_Field] & '')=0 جعفر

بارك الله فيكما و جزاكما الله خير الجزاء فعلاً إفتقدنا لأبي يوسف كثيرًا أدعو الله أن يعود بأقرب الآجال إن شاء الله

وعليكم السلام أخي عمر عمل جبّار ، مبارك عليك هذه الهمّه العالية شاكرا لك ترك تسمية "مسقط التقارير" كما هو بالنسبة الى برنامجك ، رجاء استيراد جميع الكائنات من برنامجي الى برنامجك ، بإستثناء الوحدتين النمطيتين: API_FolderDialog و basOpenSaveDialog لأنهم موجودين في برنامجك ، ولكن بمسميات مختلفة وكُله تمام ان شاء الله جعفر

أخي الكريم حراثي لابد أن تتعلم الأساسيات .. قم بالإطلاع على الموضوع التالي لتعرف كيفية التعامل مع محرر الأكواد بداية الطريق لإنقاذ الغريق بالنسبة للكود لن يقوم بالطباعة إنما معاينة فقط .. إذا أردت الطباعة عليك استبدال كلمة PrintPreview الموجودة في الكود بكلمة PrintOut

شكرا اخي على الرد هل ممكن تطبيق على الملف المرفق .. لم تفلح معي

السلام عليكم هذه محاولة حدد عمود الفرز ثم حددبداية السطر ثم حدد نهاية السطر اضغط زر الفرز الفرز حسب اللون1.rar

بالعكس أنا فى قمة سعادتى لانى الهدف الاساسى المساعده للى ينفع معاه الملف بالعكس انا فى أنتظار الحاجات التانية .

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

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