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

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

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

وعليكم السلام ورحمة الله وبركاته جميل بارك الله فيك الملاحظة التي وجدتها هي النوع ( الجنس ) يوجد خطأ بالكود التالي If s = 1 Then Me.s1.Value = "ذكر" Else Me.s1.Value = "أنثى" End If يرجى استبداله بالتالي Dim XXX As Long XXX = Mid([b], 13, 1) Select Case XXX Case Is = 1, 3, 5, 7, 9 Me.s1.Value = "ذكر" Case Is = 0, 2, 4, 6, 8 Me.s1.Value = "أنثى" End Select الرقم القومي المصري.rar تحياتي

وعليكم السلام اخوي حسين 🙂 شكرا جزيلا على هذه الطريقة 🙂 هناك طريقة اخرى سهلة وقد تكون اكثر فائدة: على افتراض ان اسم البرنامج myDB.mdb : 1. عمل صورة بحجم 1x1 بكسل (مرفق نسخة) ، وتسميتها بنفس اسم البرنامج ولكن بصيغة bmp هكذا : myDB.bmp ، ووضعها في نفس مجلد الملف myDB.mdb ، بهذه الطريقة لن تشاهد اي شيء الى ان يفتح البرنامج (إلا اذا كنت شديد الملاحظة ورأيت الصورة بهذا الحجم 🙂 ) . 2. عمل صورة فيها اسم الشركة وشعارها وارقامها ، واسم البرنامج ، بالحجم المناسب ، وتسميتها بنفس اسم البرنامج ولكن بصيغة bmp هكذا : myDB.bmp ، ووضعها في نفس مجلد الملف myDB.mdb ، بهذه الطريقة يفتح البرنامج بهذه الصورة (ويفرح المدير 🙂) بدلا عن شاشة الاكسس Splash screen 🙂 . جعفر 1x1_For_Hiding_Splash_Screen.bmp

اخواني الافاضل تم شرح الخطوات بالصور ليسهل تطبيقها وتجدونها في المرفقات. اولاً اذا كانت قاعدة البيانات باللغة العربية حولها على الانجليزية ، واسهل وسيلة لعرض بيانات قاعدة بيانات SQL Server هي الاكسس و بما اننا نتكلم عن قاعدة بيانات على الاكسس انصح انك تبدء تصمم الواجهات على VB.Net او ASP.Net ، فهي لا تختلف كثيرا عن الاكسس ، لكن المميز فيها بأن المستخدم يستطيع الاستفادة من برنامجك على جميع الاجهزة كمبيوتر - لابتوب-موبايل - ايباد و غيرها ثانيا انشئ حساب على سيرفر SOMEE من : https://somee.com/default.aspx و اختر حزمة الاستضافة المجانية https://somee.com/DOKA/DOC/DOLoginOrRegister.aspx . . . . . عمل قاعدة بيانات SQL Server . . . . . . . برنامجك الاكسس : . . . . . . . . . . . . . . . . . في حال وجود اي استفسارات ارجوا كتابتها في التعليقات نشر قاعدة البيانات.zip

احبتي سوف نتعلم اليوم طريقة سهلة للغاية في اخفاء خلفية الاكسس عند الفتح نعم هذه الخلفية المزعجة نريد ان يعمل برنامجنا الرائع بدون ظهور هذه الخلفية الفكرة بإختصار !!! اخفاء هذه الخلفية على الأغلب غير ممكن بدون تدخل برمجي لكن مع توظيف الخصائص لصالحنا نجد أن اوفيس مشكورة اعطتنا حل سهل و بسيط التنفيذ اولاً / قم بإنشاء اختصار من برنامجك على اي مكان داخل الكمبيوتر و ادخل على الخصائص ثانيا و اخيرا اتبع الشرح في الصور و بكذا نكون انتهينا 1 قم بتغيير شعار الاكسس و ضع اسم جميل للاختصار الأن راح يعمل برنامجك بدون ظهور خلفية الاكسس و يكون الموضوع جميل مع اخفاء ايقونة الاكسس

اصنع زر في نموذج وضع هذا الكود فيه :::::: DoCmd.OpenReport "مستحق_فيزا1", acViewPreview Pause 1 DoCmd.Close DoCmd.OpenReport "Kanory", acViewPreview

أهلا مسلم.. وضع البيانات بهذه الطريقة تعني باختصار أنك تريد أضافة بيانات موجودة مسبقا! Private Sub List37_Click() Form_Newstafffrm.cmdupdate.Enabled = True With List37 Form_Newstafffrm.Staff_ID.Value = List37.Column(0) Form_Newstafffrm.emp_nameEN.Value = List37.Column(1) Form_Newstafffrm.emp_nameAR.Value = List37.Column(2) Form_Newstafffrm.NationalityAR.Value = List37.Column(3) Form_Newstafffrm.NationalityEN.Value = List37.Column(4) Form_Newstafffrm.TitleJobAR.Value = List37.Column(5) Form_Newstafffrm.TitleJobEn.Value = List37.Column(6) Form_Newstafffrm.QualificationAR.Value = List37.Column(7) Form_Newstafffrm.QualificationEN.Value = List37.Column(8) Form_Newstafffrm.ID_Iqama.Value = List37.Column(9) Form_Newstafffrm.idissueplace.Value = List37.Column(10) Form_Newstafffrm.idissuedate.Value = List37.Column(11) Form_Newstafffrm.IDExbiredateH.Value = List37.Column(12) Form_Newstafffrm.idexpiredate.Value = List37.Column(13) Form_Newstafffrm.Dateofbirth.Value = List37.Column(14) Form_Newstafffrm.PassportNo.Value = List37.Column(15) Form_Newstafffrm.Passport_issueplace.Value = List37.Column(16) Form_Newstafffrm.Passport_issuedate.Value = List37.Column(17) Form_Newstafffrm.Passport_expiredate.Value = List37.Column(18) Form_Newstafffrm.personalemail.Value = List37.Column(19) Form_Newstafffrm.Addressathome.Value = List37.Column(20) Form_Newstafffrm.AddressInKSA.Value = List37.Column(21) Form_Newstafffrm.ageytxt.Value = List37.Column(22) Form_Newstafffrm.agemtxt.Value = List37.Column(23) Form_Newstafffrm.Agedtxt.Value = List37.Column(24) Form_Newstafffrm.Mobile.Value = List37.Column(25) End With End Sub الطريقة السلمة في حالتك هي هذه Private Sub List37_Click() Form_Newstafffrm.cmdupdate.Enabled = True DoCmd.OpenForm "Newstafffrm", , , "Staff_ID='" & Me.List37 & "'" End Sub

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

السلام عليكم ورحمة الله اكتب هذه المعادلة فى الخلية "C6" =IFERROR(INDEX(msheet!$D$5:$E$82;SMALL(IF(msheet!$D$5:$D$82=$E$3;ROW(msheet!$D$5:$D$82));ROW(A1))-4;2);"") ثم اصغط "CTRL+SHIFT+ENTER" ثم اسحب نزولا حتى الخلية "C35" ثم اكتب المعادلة التالية فى الخلية "E6" =IFERROR(INDEX(msheet!$D$5:$E$82;SMALL(IF(msheet!$D$5:$D$82=$E$3;ROW(msheet!$D$5:$D$82));ROW(A31))-4;2);"") و كر ر ما سبق

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

التجربة لن تكلفك ، إلا تنزيل الملف ذو 1x1 بكسل ، ثم اعطائه نفس اسم قاعدة البيانات ، ثم تشغيل البرنامج وملاحظة وجود صورة الاكسس من عدمها 🙂 جعفر

وعليكم السلام ورحمة الله وبركاته الافضل ان تكون الفواتير من جدولين ( رأس الفاتورة - تفاصيل الفاتورة ) رأس الفاتورة = رقم الفاتورة - تاريخ الفاتورة - اسم العميل / المورد - طريقة الدفع - المبلغ المدفوع تفاصل الفاتورة = رقم الفاتورة - اسم الصنف - الكمية - السعر - الخصم وبالنسبة لجدول الاصناف ( المواد ) = كود الصنف - اسم الصنف - الوحدة - سعر البيع يتم وضع سعر البيع في جدول الاصناف ( المواد ) لكثرة العمل عليه ويتم استدعائه في فاتورة البيع اما سعر الشراء قد يكون متغير ويتغير ايضا حسب المورد بالزيادة او النقصان لذلك لا يجب ان يكون سعر الشراء ثابت والا فهو متغير وسيغير جميع الحسابات السابقة واللاحقة وهذا مثال لاستاذنا @ابوخليلسيفيدك جدا باذن الله تحياتي

من وجهة نظري بأن يأي برنامج للفواتير لابد بأن يتكون من الجداول التالية *** - جدول المواد ( المواد الخام (كود المادة - اسم المادة - وصف المادة - .... الخ)) *** - جدول التوريد ( كود المادة - تاريخ التوريد - سعر التوريد - سعر البيع - التخفيض المسموح - ...... الخ ) - جدول المبيعات + باقي الجداول السبب المادة ثابته من ناحية الاسم و الوصف على الأغلب لكن السعر متغيير و يتم توريد مواد ضافة قد تكون مختلفة في سعرها عن السابق بالتالي تستطيع السحب من المخزون القديم حتى ينتهي و تبدء من السحب من المخزون الأجدد فالأجدد الترابط و الربط مهم جدا بين الجداول حتى لا يحصل تداخل

فكرة جدا ممتازة على الافل اثناء فترة الانتظار يتم عرض بروفايل مصغر للشركة

السلام عليكم ورحمة الله وبركاته اسمحوا لي بالمشاركة معكم الخطأ الذي يقع فيه الكثير منا هو ان يتم عمل جدول المبيعات به كميات فقط ويتم جلب او استدعاء الاسعار من خلال استعلام ويتم الربط بين سعر البيع وضربها في الكمية ولتلافي هذه المشكلة الحل بسيط وهو جعل مصدر البيانات جدول المبيعات او فاتورة البيع جدول التفاصيل ويتم استدعاء السعر من خلال دالة dlook up or dlast بعد التحديث ليتم تسجيل السعر الفعلي للبضاعة حسب اخر سعر ( الذي يتغير في كل مرة حسب اخر فاتورة شراء ) او متوسط السعر سواء كان مرجح او متحرك او اي طريقة كانت وعند تعديل الفاتورة فرضا يتم تحديث الفاتورة المعدلة فقط وليس كل الفواتير

لكل مبرمج منا وجهة نظر انا اعتقد انه ضروري حتى لا يحصل خطأ في حساب الرصيد عندما تكون هناك عدة حركات على الحساب في نفس التاريخ لكونه يعطي التسلسل الصحيح في ترتيب الحركات ممكن عدم استخدامه اذا كان لدينا تاريخ بتنسيق الوقت والتاريخ ليكون التسلسل وفقا لذلك ولكن id اسهل الان ناتي للمهم عمل الرصيد التراكمي ممكن بعدة طرق الطريقة الاسهل ويعملها اكسس بدون مجهود منا في التقارير اما في النماذج والاستعلامات فسوف اشرح طريقتين وبشكل مختصر الاولى عن طريق حقل محسوب في الاستعلام باستخدام دالة dsum DSum("[daan] ";"hrkahesab";"[id]<=" & [id] & "and [date]<=" & Format([date];"\#mm\/dd\/yyyy\#"))-DSum("[maden] ";"hrkahesab";"[id]<=" & [id] & "and [date]<=" & Format([date];"\#mm\/dd\/yyyy\#")) وهنا نجمع حقل دائن بشرط id يساوي او اصغر من id في النموذج والتاريخ للسجل اصغر او يساوي التاريخ في الاستعلام ثم نطرح منه جمع حقل مدين بنفس الشرطين هذه الطريقة اسهل ولكن الافضل عدم استخدامها لكونها ليست سريعة عند جود سجلات كثيرة الطريقة الثانية نضع حقل في الاستعلام باستخدام استعلام فرعي يفضل استخدام اسم مستعار للجدول من خلال فتح الاستعلام في وضع التصميم ثم وضع المؤشر على الجدول ثم في ورقة الخصائص اسم مستعار وبنفس الشروط ليكون الكود RaseedTrakomy: (select(sum([daan])-sum([maden])) from [HRKAHESAB] where [id]<= kh.[id] and [date]<=kh.[date] and [merg]=kh.[merg]) في الحالتين نحصل على نفس النتيجة ولكن من تجربتي الطريقة الثانية اسرع اخيرا اخي عادل اعتذر منك فلم اقصد في مشاركتي السابقة اي تجريح فلك كل التقدير والاحترام ولكني تفاجأت بعد وضع الرد ان الموضوع قديم وان الملف المطلوب تعديلة مختلف

السلام عليكم بالنسبة لموضوع مانع الاعلانات ، اذا كان هو ما يسبب المشكلة ، حاول ان تستثني الموقع من اعداداته

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

بعد اذن اخي @د.كاف يار اجعل مصدر سجلات النموذج استعلام مضمن يحتوى على استعلام فرعي يساوي SELECT kh.id, kh.merg, kh.maden, kh.daan, kh.Date, kh.MOSTND, (select(sum([maden])-sum([daan])) from [HRKAHESAB] where [id]<= kh.[id] and [date]<=kh.[date] and [merg]=kh.[merg]) AS RaseedTrakomy FROM HRKAHESAB AS kh; مع ملاحضة استخدامك لحقل في الجدول باسم date وهو من الاسماء المحجوزة لاكسس لذا قم بتعديله ايضا وجود حقل ترقيم في الجدول يساعد في معادلة حساب الرصيد الملف مرفق الرصيد التراكمي22.mdb

تفضل send.accdb send.zip

اتفضل send.rar

في مربع نص ضع التالي في اسفل التفاصيل Sum([TextBox])