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

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

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

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

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

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

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

ما شاء الله يا أبا جودي .. كعادتك تبلور الأفكار وتخرج بالخلاصة .. بارك الله فيك ونفع بك 🌹 😁😂 سرني تواجدكم فكرة رائعة وهي تؤدي المطلوب بشكل رائه .. فلك مني جزيل الشكر والتقدير 🌹

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

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

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

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

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

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

اولا بارك الله فى عمرك وعلمك وعملك وجزاكم كل خير ثانيا انا اقل طويلب علم ولست مبرمجا على الاطلاق مجرد هاو ثالثا كنت ابلور فكرة من الامس شبيه بفكرة حضرتك استخدمت الروتين الاتى فى وحدة نمطية Function OpenReport(ByRef rptName As String, ByRef qryName As String) On Error GoTo ErrorHandler DoCmd.OpenReport rptName, acViewPreview, , , , qryName procDone: Exit Function ErrorHandler: MsgBox$ Err.Number & ": " & Err.Description Resume procDone End Function على ان يتم استدعاءه بالسطر الاتى OpenReport("rpt2", "Query2") نفس فكرة حضرتك طبعا بسبب الغموض وعدم التوضيح الكافى كنت فى انتظار اضافة المرفق Chang Record Sources Report VBA(V3).mdb

وعليكم السلام ورحمة الله وبركاته أخي عمر 🙂 هذا حسبما فهمت .. عملت فكرتين .. ضع هذا الكود في حدث عند الإغلاق : Private Sub Form_Close() Dim x As Integer '----------------------------------------------(الفكرة الأولى) DoCmd.GoToRecord , , acFirst For x = 1 To Me.Recordset.RecordCount MsgBox Me.n DoCmd.GoToRecord , , acNext Next '----------------------------------------------(الفكرة الثانية) Dim txt As String DoCmd.GoToRecord , , acFirst For x = 1 To Me.Recordset.RecordCount txt = txt & Me.n & vbNewLine DoCmd.GoToRecord , , acNext Next MsgBox txt End Sub aa.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)),"") بالتوفيق

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

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

الموضوع كما قلت حضرتك بسيط جدا ولا يحتاج استيراد ولا تصدير ولا معادلات فقط تقوم بتصفية filter الاسم المطلوب ثم طباعة على طابعة الويندوز pdf أو استعمال كود تصدير الشيت النشط إلى pdf ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "/" & Filename & ".pdf", , , False بالتوفيق

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

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

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

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

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

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

تفضل أخى العزيز معادلة تنقل مبلغ السلفة على اساس شرطين ( التاريخ + الرقم ).rar

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

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

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

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

كلمة السر هى Secret

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

وعليكم السلام تفضل ربما يكون هذا هو المطلوب 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 فتكون المعادلة كالتالى

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

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

السلام عليكم استاذى العزيز الغالى عم // سعيد ارجو ان ترى عده روابط اعتقد ان بها ما تريد ان شاء الله http://www.ulozto.net/xhG4QWG/passware-password-recovery-kit-enterprise-10-3-build-2585-retail-rar http://www.4shared.com/get/sjVUEFdZ/pk10thankssupasta.html http://www.ulozto.net/xUCLqqw/passware-kit-enterprise-10-0-rar

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

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

اضغط زر الأوفيس ثم خيارات options ثم خيارات متقدمة advanced وفي الجزء العرض display ستجد عرض القياسات بوحدة show measurements in units of اختر منها ما تريد