jjafferr

السلام عليكم البارحة وانا نص نايم لقيت هذا الملف وبه حل http://www.accessmvp.com/KDSnell/DownloadFiles/FixCascadingCombos.zip جعفر

السلام عليكم ورحمة الله وبركاته في أحد المشاريع التي قمت بها ، كنت محتاج الى برنامج خارجي ليقوم ببعض المهام للمشروع ، فالطريقة المعتادة التي نستعملها هي ، وضع البرنامج هذا داخل احد مجلدات المجلد الرئيسي لقاعدة البيانات ، وبما ان فقدان/حذف هذا البرنامج يجعل المشروع عاجز عن العمل ، لم يكن عندي خيار ، سوى ان اجعل هذا البرنامج داخل قاعدة البيانات ، بطريقة تسمى Blob المرفق فيه هذه الملفات: . النموذج frm_Blob مهم في انه يسمح لك بوضع برامجك في قاعدة البيانات بسهولة ، والزر الاخر هو لتصدير هذا البرنامج الى اي مجلد في الكمبيوتر (لعمل التجارب مثلا) ، وقد وضعت برنامجين في قاعدة البيانات المرفقة: 1. pdftk.exe والذي يقوم بالعديد من العمليات لملفات الـ pdf ، 2. Arc5_S_BE.mdb ، وهي قاعدة بيانات فاضية ، وبها جداول مؤقته ، فبدل ان اعمل هذه الجداول المؤقته داخل قاعدة بياناتي ، ويكبر حجمها ، رأيت ان استعمل جداول خارجية ، وعند اغلاق البرنامج ، كنت اقوم بحذفها من المجلد: . لعمل البرنامج الاول ، استخدم الزر رقم 1 ، والذي سيصدر البرنامج pdftk.exe الى مجلد قاعدة البيانات ، ثم سيدمج الملفين a.pdf و b.pdf ويحفظ النتيجة في ملف ab.pdf ، ويفتحه ، بينما الزر رقم 2 ، سيصدر قاعدة البيانات Arc5_S_BE.mdb الى المجلد الرئيسي لقاعدة بياناتنا: . عند الضغط على الزر 1 ، سنرى هذه الملفات في المجلد الرئيسي لقاعدة البيانات: . ان شاء الله يكون فيه فائدة للجميع جعفر Blob.zip

وعليكم السلام ياريت تعطي مثال بطلبك ، توفر علينا نحن الاثنين الوقت اذا كان قصدك ان تجمع قيم الحقول في سجل واحد ، فهذا الكود يعطيك الحقول للسجل ، وجمع قيمها: Dim rst As DAO.Recordset Dim fld As Field 'get this Name Record from the table Set rst = CurrentDb.OpenRecordset("Select * From [salary2015+2014] Where Full_Name='" & F & "'") T = 0 'initial Total 'loop through the fields For Each fld In rst.Fields 'Debug.Print fld.Name & vbTab & fld.Value 'skip the Full_Name field name If fld.Name <> "Full_Name" Then 'add the field values T = T + fld.Value End If Next fld rst.close : set rst=nothing جعفر

وعليكم السلام اذا اردت فتح البرنامج بحجم الشاشة ، جميل ان تقرأ الرابط التالي من اوله لآخره ، وتنزل المرفق من الرابط واللي فيه طلبك: http://www.officena.net/ib/topic/65914-قفل-نموذج-او-كبسة-command-برقم-سري/#comment-429339 جعفر

تفضل . جعفر 316.Aziz1.accdb.zip

السلام عليكم وما تعريف "القسط الاول"؟ جعفر هل هو مبلغ فقط ، او له علاقة بالتاريخ كذلك؟ جعفر

وعليكم السلام احد قواعد الاكسس التي يجب عليك ان تتبعها لبرنامج افضل ، هو إضافة حقل الترقيم التلقائي مفهرس ، فالبرنامج يحتاج اليه ليرتب وضعه في الفهرسة ويكون اسرع في العمل جعفر

تفضل الوحدة النمطية هذه تقوم بالعمل ، ولكن بعد ان عملت الكود اتضح باننا ما محتاجين للحقل Client_Type ، ولكني تركته هناك ، كما اني في اسفل الوحدة النمطية ، جمعت الشروط في سطر واحد ، حتى نستخدمها كبديل في الاستعلام مباشرة ، بدل الوحدة النمطية: Function B_con(CT, T, B) 'CT = Client Type 'T = Type 'B = Balance If T = "Cash" And B >= 10000 Then B_con = B ElseIf T = "Cash" And B < 10000 Then B_con = 0 ElseIf T = "Credit" Then B_con = B End If 'B_con = IIf(T = "Cash" And B >= 10000, B, _ IIf(T = "Cash" And B < 10000, 0, _ B)) End Function . هذا الاستعلام ، B ينادي الوحدة النمطية ويأخذ نتائجه منها ، بينما معادلة B2 موجودة مباشرة في الاستعلام وبدون الحاجة للوحدة النمطية ، ولكن ، اذا اردت عملت تعديل على الشروط ، فستجد ان التعديل في الوحدة النمطية اسهل بكثير . وهذه النتائج: . جعفر 315.TEST.accdb.zip

معلش خذني على قد عقلي ، واعطنا مثال لوسمحت جعفر

هلا بأخوي رمهان ، عسى ما شر ، نوّرنا بدل هل الوجوه الغاضبة جعفر

ابدا مافي مشكلة ولا اشكال جعفر

اذا انت مرتاح من "شكل" التنسيق ، فتوكل على الله لأن التنسيق هو عبارة عن: إعطاء شكل النتيجة ، بالطريقة التي نريدها ولأن التنسيق "شكل" فقط ، لهذا السبب ، وعند التعامل مع بيانات هذا الحقل ، لا نهتم بالتنسيق يعني في الاستعلام لما تريد ان تعمل تصفية للحقل aaaa اعلاه ، فتكتب الرقم 12345 مثلا (بدون تنسيق) ، ولا تكتب .12,345$ جعفر

هذا لازم تستخدم معادلة علشانه ، في الاستعلام مثلا: IIf([Selling] - Int([Selling])=0,Format([Selling],"#,###",Format([Selling],"#,###.##")) جعفر

وليش خيفان ، اضف العلامة اول السطر وجرب جعفر

وعليكم السلام استخدم التنسيق التالي للحقل: #,###.00 جعفر

وعليكم السلام في نموذج ادخال البيانات ، وتكون قد ادخلت رقم ID ، ضع الكود التالي على حدث "قبل التحديث" للحقل Speciality : Private Sub specialty_BeforeUpdate(Cancel As Integer) a = DCount("*", "Waiting list", "[id]=" & Me.id & " And [specialty]='" & Me.specialty & "'") If a > 0 Then MsgBox "عفوا ، لا يمكن المواصلة ، رقم ملف وحقل التخصص متكرر" Cancel = true Me.Undo End If End Sub جعفر

تفضل استخدمت الوحدة النمطية ، ومناداتها من الاستعلام ، التي عملها اخونا العود ابو خليل: Public Function qsplit(FullName As String, i As Integer) On Error Resume Next qsplit = Split(trim(FullName), " ")(i) End Function فصار الاستعلام: . والنتيجة: . جعفر 312.Database1.accdb.zip

السلام عليكم طريقتي: جعفر

السلام عليكم أخي سلمان انزلت المرفق ولم ارى الاختلاف الشئ الوحيد الذي رأيته بين الصور هو ان اسم النموذج على اليمين وآخر على اليسار ، فهل هذا هو السؤال ؟ جعفر

وعليكم السلام أخي سعيد . السؤال الصحيح هو ، هل من سبب لإستخدام النماذج المنبثقة؟ اذا اردت فتح البرنامج بحجم الشاشة ، جميل ان تقرأ الرابط التالي من اوله لآخره ، وتنزل المرفق من الرابط: http://www.officena.net/ib/topic/65914-قفل-نموذج-او-كبسة-command-برقم-سري/?do=findComment&comment=429339 نعم هناك عدة مشاكل ، وهذه احد المواضيع اللي فيها مشكلة ، وبدون سبب: http://www.officena.net/ib/topic/67430-تغيير-تسمية-الازرار-في-رسالة-msgbox/?do=findComment&comment=440539 بالاضافة الى ان النموذج المنبثق فيه زيادة شغل ، افتح هذا النموذج وفي نفس الوقت اغلق ذاك ، وتعال في التصميم ، ووو ونفس الشئ بالنسبة الى التقرير المنبثق جعفر

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

السلام عليكم اخي هيثم حفظ المرفقات في البرنامج سيجعل حجم البرنامج كبير جدا ، وله عواقب وخيمة لهذا السبب ، فالنصيحة ان تحفظ المرفقات في مجلدات الوندوز ، ولكن تربط المرفق برقم ID السجل مثلا المنتدى مليئ بهذا النوع من الامثلة ، وهنا مجموعة امثلة أخونا الكبير ابو خليل: http://www.officena.net/ib/topic/60554-ادراج-صورة-من-الماسح-_-سحب-الصور/?do=findComment&comment=390508 http://www.officena.net/ib/topic/60554-ادراج-صورة-من-الماسح-_-سحب-الصور/ http://www.officena.net/ib/topic/55050-ادراج-صورة-_-اضافة-وحذف/ http://www.officena.net/ib/topic/62131-جلب-الصور-دفعة-واحدة-الى-مجلد-البرنامج-حسب-الاسم-المعرف/ وهنا مثال موسع لي: http://www.officena.net/ib/topic/62143-هدية-سحب-اكثر-من-صورة-من-الاسكنر-وتحويلها-الي-pdf-او-صور-مسلسلة/ وهذا مثال ، ولكن حيث يتم فتح المرفق بالبرنامج الافتراضي للكمبيوتر: http://www.officena.net/ib/topic/55053-فتح-صورة-بـ-مستعرض-الصور/ جعفر

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

اما انا ، فنادرا استعمل النماذج المنبثقة جعفر