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

تفضل Dim i As Integer Dim rs As Recordset Set rs = Me.Recordset Dim OldName, NewName Dim x As Variant Dim xx As Variant With rs .MoveFirst For i = 0 To .RecordCount x = Me.Serial xx = Me.Name1 OldName = CurrentProject.Path & "\" & x & ".pdf" NewName = CurrentProject.Path & "\" & x & "_" & xx & ".pdf" Name OldName As NewName .MoveNext Next i End With ملحوظة : ضع البرنامج داخل مجلد الملفات ايضا تجنب تسمية الحقول بعبارات محجوزة في أكسس ... تم تعديل الحقل Name الى Name1 Students.rar

Between [forms]![start]![frm]![date_m] And [forms]![start]![frm]![date_m1])) OR Between [forms]![start]![frm]![date_h] And [forms]![start]![frm]![date_h1])) معيار الاستعلام 2.rar

وجدت هذا العمل الرائع في الانترنت منذ فترة وقدمه صاحبه مجاناً يرجو الدعاء لوالديه رحمهما الله تعالى :: بيانات صاحب العمل :: عبداللطيف طراقجي 2013و لغاية عام 2000 من عام ً مدرس تكنولوجيا المعلومات سابقا حاصل على شهادات في إدارة قواعد البيانات من شركة مايكروسوفت MCDBA SQLserver (Microsoft Certified Database Administrator) MOUS Access (Microsoft Office User Specialist) صفحته الشخصية My Certifications http://www.pinterest.com/abdotarakji/mycertifications هنا رابط التنزيل ولا تنسوني ووالديه وجميع المسلمين من دعائكم ،،،

برنامج للحسابات المدينة والدائنة Creditor and debtor.mdb

اهداء الى كبيرنا استاذ JJaFFeRR *من غير برامج خارجية . لا يوجد اخطاء يعمل بكافة الشاشات . متضمن شرح بسيط خطوات: . حدد ملف PDF . تسمية ملف الاخراج موضوع سابق jjafferr قام بنشر الأربعاء at 23:00 تفضل ، لإستخراج الصور التي في ملف pdf الى ملفات بصيغة jpg ، اما اذا لم يكن هناك صور ، فلن يعمل البرنامج 🙂 جعفر PDF_to_JPG_exe.zip24.71 kB · 2 downloads 1 في اعتقادي ، مشاركة أكثر من شخص في الرد على السؤال ، يفتق الاذهان ويدمج التجارب ويبلور الافكار وفائدة للجميع ، فمنه نتعلم الطرق الاخرى للإجابة على السؤال للتحميل XPDF-Ezril.rar

المحاسبة المحاسب.mdb الرقم السري 1975

شكرا اخي الكريم سبع مشاركات وكلها عطاء بارك الله لك في عمرك ومالك وأهلك وولدك

مشاركة مع استاذي ومعلمي jjafferr هذا مثال حصلته عندي تفضل DTest1.accdb

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

نعم استاذي ابو خليل ... بصراحة لقد عشقت مهارتهم ومقاومتهم تحية لاهل عمان ولكل بلادي العربية

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

استخدم هذا .................. Dim i As Integer Dim db As DAO.Database Dim rst As DAO.Recordset Set db = CurrentDb Set rst = db.OpenRecordset("t1") While rst.RecordCount >= 10 rst.MoveFirst For i = 1 To 6 rst.Delete rst.MoveNext Next Wend rst.Close MsgBox "تم حذف كل السجلات اللازمة", vbOKOnly, "تنبيه"

عزيزي ، من له حيلة فليحتال 🙂 سبق إني كتبت أن الفيجوال به "تساهل" كبير ، فقد يعتبرها البعض عيوبا وقد يعتبرها آخرون ميزة ومرونة وسهولة للمبرمجين. أنت في استعمالك تجمع قيمة نصية مع قيمة Null ، منطقيا فيها تعارض ولن تمررها لك كثير من اللغات ، ولكنها حل بديل لدالة Nz. يبقى مسألة الفراغات السابقة واللاحقة للنص فإذا أردت التخلص منها فتحتاج إلى استعمال دالة Trim أما إذا أردت التعامل معا وإبقاءها كجزء من النص فما تقوم به فيه الكفاية. بالنسبة لي سأستعمل دالة IsBlank قي برامجي الخاصة ، ولكن في الأمثلة للمنتدى فربما لا حتى لا أضطر أن أحمل معي موديول الأدوات.

العمانيون لهم معزة في قلوبنا كما العراقيين ولا يهون الجميع. لا زلت أتذكر أحد أعلام الأكسس أيام زمان "إبن مسقط" فقد كان لنا معه سجالات برمجية عبر أوفيسنا وعبر موقع عماني نسيت اسمه. شكرا لأبي خليل على الملاطفة والله يحمينا جميعا من غدر الزمان 🙂 .

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

الف مبروك للعراق وحظ اوفر لعمان تحب المحارش يابو احمد _ الله يحفظك _ والا العناد ليس من صفات المدح ما تدري الا جايينك على عسبان النخل .. وقتها فك روحك امزح .. قصدك انت ان هممهم عالية وأهل للمنافسات القوية

شكرا ابو احمد على المرور .. جميع ما في المنتدى حلالك اخي طاهر : فقط ضع كود التحويل في حدث النموذج الحالي Private Sub Form_Current() Me.date_h = UmR2L(date_m) Me.date_h1 = UmR2L(date_m1) End Sub تفضل بعد التعديل فترة بين تاريخين ميلادي وهجري.rar

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

مبروك أخي قاسم واشاء الله القادم عودة للمنصات الدولية

ومبروك عليكم الفوز 🙂

بالتوفيق إن شاء الله

شكرا جدا تم التنفيذ بنجاح 💗

إذا كنت تريد عدم الطباعة يمكن كتابة احد الصيغ التالية وبجوار End sub نكتب 30 On Error Resume Next ActiveWindow.SelectedSheets.PrintOut Copies:=Range("a1"), Collate:=True, _ IgnorePrintAreas:=True أو If Range("a1") = 0 Then GoTo 30 ActiveWindow.SelectedSheets.PrintOut Copies:=Range("a1"), Collate:=True, _ IgnorePrintAreas:=True End If واذا كنت تريد طباعة نسخة على الاقل يمكنك كتابة التالي If Range("a1") = 0 Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=True Else ActiveWindow.SelectedSheets.PrintOut Copies:=Range("a1"), Collate:=True, _ IgnorePrintAreas:=True End If

في الخلية B1 قم بكتابة المعادلة التالية =IF(OR(A1="غائب";A1="راسب");0;IF(A1="ناجح";10;"")) أو المعادلة التالية =IF(A1="غائب";0;IF(A1="راسب";0;IF(A1="ناجح";10;"")))

وعليكم السلام أخي الكريم تفضل: في الخلية B1 قم بكتابة المعادلة التالية =IF(OR(A1="راسب";A1="غائب");0;IF(A1="ناجح";10;"")) بالتوفيق إن شاء الله

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

مرحبتين راعي بلادي 🙂 1 - هذي ما تستوي في الجدول لذلك سويتلك استعلام اسمه Byanat_AlAdaa_Q .. والسبب عدم وجود دالة DateAdd اللي تضيف عدد المدة بالأشهر في الحقل المحسوب بالجدول . 2 - تم الربط وإضافة حقل ID لجدول البيانات الشهرية من باب التنظيم. 3- تم عمله بجعل الفورمات يساوي -0 . 4- النموذج مبني بطريقة غير صحيحة .. المفروض جدول البيانات الشهرية يكون نموذج فرعي لنموذج بيانات الأعضاء .. والبحث يكون في بيانات الأعضاء .. سويته لك بذي الطريقة : ملاحظة أخيرة صاحبي : حاول تسمية جميع الكائنات ( الجداول- الاستعلامات - النماذج _ ووووووو) بالانجليزي دائما .. 🙂 بيانات الأعضاء.accdb

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

هناك حيلة صغيرة يا أخي @waledstar سأعلمك إياها بدون الحاجة لبرامج خارجية 🙂 بعد أن تقوم بتصميم جميع التقارير قم بتصميم تقرير تجميعي .. بحيث تجمع فيه كل التقارير على شكل تقارير فرعية .. وثم تفصل بينها بأداة فاصل الصفحات () .. فيظهر لك الشكل النهائي بهذه الطريقة : بعدها تقوم بتصدير التقرير التجميعي على صيغة PDF فيحصل المطلوب ☺️ وهذا مثال للطريقة : Many Reports in 1 PDF.accdb

مع التحية والتقدير للاستاذ محمد البرناوي على الحل الرائع ومن باب تعدد الحلول ولكوني من المدرسة القديمة ومن انصار استخدام مربعات النص لاختصار الاكواد فاني سوف اضع طريقة ليست منافسة للكود الرائع لاستاذنا الفاضل ولكن حل على طريقة الطيبين في البداية استخدمنا مربع نص غير منضم اسميته tx3 وقيمته تساوي Me.tx3 = tx3 & "'" & Curr_Grp.Column(0) & "'," ثم في زر الامر لفتح التقرير وضعنا الامر Dim k, w As String k = tx3 w = "st_mstr.Curr_Grp IN (" & Left(k, Len(k) - 1) & ")" DoCmd.OpenReport "r_1", acViewPreview, , w والنتيجة في الصورة تحياتي

تفضل أخى على توزيع اللجان- لجنتان فى كل صفحة بالديانة.rar