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

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

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

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

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

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

هذا بعض مما لديك استاذ @ابو جودي صحيح كلامك استاذ العزيز @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

نعم هذا صحيح الف رحمه على بيك

اذن انت من جيل (عيرتني بالشيب وهو وقار ) ... ولست من جيل .. (اشهد الا امرأة اتقنت اللعبة الا انت ) اعتزازي واحترامي للست لمياء

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

الللله... ايه الحلاوة دي يا بشمهندس ...عاشت الايادي بس انا بدي افهم ..وسؤالي للاخ لصاحب المشاركة ...ماهي الفائدة من ذلك ؟ولاي شيء تستخدم يعني المستخدم حيستفاد ايه من الحكاية دي ؟ يئبرني شو مهضوم الواد دة محمد عصام هههههههه

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

لله درك يا @ابو جودي رجل المهمات الصعبة 😉💪 حلوة جدا .. بس تتأخر حبتين .. 😏 يعني تبدأ تقفل بعد دقيقة تقريبا .. إلى المكتبة العامرة بالأكواد 😁✌️

فى فوكيره تانى بره الصندوق اشرحها نظرى الان وممكن التطبيق لاحقا ممكن نعمل نموذج يستعرض السجلات تباعا باستخدام حدث فى الوقت من السجل الاول الى الاخير و يغلق تلقائيا بعد السجل الأخير مرفق تطبيق الفكرة 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

إذا كنت تقصد أن عدد الاحتياطي زاد عن الواحد في كل مجموعة في المادة الواحدة فهنا يجب أن تتغير المعادلة لأن المعادلة الأولى تجلب أول اسم أمامه ( ح ) فقط على العموم تم تعديل المعادلة في الجزء العلوي بحيث يتم سحبها أفقيا ورأسيا بسهولة بدلا من استعمال معادلة مختلفة لكل صف وإضافة معادلة الاحتياطي لأكثر من واحد يمكنك استعمال هذه المعادلة في الخلية 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)),"") بالتوفيق

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

والصعايدة غالية علية 😂 يا سلاااام ...دة انا اموت في الصعايدة

طيب ممكن تجربة المرفق الاتى لانه يبدو لى ان التقرير نريده ان يقتح على اكثر من مصدر بيانات حسب الحالة ان لم افهم الموضوع جيدا برجاء مرفق حتى اسطيع الفهم >>---> صعيدى بيفهم بالعافية Chang Record Sources Report.mdb

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

تفضل اخي الكريم .... المثال لكود اخي @مبرمج سابق Info list.rar

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

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

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

ممكن تجرب هذا ربط القوائم المنسدلة.rar

تفضل أخى أسامة لعل هذا هو المطلوب ترحيل البيانات.rar

كلمة السر هى Secret

تفضل كلمة السر هى 123

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

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

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

أريد استكمال هذه البيانات فى هذا الملف فليس هناك أسماء للموظفين أو حتى الرقم الوظيفى لهم

=IF(IF(OR(A1*80%<150,A1*80%>150),A1*80%,150)>150,150,IF(OR(A1*80%<150,A1*80%>150),A1*80%,150)) تفضل ربما يكون هذا هو المطلوب لو افترضنا أن الرقم موجود فى الخلية A1 فتكون المعادلة كالتالى

السلام عليكم أخى محمد هناك مشكلة فى تحميل هذا الملف

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

بارك الله لك أخي عماد بالفعل المهر : 10,737,418.23 10 مليون و 737 ألف و 418 جنيه و 23 قرش كان ينقص إخواني عبد الله والأنيس ويوسف فقط تجميع هذه الأيام لأنه يدفع في أول يوم ثم يضيف عليه في ثاني يوم ولا يسترد ما دفعه سابقاً ............... وبانتظار وجهات نظر أخرى في الوصول للحل

بانتظار حلول الإخوة وطريقة حلهم وتوضيح مدى صحة أوخطأ الحلول السابقة للأخ الكريم عبد الله والأخ الكريم الأنيس

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

بارك الله لك أخي الكريم ابو خليل فعلا برنامج رائع ونحتاجه جميعاً حتى لا نسمي الجداول أو الحقول أو المتغيرات أو الثوابت بهذه الأسماء