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

ضع تحت حدث عند تحرك قرص الماوس في النموذج الرئيسي الكود التالي With Me![Request].Form If .RecordsetClone.RecordCount > 0 Then DoCmd.GoToRecord , , acNewRec Else End If End With

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

جرب هذا ... اجازات موظفين.accdb

لعدم السماح بكتابة مسافات زائدة في الخلية (مثلاً A1) يسمح فقط بمسافة واحدة بين كل كلمتين 1- اضغط Alt +D+L (للدخول الى Data validation) بعد تحديد الخلية الهدف طبعاً (A1) 2-من خلال Custom اكتب المعادلة التالية: =LEN(A1)-LEN(TRIM(A1))=0

وعليكم السلام ورحمة الله وبركاته ماذا تقصد بشرط الاسم؟؟ وكيف تريد نقلها؟ عند الضغط على ماذا؟ حسب ما ورد في المثال لديك هكذا يتم النقل بس لا ادري اين اضع الامر Forms![المبلغ]!mb = Forms![عدادات المياه]![التكلفة] mb هو اسم الحقل الموجود في جدول المبلغ وبخصوص الجزئية الثانية من السؤال كنت قد اجبت عليها في سؤال سابق للأستاذ عبد الغفار بخصوص ارقام الجلوس تقريبا نفس الحل عموما اشرح اكثر وسنصل للنتيجة لا تقلق عزيزي الأستاذ عبد اللطيف

اتفضل اخى الكريم الملف لعله يفى بالغرض نسخة من استعلام من خلال الضغط على اسم العميل.xlsm

مثال عما تريد بطريقتين 1- معادلة عادية صفحة Simple 2 بواسطة الكود صفحة Salim الكود المستعمل Option Explicit Function Inter_Sum(My_Val, Pat As String) Rem ====>> Created by Salim Hasbaya On 1/7/2019 Dim Obj As Object Set Obj = CreateObject("VBScript.regexp") Dim My_Match Dim t% With Obj .Global = True .Pattern = Pat If .Test(My_Val) Then For Each My_Match In .Execute(My_Val) t = t + IIf(IsNumeric(My_Match), My_Match, 0) Next End If End With Inter_Sum = t End Function الملف مرفق Creezy_sum_VBA.xlsm

وعليكم السلام 🙂 تفضل ، هذا التعديل على الوجدة النمطية Public Function FileName(iPath_In As String, iCondition As Variant) Dim fdr As String FileName = iPath_In & "No.jpg" fdr = Dir(iPath_In & iCondition & ".*") Do While fdr <> "" FileName = iPath_In & fdr fdr = Dir Loop End Function جعفر

للمبتدئين في البرمجة .......... مرفق مثال يشرح جزء من دالة Dlookup تكتب الاسم ويظهر البلد او الجنسية الكود موجود في الاسم بعد التحديث مرفق ملف العمل اذا وجدت تشجيع انزل امثلة لكل حالات Dlookup dlookup.accdb

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

الأستاذ @AlwaZeeR هل من الممكن رابط أو شرح لاستخدام ملفات MDW للحماية ؟ شكراً لكم .

السلام عليكم 🙂 اريدكم تشوفوا هذا المثال ، ولو انه يدوي ، ولكنه يعطي الفكرة 🙂 وبعدها ، ممكن نعمله تلقائي على حدث "الحالي" للنموذج 🙂 جعفر 1075.10-09.mdb

تعديل على الكود ليتناسب مح المطلوب Option Explicit Sub Salim_Has() Dim my_rg As Range Dim i%, last_row%, m%: m = 2 Dim my_st$ my_st$ = "قائمة رقم " last_row = Quawaem.Cells(Rows.Count, 1).End(3).Row Khoulasa.Range("a1").CurrentRegion. _ Offset(1).ClearContents For i = 3 To last_row If Quawaem.Range("b" & i) <> "" And _ Quawaem.Range("b" & i) <> "الاسم" Then If my_rg Is Nothing Then Set my_rg = Quawaem.Range("B" & i) Else Set my_rg = Union(Quawaem.Range("B" & i), my_rg) End If End If Next For i = my_rg.Areas.Count To 1 Step -1 With Khoulasa.Cells(m, 1) .Value = my_st$ & m - 1 .Offset(, 1) = Application.CountA(my_rg.Areas(i)) .Offset(, 2) = Application.Sum(my_rg.Areas(i).Offset(, 1)) End With m = m + 1 Next Set my_rg = Nothing End Sub الملف من جديد Quawaem_count_new.xlsm

فاهم عليك ضع هذه المعادلة في تكلفة المياه =DSum("[اثمان المياة]","[عدادات المياه]","[اسم المستاجر]='" & [اسم المستاجر] & "'" & "And [التاريخ]=#" & Format([التاريخ],"yyyy/mm/dd") & "#") يحسبها بمعيار اسم المستاجر والتاريخ هذا حل سهل واذا اردت الصعب اتركه للغالي أبا جودي 🙂

لماذا لا تضع حقل في نفس نموذج عدادات المياه يحسب المبلغ ؟؟؟ وهكذا ترتاح من عمل جدول ونموذج 🙂

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

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

عاوز التعديل على المرفق ده واللا على المرفق الرئيسى الاخر اللى منت تريد اظهار الامتداد به داهل الاستعلام وانتبه هنا نتعامل مع نموذج مفرد رئيسي اما هناك مع نموذج فرعى

احسنت و بارك الله فيك اخي الكريم

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

وأنا كذلك!

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

الملف احصائيةالفصل الدراسى الأول 2019_3.xls

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

ربما ينفع هذا الكود Sub Salim_Has() Dim my_rg As Range Dim i%, last_row%, m%: m = 2 Dim my_st$ my_st$ = "قائمة رقم " last_row = Quawaem.Cells(Rows.Count, 1).End(3).Row Khoulasa.Range("a1").CurrentRegion. _ Offset(1).ClearContents For i = 3 To last_row If Quawaem.Range("b" & i) <> "" And _ Quawaem.Range("b" & i) <> "الاسم" Then If my_rg Is Nothing Then Set my_rg = Quawaem.Range("B" & i) Else Set my_rg = Union(Quawaem.Range("B" & i), my_rg) End If End If Next For i = my_rg.Areas.Count To 1 Step -1 Khoulasa.Cells(m, 2) = _ Application.CountA(my_rg.Areas(i)) Khoulasa.Cells(m, 1) = my_st$ & m - 1 m = m + 1 Next Set my_rg = Nothing End Sub الملف مرفق Quawaem_count_new.xlsm

هلا بيك اخوي هالجزئية ما فهمتها من السؤال ترقيم.rar

السلام عليكم احببت ان اشارك ولو بجزء صغير مشاريع مميزة تم اعدادها بواسطة برنامج الأكسس اطرحه بين ايديكم وللأمانة هذه المشاريع ليست من عملي.. إنما تجميعي وقمت برفعها وتجديد روابطها ______________ تمت تجديد روابط الملفات تحت طلب الإخوة وقمت برفعها شرح طريقة التحميل للروابط الجديدة 1 المشروع الأول مشروع الجمعية الخيرية للتحميل الجمعيه الخيريه.zip - 118.1 Kb . . . المشروع الثاني برنامج تحضير الدروس للتحميل برنامج تحضير الدروس . . . المشروع الثالث مشروع العيادات والمستشفيات يوجد مشروعين بداخل الملف للتحميل برنامج العيادات والمستشفيات . . . المشروع الرابع مشروع ادارة الجوازات للتحميل الجوازات . . . المشروع الخامس برنامج ادارة اجازات الموظفين اجازات . . . المشروع السادس مشروع البوم الصور للتحميل ألبوم الصور . . . المشروع السابع مشروع برنامج التقسيط للتحميل برنامج التقسيط . . . المشروع الثامن برنامج روضة الطفل السعيد للتحميل روضة الطفل السعيد . . . المشروع التاسع مشروع المستودع للتحميل مشروع المستودع . . . المشروع العاشر مشروع برنامج قاعدة للتحميل برنامج قاعدة . . . المشروع الحادي عشر مشروع الطبيب للتحميل مشروع الطبيب . . . المشروع الثاني عشر مشروع البيان للمحاسبة للتحميل البيان للمحاسبة . . . المشروع الثالث عشر مشروع برنامج اطباء الاسنان للتحميل برنامج أطباء الأسنان . . . المشروع الرابع عشر مشروع برنامج المبيعات التجارية للتحميل المبيعات التجارية . . . المشروع الخامس عشر مشروع برنامج لمكاتب الحج والعمرهـ للتحميل برنامج لمكاتب الحج والعمرهـ . . . المشروع السادس عشر مشروع برنامج مغسلة ملابس للتحميل برنامج مغسلة ملابس . . . المشروع السابع عشر مشروع صيانة السيارات للتحميل مشروع صيانة السيارات . . . المشروع الثامن عشر مشروع الرواتب للتحميل مشروع الرواتب . . . المشروع التاسع عشر مجموعة مشاريع اكسس للعقار و الشقق المفروشه و الفنادق في ملف واحد للتحميل مجموعة مشاريع اكسس للعقار و الشقق المفروشه و الفنادق . . . المشروع عشرين مشروع برنامج المحاسبة مصنف تصنيف جميل للتحميل مشروع برنامج المحاسبة . . . المشروع الحادي والعشرين مشروع لمتابعة درجات طالبات الكليه نبذه عن البرنامج : يتميز بالأتي :- أولاً: المدخلات 1- شاشة إدخال الكليات 2- شاشة إدخال رئيسات الأقسام 3- شاشة إدخال أسماء المعلمات 4- شاشة إدخال المواد التابعة لكل قسم 5- شاشة إدخال الطالبات 6- شاشة إدخال الدرجات لكل قسم على حدة ثانياً: المخرجات (التقارير) 1- تقرير بأسماء جميع أقسام الكليات 2- تقرير بأسماء المواد التابعة لقسم معين 3- تقرير بأسماء طالبات قسم معين 4- تقرير بدرجات طالبة في قسم معين لجميع المواد 5- تقرير بدرجات طالبات قسم معين في مادة معينة

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

بارك الله فيك أستاذ سليم بالفعل كنت ابحث عن معالة تقوم بهذا الغرض

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

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

اتفضل data(1).accdb

أستاذى الكريم كود رائع ومميز بارك الله فيك وزادكم علما نافعا

وعليكم السلام أين الملف ؟!!!!!!!!!!!!!!

امممممممممم وكيف يتم التعامل مع هذا الكود متى نقوم بعمل CALL له وكيف

وعليكم السلام 🙂 الطريقة هي ان نتأكد اذا كان السجل مقفل ، اي ان السجل يتم يحريره/تغييره. اولا يجب ان تجعل الاكسس يقفل السجل الذي يكون عليه التحرير: . وبعد هذا تشوف الكود هنا https://www.utteraccess.com/forum/index.php?s=bacff30915afa7f517609d3afe412ef8&showtopic=1834320&view=findpost&p=2350111 جعفر

السلام عليكم ورحمة الله تعالى وبركاته اولا وقبل اى شئ لم يتم ترتيب اسماء اساتذتى الكرام الذين تم كتابة اسمائهم لسبب محدد فالترتيب لا يعنى اى شئ اطلاقا فجميعهم النجوم اللامعة بمن نقتضى منهم فى هذا الصرح نهتدى ان شاء الله كما خو الحال مع باقى الاساتذة الذين لم اكتب اسمهم فلا يعنى ذلك اى شئ كلهم فى مرتبة واحدة وكلهم معلمينا الافاضل لا غنى لنا عنهم عذا فقط مجرد مثال اسرد اليكم الشـرح سريعا لفكرتى قبل البدء قد يتفق معى من يتفق ويختلف من يختلف لذلك انتظر ارائكم ان شاء الله فيشيد بهذه الطريقه من يشيد و يعترض من يعترض فنخرج ان شاء الله بأطيب النتائج هنا ان شاء الله اتعامل مع جدول باسم tblMainData والذى يختوى على الحقول A,B,C ونموذج باسم يضم الحقول على الترتيب txtA , txtB, txtC هذا الكود حتى اهئ النموذج للتعامل مع اختصار المفاتيح من الكيبورد Private Sub Form_Load() Me.KeyPreview = True End Sub وهذا الجزء حتى اسند القيم التى احتاج لنسخها الى متغيرات وكتبته هكذا ليسهل استدعاءه وقت الحاجة Private Sub SpecialCopy() 'الاعلان عن المتغيرات Dim VarFildeA As Variant Dim VarFildeB As Variant Dim VarFildeC As Variant 'اسناد قيم مربعات النص الى المتغيرات VarFildeA = txtA VarFildeB = txtB VarFildeC = txtC DoCmd.GoToRecord , , acNewRec 'سجل جديد 'نسخ قيم المتغيرات الى مربعات النص في السجل الجديد txtA = VarFildeA txtB = VarFildeB txtC = VarFildeC 'تفريغ المتغيرات VarFildeA = Empty VarFildeB = Empty VarFildeC = Empty End Sub وهذا الجزء لاسناذ القيم من المتغيرات الى مربعات النص للسجل الجديد وكتبته هكذا ليسهل استدعاءه وقت الحاجة Private Sub DoCopy() DoCmd.RefreshRecord If DCount("[ID]", "tblMainData") = 0 Then DoCmd.RefreshRecord Exit Sub ElseIf DCount("[ID]", "tblMainData") >= 1 Then If NewRecord Then DoCmd.GoToRecord , , acLast Call SpecialCopy Else Call SpecialCopy End If End If End Sub طبعا هنا اتأكد اولا ان كان هذا السجل الاول فى الجدول ام لا قبل ان تتم عملية اسناد القيم التى اريدها واهيرا استدعاء الكود من هلال زر امر لتنفيذ عملية نسه السجل الاأهير وقت الحاجة Private Sub BtnDuplicate_Click() Call DoCopy End Sub وهذا الجزء كما يقولون عنه الـ Hot Key استدعاء الكود من خلال زر من الكيبورد عن الضغط عليه Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 117 Then ' استبدل هذا الرقم برقم المفتاح بالاعلى كما يحلو لك Call DoCopy KeyCode = 0 Exit Sub End If End Sub تنويه ببعض الحيل ان اردنا نقوم بنسخ سجل محدد ان اردنا سجل بعينه تبعا لشرط او شروط محدده حسب ما تقتضى الحاجة واخيـــرا المرفق Duplicate Last Record.mdb

بس للتوضيح انا بالكود او بالاستعلام فى طال الحالتين نعتمد على الاستعلام ولكن بغض النظر عن كونط تريد نسخ بيانات من عدد 11207 سجل وفى كل سجل 8 حقول تقريبا انت تمرر بيانات جدول الحركات والذى يساوى عدد 14267 سجل الى استعلام اعمار1 والذى يقوم بعمل SUM لبعض الحقول يمكن ان نتغاضى عما سبق ولكن لاحظ الاتى الدائن: Nz([مجموع المرتجعات],0)+Nz([مجموع الخصم],0)+Nz([مجموع الدفعات],0 يجب ان تتم هذه العملية الحسابية اولا قبل نسخ قيمة الحقل وكذلك x1: Nz(DSum("المدين","اعمار2","[اسم العميل]='" & [اسم العميل] & "' وكذلك x2: Nz(DSum("الدائن","اعمار2","[اسم العميل]='" & [اسم العميل] & "'"),0) وايضا الباقى: IIf([x1]-[x2]<=0,0,IIf([x1]-[x2]>=[المدين],[المدين],[x1]-[x2])) واخيرا ايام التاخير: DateDiff("d",[التاريخ],Date()) ياله من كم هائل من المعادلات الحسابية المعقدة والتى تتم لكل حقل على حده سم اضف ما قد تغاضينا عنه سالفا الموضوع ليس بتقصير من الاكسس فى الاستعلامات بينما هو كم التعقيدات وكم عدد السجلات التى لابد من معالجتها انظر لترى ما يحدث فى المرفق التالى قمت بعمل كود يقوم بعمل لوب داخل الاستعلام لنسخ قيمة كل حقل منفرده الى الحقل الذى يقابلها فى الجدول وحاولت اظهار ما يتم معالجته اصناء العمل على النموذج انظر InsertTest.accdb

في مشكلة في صيغة jpeg ، يمكن لأنها 4 حروف ، ما ادري !! . . . جعفر 1074.1.Worker.mdb.zip

جرب هذا الملف Mou3id.xlsx

وعليكم السلام ورحمة الله وبركاته تفضل Insert.accdb

ابشر تفضل باك اب.accdb

طيب تمام لو انه قام بانشاءه لابد من وضعه فى مسار محدد ويتم استدعاءه من خلال الدهول الى محرر الاكودا فى الجزء Immediate ووضع الكود DoCmd.RunCommand acCmdWorkgroupAdministrator ليقوم بعمل استعراض الملفات للذهاب اليه للارتباط بالقاعدة والا لن تفتح القاعدة اصلا ----------------------- ومؤخرا فى عملى اصبحت استخدم الربط هذا من خلال الشوركت حتى لا اضطر الى الدخول لمحرر الاكواد بعمل شورت كت للقاعدة ووضع هذا السطر فى الــ Target "C:\Program Files (x86)\Microsoft Office\root\Office16\MSACCESS.EXE" "D:\xxx\zz.mdb" /WRKGRP "C:\Secur\Secured.mdw" ولكن هنا لابد من معرفة اصدار نواة كل من الويندوز و الاوفيس ومكان االاوفيس على الجهاز بعد اعداده "C:\Program Files (x86)\Microsoft Office\root\Office16\MSACCESS.EXE" "C:\Program Files\Microsoft Office\Office14\MSACCESS.EXE" ---- الجزء الثانى مكان قاعدة البيانات واسمها D:\xxx\zz.mdb الجزء الثالث مسار ملف السيكيورتى جروب "C:\Secur\Secured.mdw" لو اختلف اى معامل من الثلاث لن تفتح القاعدة اصلا عند العميل تحت امرك جارى عمل مثال حالا من اجل عينيك يا استاذى الكريم و اخى الحبيب تدلل بس بالاول ليعمل عندك كم نواة الوندوز والاوفيس لديك 64 او 32 كل على حده وما هو اصدار الاوفيس ؟؟ انا مثلا عندى لا يعنينى اصدار الويندوز فقط نواته اما الاوفيس لابد لى من معرفة اصدار الاوقيس ونواة الاوفيس انا مثلا ويندوز 64 بيت و اوفيس 2019 نواة 32 بيت اعطنى تلك البيانات استاذ عبد @عبد اللطيف سلوم

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

السلام عليكم جزء من المطلوب تم عمله في الملف المرفق (حساب عمود المتوسط لكل صفحة) أما الجزء الآخر يحتاج إلى الشرح أكثر (معدل عمود متوسط الجزء "20 صفحة")... بن علية حاجي تحصيل3.xlsx

السلام عليكم اسمحوا لي بالمشاركة معكم و الاطلاع على ملفي المتواضع Private Sub basic_BeforeUpdate(Cancel As Integer) Me.one = [basic] Me.tow = [basic] + [incr] * 1 Me.three = [basic] + [incr] * 2 Me.four = [basic] + [incr] * 3 Me.five = [basic] + [incr] * 4 Me.six = [basic] + [incr] * 5 Me.seven = [basic] + [incr] * 6 Me.eight = [basic] + [incr] * 7 Me.nine = [basic] + [incr] * 8 Me.ten = [basic] + [incr] * 9 End Sub Private Sub incr_AfterUpdate() Me.one = [basic] Me.tow = [basic] + [incr] * 1 Me.three = [basic] + [incr] * 2 Me.four = [basic] + [incr] * 3 Me.five = [basic] + [incr] * 4 Me.six = [basic] + [incr] * 5 Me.seven = [basic] + [incr] * 6 Me.eight = [basic] + [incr] * 7 Me.nine = [basic] + [incr] * 8 Me.ten = [basic] + [incr] * 9 End Sub يمكن تنفيذ المطلوب بطريقتين استعلام او عن طريق فورم واخترت اسهل الطريقتين وكل ما عليك هو اضافة الراتب ومقدار الزيادة او العلاوة ليتم حساب الزيادة السنوية حتى 10 سنوات ملحوظة : برجاء التعديل على الفورم للموظف الرابع 600.000 بدلا من 600000 ليتطابق النموذج مع الجدول الخاص بكم تحياتي ... incr.accdb