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

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

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

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

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

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

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

حسب فهمي للمطلوب يمكنك استعمال هذا السطر لتنسيق قيمة الخلية وعرضها باثميم من المنازل العشرية Me("txtQty" & AD) = Format(Sheet1.Cells(i, 3), "0.00") ولا أدري ما سبب تكرار سطور الكود يكتفي بأول أربعة فقط Private Sub CommandButton1_Click() For i = 8 To 40 If Sheet1.Cells(i, 1) = Val(Me.TxtSearch) Then AD = AD + 1 Me("txtItem" & AD) = Sheet1.Cells(i, 2) Me("txtQty" & AD) = Format(Sheet1.Cells(i, 3), "0.00") Me("txtPrice" & AD) = Format(Sheet1.Cells(i, 4), "0.00") Me("txtTotal" & AD) = Sheet1.Cells(i, 5) End If Next i End Sub بالتوفيق

ماشي يا استاذة خلينا نتصور الامر حسب فهمي عندك 10 تقارير مبنية على استعلامين اثنين مثلا q_1 و q_2 وعندك فورمين اثنين كل فورم فية قائمة باسماء التقارير العشرة وعندك حقل نصي عند اختيار التقرير من القائمة يكتب اسمه في الحقل النصي وعند امر فتح التقرير يتم فتح التقرير المكتوب اسمه في الحقل النصي ويكون مصدر سجلاته الاستعلام q_1 طالما فتحناه من فورم 1 ويكون مصدرة q_2 اذا فتحناه من فورم2 اذا كان فهمي صحيح ممكنى عمل ذلك وبكود مختصر نحتاج الى متغير في بداية الاكواد اي يمكن استخدامه في كافة احداث النموذج Dim x As String في حدث بعد التحديث للقائمة نضع الامر التالي Me.tx2 = Me.c2.Column(0) x = Me.tx2 tx2 هو الحقل النصي co القائمة المنسدلة x هو المتغير في زر فتح التقرير نضع الامر التالي Dim strSQL As String strSQL = "q_1" DoCmd.OpenReport x, acViewPreview, , , , strSQL وفي النموذج الثاني نغير q_1 الى q_2 ثم نفتح التقارير في وضع التصميم وحدث فتح التقرير نضع الامر التالي Me.RecordSource = Me.OpenArgs واذا كنت لم افهم فاعتذر مقدما تحياتي

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

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

جزاكم الله خيرا استاذى الجليل ومعلمى القدير الاستاذ @Barna واسمح لى ممكن نختصر الكود ليكون Dim qdf As DAO.QueryDef Dim strSQL As String CurrentDb.QueryDefs.Delete "qr1" If com1 = "التقرير الاول" Then strSQL = "SELECT tblA.* FROM tblA;" ElseIf com1 = "التقرير الثاني" Then strSQL = "SELECT tblB.* FROM tblB;" End If Set qdf = CurrentDb.CreateQueryDef("qr1", strSQL) DoCmd.OpenReport "rptFlayReport", acViewPreview ولارد بضاعتكم اليكم بطريقة مختلفة بعض الشئ تجنبا لاستخدام الحروف العربية , واضفاء مرونة أكبر فى حال اردنا تمرير اسم التقرير من خلال الكود الافكار كثيرة وتتصارع وتتلاحق فى رأسي بسبب عدم فهمى الهدف والمطلوب تحقيقة بصورة مباشرة من السؤال بسبب غموض الهدف ولكن على حال تبقى الحاجة هى ام الاختراع وفهم السؤال هو شطر الجواب Chang Record Sources Report Barna V2.mdb

ترى كلنا نحب الصعايدة والنعم فيهم .... اسمح لي استخدم مثالك بطريقة اخرى للفائدة واثراء الموضوع باستخدم هذا الكود .... Dim db As DAO.Database Dim qdf As DAO.QueryDef Dim strSQL1 As String, strSQL2 As String Set db = CurrentDb db.QueryDefs.Delete "qr1" If com1 = "التقرير الاول" Then strSQL1 = "SELECT tblA.ID, tblA.fld FROM tblA;" Set qdf = db.CreateQueryDef("qr1", strSQL1) ElseIf com1 = "التقرير الثاني" Then strSQL2 = "SELECT tblB.ID, tblB.fld FROM tblB;" Set qdf = db.CreateQueryDef("qr1", strSQL2) End If DoCmd.OpenReport "rptFlayReport", acViewPreview وهذا المثال ..... Chang Record Sources Report.mdb

السلام عليكم ورحمة الله تم ربط الورقة الثانية بالورقة الاولى كما طلبت ...اما عملية توزيع الاحتياطى بالعدل اتمنى و استعطت ان ارسلها فى مشاركة لاحقة,,,اليك الملف اللجان والملاحظة.xlsx

أنا استخدم هذه البرنامج لدمج التقارير عن طريق سطر الأوامر بعد التصدير https://www.cmd2pdf.com/

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

السلام عليكم ورحمة الله وبركاته حقيقة كنت مار من هاهنا 👉 👈 فسمعت صوت احدهم ينادي علي الصعايدة فلبيت فكان النداء لصعيدي (مش من بلدنا ) عموما لا بأس فالصعايدة كلهم أخوة وبعد اعتقد ان أختنا تريد شيئا كهذه الفكرة - ان كان فهمي لما تعني صحيحا فهي ايضا صعيدية - لان الصعايدة يفهمون بعض PassRepName.accdb

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

هذي دمها عسل زيك لأ بجد .. تتأخر معاي دقيقة كاملة

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

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

اتفضل يا سيدى احلام معاليك اوامر يا باش مهندس @Moosak اى خدمه يارب تنبسط بس تعتمد الفكرة على وضع الروتين الاتى فى وحدة نمطية Public opt As Integer Public Function MesgBox(ByVal msgText As String, _ Optional ByVal TimeInSeconds As Integer, _ Optional ByVal intButtons = vbDefaultButton1, _ Optional TitleText As String = "WScript") As Integer On Error GoTo MesgBox_Err Dim winShell As Object Set winShell = CreateObject("WScript.Shell") MesgBox = winShell.PopUp(msgText, TimeInSeconds, TitleText, intButtons) MesgBox_Exit: Exit Function MesgBox_Err: winShell.PopUp Err & " : " & Err.Description, 0, "MesgBox()", vbCritical Resume MesgBox_Exit End Function ويتم استدعاء الورتين من خلال opt = MesgBox(Me.n & vbCr & vbCr & " Please wait . . .", 1, vbInformation, "Info") حيث ان بناء الكود كالاتى 'Syntax: opt = MesgBox(msgTxt,intSeconds,Buttons+Icon+DefaultButton,"Title") aa V2.accdb

تسلم الايادى يا @مبرمج سابق يا عالم يا معقدين شايفين البساطة ما شاء الله

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

إذا كنت تقصد أن عدد الاحتياطي زاد عن الواحد في كل مجموعة في المادة الواحدة فهنا يجب أن تتغير المعادلة لأن المعادلة الأولى تجلب أول اسم أمامه ( ح ) فقط على العموم تم تعديل المعادلة في الجزء العلوي بحيث يتم سحبها أفقيا ورأسيا بسهولة بدلا من استعمال معادلة مختلفة لكل صف وإضافة معادلة الاحتياطي لأكثر من واحد يمكنك استعمال هذه المعادلة في الخلية C4 وسحبها أفقيا ورأسيا حتى K27 =IF(MOD(ROW(),2),INDEX(data!$C$19:$C$32,MATCH($B3,data!D$19:D$32,0)),INDEX(data!$C$4:$C$17,MATCH($B4,data!D$4:D$17,0))) وهذه معادلة الاحتياطي في الخلية D28 ويمكن سحبها أفقيا ورأسيا حتى K31 =IFERROR(INDEX(data!$C$4:$C$32,SMALL(IF(data!D$4:D$32=$B$28,ROW($1:$29)),ROW()-27)),"") بالتوفيق

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

انا اريد مرفقا انا لم افهم اى شئ

وعليكم السلام استاذ احمد بصراحة لم استطع العمل على ملفك لانه 32 بت ارفق لك مثال وطبق عليه .. وان كان لديك اي استفسار فانا بالخدمة اهم شي ان تختار من Design.... web Browser control وتختار من ال tools المكتبة ... Microsoft Office 15.0 object library pdf Display.rar

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته ...نسخة محسنة من البرنامج SEWER.rar

تفضل استاذ Moosak شوف بنفسك عمل هذه الأداة

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

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

شاكر لك أستاذنا الكبير زيزو وكل تقديرى للأستاذ العزيز سليم حاصبيا بارك الله لكما وهذا هو الملف بعد الإصلاح لتعم الإفادة للأخرين ويعمل الكود الأن بكل بساطة transfer.rar

ممكن بعد إذن أستاذنا الكبير زيزو سوف أرسل لك الملف ثانية بعد وضع الكود به ولكنه لا يعمل أرجو عمل اللازم من فضلك-بارك الله فيك ورعاك وأشكرك على سرعة الرد transfer.rar

للرفع-أرجو مساعدة الأستاذ بن علية حاجى والأستاذ سليم حاصبيا والأساتذة الخبراء

تفضل أخى تحويل التاريخ الى اسم الشهر.rar

بعد إذن أخى صديق هذا حل بمعادلة أخرى بسيطة وصغيرة طلب معادلة جلب بيانات.rar

من فضلك ارسل الملف

تفضل أخى لعله المطلوب تجربة.rar

جرب هذا لعله المطلوب ظ„ظ„ط±ظپط¹ ظ…ظ† ظپط¶ظ„ظƒظ….rar

لأ طبعا المفروض أن تحفظ ولا تتغير أو تتبدل -لو لديك مشكلة فى ملف ما ممكن ترسله ونحاول نعمل اللازم

وعليكم السلام تفضل ربما يكون هذا هو المطلوب calender1.rar

هناك مشكلة فى تحميل هذا الملف -ربما يحتوى على فيروس

من فضلك ارسل الملف ؟

شكرا للأخ عبد الله على هذا اللغز وإضافة للموضوع في ألغاز أخرى حتى يكون الموضوع خاص بالألغاز الحسابية وكيفية حلها في الإكسل ............ ذهب شاب لخطبة فتاة فأخبره أبوها أن مهرها بسيط فقال الشاب ما هذا المهر؟ فقال الرجل: أن تدفع لها في أول يوم من الشهر قرش واحد وفي اليوم التالي تدفع ضعف ما دفعته في اليوم السابق لمدة 30 يوم فرد الشاب متعجلاً : هذا مهر بسيط جداً ولكنه عند حسابه وجده كثيييييييييييير جدا جدا جداً .............. فكم قيمة مهر الفتاة بالجنيه؟؟ ملحوظة: الجنيه المصري = 100 قرش أتمنى وضع المعادلة أو الطريقة التي وصلت بها للحل

أخي وحبيبي في الله م / محمد طاهر أين قائمة الانتقال السريع بين أقسام الموقع؟؟ أتمنى أن أراها عن قريب

حبذا لو كان الشرح مرتبطاً بنسخة إكسل حديثة 2007 أو 2010 وبفضل الله سأجتهد أن أكون معكم وأقترح: تنظيم الدورة في صورة دروس أومواضيع مستقلة (فصول أو أبواب) كل درس أو فصل يتم تدريسه على مدار الأسبوع (7 ايام) يوجد تكليفات وترشيحات لمن يقوم بحل التكليفات لمناصب أعلى في المنتدى وفي نهاية كل أسبوع يتقدم المشترك في الدورة بعمل من إعداده وغير مسبوق يستخدم فيه ما درسه في هذا الفصل ضم هذه المناقشات لموضوع الطريق إلى تعلم فيجوال بيسك الأوفيس بعد تغييره إلى تعلم فيجوال بيسك الإكسل http://www.officena.net/ib/index.php?showtopic=39279 بحيث لا يكون هنا غير الدورة ودروسها وواجباتها ومشاريعها وفقنا الله جميعاً لكل مما يحب ويرضى

ياريت مزيد من التوضيح

أخي الكريم تصميم البرنامج لك (عمل تجاري) يمكنك الاتفاق مع من تختاره من الإخوة في ذلك أما إذا كنت تريد عمله بنفسك فنحن هنا لنساعدك إذا تعثرت فقط لا غير

أخي الكريم أبو الحسن بالفعل يمكنك عمل ذلك من خلال استعمال عمود جديد بجوار العمود المذكور يتم وضع قيمة 0 إذا كان الرقم قديما وقيمة 1 إذا كان الرقم جديداً ثم في النهاية تقوم بجمع أرقام العمود المذكور في حالة ما غذا كانت قيمة الخلية المجاورة 1 فقط باستعمال sumif