محمد أبوعبدالله

بالنسبة للضرب والقسمة فالكود يفي بالغرض اما بالنسبة للجمع والطرح فانت فلست في حاجة الى كود فالعملية تتم بدالة NZ فقط nz(x2;0)+nz(x3;0)-nz(x4;0) وضح اكثر للمطلوب بارك الله فيك تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم هذا في وحدة نمطية Public Function XSum(A As Integer, B As Integer, C As Integer) As Integer If A = 0 Then A = 1 If B = 0 Then B = 1 If C = 0 Then C = 1 XSum = A * B * C End Function وهذا في النموذج Me.X5 = XSum(Me.x1, Me.x2, Me.x3) xy.rar تحياتي

وعليكم السلام ورحمة الله وبركاته توجد اكثر من طريقة فيمكنك مثلا استخدام دالة DLookup لعرض الوظيفة اذا كان combobox نص =DLookup("[XJop]"; "tbl"; "XName ='" & XName & "'") اما اذا كلان رقم =DLookup("[XJop]"; "tbl"; "XName =" & XName) وبدون ارفاق مثال لن تستطيع الوصول الى حل سريع تحياتي

تم تم تم اضافة كومبوبوكس للبخث برقم العداد تحياتي Up-MILAN.rar

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

ما شاء الله لا قوة الا بالله عمل مميز جداً واكثر من رائع نفعنا الله بك اخي الحبيب تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Dim Xfrm As String Xfrm = "البلدية1" DoCmd.OpenForm Xfrm With Forms(Xfrm)![البلدية].Form .Filter = "[id] = " & Me![abd].Column(0) .FilterOn = True End With قاعدة بيانات (220000).rar سؤال خارج الموضوع اخي بلال : لماذا تستخدم دائما نموذج رئيسي لا وظيفة له وتضع داخله نموذج فرعي وتحتاج الى عمليات عليه ؟ تحياتي

وعليكم السلام ورحمة الله وبركاته نفضل اخي الكريم وجدت لك هذا المثال ويمكن تطويره اكثر بما يناسبك za-AccessAndPowerPoint.rar تحياتي

وعليكم السلام ورجمة الله وبركاته تفضل اخي الكريم هذا الكود يعمل على نواة 32 و 64 لاستعراض الملفات Dim fpathz As Variant With Application.FileDialog(3) .Title = "Choose File" .Filters.Clear .Filters.Clear .Filters.add "All Files", "*.*" .AllowMultiSelect = False .InitialFileName = "" If .Show = -1 Then fpathz = .SelectedItems(1) End If End With ولتحديد مسار قاعدو البيانات Application.CurrentProject.Path تحياتي

جزاك الله خيرا اخي الكريم وارجو من الله العلي القدير ان يصلح لنا الاحوال وان يوفقك لما يحب ويرضى واكرر شكري وتقديري لك اخهي الكريم تحياتي

السلام عليكم تم تم ( يحتاج الى بعض التنسيقات ) من نموذج تسجيل المشتركين تم Up-MILAN.rar تحياتي

وعليكم السلام ورحمة الله وبركاته افلح وجهك اخي الحبيب باقي مشكلتين ارجو ان يكون على يديك الحل فيهما اولاً : مشكلة مع اللغة العربية في ال او لفظ الجلالة واعتقد انها مرتبطة مع ocr فمثلاً "عياد عطاا‬لله" تظهر "عياد عطاا‬" "محمد عبدالله" تظهر "محمد عبدا" ثانياً : كما تفضلت وذكرت كيفية التغلب على هذه المشكلة db1.rar تحياتي

الفكرة ببساطو ان لدي جداول pdf واريد تحويلها الى جداول من اي نوع اكسيل او اكسيس المهم التحويل والبيانات باللغة العربية

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

جزاكم الله خيرا استاذي الفاضل وفعلا جربت البرنامج المذكور ABBYY FineReader 15 ولكن كما ذكرت اللغة العربية ليست 100% كما انه يستهلك جميع موارد الجهاز بطريقة مخيفة وكنت ارجو ان يكون لدى الاكسيس امكانية للتعامل مع ملفات pdf من حيث تخزين البيانات وقد وجدت مع فيجوال دوت نت اداة Aspose.Pdf وللاسف هي تعمل في بيئة الدوت نت ولا تعمل مع اكسيس هذه الاداة يمكن من خلالها تخزين البيانات من pdf الى datagrid ثم نسخ البيانات الى اي برنامج قواعد بيانات وارجو ان يكون لدى الاكسيس امكانية للتعامل مع ملفات pdf باي اداة جتى لو كانت مدفوعه تحياتي

وعليكم السلام ورحمة الله وبركاته جرب التالي Dsum("[Evaluationa]"; "[Qrisk]"; "[risk]='HB'") Dsum("[Evaluationa]"; "[Qrisk]"; "[risk]='MA'") ri.rar تحياتي

بسم الله الرحمن الرحيم الاخوة الكرام السلام عليكم ورحمة الله وبركاته اعتقد ان مشكلة استيراد البيانات من ملف pdf وتخزين البيانات في جدول قد تعرض لها الكثير من المستخدمين هذه المشكلة لها حل ببعض البرامج او بعض مواقع الانترنت تقوم بتحويل البيانات الى ملف اكسيل مثلا ثم تخزينها في جدول اكسيس ولكن هل لأحد الاخوة تجربة في كتابة كود برمجي يمكن من خلاله تنفيذ هذه العملية خاصة ان البرامج والمواقع لا تدعم اللغة العربية بنسبة 100% لذلك ارجو ان يفيدنا احد الاخوة بتجربة ناجحة ولكم الشكر تحياتي

لم اسىء الظن بك اخي الكريم بارك الله فيك ولكني اقوم بالتنبيه فقط تحياتي

مختار هذا بالنسبة للنموذج ولكنك لم تضع معيار او فلتر للتقرير DoCmd.OpenReport "sc", acViewPreview, , "[jname] ='" & Me.jname & "'" test.rar تحياتي

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

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

تفضل وجدت لك هذا المثال zaCompactAndRepairSplitDatabase.rar تحياتي

مرحبا اخي الكريم انت لديك في النموذج cert نموذج فرعي باسم "نموذج فرعي ورقة11" ركز جيداً 11 ومع ذلك تضع المعيار في التقرير =[Forms]![cert]![نموذج فرعي ورقة1].[Form]![الحقل53] وهذا خطأ فلا وجود للنموذج "نموذج فرعي ورقة1" تم التعديل ليكون "نموذج فرعي ورقة1" النقطة الثانية بما ان مصدر خقل "نص76" هو في الاساس من الجدول الفرعي لفما لا نستخدم If [Forms]![cert]![نموذج فرعي ورقة1].[Form]![الحقل51] = تفضل اخي الكريم الملف بعد التعديل test.rar تحياتي

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

توجد خدمة google drive ان لم تكن مشترك بها فاشترك بها اولا وهي عبارة عن خدمة مقدمة من جوجل لتخزين الملفات مجانا ولها تطبيق سطح المكتب يمكن تنزيله من هنا https://www.google.com/drive/download/ من فوائد هذه الخدمة انها تقوم بعمل مزامنة للملفات فوراً تخياتي