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

السلام عليكم برنامج صغير فاتورة احترافية واضافة الاصناف بكبسة زر مفتوح المصدر لامكانية التعديل عليه اتمنى لكم الفائدة اتفضلوا يهمني سماع رأيكم فاتورة احترافية1.accdb

ومشاركة معي اخي الوزير يمكنك استعمال الكود التالي في التقرير ، في حدث تنسيق جزء التفصيل Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer) If Me.Alkmiah_mtob = 0 Then Me.Section(acDetail).Visible = False Else Me.Section(acDetail).Visible = True End If End Sub . ولكي ترى النتائج الصحيحة ، يجب ان يكون التقرير في وضع معاينة الطباعة Print Preview جعفر 955.اخفاء القيمه بالتقرير بشرط.accdb.zip

السلام عليكم اخي عبد اللطيف طريقتك غير متعارف عليها ، والظاهر انك لم تستطع تنفيذها في مثال الاخ bouchaib zakaria !! فالمثال الذي ارفقته هو استعلام حذف عادي ، واحد لكل جدول الطريقة الاسهل هي ، عمل زر في نموذج ، وضع عليه هذا الكود لحذف سجلات جميع الجداول (وهذا الكود الذي اشار عليه بقية الشباب في مشاركاتهم ، بطرق مختلفة) Private Sub cmd_Delete_All_Records_Click() Dim obj As AccessObject, dbs As Object Set dbs = Application.CurrentData For Each obj In dbs.AllTables If Left(obj.Name, 4) <> "MSys" Then DoCmd.SetWarnings False DoCmd.RunSQL ("Delete * From " & obj.Name) DoCmd.SetWarnings True End If Next obj MsgBox "تم حذف سجلات جميع الجداول" End Sub جعفر 951.استعلام حذف.accdb.zip

السلام عليكم ورحمة الله وبركاته عندي برنامج في احد المؤسسات ويعمل تمام ، ولكنهم اضطروا لعمل فورمات للجهاز وتم تنصيب الوندوز العربي ، وقاموا بعمل مجلد جديد للبرنامج ، وتغيير اسم البرنامج الى اللغة العربية. عند تشغيل البرنامج ، بدأ كود الواجهة FE بعمل ربط مع برنامج الجداول BE ، وظهرت لهم نافذة اختيار مكان وجود برنامج الجداول BE : . وبعد اختيار المسار والبرنامج ، ظهرت هذه الرسالة: . ثم هذه الرسالة: . وبعد النظر في هذه الصور ، اتضح لي ان هناك شيء غريب في الصورة (لاحظ السهم الاحمر) : . لاحظت وجود علامة استفهام في اسم برنامج BE ، لذا طلب من الشباب ان يقوموا بحذف علامة الاستفهام من الاسم ، وعليه حصلوا على هذه الرساله: . السؤال كان ، من اين اتى هذا الاسم ، والجواب انه من جدول MSysObjects ، ولكن وكما نرى من الصورة ادناه ان اسم البرنامج والمسار في الجدول صحيحين: . لذا اردت التأكد ، واردت ان ارى ما يراه الكمبيوتر ، فنسخت بيانات الحقل والصقتها في Notepad : . ولم الحظ اي شيء غريب ، ولكن ، Notepad يعمل على unicode و ansi ، لذا الصقت البيانات في صفحة كود VBA ، وحصلت على النتيجة التالية: . هذا يعني ان الوندوز العربي اضاف بعض الرموز لإسم البرنامج ، وبذلك لم يوجد تطابق بين اسم البرنامج BE وبيانات المسار التي يتوقعها برنامج الاكسس !! الحل الاسهل كان بتغيير اسم برنامج الجداول BE الى اللغة الانجليزية ، وتم حل المشكلة (او حذف ربط الجداول ، واعادة الربط مرة ثانية) ------------------------------------------------------- اضافة بتاريخ 12/11/2020 والامر غير مقتصر على عملية ربط قاعدة البيانات ، فقد نحصل على رسالة الخطأ التالية ، والسبب هو كما اشرنا اليه اعلاه : جعفر

انا عملت تعديل على المرفق الاصلي ، ولا يمكن استعمال x للخروج من البرنامج الان فرجاء انزال المرفق مرة اخرى جعفر

ولكن هذا العنصر ليس للنموذج ، وانما هو للبرنامج

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

أخي محمد التميمي مرفق تطبيق يعينك على حاجتك باذن الله NA_Calculator.accdb

وعليكم السلام ورحمة الله وبركاته افتح نموذج جديد فارغ وليكن اسمه: MainForms ضع فيه نموذج فرعي فارغ وليكن اسمه: Mainsub واجعل مصدره فارغ في MainForms ضع زر امر وفي حدث عند النقر استخدم الكود: Me.MainSub.SourceObject = "Frm1" mainsub هو النموذج الفرعي الموجود داخل النموذج الأساسي الواجهة Frm1 النموذج الذي تريد فتحه داخل النموذج الفرعي طبق على باقي الازرار وسوف يفتح النموذج داخل اطار النموذج الفرعي mainsub

وعليكم السلام ورحمة الله وبركاته استخدم الوحدة النمطية التالية: Public Function HoursToMinutes(ConvHoursMinutes As Single) As Long Dim WazMinutes As Integer If InStr(1, Str(ConvHoursMinutes), ".") > 0 Then WazMinutes = Val(Mid(Str(ConvHoursMinutes), InStr(1, Str(ConvHoursMinutes), ".") + 1)) End If HoursToMinutes = Int(ConvHoursMinutes) * 60 + WazMinutes End Function وقم باستدعائها كالتالي في الحقل الذي تريد ظهور النتيجة فيه: =HoursToMinutes([YourField])

اضفت وحدة نمطية تقوم بهذا العمل جعفر

من خصائص النموذج انظر الصورة

الحمدلله

وعليكم السلام ورحمة الله وبركاته بارك الله بك أخي الكريم عبد اللطيف سلوم ولكن سؤال واسمح لي حبذا لو عالجة عدم تكرار نفس الصنف لنفس الفاتورة والتنبيه عند وجود نفس الصن ؟ ما رأيك مع كل الشكر

يجب ان يكون عندك في كل نموذج زر خروج

تفضل . جعفر 950.1.الجمعية_.accdb.zip

1. لا ، ولا انصح بعمل اللي تريده ، ولكن يمكن عمل حقل فوق هذا الحقل (بالضبط ، وبنفس اللون ، ونجعله مخفي ، وليكن اسمه For_New_Record) ، ونكتب في هذا الحقل الغير مضمن ، كلمة (جديد) ، وفي حدث الحالي في النموذج ، نكتب هذا الكود لإخفاء احدهم وإظهار الآخر ، في الوقت الصحيح: Private Sub Form_Current() If Me.NewRecord Then Me.For_New_Record.Visible = True Me.RowID.Visible = False Else Me.For_New_Record.Visible = False Me.RowID.Visible = True End If End Sub . 2. لا يمكنك ان تضيف اي رقم لهذا الحقل ، فالرقم سيظهر تلقائيا عند حفظ السجل ، لذا اقفل هذا الحقل جعفر 953.2.test.accdb.zip

للاسف لم يضبط معي للمعلوميه انا قاعدتي منقسمه واريد احذف كل الجداول بستثناء جدول usre عندي كود يحذف كل الجداول هذا الكود كيف اضيف له شرط يسثني جدول Dim strSQL As String Dim tdf As TableDef Dim BackDB As DAO.Database Dim strPath As String strPath = CurrentProject.Path & "\data\tailor" Set BackDB = OpenDatabase(strPath) For Each tdf In BackDB.TableDefs If Not (left(tdf.NAME, 4)) = "MSys" And tdf.NAME <> "User" Then BackDB.Execute ("delete * from " & tdf.NAME) strSQL = "INSERT INTO " & tdf.NAME & " SELECT " & tdf.NAME & ".* FROM " & tdf.NAME & " IN '" & myfile & "';" BackDB.Execute (strSQL) End If Next DoCmd.Requery BackDB.Close Me.Refresh End If

في الواقع كل اللي كنت محتاج له هو الكود اللي اعطاك اخونا محمد التميمي ولكني اضفت بعض البهارات عليه ، فأصبح: Private Sub Form_Load() DoCmd.GoToRecord , , acLast DoCmd.GoToRecord , , acNewRec Me.التاريخ.SetFocus End Sub جعفر

تفضل ، من هنا

غيّر مصدر بيانات النموذج من الى (يعني احذف بقية الجداول والاستعلامات من هذا الاستعلام) . جعفر

وعليكم السلام هل هذا قصدك: جرب المرفق في الرابط التالي . او جعفر

بنفس الطريقة اكمل: =DCount("[م]","[معلمون]",[الوظيفة]='معلم') مع مراعاة ان الحقول لديك باللغة العربية سوف تواجه صعوبة كبيرة بالترتيب في الاكواد م = حقل الرقم لديك معلمون= اسم الجدول الوظيفة = الحقل الهدف لو كتبناها بمسميات انجليزية سوف تكون المعادلة هكذا =DCount("[M_id]","[Mtbl]",[mwath]='معلم') m_id = م Mtbl = معلمون Mwath= الوظيفة بالتوفيق في مشروعك عزيزي

وبعد اذن استاذى سليم ولإثراء الموضوع تسعير-1.xlsx

وعليكم السلام السؤال غير واضح ، فرجاء اعطاءنا مثال من برنامجك المرفق ، مع شرح بالتفصيل جعفر

جرب هذا الملف (يظهر بيانات العميل ولو كان له اكثر من حساب ليس فقط 2) وكل اسم تضيفه على الجدول يظهر في القائمة المنسدلة ولا مجال لتكراره في هذه الفائمة اذا تكرر في الجدول Salim_Prices.xlsx

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

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

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

بارك الله فيك استاذى هل يمكن تبيق ذلك على باقى الحقول فى النموزج

تفضل قمت بتعديل بعض الاشياء / اسم الحقل نفس اسم الجدول وهذ لا يجوز قم تبتغيير اسم الحقل من site /// cus_name تستطيع التطبيق على باقي الامور الجمعية .rar

كل المحبة والاحترام

عمل رائع وجميل استاذى الكبير

بارك الله فيك استاذى الكبير

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

السلام عليكم ورحمة الله تم تصحيح الخلل في المعادلة... أرجو أني قد وفّقت في ذالك... بن علية حاجي series (1).xls

طبعاً الملف يجب ان يكون بطيئاً اذ انه يحتو ي غلى 5 أعمدة في كل واحد 1400 معادلة Array تقوم كل واحدة منها تقوم بفحص 5 أعمدة اخرى بنفس العدد من الصفوف(1400) في كل عامود ما مجموعه (1400*5*1400*5) اي حوالي 50 مليون معادلة انا وضعت هذه المعادلات للبيانات الصغبرة (لا تتجاوز 100 صف) لذلك اذا اردت العمل بسرعة يجب الاعتماد على advanced filter من خلال الماكرو اذا اردت راجع احر مشاركة لي على هذا العنوان https://www.officena.net/ib/topic/85372-ملف-اكسل-للبحث-بثلاثة-شروط/?tab=comments#comment-541538 و قم بتعديل الماكرو حسب المطلوب

وعليكم السلام اخوي عمر جرب هذه الطريقة: افتح الاكسس (مو قاعدة بياناتك ، وإنما برنامج الاكسس) ، ثم اختار قاعدة بياناتك ، واختار Open Exclusive . جعفر

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

السلام عليكم اخي ابو ياسين اسمح لي اقول لك بأن هذه الطريقة غير صحيحة من ناحية قوانين قواعد البيانات!! قانون قواعد البيانات إدخال ، فرز و تصفية ، تقارير. . في جدول حركات ، انت جعلت الحقل "البيان" يحتوي على انواع مختلفة من البيانات ، فكيف ستفرز وكيف ستصّفي هذا الحقل!! حسب ما اراه من بيانات الحقل ، فانك ادخلت: - اسم_المورد "عالم النسيج" او "المرسام" ، ومرة بندر النهاري ومرة اخرى بند النهاري ، ... - نوع الدفعة: حاليا انت كاتب دفعة ، وبعد شهر بتكتب دفعة ثانية ، ثم دفعة ثالثة ، ... - معلومات اخرى: سداد فاتورة رقم 220 ، بيد العطاس فارق السعر ، دفع المرسام ، ... . يعني كيف بتعمل تصفية للسجلات اعلاه !! ومن ملاحظتي للمدخلات اعلاه ، فلا يمكن عمل تصفية ، لأن حتى اسم المورد مكتوب بأكثر من طريقة !! يعني كيف نتعمل تقرير لمورد معين مع وجود فارق في اسمه بين السجلات ، ولنوعية معينة من الدفعات ، ولطريقة دفع معينة!! مادام القلم بيدك ، فاعمل التغيير واضبط الامور ، اما اذا وصل البرنامج للعميل ، فالله يعينك!! يا ابو ياسين ، انا اعمل برامج من سنة 1984 ، فخذها نصيحة لله ، واستفيد من نصائح خبرتي ، واعد النظر في هذه الجزئية من برنامجك (انا فقط اشتغلت على هذه الجزئية ، فما اعرف عن الباقي) جعفر

تفضل هذه مجموعة مستقطعة من برامجي السابقة ، ومن برامجي الرئيسية والنتيجة والبرنامج عبارة عن متصفح كذلك ، راجع الرابط: http://www.officena.net/ib/index.php?showtopic=60659 جعفر تعديل 1: عفوا ، عملت إضافة اخرى ، ليكتمل البرنامج ، فالواجهة اصبحت: تعديل2: امسك زر الشفت اثناء تشغيل البرنامج علشان تقدر تغير اللي تريده . 49.View_Internet.mdb.zip

السلام عليكم ورحمه الله وبركاته كل عام وانتم بخير اخواني واخواتي انا عضو بهذا المنتدا الرائع ولكن تقابلني مشاكل لا حولا ليها ولا قوه وهي 1- لي سؤال وارفقت المرفق الخاص به -قد تصل نسبة المشاهده الى 100% ولا يوجد رد وذا فات احد قال ياخي اعمل هيك وهيك ثم هيك وهذه اجابه خطاء معزرة اني لا افرض الاجابه او اامر الساده المشرفين بالاجابه الفوريه لا حاشا لله لا اقصد هذا ولكن نطلب العون والمساعده ممن هم يقدمون المساعده للمبتدائين في مجال برمجه اكسس 2- يوجد الكثير من المواضيع ليس لها اي اجابات مما تؤدي الى عدم دخول المنتدا من عدم صحتها وهي مثال عن كتابة في محرك البحث جوجل [اريد شرح عمل ربط بين جهاز الصمه قاعدة بيانات اكسس] يوجهني الى هذا الربط "البداية لربط الاكسس بالعالم الحقيقي والتحكم فى البوبات والاناره " اهداء اليكم " 3- هنا ظاهره خطير وهي اصبح بعض من الساده الاعضاء يعتبرون المنتدا هذا موقع ترويج لاشياء ليس لها جزور او صحه من العنوان الخاص بها انا لا اشكك في مصدقيه المنتدا او عدم الاهتمام باعضائه ولكني اقدم بعض الامور التي لا تفيد ولا نستفيد منها جزاكم الله خير الجزاء وبارك الله فيكم وجعله في ميزان حسانتكم